电子教务管理系统vb

            Else
                txtSQL = txtSQL & " 姓名 = '" & txtXm.Text & "'"
            End If
        End If
    End If

    If Check1(2).Value Then
        If Trim(txtZc.Text) = "" Then
            MsgBox "职称不能为空", vbOKOnly + vbExclamation, "警告"
            txtZc.SetFocus
            Exit Sub
        Else
            dd(2) = True
            If dd(0) Or dd(1) Then
                txtSQL = txtSQL & " and 职称 = '" & txtZc.Text & "'"
            Else
                txtSQL = txtSQL & " 职称 = '" & txtZc.Text & "'"
            End If
        End If
    End If

    If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then
        MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If

      Adodc1.ConnectionString = Con.ConnectionString
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = txtSQL
      Adodc1.Refresh
      Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Form_Load()
Call ResizeInit(Me)
End Sub

Private Sub Form_Resize()
Call ResizeForm(Me) '窗体改变时，控件随之变化
End Sub

Private Sub txtBj_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub

Private Sub txtXH_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub

6主界面设计与代码分析:

代码分析:
Private Sub Sjdcxd_Click()
FrmSjzhxd.Show vbModal, MDIForm1
End Sub

Private Sub Tbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
   Case 1
        FrmJgxxgl.Show
   Case 2
        FrmXsxxgl.Show
   Case 3
        FrmPyglxt.Show
   Case 4
        FrmAddCj.Show vbModal, MDIForm1
   Case 6
        FrmSjzhxd.S

首页上一页 9 10 11 12 13 14 下一页尾页 12/14/14

电子教务管理系统vb(十二)