【文章內(nèi)容簡介】 nd SubPrivate Sub Command5_Click()End SubPrivate Sub Image1_Click()Dim strF As String搜索按鈕 strF = select * from book where bookname like 39。% amp。 amp。 %39。If QueryData(strF) Then Set = rstEnd IfEnd SubPrivate Sub MDIForm_Load() = If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒有物理連接或數(shù)據(jù)庫不在指向的服務(wù)器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfOn Error GoTo fmerr If QueryData(select * from book) = True Then Set = rst Else MsgBox 查詢失??！ End If Exit Subfmerr: If = True And = True Then MsgBox 沒有任何記錄！ End If End SubPrivate Sub mun_add_data_recstu_Click()End SubPrivate Sub mun_borr_giv_Click()End SubPrivate Sub mun_borr_ow_Click()End SubPrivate Sub mun_data_add_recbook_Click()End SubPrivate Sub mun_del_book_Click()End SubPrivate Sub mun_del_stu_Click()End SubPrivate Sub mun_exp_borrow_Click()End SubPrivate Sub mun_exp_stu_Click()End SubPrivate Sub mun_help_about_Click()End SubPrivate Sub mun_rework_book_Click()End SubPrivate Sub mun_rework_stu_Click()End SubPrivate Sub mun_sys_admin_Click()End SubPrivate Sub mun_sys_sys_Click()End Sub數(shù)據(jù)管理的實現(xiàn)當單擊數(shù)據(jù)管理－添加－書籍記錄菜單時，窗體如下：代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo nore If MsgBox(確實要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD MsgBox 添加成功 End If Exit Subnore: MsgBox 圖書編號重復(fù)或者輸入錯誤！, vbOKOnly + vbCritical, 提示End SubPrivate Sub Form_Load() = = = = = = On Error GoTo fmerr If QueryData(select * from book) = True Then Else MsgBox 查詢失??！ End If Exit Subfmerr: If = True And = True Then MsgBox 沒有任何記錄！ End IfEnd SubPrivate Sub upD() (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = End Sub添加讀者的窗體代碼如下：Private Sub Command1_Click()On Error GoTo error If MsgBox(確實要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD1 MsgBox 添加成功 End If Exit Suberror: MsgBox 讀者編號重復(fù)或者輸入錯誤！, vbOKOnly + vbCritical, 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() = = = = = On Error GoTo fmerr If QueryData(select * from reader) = True Then Else MsgBox 查詢失敗！ End If Exit Subfmerr: If = True And = True Then MsgBox 沒有任何記錄！ End IfEnd SubPrivate Sub upD1() (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = End Sub當單擊數(shù)據(jù)管理－修改－更改書籍菜單時，窗體如下：代碼如下：Private Sub Command2_Click()On Error GoTo no Call upD2 If Or Then First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like 39。% amp。 amp。 %39。If QueryData(strF) Then = (bookname).Value = (booktype).Value = (bookprice).Value = (bookstate).Value = (bookpublish).Value = (bookintime).Value End IfEnd SubPrivate Sub Form_Load() = = = = = = = End SubPrivate Sub upD2() (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = End Sub當單擊數(shù)據(jù)管理－修改－更改讀者菜單時，窗體如下代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command4_Click()On Error GoTo no Call upD3 If Or Then First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command5_Click()Dim strF1 As String strF1 = select * from reader where readerid like 39。% amp。 amp。 %39。 If QueryData(strF1) Then = (readername).Value = (readerage).Value = (readercity).Value = ().Value End IfEnd SubPrivate Sub Form_Load() = = =