【正文】 et param1 New ADODBParameterSet param2 New ADODBParameterSet param3 New ADODBParameterSet param4 New ADODBParameter工號(hào)及書(shū)號(hào)檢測(cè)檢驗(yàn)工號(hào)及書(shū)號(hào)的合法性 With param1 Direction adParamInput Type adBSTR Size 8 Value Text1Text End With cmd1ParametersAppend param1 cmd1CommandText sql1 cmd1CommandType adCmdText Set cmd1ActiveConnection con Set rst cmd1Execute If rstRecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 沒(méi)有此工號(hào) Exit Sub End If With param2 Direction adParamInput Type adBSTR Size 8 Value Text2Text End With cmd2ParametersAppend param2 cmd2CommandText sql2 cmd2CommandType adCmdText Set cmd2ActiveConnection con Set rst1 cmd2Execute If rst1RecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 沒(méi)有此圖書(shū)編號(hào) Exit Sub End If sql2 select from record where [圖書(shū)編碼] rst1Close With param3 Direction adParamInput Type adBSTR Size 8 Value Text2Text End With cmd3ParametersAppend param3 cmd3CommandText sql2 cmd3CommandType adCmdText Set cmd3ActiveConnection con Set rst1 cmd3Execute 圖書(shū)狀態(tài)檢測(cè) If rst1RecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 此圖書(shū)已經(jīng)被借閱 Exit Sub End If sql1 select from record where [工號(hào)] rstClose With param4 Direction adParamInput Type adBSTR Size 8 Value Text1Text End With cmd4ParametersAppend param4 cmd4CommandText sql1 cmd4CommandType adCmdText Set cmd4ActiveConnection con Set rst cmd4Execute 規(guī)定可借閱圖書(shū)數(shù)目檢測(cè) If rstRecordCount 0 Then num rstRecordCount 1 Label3Caption str num ElseIf rstRecordCount 3 Then num rstRecordCount 1 Label3Caption str num ElseIf rstRecordCount 3 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 借閱圖書(shū)已超限 4 Label3Caption str rstRecordCount Exit Sub End If rstClose rstOpen sql con adOpenDynamic adLockOptimistic rstAddNew rst[工號(hào)] Text1Text rst[圖書(shū)編碼] Text2Text rst[借閱時(shí)間] Date rstUpdate frmMsgShow frmMsginfoVisible True frmMsgText1Text 借閱成功End SubPrivate Sub Command2_Click Unload MeEnd SubPrivate Sub Form_Load Dim sql1 sql2 As Stringsql1 select from booksql2 select from workerSet rst New ADODBRecordsetSet rst1 New ADODBRecordsetCall connect_dbrstOpen sql2 con adOpenDynamic adLockOptimisticrst1Open sql1 con adOpenDynamic adLockOptimisticEnd SubPrivate Sub Image1_Click End SubPrivate Sub xptopbuttons1_Click Unload MeEnd SubPrivate Sub xptopbuttons2_Click MeWindowState 1End Sub3 還書(shū) 還書(shū)這一環(huán)節(jié)也同樣關(guān)鍵用戶在知道工號(hào)的前提下只要知道借書(shū)信息的圖書(shū)編號(hào)就能方便的還書(shū)代碼見(jiàn)code目錄下 recordtxtOption ExplicitPrivate Sub Command1_Click Dim sql1 sql2 As StringDim num As Integer檢測(cè)用戶名及書(shū)號(hào)正確否sql1 select from worker where [工號(hào)] sql2 select from book where [圖書(shū)編碼] Dim param1 param2 param3 As ADODBParameterDim cmd1 cmd2 cmd3 As ADODBCommandSet cmd1 New ADODBCommandSet cmd2 New ADODBCommandSet cmd3 New ADODBCommandSet param1 New ADODBParameterSet param2 New ADODBParameterSet param3 New ADODBParameter With param1 Direction adParamInput Type adBSTR Size 8 Value Text1Text End With cmd1ParametersAppend param1 cmd1CommandText sql1 cmd1CommandType adCmdText Set cmd1ActiveConnection con Set rst cmd1Execute If rstRecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 沒(méi)有此工號(hào) Exit Sub End If With param2 Direction adParamInput Type adBSTR Size 8 Value Text2Text End With cmd2ParametersAppend param2 cmd2CommandText sql2 cmd2CommandType adCmdText Set cmd2ActiveConnection con Set rst1 cmd2Execute If rst1RecordCount 0 Then frmMsgShow frmMsgnoticeVisible True frmMsgText1Text 沒(méi)有此圖書(shū)編號(hào) Exit Sub End If sql1 select from record where [工號(hào)] With param3 Direction adParamInput Type adBSTR Size 8 Value Text1Text End With cmd3ParametersAppend param1 cmd3CommandText sql1 cmd3CommandType adCmdText Set cmd3ActiveConnection con Set rst cmd3Execute