ass圖書館管理系統(tǒng)設(shè)計報告(完整版)
【正文】 17 (0) = Text1(0).Text (1) = Text1(1).Text (2) = Text1(2).Text (3) = Text1(3).Text (4) = Text1(4).Text MsgBox 添加讀者信息成功 !, vbOKOnly, Else MsgBox 借閱證號重復！ , vbOKOnly + vbExclamation, Text1(0).SetFocus Exit Sub End If Else MsgBox (借閱證號不能為空！ ) Text1(0).SetFocus End If = select * from 讀者信息表 End Sub Private Sub Command2_Click() Dim Y As Integer Dim Finds As String Y = MsgBox(你確認要刪除該記錄？ , 36, 刪除記錄 ) Finds = InputBox(請輸入要刪除的讀者借閱證號 , 刪除記錄 , ) If Y = 6 Then 18 If Then End If End If End Sub Private Sub Command3_Click() Dim Findstr As String Findstr = InputBox(請輸入讀者借閱證號 , 查找 , ) = select * from 讀者信息表 where 借閱證號 =39。 Else Set DataGrid1(1).DataSource = Adodc1 End If End Sub Private Sub Command4_Click() End Sub Private Sub tc_Click() 19 End Sub Private Sub tj_Click() = True End Sub Private Sub sc_Click() Dim Y As Integer Y = MsgBox(你確認要刪除該記錄？ , 36, 刪除記錄 ) If Y = 6 Then Dim Fin As String Fin = InputBox(請輸入要刪除的讀者類別編號 , 查找 , ) 類別編號 =39。and 是否可借 =1 21 If = 0 Then MsgBox 沒有該圖書信息或該圖書已經(jīng)借出 ,請輸入所借圖書的書籍編號 Else = select * from 讀者信息表 where 借閱證號 =39。and 還書時間 is null num = lb = (類別編號 ) = select * from 讀者類別 where 類別編號 =39。 = select * from 圖書借閱 where 借閱證號 =39。 (是否可借 ) = 0 22 = select * from 館藏圖書信息 where 是否可借 =1 MsgBox (借閱成功 ) End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() = select * from 館藏圖書信息 where 是否可借 =1 End Sub （ 7）還書系統(tǒng)界面 設(shè)計 還書系統(tǒng) 代碼設(shè)計： Dim s As String Private Sub mand1_Click() Dim t As Boolean s = Trim() = select * from 圖書借閱 where 借閱證號 = 39。 and 書籍編號 =39。 and 書籍編號 =39。 amp。 If Then MsgBox 該管理員不存在 Else MsgBox 刪除成功！ End If End If End Sub Private Sub Form1_Load() = False End Sub Private Sub Command3_Click() End Sub 6 軟件測試 26 運行結(jié)果展示： 管理員登陸： ① 非系統(tǒng)用戶登錄 ② 系統(tǒng)管理員登陸 27 圖書館管理系統(tǒng)主頁： 圖書 信息 管理運行結(jié)果： 28 ① 、 添加 一條新的 圖書信息 ：添加圖書編號為 100索書號為 KJ100書籍名稱為 JAVA、作者為張子燕、出版日期為 20xx、入館時間為 20xx1202 29 ② 、 查找書籍編號為 1011 的圖書信息： 查詢結(jié)果： 讀者信息管理： 30 ① 、 添加讀者信息 ② 、 刪除讀者信息 31 按借閱證號查找讀者信息 32 查找結(jié)果： 讀
研究報告相關(guān)推薦
鄂ICP備17016276號-1