机房收费系统调错总结（二）

问题三：正在值班教师窗体

思路：正在值班教师应为登陆者，本窗体从WorkLog表中查找；

在登陆窗体中天际onwork的记录；

其次程序退出时删除onwork表中的记录，更该worklog表中的记录。

登陆窗体：

 Else
            '添加进onwork数据表中
            
            If Trim(mrc.Fields(1)) = Trim(txtPassWord.Text) Then
                UserLevel = mrc.Fields(2)
                txtSQL1 = "select * from onwork_Info "
                Set mrcOnwork = ExecuteSQL(txtSQL1, Msgtext1)
                
                mrcOnwork.AddNew
                mrcOnwork.Fields(0) = Trim(txtUserName.Text)
                mrcOnwork.Fields(1) = Trim(mrc.Fields(2))
                mrcOnwork.Fields(2) = Date
                mrcOnwork.Fields(3) = Time
                mrcOnwork.Fields(4) = Trim(Environ("computername"))
                
                mrcOnwork.Update

主窗体下机时删除在线表中的信息：

 '删除在线表中的信息
    Set mrcOnline = New ADODB.Recordset
    OnlineSQL = "select * from online_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
    Set mrcOnline = ExecuteSQL(OnlineSQL, OnMsgtext)
    mrcOnline.Delete
    mrcOnline.Update
    lblPeopleCount.Caption = Str(lblPeopleCount.Caption - 1)

主窗体退出时更新worklog表中的数据：

Private Sub MDIForm_Unload(Cancel As Integer)   '涉及到worklog和Onwork两张表
    If MsgBox("确定要退出吗？", vbInformation + vbYesNo, "李春丽第一次机房") = vbYes Then
        Cancel = False
        
        Dim mrc As ADODB.Recordset
         Dim mrc1 As ADODB.Recordset
         Dim txtSQL As String
         Dim txtSQL1 As String
         Dim Msgtext1 As String
         Dim MsgText As String
         txtSQL1 = "select * from Onwork_Info where UserID= '" & Trim(frmLogin.txtUserName) & "'"
         Set mrc1 = ExecuteSQL(txtSQL1, Msgtext1)
      
         txtSQL = "select * from worklog_Info "
         Set mrc = ExecuteSQL(txtSQL, MsgText)
         mrc.AddNew
'         If mrc1.EOF And mrc1.BOF Then
'            On Error GoTo gperror
'gperror:
'            MsgBox "已经没有记录了，窗口即将关闭！", vbInformation, "提示"
'         Else
         
         mrc.Fields(1) = Trim(frmLogin.txtUserName)
         mrc.Fields(2) = Trim(mrc1.Fields(1))
        

         mrc.Fields(3) = Trim(mrc1.Fields(2))
         mrc.Fields(4) = Trim(mrc1.Fields(3))
         mrc.Fields(7) = Trim(Environ("computername"))
     
         mrc.Fields(5) = Trim(Date)
         mrc.Fields(6) = Trim(Time)
         mrc.Fields(8) = Trim(False)
         
         mrc.Update
         'mrc1.Delete
         
        End
   
    Else
    
        Cancel = True
    End If

    
        
End Sub

问题四：一些细节性的问题：

（1）上下机窗体、学生查看余额窗体、退卡窗体、充值窗体的显示框中的内容不可编辑，应被锁定。
（2）MSFlexGrid控件在窗体一加载时即显示表头（注意固定行的问题），选中行时选择整行，以及焦点问题。

（3）密码显示时应为*

（4）组合查询：当点击第一个组合关系时，第二行查询条件才可以编辑；当点击第二个组合关系时，第三行查询条件才可以编辑。

（5）不同权限的人用户名不可以重复。

（6）基本数据设定每次更改信息始终只有一条记录。