dailyinf.frm

一个教师信息管理的Visual Basic源码

            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmDailyInf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public bIsEditing As Boolean
Public giTeacherID As Integer
Public rsTeacherInf As New ADODB.Recordset
Public rsDailyInf As New ADODB.Recordset
Public giWhich As Integer

Private Sub UpdateDataGridColumnOfTeacher()
    dgdTeacherInf.Columns.Item(0).Width = 0
    dgdTeacherInf.Columns.Item(0).Caption = "ID"
    dgdTeacherInf.Columns.Item(1).Caption = "编号"
    dgdTeacherInf.Columns.Item(2).Caption = "姓名"
    dgdTeacherInf.Columns.Item(3).Caption = "性别"
    dgdTeacherInf.Columns.Item(4).Caption = "出生日期"
    dgdTeacherInf.Columns.Item(5).Caption = "电话"
    dgdTeacherInf.Columns.Item(6).Caption = "部门"
    dgdTeacherInf.Columns.Item(7).Caption = "入司时间"
    dgdTeacherInf.Columns.Item(8).Caption = "家庭住址"
    dgdTeacherInf.Columns.Item(9).Caption = "政治面貌"
    dgdTeacherInf.Columns.Item(10).Caption = "职务"
    dgdTeacherInf.Columns.Item(11).Caption = "注释"
End Sub

Private Sub UpdateDataGridColumnOfDaily()
    dgdDailyInf.Columns.Item(0).Width = 0
    dgdDailyInf.Columns.Item(0).Caption = "ID"
    dgdDailyInf.Columns.Item(1).Caption = "教师"
    dgdDailyInf.Columns.Item(2).Caption = "科目"
    dgdDailyInf.Columns.Item(3).Caption = "课时"
    dgdDailyInf.Columns.Item(4).Caption = "对象"
    dgdDailyInf.Columns.Item(5).Caption = "地点"
    dgdDailyInf.Columns.Item(6).Caption = "时间"
    dgdDailyInf.Columns.Item(7).Caption = "集体班级上课时间"
    dgdDailyInf.Columns.Item(8).Caption = "毕业设计"
End Sub

Private Sub cmdAdd_Click()
    
    If giWhich = 1 Then
        If (Not rsTeacherInf.BOF = True) And (Not rsTeacherInf.EOF = True) And rsTeacherInf.RecordCount > 0 Then
            rsTeacherInf.MoveLast
        End If
        rsTeacherInf.AddNew "T_Name", "姓名"
        rsTeacherInf.Update
        
        rsTeacherInf.Requery
        Set adcTeacherInf.Recordset = rsTeacherInf
        Call UpdateDataGridColumnOfTeacher
        
       If (Not rsTeacherInf.BOF = True) And (Not rsTeacherInf.EOF = True) And rsTeacherInf.RecordCount > 0 Then
            rsTeacherInf.MoveLast
        End If
    ElseIf giWhich = 2 Then
        If (Not rsDailyInf.BOF = True) And (Not rsDailyInf.EOF = True) And rsDailyInf.RecordCount > 0 Then
            'rsDailyInf.MoveLast
        End If
        rsDailyInf.AddNew "T_ID", giTeacherID
        rsDailyInf.Update
        
        rsDailyInf.Requery
        Set adcDailyInf.Recordset = rsDailyInf
        Call UpdateDataGridColumnOfDaily
        
        If (Not rsDailyInf.BOF = True) And (Not rsDailyInf.EOF = True) And rsDailyInf.RecordCount > 0 Then
            rsDailyInf.MoveLast
        End If
    End If
    
   
    cmdUndo.Enabled = True
    cmdSave.Enabled = True

End Sub


Private Sub cmdDelete_Click()
    If giWhich = 1 Then
    
        rsTeacherInf.Delete adAffectCurrent
        rsTeacherInf.Update
        rsTeacherInf.Requery
        Set adcTeacherInf.Recordset = rsTeacherInf
    
        Call UpdateDataGridColumnOfTeacher
    ElseIf giWhich = 2 Then
        rsDailyInf.Delete adAffectCurrent
        rsDailyInf.Update
        rsDailyInf.Requery
        Set adcDailyInf.Recordset = rsDailyInf
    
        Call UpdateDataGridColumnOfDaily
    End If
    
    
    cmdUndo.Enabled = True
    cmdSave.Enabled = True

End Sub

Private Sub cmdModify_Click()
    If Not gbIsAdmin Then
        MsgBox "对不起!你不是管理员,无权进行编辑!", vbOKOnly
        Exit Sub
    End If
    bIsEditing = Not bIsEditing
    dgdDailyInf.EditActive = True
    dgdTeacherInf.EditActive = True
    If bIsEditing Then
        dgdTeacherInf.AllowAddNew = True
        dgdTeacherInf.AllowDelete = True
        dgdTeacherInf.AllowUpdate = True
        dgdTeacherInf.AllowDelete = True
        
        dgdDailyInf.AllowAddNew = True
        dgdDailyInf.AllowDelete = True
        dgdDailyInf.AllowUpdate = True
        dgdDailyInf.AllowDelete = True
        
        
        cmdAdd.Enabled = True
        cmdDelete.Enabled = True
        cmdModify.Caption = "取消编辑(&C)"
        
        
    Else
        dgdTeacherInf.AllowAddNew = False
        dgdTeacherInf.AllowDelete = False
        dgdTeacherInf.AllowUpdate = False
        dgdTeacherInf.AllowDelete = False
        
        dgdDailyInf.AllowAddNew = False
        dgdDailyInf.AllowDelete = False
        dgdDailyInf.AllowUpdate = False
        dgdDailyInf.AllowDelete = False
        
        cmdAdd.Enabled = False
        cmdDelete.Enabled = False
        cmdModify.Caption = "开始编辑(&E)"
        
    End If
    
    Me.ValidateControls
End Sub



Private Sub cmdQuery_Click()
    Dim strCondition As String, strSQL As String
    Dim nConCount As Integer
    nConCount = 0
    strSQL = "SELECT * FROM tmisTeacherInfo " & strCondition
    If (Not cmbByDepart.Text = "") Or (Not txtByNO.Text = "") Or (Not txtByName.Text = "") Then
        strSQL = strSQL & "WHERE "
        
        If Not cmbByDepart.Text = "" Then
            strCondition = "Department = " & "'" & cmbByDepart.Text & "'"
            strSQL = strSQL & strCondition
            nConCount = nConCount + 1
        End If
        
        If Not txtByNO.Text = "" Then
            strCondition = "T_ID = " & txtByNO.Text
            If nConCount > 0 Then
                strSQL = strSQL & " AND " & strCondition
            Else
                strSQL = strSQL & strCondition
            End If
            nConCount = nConCount + 1
        End If
        
        If Not txtByName.Text = "" Then
            strCondition = "T_Name LIKE " & "'%" & txtByName.Text & "%'"
            If nConCount > 0 Then
                strSQL = strSQL & " AND " & strCondition
            Else
                strSQL = strSQL & strCondition
            End If
            nConCount = nConCount + 1
        End If
    End If
    
    If Not rsTeacherInf.State = adStateClosed Then rsTeacherInf.Close
    rsTeacherInf.Open strSQL, objDbConnector, adOpenStatic, adLockOptimistic
    Set adcTeacherInf.Recordset = rsTeacherInf
    Set dgdTeacherInf.DataSource = adcTeacherInf
    
    Call UpdateDataGridColumnOfTeacher
    Call UpdateDataGridColumnOfDaily

    
End Sub

Private Sub cmdQueryAll_Click()
    If Not rsTeacherInf.State = adStateClosed Then rsTeacherInf.Close
    
    rsTeacherInf.Open "tmisTeacherInfo", objDbConnector, adOpenStatic, adLockOptimistic
    Set adcTeacherInf.Recordset = rsTeacherInf
    Set dgdTeacherInf.DataSource = adcTeacherInf
    
    Call UpdateDataGridColumnOfTeacher
    'Call UpdateDataGridColumnOfDaily

End Sub

Private Sub cmdSave_Click()
    objDbConnector.CommitTrans
    rsTeacherInf.Requery
    Set adcTeacherInf.Recordset = rsTeacherInf
    Call UpdateDataGridColumnOfTeacher
    Call UpdateDataGridColumnOfDaily
    
    objDbConnector.BeginTrans
    cmdSave.Enabled = False
    cmdUndo.Enabled = False
End Sub

Private Sub cmdUndo_Click()
    objDbConnector.RollbackTrans
    rsTeacherInf.Requery
    Set adcTeacherInf.Recordset = rsTeacherInf
    Call UpdateDataGridColumnOfTeacher
    Call UpdateDataGridColumnOfDaily

    objDbConnector.BeginTrans
    cmdUndo.Enabled = False
End Sub


Private Sub dgdDailyInf_GotFocus()
    giWhich = 2
End Sub


Private Sub dgdTeacherInf_AfterUpdate()
    cmdUndo.Enabled = True
    cmdSave.Enabled = True
    On Error GoTo errhandle
    Dim iNO As Integer
    iNO = dgdTeacherInf.Columns.Item("编号").Value
errhandle:
    MsgBox "教师编号不能为空!"

End Sub

Private Sub dgdTeacherInf_GotFocus()
    giWhich = 1
End Sub

Private Sub dgdTeacherInf_SelChange(Cancel As Integer)
    Dim strSQL As String
    On Error GoTo errhandle
    giTeacherID = dgdTeacherInf.Columns.Item("编号").Value
    If giTeacherID > 0 Then
        If Not rsDailyInf.State = adStateClosed Then
            'rsDailyInf.Update
            rsDailyInf.Close
        End If
        strSQL = "SELECT * FROM tmisDailyTeach WHERE T_ID = " & giTeacherID
        rsDailyInf.Open strSQL, objDbConnector, adOpenStatic, adLockOptimistic
        Set adcDailyInf.Recordset = rsDailyInf
        Set dgdDailyInf.DataSource = adcDailyInf
        
        Call UpdateDataGridColumnOfDaily
    End If
errhandle:
    
    
End Sub

Private Sub Form_Load()
    giTeacherID = -1
    giWhich = -1
    
    cmbByDepart.AddItem ""
    cmbByDepart.AddItem "信息技术与商务管理系"
    cmbByDepart.AddItem "计算机科学与技术系"
    
    objDbConnector.BeginTrans
    
    rsTeacherInf.Open "tmisTeacherInfo", objDbConnector, adOpenStatic, adLockOptimistic
    Set adcTeacherInf.Recordset = rsTeacherInf
    Set dgdTeacherInf.DataSource = adcTeacherInf
    adcTeacherInf.Refresh

    Call UpdateDataGridColumnOfTeacher
    
    dgdTeacherInf.AllowRowSizing = True
    dgdTeacherInf.EditActive = False
    dgdTeacherInf.Enabled = True
    
    
    ';;;;日常信息;;;;;;
    
    rsDailyInf.Open "tmisDailyTeach", objDbConnector, adOpenStatic, adLockOptimistic
    Set adcDailyInf.Recordset = rsDailyInf
    Set dgdDailyInf.DataSource = adcDailyInf
    adcDailyInf.Refresh

    
    Call UpdateDataGridColumnOfDaily
    
    dgdDailyInf.AllowRowSizing = True
    dgdDailyInf.EditActive = False
    dgdDailyInf.Enabled = True
    
    bIsEditing = False
    bUndoEnable1 = False
    bUndoEnable2 = False
    bSaveEnable1 = False
    bSaveEnable2 = False
    
    Call dgdTeacherInf_SelChange(0)

End Sub


Private Sub Form_Unload(Cancel As Integer)
    dgdTeacherInf.EditActive = False
    dgdDailyInf.EditActive = False
    If Not objDbConnector.State = adStateClosed Then
        If Not rsTeacherInf Is Nothing Then
            rsTeacherInf.Close
            Set rsTeacherInf = Nothing
        End If
        If Not rsDailyInf Is Nothing Then
            rsDailyInf.Close
            Set rsDailyInf = Nothing
        End If
        
        objDbConnector.CommitTrans
        objDbConnector.Close
    End If
End Sub