第优章   编码实现与调试

 6.1登录界面

图6.1 登录界面图

Private Sub Command1_Click()

Form1.Hide

Form2.Show

End Sub

6.2密码窗口界面

图6.2 密码窗口界面图

Private Sub Command1_Click()

 '检查正确的密码

    If Text1 = "123456" Then

        '将代码放在这里传递

        '成功到 calling 函数

        '设置全局变量时最容易的

        LoginSucceeded = True

        Me.Hide

        Form3.Show

    Else

        MsgBox "无效的密码，请重试!", , "登录"

        Text1.SetFocus

        SendKeys "{Home}+{End}"

         End If

    Text1.Text = ""

End Sub

Private Sub Command2_Click()

Form2.Hide

Form1.Show

End Sub

6.3主窗口界面

图6.3 主窗口界面图

Private Sub Command1_Click()

frm毕业生基本信息表.Show

Form3.Hide

End Sub

Private Sub Command2_Click()

Form3.Hide

 frm专业信息表.Show

End Sub

Private Sub Command3_Click()

Form3.Hide

frm单位信息表.Show

End Sub

Private Sub Command4_Click()

Form3.Hide

Form2.Show

End Sub

6.4毕业生信息表界面

图6.4 毕业生基本信息表界面图

Private Sub Form_Load()

  Set grdDataGrid.DataSource = datPrimaryRS.Recordset("ChildCMD").UnderlyingValue

End Sub

Private Sub Form_Resize()

  On Error Resume Next

  '当窗体调整时会调整网格

  grdDataGrid.Width = Me.ScaleWidth

  grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height

End Sub

Private Sub Form_Unload(Cancel As Integer)

  Screen.MousePointer = vbDefault

End Sub

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)

  '错误处理程序代码置于此处

  '想要忽略错误，注释掉下一行

  '想要捕获它们，在此添加代码以处理它们

  MsgBox "Data error event hit err:" & Description

End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>