【導讀】開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。概念設計、系統(tǒng)邏輯和物理設計、系統(tǒng)實現(xiàn)和維護。在系統(tǒng)分析中先后用數(shù)據(jù)字。典、數(shù)據(jù)流圖、E-R圖分析了系統(tǒng)所需的各種數(shù)據(jù)。在后臺數(shù)據(jù)庫的設計當中,我又力求層次清晰，設計簡單實。在系統(tǒng)具體實行階段中，我較細致的畫出了各個窗體并給出了相應的事件和。者已借書數(shù)查詢等功能。本系統(tǒng)具有高效、易操作、易維護等特點，并且系統(tǒng)結構清晰、界面友好，功能較為齊全，能有效地協(xié)助管理人員進行圖書管理工作。理），需求分析是整個設計過程的基礎。概念設計階段主要任務和目標是根據(jù)需求。把各個局部E-R模式綜合起來形成統(tǒng)一的整體E-R圖。出版社、剩余數(shù)量、登記日期、價格、出版日期以及是否已被借出。修改和刪除4部分功能。E-R模型的“聯(lián)系”用于刻畫實體之間的關聯(lián)。之間是否存在聯(lián)系。所含屬性個數(shù)盡可能少；實體類型間聯(lián)系無冗余。

　　

【正文】 md1_Click() condstr = If Trim() And Trim() Then If condstr = Then condstr = 借書證號 = 39。 + Trim() + 39。 + AND sno = 39。 + Trim() + 39。 End If End If If condstr Then = select * from 借閱信息 where + condstr + order by 借出日期 desc Else = select * from 借閱信息 27 End If recs = = recs If recs = 0 Then MsgBox 沒有任何滿足條件的記錄 , vbOKOnly, 信息提示 End If Call enm flag = 2 vbModal = recs End Sub Private Sub selCmd2_Click() = : = End Sub Private Sub retComm_Click() Unload Me End Sub Private Sub enm() If recs = 0 Then = False Else = True End If End Sub Private Sub Form_Activate() jl1 = 0 If flag = 2 Then Text1(0).Text = Trim((借書證號 )) amp。 Text1(2).Text = Trim((姓名 )) amp。 Text1(1).Text = Trim((sno)) amp。 Text1(3).Text = Trim((sname)) amp。 Text1(4).Text = Trim((借出日期 )) amp。 Text1(5).Text = Trim((還書日期 )) amp。 = Trim((罰款 )) amp。 Else Text1(0) = : Text1(1) = Text1(2) = : Text1(3) = Text1(4) = : Text1(5) = : Text3 = 0 End If End Sub Private Sub Comm1_Click() jl1 = jl1 + 1 28 If jl1 1 Then MsgBox 還書信息已成功登記！ , vbOKOnly, 信息提示 Unload Me End If If Trim(Text1(5).Text) = Then MsgBox 數(shù)據(jù)不能為空，請正確輸入 , vbOKOnly, 信息提示 Text1(5).SetFocus Exit Sub End If = select * from reader where 借書證號 =39。 + Text1(0).Text + 39。 = select * from book where sno=39。 + Text1(1).Text + 39。 = Trim((已借書數(shù) )) amp。 yjss1 = = 否 yjss1 = yjss1 1 (借書證號 ) = Trim(Text1(0).Text) (姓名 ) = Trim(Text1(2).Text) (sno) = Trim(Text1(1).Text) (sname) = Trim(Text1(3).Text) (借出日期 ) = Trim(Text1(4).Text) (還書日期 ) = Trim(Text1(5).Text) (已借書數(shù) ) = Trim(yjss1) (是否被借 ) = Trim() Text1(5).Text = Trim((還書日期 )) amp。 jssj = (Year(Text1(5).Text) Year(Text1(4).Text)) * 360 + (Month(Text1(5).Text) Month(Text1(4).Text)) * 30 + (Day(Text1(5).Text) Day(Text1(4).Text)) If jssj 30 Then jssj = (jssj 30) * 2 = True = True = True If jl1 = 1 Then MsgBox 您借書時間超過規(guī)定時間，需要按每天 ！ , vbOKOnly, 信息提示 End If = jssj (罰款 ) = Trim() Else 29 MsgBox 還書信息已成功登記！ , vbOKOnly, 信息提示 Unload Me End If End Sub Private Sub Comm2_Click() Unload Me End Sub 附錄五（更新模塊） Private Sub Form_Load() recs = = recs If recs 0 Then End If End Sub Private Sub Form_Activate() Call enm End Sub Private Sub Comm1_Click() flag = 1 (5).Visible = False = False vbModal = recs End Sub Private Sub Comm2_Click() flag = 2 vbModal End Sub Private Sub Comm3_Click() If MsgBox(確定要刪除 [ + Trim((sname)) + ]嗎？ , vbYesNo, 信息提示 ) = vbYes Then recs = recs 1 = recs Call enm End If End Sub Private Sub retComm_Click() Unload Me 30 End Sub Private Sub selCmd1_Click() condstr = If Trim(Text1(0).Text) Then If condstr = Then condstr = sno LIKE 39。 + Trim(Text1(0).Text) + %39。 End If End If If Trim(Text1(2).Text) Then If condstr = Then condstr = sname LIKE 39。 + Trim(Text1(2).Text) + %39。 Else condstr = condstr + AND sname LIKE 39。 + Trim(Text1(2).Text) + %39。 End If End If If Trim(Text1(1).Text) Then If condstr = Then condstr = swriter LIKE 39。 + Trim(Text1(1).Text) + %39。 Else condstr = condstr + AND swriter LIKE 39。 + Trim(Text1(1).Text) + %39。 End If End If If Trim(Text1(3).Text) Then If condstr = Then condstr = sfy LIKE 39。 + Trim(Text1(3).Text) + %39。 Else condstr = condstr + AND sfy LIKE 39。 + Trim(Text1(3).Text) + %39。 End If End If If condstr Then = select * from book where + condstr Else = select * from book End If recs = = recs If recs = 0 Then MsgBox 沒有任何滿足條件的記錄 , vbOKOnly, 信息提示 End If Call enm End Sub 31 Private Sub selCmd2_Click() Text1(0).Text = : Text1(1).Text = Text1(2).Text = : Text1(3).Text = End Sub Private Sub enm() If recs = 0 Then = False: = False Else = True: = True End If End Sub