【正文】 Win 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 23 End Select End If End Sub 主界面如圖 所示。 CurrentOpname (1).Visible = True (2).Visible = True Else (1).Text = 操作員： amp。Design popup menu End If 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 24 End Sub Private Sub MDIForm_Unload(Cancel As Integer) CheckConnect 39。Reference function to make objcon break if connection is open Load frmBookQuery End Sub Private Sub mnuBookRegist_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmReadQuery End Sub Private Sub mnuExit_Click() CheckConnect 39。Reference function to make objcon break if connection is open Unload Me Load frmLogin End Sub Private Sub mnuVipQuery_Click() CheckConnect 39。Reference function to make objcon break if connection is open 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 25 Load frmVipReg End Sub Private Sub munReadRegist_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmAdmin Case vipReg CheckConnect 39。Reference function to make objcon break if connection is open Load frmVipQuery Case BookReg CheckConnect 39。Reference function to make objcon break if connection is open Load frmBookQuery Case readReg CheckConnect 39。Reference function to make objcon break if connection is open Load frmReadQuery End Select End Sub 操作員管理界面如圖 所示。This function is set all text to empty = = = = = End Sub Sub RefreshOperator() 39。 = (4).Value End Sub Private Sub cmdAdd_Click() = True 39。t change datagrid untill you add data finish = False If = 添加 Then 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 27 = 確定 SetTextEmpty 39。 amp。 39。39。To executer refresh once checkAddNew = False = True = True = 添加 (amp。39。To executer refresh once End With checkAddNew = False 39。You can use datagrid after add finish End If End If End Sub Private Sub cmdDel_Click() If Empty_Check = True Then Exit Sub 39。 txtOpName amp。s data will delete continue ?, vbYesNo + vbInformation) = vbYes Then End If End If End Sub Private Sub cmdModify_Click() If Empty_Check = True Then Exit Sub 39。To check operator ID If = 修改 Then = 確定 = False = False Else With objRs .Fields(0).Value = Trim() .Fields(1).Value = Trim() .Fields(2).Value = Trim() .Fields(3).Value = Trim() 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 29 .Update End With = 修改 = True = True = True End If End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRefresh_Click() RefreshOperator 39。Reference function to make form in MDIForm39。Reference function to get data Set = objRs = True End If End Sub Private Sub txtOpAddTime_KeyPress(KeyAscii As Integer) 39。Reference function to check input If Not (KeyAscii = vbKey0 And KeyAscii = vbKey9 _ Or KeyAscii = vbKeyBack _ Or KeyAscii = Asc()) Then KeyAscii = 0 End If End Sub Private Sub txtOpID_KeyPress(KeyAscii As Integer) If Not (KeyAscii = vbKey0 And KeyAscii = vbKey9 _ Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End If End Sub 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 30 學(xué)生登記界面如圖 所示。A) Then = 確定 SetTextEmpty 39。To Progress option Dim vipsex As String If = True Then vipsex = 男 ElseIf = True Then vipsex = 女 Else vipsex = Null End If 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 31 If = Then MsgBox Vip name must not null ! Exit Sub ElseIf = Then MsgBox Vip ID must not null ! Exit Sub Else With objRs checkAddNew = True .Filter = cVipID=39。 Trim() amp。 If .RecordCount 0 Then MsgBox This vip has been exist ! = .Filter = cVipID39。 = True checkAddNew = False = True = True = 添加 (amp。39。A) = False = True = True End If End If End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDel_Click() If Empty_Check = True Then Exit Sub 39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tBorrow where cVipID =39。 Trim() amp。and cReturnTime=39。 39。Reference function to get data If 0 Then MsgBox He borrowed books you don39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tvip GetData StrSql 39。Exectue refresh in order to list data when form load ColNamechange 39。 39。 amp。 39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tvip GetData StrSql 39。Exectue refresh in order to list data when form 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 33 load ColNamechange 39。To break objrs if i