【正文】 Reference function if objrs is open then close it optCheck(2).Value = 0 = False Exit Sub End If optCheck(2).Value = False ElseIf optCheck(3).Value = True Then 39。Reference to get data If = 0 Then MsgBox This author do not exist,please input another author or choose another query way!, vbInformation + vbOKOnly = EnabledSet 39。 %39。% amp。This is check if your query by is null If Trim() = Then MsgBox Please input bookAuthor name in order to query !, vbInformation + vbOKOnly 39。Reference function to set checkbox enabled CheckConnect 39。 GetData StrSql 39。 Trim() amp。This is check if your query way is null If Trim() = Then MsgBox Please input book name in order to query !, vbInformation + vbOKOnly Exit Sub End If StrSql = select * from tBooks where cBooksName like39。Reference function to set checkbox enabled CheckConnect 39。 GetData StrSql 39。 Trim(txtbookID) amp。This is check if your query by is null If Trim() = Then MsgBox Please input book ID in order to query !, vbInformation + vbOKOnly Exit Sub End If StrSql = select * from tBooks where cBooksID=39。Reference fuction to change columns name to chinese End IfEnd SubPrivate Sub cmdQuery_Click() CheckConnect 39。Reference function in order to get data Set = objRs = True 39。Reference function to make form in MDIForm39。M) = True = True = True End If End IfEnd SubPrivate Sub cmdRefresh_Click() RefreshVip 39。M) Then = 確定 = False = False = False Else If MsgBox(Are you sure to modify this record , vbYesNo + vbInformation) = vbYes Then With objRs If Not .EOF And .RecordCount 0 Then .Fields(0).Value = Trim() .Fields(1).Value = Trim() 39。Reference function to check is your database is empty If Trim() Trim((0).Value) Then Exit Sub 39。Exectue refresh in order to list data when form load ColNamechange 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 load ColNamechange 39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tvip GetData StrSql 39。 39。 amp。 39。Exectue refresh in order to list data when form load ColNamechange 39。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tvip GetData StrSql 39。Reference function to get data If 0 Then MsgBox He borrowed books you don39。 39。and cReturnTime=39。 Trim() amp。To break objrs if it is opened If ConnectToServer = True Then Set objRs = New StrSql = select * from tBorrow where cVipID =39。A) = False = True = True End If End IfEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdDel_Click() If Empty_Check = True Then Exit Sub 39。39。 = True checkAddNew = False = True = True = 添加(amp。 If .RecordCount 0 Then MsgBox This vip has been exist ! = .Filter = cVipID39。 Trim() amp。To Progress option Dim vipsex As String If = True Then vipsex = 男 ElseIf = True Then vipsex = 女 Else vipsex = Null End If 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。A) Then = 確定 SetTextEmpty 39。CheckInputNum 39。mddile = 1 If ConnectToServer = True Then Set objRs = New StrSql = select * from tOperators GetData StrSql 39。Reference function is to Refresh textEnd SubPrivate Sub dgdOp_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If checkAddNew = True Then Exit Sub = TrueEnd SubPrivate 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 .Fields(0).Value = Trim() .Fields(1).Value = Trim() .Fields(2).Value = Trim() .Fields(3).Value = Trim() .F