【正文】 Reference fuction to change columns name to chinese End If End If CheckConnect 39。Reference function in order to get data Set = objRs = True 39。 StrSql CheckConnect 39。 Trim() amp。s data will delete are you sure to continue ?, vbYesNo + vbInformation) = vbYes Then StrSql = delete from tVip where cVipID=39。Reference fuction to change columns name to chinese End If Else If MsgBox(txtVipName amp。Reference fuction to get data Set = objRs = True 39。t delete this vip !, vbInformation + vbOKOnly CheckConnect 39。 GetData StrSql 39。39。 39。 amp。Reference function to check if your database is empty CheckConnect 39。 = True End With checkAddNew = False 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 32 = True = True = 添加 (amp。A) = False = True = True checkAddNew = False Exit Sub End If checkAddNew = True .AddNew .Fields(0).Value = Trim(txtVipID) .Fields(1).Value = Trim(txtVipName) .Fields(2) = vipsex .Fields(3) = Trim() .Fields(4) = Trim() .Fields(5) = Trim() .Fields(6) = Trim() .Fields(7) = Trim() .Update MsgBox Vip add success !, vbInformation + vbOKOnly .Filter = cVipID39。39。 39。 amp。 Reference a founction to set empty = False = False = False Else 39。 圖 學(xué)生信息登記 界面 代碼 如下： Private Sub cmdAdd_Click() = False = False = True If = 添加 (amp。CheckInputNum 39。mddile = 1 If ConnectToServer = True Then Set objRs = New StrSql = select * from tOperators GetData StrSql 39。Reference function is to Refresh text End Sub Private Sub dgdOp_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If checkAddNew = True Then Exit Sub = True End Sub Private Sub Form_Activate() FormMiddle frmAdmin 39。Reference function to check if your database is null = False If (0).Value Then Exit Sub 39。 39。Reference function to check if your database is null If Not And 0 Then If MsgBox(The : amp。There will reference a founction to set empty = False = True = True = True = 添加 = True 39。 = True 39。A) = False = True = True checkAddNew = False Exit Sub End If checkAddNew = True .AddNew 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 28 .Fields(0).Value = Trim() .Fields(1).Value = Trim() .Fields(2).Value = Trim() .Fields(3).Value = Trim() .Fields(4).Value = Trim() .Update MsgBox Operator add success !, vbInformation + vbOKOnly .Filter = cOperatorID39。 = True 39。 If .RecordCount 0 Then MsgBox This operator has been exist ! = .Filter = cOperatorID39。 Trim() amp。 reference settextempty founction to set empty = False = False = False Else If Trim() = Then MsgBox Operator name must not null ,please input operator name !, vbInformation + vbOKOnly Exit Sub ElseIf Trim() = Then MsgBox Operator ID must not null ,please input operator ID !, vbInformation + vbOKOnly Exit Sub ElseIf Trim() = Then MsgBox Operator password must not null ,please input operator password !, vbInformation + vbOKOnly Exit Sub Else With objRs checkAddNew = True .Filter = cOperatorID=39。You don39。This function is to Refresh text = (0).Value = (1).Value = (2).Value = (3).Value 39。 計(jì)算機(jī)學(xué)院軟件工程課程設(shè)計(jì) 26 圖 操作員管理界面 代碼如下： Option Explicit Sub SetTextEmpty() 39。Reference function to make objcon break if connection is open Load frmReadRegist Case readQuery CheckConnect 39。Reference function to make objcon break if connection is open Load frmBookReg Case bookQuery CheckConnect 39。Reference function to make objcon break if connection is open Load frmVipReg Case vipQuery CheckConnect 39。Reference function to make objcon break if connection is open Load frmReadRegist End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case operatorReg CheckConnect 39。Reference function to make objcon break if connection is open Load frmVipQuery End Sub Private Sub mnuVipRegist_Click() CheckConnect 39。Reference function to make objcon break if connection is open Unload Me End End Sub Private Sub mnuReLogin_Click() CheckConnect 39。Reference function to make objcon break if connection is open Load frmBookReg End Sub Private Sub mnuBorrowQuery_Click() CheckConnect 39。Reference function to make objcon break if connection is open End Sub Private Sub mnuAbout_Click()