畢業(yè)設(shè)計(jì)-基于vb的圖書管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)-資料下載頁
2024-12-03 19:14本頁面
【導(dǎo)讀】開發(fā)的一個(gè)數(shù)據(jù)庫管理系統(tǒng)。概念設(shè)計(jì)、系統(tǒng)邏輯和物理設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)和維護(hù)。在系統(tǒng)分析中先后用數(shù)據(jù)字。典、數(shù)據(jù)流圖、E-R圖分析了系統(tǒng)所需的各種數(shù)據(jù)。在后臺數(shù)據(jù)庫的設(shè)計(jì)當(dāng)中,我又力求層次清晰，設(shè)計(jì)簡單實(shí)。在系統(tǒng)具體實(shí)行階段中，我較細(xì)致的畫出了各個(gè)窗體并給出了相應(yīng)的事件和。者已借書數(shù)查詢等功能。本系統(tǒng)具有高效、易操作、易維護(hù)等特點(diǎn)，并且系統(tǒng)結(jié)構(gòu)清晰、界面友好，功能較為齊全，能有效地協(xié)助管理人員進(jìn)行圖書管理工作。理），需求分析是整個(gè)設(shè)計(jì)過程的基礎(chǔ)。概念設(shè)計(jì)階段主要任務(wù)和目標(biāo)是根據(jù)需求。把各個(gè)局部E-R模式綜合起來形成統(tǒng)一的整體E-R圖。出版社、剩余數(shù)量、登記日期、價(jià)格、出版日期以及是否已被借出。修改和刪除4部分功能。E-R模型的“聯(lián)系”用于刻畫實(shí)體之間的關(guān)聯(lián)。之間是否存在聯(lián)系。所含屬性個(gè)數(shù)盡可能少；實(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 您借書時(shí)間超過規(guī)定時(shí)間，需要按每天 ！ , 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(確定要?jiǎng)h除 [ + 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
公司管理相關(guān)推薦
鄂ICP備17016276號-1