[工程科技]圖書(shū)館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-展示頁(yè)
2025-01-27 12:44本頁(yè)面
【正文】 (3).Value = (4).Value = (5).Value = (6).Value = End Sub當(dāng)單擊數(shù)據(jù)管理－修改－更改讀者菜單時(shí)，窗體如下代碼如下：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。If QueryData(strF) Then Set = rstEnd IfEnd SubPrivate Sub MDIForm_Load() = If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒(méi)有物理連接或數(shù)據(jù)庫(kù)不在指向的服務(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 沒(méi)有任何記錄！ 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ù)管理的實(shí)現(xiàn)當(dāng)單擊數(shù)據(jù)管理－添加－書(shū)籍記錄菜單時(shí)，窗體如下：代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo nore If MsgBox(確實(shí)要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD MsgBox 添加成功 End If Exit Subnore: MsgBox 圖書(shū)編號(hào)重復(fù)或者輸入錯(cuò)誤！, 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 沒(méi)有任何記錄！ 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(確實(shí)要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD1 MsgBox 添加成功 End If Exit Suberror: MsgBox 讀者編號(hào)重復(fù)或者輸入錯(cuò)誤！, 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 沒(méi)有任何記錄！ End IfEnd SubPrivate Sub upD1() (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = End Sub當(dāng)單擊數(shù)據(jù)管理－修改－更改書(shū)籍菜單時(shí)，窗體如下：代碼如下：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。系統(tǒng)主窗體的實(shí)現(xiàn)圖 36 其代碼如下：Private rs As Private rs1 As Private rs2 As Private strSql As StringPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command4_Click() = If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒(méi)有物理連接或數(shù)據(jù)庫(kù)不在指向的服務(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 沒(méi)有任何記錄！ End IfEnd SubPrivate Sub Command5_Click()End SubPrivate Sub Image1_Click()Dim strF As String搜索按鈕 strF = select * from book where bookname like 39。 break。 break。
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1