VB课程设计--档案管理系统代码.docVIP

登陆界面 运行本系统需要进行用户名和密码验证，没有用户名的可以在登陆界面注册，详细注册方法在下文有介绍。登陆界面效果图如图1-1： 图1-1 登陆界面设计的代码如下： Private Sub Command1_Click() str1 = Text1.Text str2 = Text2.Text STRSQL = SELECT * FROM 密码表 WHERE 用户名= str1 + AND 密码= str2 Data1.RecordSource = STRSQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 用户名或密码错！, 16, 提示 Else Form8.Show Form1.Hide End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Form6.Show End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub 欢迎界面 当用户名和密码验证成功后即可进入欢迎界面如图2-1 图2-1 在欢迎界面的设计时用了一个时钟控件，让欢迎界面出现3秒后自动消失进入系统主界面，欢迎界面