VB課程設(shè)計(jì)報(bào)告

1、VB課程設(shè)計(jì)報(bào)告題目：圖書館管理系統(tǒng)指導(dǎo)老師：吳志強(qiáng)老師班級(jí)：10410111學(xué)號(hào)：1041011104姓名：黃流華2011年12月20日1課程設(shè)計(jì)目的2課程設(shè)計(jì)題目3課程設(shè)計(jì)要求4課程設(shè)計(jì)說(shuō)明5源代碼6運(yùn)行結(jié)果7課程設(shè)計(jì)體會(huì)1、課程設(shè)計(jì)目的課程設(shè)計(jì)為學(xué)生提供了一個(gè)既動(dòng)手又動(dòng)腦，獨(dú)立實(shí)踐的機(jī)會(huì)，將課本上的VB理論知識(shí)和實(shí)際有機(jī)的結(jié)合起來(lái)，鍛煉學(xué)生的分析解決實(shí)際問(wèn)題的能力，提高用VB編程實(shí)現(xiàn)具體問(wèn)題的能力。2、課程設(shè)計(jì)題目圖書館管理系統(tǒng)3、課程設(shè)計(jì)要求：用戶登陸、圖書的借閱和歸回、圖書信息的添加、修改、查詢和刪除操作。4、課程設(shè)計(jì)說(shuō)明根據(jù)對(duì)我院圖書館及圖書信息進(jìn)行的調(diào)查和分析，圖書管理系統(tǒng)應(yīng)該具

2、有以下功能：系統(tǒng)管理（即登錄）、圖書管理、還書和借書操作。各個(gè)功能模塊如下：a、系統(tǒng)管理模塊在這個(gè)模塊，可以進(jìn)行登錄和退出等操作。b、圖書管理模塊在這個(gè)模塊，可以進(jìn)行增加、刪除、修改、查找、上一個(gè)和下一個(gè)。C、還書和借書模塊在這個(gè)模塊，可以完成借書、還書操作。d、報(bào)表模塊圖書館管理系統(tǒng)5、圖書管理信息系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫(kù)名為Data,數(shù)據(jù)庫(kù)中包括（1）圖書信息表；（2）借出圖書信息表；（3）歸還圖書信息表1、圖書信息表的數(shù)據(jù)結(jié)構(gòu)TO圖書雨4書名價(jià)格出版社市出日期匚黑否傳出1LOT城隼深庫(kù)翎23中國(guó)小中，水利2tmt數(shù)據(jù)隹50洛華大學(xué)出版彳3L002數(shù)據(jù)結(jié)就82人關(guān)琛電ti坂*4IMS號(hào)壬

3、故學(xué)站北奈利國(guó)電孑上5LM4英語(yǔ)四皴專題1.S話華大學(xué)出版中航機(jī)化技英 斗茸算力尋 計(jì)計(jì)由生商字段名回大小空值描述IDint4ID圖書編號(hào)nvarchar10y圖書編號(hào)書名nvarchar30y書名價(jià)格一real4y:價(jià)格出版社nvarchar30y出版社借出日期smalldatetime4y借出日期是否借出bit1y:是否借出類別nvarchar10類別圖書看息表=表2、借出圖書信息表字段名回大小空值描述輸入借出圖書編號(hào)nvarchar10y輸入借出圖書編號(hào)圖書編號(hào)nvarchar10y圖書編號(hào)價(jià)格real4y價(jià)格類別nvarchar10類別書名nvarchar30y書名出版社nvarcha

4、r30出版社今天日期smalldatetime4y今天日期錯(cuò)七圖書信息表：表喻入傳舊圖可2圖神號(hào)價(jià)幗類別山皈社有天口期/1001氏電子計(jì)曹機(jī)伯巴課程設(shè)計(jì)清華尢學(xué)出版二。加1023SS計(jì)算機(jī)信息管工數(shù)據(jù)結(jié)構(gòu)中回人艮歌有上二20%120b如電子計(jì)算機(jī)高等數(shù)學(xué)中國(guó)水利東電上3、歸還圖書信息表字段名回大小空值描述圖書編號(hào)nvarchar10y圖書編號(hào)書名nvarchar30y書名價(jià)格real4y價(jià)格出版社nvarchar30y出版社借出日期smalldatetime4y借出日期類別nvarchar10類別借出天數(shù)smalldatetime2y借出天數(shù)限定天數(shù)Text4y限定天數(shù)超出天數(shù)Text4y超出

5、天數(shù)罰款金額Text5y罰款金額今天日期Text5y今天日期輸入要還的圖書編號(hào)nvarchar10y輸入要還的圖書編號(hào)如誣國(guó)佳仁息$1-表恂格信出日期山若上天的4天日用招出土妙田計(jì)茸機(jī)值忌守此格笠歸SDaxiiFKg片贊工應(yīng)由42»01-02-93500拄幗痙材S2打01-01-54350出版社圖書編號(hào)輸入要還的圖二中國(guó)水痘水利上10051010浩華大學(xué)出版卡1009人民郵電出版今1010101016、源代碼(1)a、系統(tǒng)管理(即登錄源代碼)PublicSubCommand1_Click()IfTextl.Text=""ThenMsgBox"請(qǐng)輸入正確的

6、用戶名",11,"錯(cuò)誤信息”ElselfText2.Text=""ThenMsgBox"請(qǐng)輸入正確的密碼",11,"錯(cuò)誤信息”EndIfIfText1.Text="huang"AndText2.Text=""ThenLoadform2form2.Show1UnloadForm1ElseMsgBox"用戶名或密碼錯(cuò)誤",11,"錯(cuò)誤信息”EndIfEndSubb、登錄界面(2)a、圖書管理模塊源代碼Publicmsg'定義過(guò)程級(jí)變量PrivateSu

7、bCmd_Del_Click()DimareturnAsIntegerareturn=MsgBox("你確定要?jiǎng)h除記錄嗎？",vbYesNo)Ifareturn=vbYesThenData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfEndIfEndSubPrivateSubCmd_Fnd_Click()msg=InputBox("請(qǐng)輸入準(zhǔn)確白圖書編號(hào)","查找記錄")Data1.Recor

8、dset.FindFirst"圖書編號(hào)='"&msg&皿IfData1.Recordset.NoMatchThenMsgBox"沒(méi)有符合條件的圖書！"ElseMsgBox"符合條件的圖書為"&Data1.Recordset.Field(1)EndIfEndSubPrivateSubCmd_Ins_Click()vb_msg=MsgBox("請(qǐng)輸入",vbOKCancel)Ifvb_msg=vbCancelThenExitSubEndIfData1.Recordset.AddNewDa

9、ta1.Recordset.Fields（"TD"）=Val（Text1.Text）Data1.Recordset.Fields（"圖書編號(hào)"）=Text2.TextData1.Recordset.Fields（"書名"）=Text3.TextData1.Recordset.Fields（"價(jià)格"）=Val（Text4.Text）Data1.Recordset.Fields（"出版社"）=Text5.TextData1.Recordset.Fields（"借出日期"）=Tex

10、t6.TextData1.Recordset.Fields（"是否借出"）=Text7.TextData1.Recordset.Fields（"類別"）=Text8.TextEndSubPrivateSubCmd_Nxt_Click（）Data1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastMsgBox（"已經(jīng)是最后一條記錄了!"）EndIfEndSubPrivateSubCmd_Pre_Click（）Data1.Recordset.MovePr

11、eviousIfData1.Recordset.BOFThenData1.Recordset.MoveFirstMsgBox（"已經(jīng)是第一條記錄了!"）EndIfEndSubPrivateSubCmd_Upd_Click（）DimareturnAsIntegerareturn=MsgBox（"你確定要修改記錄嗎?",vbYesNo）Ifareturn=vbYesThenData1.Recordset.EditData1.Recordset.Fields（"TD"）=Val（Text1.Text）Data1.Recordset.Fiel

12、ds（"圖書編號(hào)"）=Text2.TextData1.Recordset.Fields（"書名"）=Text3.TextData1.Recordset.Fields（"價(jià)格"）=Val（Text4.Text）Data1.Recordset.Fields（"出版社"）=Text5.TextData1.Recordset.Fields（"借出日期"）=Text6.TextData1.Recordset.Fields（"是否借出"）=Text7.TextData1.Recordse

13、t.Fields（"類別"）=Text8.TextData1.Recordset.UpdateEndIfEndSubb、圖書管理模塊界面C、當(dāng)單擊“刪除”或“修改”按鈕時(shí)，程序中使用了MsgBox,彈出類似如圖示的對(duì)話框來(lái)要求用戶確認(rèn)（3） a、借書模塊源代碼PublicindexAsIntegerPrivateSubcmdokcancel_Click（）SelectCaseindexCase1Ifrst3.Fields（"是否借出"）+TrueThenMsgBox"此書已經(jīng)借出!",0+48,"提示"txtboo

14、kbian.Text=""txtbookbian.SetFocusframe4.Visible=Falseframe7.Visible=TrueExitSubEndIfrst2.AddNewrst2.Fields（"圖書編號(hào)"）=rst3.Fields（"圖書編號(hào)"）rst2.Fields（"書名"）=rst3.Fields（"書名"）rst2.Fields（"價(jià)格"）=rst3.Fields（"價(jià)格"）rst2.Fields（"出版社"

15、;）=rst3.Fields（"出版社"）rst2.Fields（"類別"）=rst3.Fields（"類別"）rst2.Fields（"姓名"）=txtname.Textrst2.Fields（"借出日期"）=rst3.Fields（"借出日期"）rst2.Fields（"借書證號(hào)"）=bookidrst2.Updaterst3.Editrst3.Fields（"是否借出"）=Truerst3.Fields（"借出日期&qu

16、ot;）=rst3.Fields（"借出日期"）rst3.UpdateDataReftxtbookbian.Text=""txtbookbian.SetFocus'cmdlogin.setfocusframe4.Visible=Falseframe7.Visible=TrueEndSelectEndSubPublickeyasciiAsIntegerPrivateSubtxtbookbian_keypress_Click（）Ifkeyascii2=13ThenIftxtbookid.Text=""ThenMsgBox"

17、;請(qǐng)先登錄!",0+48,"提示"cmdlogin.SetFocustxtbookbian.Text=""ExitSubEndIfrst3.Seek"=",txtbookbian.TextIfrst3.NoMatchThenMsgBox"沒(méi)有此圖書編號(hào)，請(qǐng)重新填寫",0+48,"填寫錯(cuò)誤"txtbookbian.SetFocusframe4.Visible=Falseframe7.Visible=TrueExitSubEndIfframe4.Visible=Trueframe7.Vis

18、ible=Truetxtbookhao.Text=txtbookbian.Texttxtbookname.Text=rst3.Fields（"書名"）&vbNullStringtxtchuban.Text=rst3.Fields（"出版社"）&vbNullStringtxtcost.Text=rst3.Fields（"價(jià)格"）&Emptytxtlentdate.Text=rst3.Fields（"借出日期"）&vbNullStringtxttype.Text=rst3.Fields（

19、"類別"）&vbNullStringEndIfEndSubb、借出圖書界面（4） a、歸還圖書源代碼PublicindexAsIntegerPrivateSubcmdokcancel_Click（）SelectCaseindexCase1rst2.Seek"=",txtbookbian1.TextIfrst2.nomathThenMsgBox"沒(méi)有借過(guò)這本書！是不是編號(hào)錯(cuò)了？”,0+48,"提示"txtbookbian1.Text=""txtbookbian1.SetFocusframe6.Vis

20、ible=Falsecmdokcance1.Visible=FalseExitSubIfrst3.Fields（"是否借出"）=FalseThenMsgBox"此書還沒(méi)有借出”,0+48,"提示"ExitSubEndIfrstl.Seek"=",rst2.Fields（"借書證號(hào)"）rstl.Edit'獎(jiǎng)罰款金額寫入數(shù)據(jù)庫(kù)中rst1.Fields（"罰款"）=Val（txtfa.Text）+rst1.Fields（"罰款"）rstl.UpdateIftxtf

21、a.Text>0ThenMsgBox"罰款金額已經(jīng)寫入數(shù)據(jù)庫(kù)!",0+48,"提示"EndIfrst2.Deleterst3.Editrst3.Fields（"是否借出"）=Falserst3.Fields（"借出日期"）=Emptyrst3.Updatetxtbookbian1.Text=""txtbookbian1.SetFocusframe6.Visible=Falsecmdokcancel.Visible=FalseMsgBox"還書成功!按回車鍵繼續(xù)",0+4

22、8,"完畢"EndIfEndSelectEndSubPublickeyasciiAsIntegerPrivateSubtxtbookbian1_keypress_Click（）Ifkeyascii=13Thenrst3.Seek"=",txtbookbian1.TextIfrst3.NoMatchThenMsgBox"沒(méi)有此圖書編號(hào)，請(qǐng)重新填寫",0+48,"填寫錯(cuò)誤"txtbookbian1.Text=""'txtbookbian1.seilengthtxtbookbian1.SetF

23、ocusExitSubEndIfframe6.Visible=Truetxtbookhao1.Text=txtbookbian1.Texttxtbookname1.Text=rst3.Fields（"書名"）&vbNullStringtxtchuban1.Text=rst3.Fields（"出版社"）&vbNullStringtxtcost1.Text=rst3.Fields（"價(jià)格"）&Emptytxtlentdate1.Text=rst3.Fields（"借出日期"）&Empty

24、txttoday.Text=rst3.Fields（"今天日期"）&vbNullStringtxttype1.Text=rst3.Fields（"類別"）&vbNullStringtxtlentday.Text=rst3.Fields（"今天日期"）-rst3.Fields（"借出日期"）&Emptyrst.Seek"=",rst3.Fields（"類別"）bookdday=rst.Fields（"借出天數(shù)"）txtxianding

25、.Text=bookday'bookday為限定借出天數(shù)IfVal（txtlentday.Text）-bookday<=0Then'判斷是否超出了天數(shù)txtchaochu.Text="未超出"txtfa.Text="0"ExitSubElsetxtchaochu.Text=Val（txtlentday.Text）-bookdayEndIf'txtfa.text=format（facost*val（txtchaochu.text）,"#.00"）'計(jì)算金額EndIfEndSubb、歸還圖書界面(5)報(bào)表模塊操作步驟如下：a、打開"圖書信息表.mdb”工程文件，找到數(shù)據(jù)環(huán)境DataEnvironmentlb、打開DataEnvironmentl,選擇"Connectionl”,如圖所示C、單擊右