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

电子教务管理系统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(十二)由毕业论文网（www.huoyuandh.com）会员上传。