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秒后自动消失进入系统主界面，欢迎界面的代码设计如下： Private Sub Timer1_Timer() If Timer1.Enabled = True Then Form8.Hide Form2.Show Timer1.Enabled = False End If End Sub 系统主界面 系统主界面可以进行简单的信息浏览（如图3-1），在主界面设置了一些命令按扭，其中 “修改”、“删除”、“打印”可以在主界面直接进行，而“查询”和“添加”需要打开另一个窗体操作。代码设计如下： Private Sub Command6_Click() Data1.Recordset.MoveFirst End Sub Private Sub Command7_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub Private Sub Command8_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command9_Click() Data1.Recordset.MoveLast End Sub Private Sub Form_Load() Timer1.Enabled = True Label11.Left = Me.Width End Sub Private Sub Command10_Click() DataReport1.Show End Sub Private Sub Command3_Click() ans = MsgBox(确认修改??, 32 + 1, 提示) If ans = 1 Then mbookmark = Data1.Recordset.Bookmark Data1.Recordset.Edit End If End Sub Private Sub Command4_Click() On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast MsgBox 确认删除?, 32 + 1, 提示 End Sub Private Sub Timer1_Timer() Label11.Left = Label11.Left - 200 If Label11.Left = -Label11.Width Then Form2.BackColor = vbRed End If End Sub Private Sub Timer2_Timer() Label12.Caption = Time End Sub 图3-1 查询 查询的效果图如图4-1 图4-1 代码设计如下： Private Sub Command1_Cli