VB圖書管理系統(tǒng)

1、1、概述為適應(yīng)教育現(xiàn)代化的迫切要求，提高高校圖書館的現(xiàn)代化管理水平，提高圖書館使用效率，更好的配置圖書資源，降低工作人員勞動強(qiáng)度；結(jié)合本人實際興趣及知識，開發(fā)了此軟件。2、詳細(xì)設(shè)計21.系統(tǒng)功能模塊圖22. 數(shù)據(jù)流圖：3.數(shù)據(jù)庫設(shè)計3.1 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計：3.2數(shù)據(jù)庫邏輯結(jié)構(gòu)的設(shè)計包括有系統(tǒng)用戶表yonghu、讀者表duzhe、圖書表tushu、借閱表jieshu、設(shè)置表shez。圖書表tushu字段名稱類型說明圖書編號文本 書名文本 作者文本 出版社文本 單價文本 本數(shù)文本 已借出數(shù)文本 借出次數(shù)文本 讀者表

2、duzhe字段名稱類型說明讀者編號文本 姓名文本 班級文本 電話號碼文本 借閱次數(shù)文本 已借本數(shù)文本 已交罰款文本 借閱表jieshu字段名稱類型說明讀者編號文本 圖書編號文本 借書日期日期/時間 還書日期日期/時間 應(yīng)還日期日期/時間 續(xù)借文本 設(shè)置表shez字段名稱類型說明還書期限整型 續(xù)借期限整型 最大借書數(shù)整型 4、主要功能模塊設(shè)計4.1.系統(tǒng)登陸界面設(shè)計功能介紹：用戶選擇用戶名并輸入密碼，系統(tǒng)按用戶名查看yonghu表，若密碼

3、正確，則按權(quán)限進(jìn)入圖書管理系統(tǒng)的主界面；若用戶密碼輸入不正確，則系統(tǒng)提示出錯,要求重新輸入密碼否則不得進(jìn)入本系統(tǒng)。（注：還定義了一個模塊名為module1.bas ,pubyh和quanxian都是全局變量，一個保存用戶名，一個保存權(quán)限、還有hsqx 、xjqx 、zdjss用于保存還書期限、續(xù)借期限、最大借書數(shù)。）代碼實現(xiàn)：Private Sub Command1_Click() Adodc1.RecordSource = "select * from yonghu where 用戶名='" & DataCombo1.Text & "&#

4、39; and 密碼='" & Text1.Text & "'" Adodc1.Refresh If Adodc1.Recordset.EOF = False Then pubyh = DataCombo1.Text quanxian = Adodc1.Recordset.Fields("權(quán)限") Me.Hide MDIForm1.Show Else MsgBox "密碼錯誤，請重新輸入！", vbOKOnly + vbExclamation, "圖書館" Text1.Te

5、xt = "" Call Form_Load End IfEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet." & "OLEDB.4.0;Data Source=" & App.Path & "kcsj.mdb;Persist Security Info=False"'數(shù)據(jù)庫的連接，使用相對路徑 Adodc1.RecordSource = "select * fr

6、om yonghu" Adodc1.Refresh Label5.Caption = "日期:" & Date End Sub4.2圖書管理系統(tǒng)的主界面設(shè)計(a)界面設(shè)計：（b）功能介紹：主界面的功能有系統(tǒng)管理模塊：系統(tǒng)設(shè)置、用戶管理、注銷、退出。數(shù)據(jù)管理模塊：借書管理、續(xù)借管理、還書管理、圖書管理、讀者管理。數(shù)據(jù)查詢模塊：借閱查詢、圖書查詢、讀者查詢。統(tǒng)計排行模塊：讀者統(tǒng)計排行、圖書統(tǒng)計排行。今日盤點模塊：今日借出圖書、今日歸還圖書、今日到期圖書。使用了菜單、工具欄和狀態(tài)欄。（c）代碼實現(xiàn)：Private Sub MDIForm_Activate()Un

7、load frmloginAdodc1.ConnectionString = "Provider=Microsoft.Jet." & "OLEDB.4.0;Data Source=" & App.Path & "kcsj.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from shez" Adodc1.Refresh hsqx = Adodc1.Recordset.Fields("還書期限"

8、;) xjqx = Adodc1.Recordset.Fields("續(xù)借期限") zdjss = Adodc1.Recordset.Fields("最大借書數(shù)")string1 = " 當(dāng)前還書期限:" & hsqx & "個月續(xù)借期限:" & xjqx & "個月最大借書數(shù):" & zdjss & "本"Select Case quanxian '根據(jù)權(quán)限分配功能的使用Case "1": beiz

9、u = "系統(tǒng)管理員:" menuxtsz.Enabled = True Case "2":beizu = "操作員:" '權(quán)限為2的是一般操作人員 menuxtsz.Enabled = False Toolbar1.Buttons.Item(1).Enabled = True Case "3": beizu = "讀者:" '權(quán)限為3的是讀者 End SelectStatusBar1.Panels(1).Text = beizu + pubyhStatusBar1.Panels

10、(2).Text = string1End Sub4.4 借書管理模塊(a) 界面設(shè)計b)功能介紹該部分完成對讀者的借書管理并將借書信息寫入jieshu表中,并修改duzhe表中借閱次數(shù)、已借本數(shù)兩字段和tushu表中借出次數(shù)、已借本數(shù)兩字段，讀者借書數(shù)超過系統(tǒng)參數(shù)設(shè)定的最多本數(shù)的不能再借。(c)代碼實現(xiàn)Private Sub Command1_Click() b = CInt(Text6.Text)讀者已借圖書數(shù) e = CInt(Text5.Text)讀者的借閱次數(shù) c = CInt(Text17.Text)圖書的本數(shù) d = CInt(Text18.Text)圖書已借出數(shù) f = CIn

11、t(Text12.Text)圖書的借出次數(shù) If zdjss - b <= 0 Then MsgBox "你已借滿圖書了", 借書 Exit Sub End If If c - d <= 0 Then MsgBox "你要的圖書已全部借出", 借書 Exit Sub End If Adodc1.Recordset.Update "已借本數(shù)", Str(b + 1) Adodc1.Recordset.Update "借閱次數(shù)", Str(e + 1) Text6.Text = Adodc1.Records

12、et.Fields("已借本數(shù)") Text5.Text = Adodc1.Recordset.Fields("借閱次數(shù)") Adodc2.Recordset.Update "已借出本數(shù)", Str(d + 1) Adodc2.Recordset.Update "借出次數(shù)", Str(f + 1) Text18.Text = Adodc2.Recordset.Fields("已借出本數(shù)") Text12.Text = Adodc2.Recordset.Fields("借出次數(shù)"

13、;)Adodc3.Recordset.AddNew Adodc3.Recordset.Fields("讀者編號") = Text1.Text Adodc3.Recordset.Fields("圖書編號") = Text16.Text Adodc3.Recordset.Fields("借書日期") = DTPicker1.Value Adodc3.Recordset.Fields("應(yīng)還日期") = DTPicker2.Value Adodc3.Recordset.Fields("續(xù)借") = &

14、quot;0" Adodc3.Recordset.Update Adodc3.RefreshEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet." & "OLEDB.4.0;Data Source=" & App.Path & "kcsj.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from duz

15、he" Adodc1.Refresh DTPicker1.Value = Date DTPicker2.Value = DateAdd("m", hsqx, DTPicker1) hsqx是還書期限End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenAdodc1.RefreshAdodc1.Recordset.Find "讀者編號 ='" & Text1.Text & "'&q

16、uot;If Adodc1.Recordset.EOF = True Then MsgBox "無此讀者編號", 借書 Text2.Text = "" Adodc1.Refresh Exit Sub End IfText2.Text = Adodc1.Recordset.Fields("姓名")End IfEnd SubPrivate Sub Text16_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenAdodc2.RefreshAdodc2.Reco

17、rdset.Find "圖書編號 ='" & Text16.Text & "'"If Adodc2.Recordset.EOF = True Then MsgBox "無此圖書編號", 借書Text15.Text = ""Adodc2.Refresh Exit SubEnd IfText15.Text = Adodc2.Recordset.Fields("書名")End IfEnd Sub4.5圖書查詢(a)界面設(shè)計：(b)功能介紹：對圖書可根據(jù)不同的條件進(jìn)行查詢

18、（圖書編號、書名、作者、出版社）。(c)代碼實現(xiàn)：Private Sub Command1_Click()Select Case combo1.ListIndexCase 0Adodc1.Recordset.Find "圖書編號 ='" & Text8.Text & "'"If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "圖書編號 ='" & Text8.Text & "'"End IfCase 1 '書名采用模糊查詢Adodc1.Recordset.Find "書名 like '*" & Text8.Text