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

Vb+sql2000圖書管理代碼及控件主要控件：Commandbutton,textbox,frame,label，Toolbar，ProgressBar，CommonDialog，Timer，StatusBar，ImageList，Adodc，DataGrid主界面模型圖：圖書管理主界面圖書信息管理

圖書借閱管理

讀者信息管理增添改正圖書全部查問圖書增添改正圖書借閱增添刪除查問讀者刪除圖書信息信息刪除借閱查問改正讀者信息信息信息信息1。登錄界面設(shè)計過程：用于輸入用戶名和密碼登錄，假如用戶輸入用戶名和密碼錯誤則不可以進(jìn)入系統(tǒng).界面是一個GIF圖片。來自于第三方控件。代碼:PrivateSubcmdok_Click()DimcnAsNewADODB。ConnectionDimrsAsNewADODB.RecordsetDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str=”DRIVER={SQLSERVER};SERVER=QA2ONHYK7VWHRY2；DATABASE=library"cn.Opencn_strsql_str="selectusername

，userpfromuser_info"rs。Opensql_str,cnWhileNotrs.EOFIftxtusername。Text=Trim

（rs（0))Andtxtpassword.Text=Trim(rs(1

））

ThenMe.Hideform8.Showflag=TrueExitSubElsers。MoveNextflag=FalseEndIfWendIfflag=FalseThenMsgBox”輸入的用戶名或密碼有誤，請從頭輸入！"，vbCritical+vbOKOnly,”錯誤”rs.CloseEndIfEndSubPrivateSubCommand1_Click(）IfMsgBox("你確立要退出?"，vbYesNo)=vbNoThenfrmlogin.ShowElseUnloadMeEndIfEndSubPrivateSubtxtpassword_GotFocus（）txtpassword=””txtpassword。PasswordChar=”＊”EndSubPrivateSubtxtusername_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle,YAsSingle）StaticToogleAsBooleanIfToogle=FalseThentxtusername=””Toogle=TrueEndIf圖書管理主界面設(shè)計過程：全部功能都在菜單中翻開來實(shí)現(xiàn)。設(shè)計代碼：PrivateSubadu_Click(IndexAsInteger）form3。ShowEndSubPrivateSubb_Click（）DataReport1。ShowEndSubPrivateSubBEI_Click（)form4。ShowEndSubPrivateSubCommand1_Click(）frmaduinfo。ShowEndSubPrivateSubCommand2_Click（)frmseekxs.ShowEndSubPrivateSubCommand3_Click()frmaduclass_info.ShowEndSubPrivateSubCommand4_Click（）frmaduclass_info.ShowEndSubPrivateSubCommand5_Click(）frmadu_course。ShowEndSubPrivateSubCommand6_Click（)frminquire_course.ShowEndSubPrivateSubCommand7_Click(）frmmodify_result。ShowEndSubPrivateSubCommand8_Click（）frminquire_result.ShowEndSubPrivateSubMDIForm_Load（）Me.Left=GetSetting

（App.Title，

"setting

”,"mainleft"，1000）Me。Top=GetSetting(App.Title

，

"setting

，”"maintop

，”

1000）Me.Width=GetSetting(App.Title

，”setting"，

"mainwidth",1000

）Me。Height=GetSetting（App.Title，"setting",EndSubPrivateSubMDIForm_Unload(CancelAsInteger)

”mainheight",1000)IfMe.WindowState<〉vbMinimizedThenSaveSettingApp.Title,”settings”，,Me”。mainleftLeft”SaveSettingApp。Title,”settings"，maintop",Me。TopSaveSettingApp。Title,"settings",”mainwidth"，Me。WidthSaveSettingApp.Title，"settings”,"mainheight",。MeHeightEndIfEndSubPrivateSubcxbj_Click（IndexAsInteger)frminquire_bj_info.ShowEndSubPrivateSubCommand9_Click()DataReport1。ShowEndSubPrivateSubcxcj_Click(IndexAsInteger）frminquire_result.ShowEndSubPrivateSubc_Click（）Form10.ShowEndSubPrivateSubcxkc_Click（IndexAsInteger）form6.ShowEndSubPrivateSubcxxs_Click（IndexAsInteger)form9。ShowEndSubPrivateSubForm_Load（)StatusBar1。Panels(3)。Text=Format（Now,”yyyy年mm月dd日"）StatusBar1。Panels(4).Text=Format（Now，”hh點(diǎn)mm分ss秒”）EndSubPrivateSubhai_Click（)form5。ShowEndSubPrivateSubLabel1_Click(）Label1。ForeColor=RGB（Int（Rnd＊255）,Int（Rnd*255），Int(Rnd＊255)）EndSubPrivateSubs_Click（）Form11.ShowEndSubPrivateSubtc_Click()UnloadMeEndEndSubPrivateSubTimer1_Timer(）StatusBar1.Panels（3).Text=Format（Now,”yyyy年mm月dd日")StatusBar1.Panels(4）.Text=Format（Now,"hh點(diǎn)mm分ss秒”)Label1。ForeColor=RGB（Int(Rnd*255），Int（Rnd＊255），Int(Rnd＊255))EndSubPrivateSubtjbj_Click(IndexAsInteger)form2。ShowEndSubPrivateSubtjcj_Click(IndexAsInteger

）frmmodify_result。ShowEndSubPrivateSubtjkc_Click(IndexAsInteger)form1.ShowEndSubPrivateSubtjxs_Click

（)frmadd_s_info。ShowEndSubPrivateSubxgcj_Click

（IndexAsInteger)frmmodify_resultEndSub

。ShowPrivateSubToolbar1_ButtonClick

（ByValButtonAsMSComctlLib.Button

）SelectCaseButton.keyCase”tt”form3.ShowCase

”ct

”form9。ShowCase"tj

”form2。ShowCase

”xj"form2.ShowCase

”td

”form1。ShowCase"cd

”form6.ShowCase”exit”EndEndSelectEndSub3。2.1圖書信息管理3.2。1.1增添改正刪除圖書信息增添改正刪除圖書信息設(shè)計過程：選擇增添改正刪除圖書信息，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點(diǎn)擊相應(yīng)的按鈕可以實(shí)現(xiàn)增添改正刪除圖書信息。設(shè)計代碼：DimrsAsNewADODB。RecordsetPrivateSubCommand1_Click（)rs。Deleters。AddNewrs（"圖書號”)=Trim（Text1.Text)rs(”書本名稱”）=Trim（Text2。Text)rs（"作者”）=Trim（Text3。Text）rs（"第一版社”）=Trim(Text4.Text）rs("訂購價錢”）=Trim（Text5。Text)rs(”附件"）=Trim（Text6。Text）rs（”條碼號”)=Trim（Text7.Text)rs（"規(guī)定天數(shù)"）=Trim(Text8.Text)rs（"書的狀態(tài)”）=Trim(Text9.Text）rs.UpdateMsgBox”改正信息成功!"，vbExclamation+vbOKOnly，"提示"EndSubPrivateSubCommand2_Click（）rs.DeleteMsgBox”刪除成功!”,vbExclamation+vbOKOnly，"提示”EndSubPrivateSubCommand3_Click（IndexAsInteger）SelectCaseIndexCase0rs.MoveFirstFrame2.Caption=”目前地點(diǎn)"＆rs.AbsolutePosition&”/”&rs。RecordCountCase1rs.MovePreviousIfrs.BOFThenrs.MoveFirstFrame2。Caption="目前地點(diǎn)"&rs。AbsolutePosition＆”/”＆rs。RecordCountMsgBox”已經(jīng)是第一條記錄"，vbExclamation，"提示"EndIfCase2rs.MoveNextFrame2.Caption=”目前地點(diǎn)"&rs。AbsolutePosition&"/"＆rs.RecordCountIfrs。EOFThenrs.MoveLastMsgBox"已經(jīng)是最后一條記錄！”,vbExclamation，"提示"EndIfCase3rs.MoveLastFrame2。Caption=

”目前地點(diǎn)

"&rs.AbsolutePosition

＆

"/"

＆

rs.RecordCountEndSelectText1。Text=rs(0)Text2。Text=rs（1)Text3。Text=rs(2)Text4。Text=rs(3)Text5。Text=rs(4)Text6.Text=rs（5）Text7。Text=rs（6)Text8.Text=rs(7）Text9.Text=rs(8）EndSubPrivateSubCommand4_Click(

）IfText1.Text="

”

ThenMsgBox"

請輸入圖書號！

",vbOKOnly+vbExclamation,"

警示"Text1。SetFocusExitSubEndIfIfText2.Text=

””

ThenMsgBox”請輸入書本名稱！”，vbOKOnly+vbExclamation，"警示"Text2。SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入作者!"，vbOKOnly+vbExclamation，"警示"Combo1.SetFocusExitSubEndIfIfText4。Text="”ThenMsgBox"請輸入第一版社!"，vbOKOnly+vbExclamation,"警示”Text4.SetFocusExitSubEndIfIfText5。Text=”"ThenMsgBox”請輸入訂購價錢!"，vbOKOnly+vbExclamation,”警示”Text5.SetFocusExitSubEndIfIfText6。Text="”ThenMsgBox”請輸入附件!”，vbOKOnly+vbExclamation，"警示”Text4。SetFocusExitSubEndIfIfText7。Text=””ThenMsgBox”請輸入條碼號！"，vbOKOnly+vbExclamation,”警示"Text7。SetFocusExitSubEndIfIfText8。Text=”"ThenMsgBox"請輸入規(guī)定天數(shù)！”，vbOKOnly+vbExclamation，”警示"Text8.SetFocusExitSubEndIfIfText9.Text=""ThenMsgBox"請輸入書的狀態(tài)!",vbOKOnly+vbExclamation,”警示”Text9.SetFocusExitSubEndIfDimcnAsNewADODB。ConnectionDimrsAsNewADODB.RecordsetDimflagAsBooleanDimcn_strAsString，sql_strAsStringcn_str=”DRIVER=｛SQLSERVER};SERVER=QA2ONHYK7VWHRY2；DATABASE=library”cn。Opencn_strsql_str=”select＊from圖書基本信息表”rs.Opensql_str,cn，adOpenDynamic，adLockOptimisticrs。AddNewrs("圖書號”)=Trim（Text1.Text)rs（”書本名稱”)=Trim(Text2.Text)rs("作者”）=Trim（Text3。Text)rs("第一版社”)=Trim（Text4.Text）rs("訂購價錢”）=Trim（Text5.Text）rs（"附件"）=Trim(Text6.Text)rs(”條碼號"）=Trim(Text7。Text)rs(”規(guī)定天數(shù)"）=Trim(Text8.Text)rs("書的狀態(tài)")=Trim（Text9。Text）rs。Updaters.CloseMsgBox”增添信息成功??！"，vbExclamation+vbOKOnly，”提示”EndSubPrivateSubForm_Load()DimcnAsNewADODB.ConnectionDimcn_strAsString，sql_strAsStringcn_str=”DRIVER=｛SQLSERVER}；SERVER=QA2ONHYK7VWHRY2;DATABASE=library"cn。Opencn_strsql_str="select＊from圖書基本信息表"rs。CursorLocation=adUseClientrs.Opensql_str，cn_str,adOpenDynamic,adLockOptimisticText1。Text=rs（0)Text2.Text=rs（1）Text3。Text=rs（2）Text4。Text=rs（3）Text5.Text=rs(4）Text6.Text=rs(5)Text7。Text=rs（6）Text8.Text=rs(7）Text9。Text=rs（8）EndSubPrivateSubForm_Unload(CancelAsInteger)rs.CloseEndSub3。3。1。3查問圖書信息查問圖書信息圖設(shè)計過程:選擇查問圖書信息，在相應(yīng)的欄目輸入要查問的圖書號就能查問該圖書的基本信息設(shè)計代碼：PrivateSubCommand1_Click（)DimcnAsNewADODB.ConnectionDimrsAsNewADODB。RecordsetDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str="DRIVER=｛SQLSERVER}；SERVER=QA2ONHYK7VWHRY2；DATABASE=library"cn。Opencn_strsql_str=”select＊from圖書基本信息表"rs.Opensql_str，cnWhileNotrs。EOFIfText10.Text=Trim(rs（0))ThenText1。Text=rs(0）Text2。Text=rs(1)Text3.Text=rs（2）Text4.Text=rs（3）Text5。Text=rs（4)Text6.Text=rs（5）Text7.Text=rs（6)Text8.Text=rs（7)Text9.Text=rs(8）flag=TrueExitSubElsers.MoveNextflag=FalseEndIfWendIfflag=FalseThenMsgBox"沒有找到此圖書的信息,請確認(rèn)所輸入正確的圖書號！"，vbCritical+vbOKOnly,"錯誤"rs.CloseEndIfEndSub3。2。2圖書借閱管理3.2。2.1增添改正刪除借閱信息增添改正刪除借閱信息圖設(shè)計過程：選擇增添改正刪除借閱信息，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點(diǎn)擊相應(yīng)的按鈕可以實(shí)現(xiàn)增添改正刪除借閱信息.設(shè)計代碼：DimrsAsNewADODB.RecordsetPrivateSubCommand1_Click(）rs。Deleters。AddNewrs("條碼號"）=Trim(Text1。Text)rs(”讀者編號”）=Trim（Text2.Text）rs("書本名稱”）=Trim(Text3.Text)rs（”圖書作者”）=Trim（Text4。Text）rs("規(guī)定天數(shù)”）=Trim(Text5.Text)rs（”借出日期”）=Trim（Text6.Text)rs（”還書日期"）=Trim(Text7.Text)rs（”實(shí)還日期”)=Trim(Text8.Text)rs("高出天數(shù)”）=Trim（Text9。Text）rs.UpdateMsgBox"改正信息成功!”，vbExclamation+vbOKOnly,"提示"EndSubPrivateSubCommand2_Click（）rs.Deleters。UpdateMsgBox"刪除成功！"，vbExclamation+vbOKOnly,”提示”EndSubPrivateSubCommand3_Click(IndexAsInteger)SelectCaseIndexCase0rs。MoveFirstCase1rs。MovePreviousIfrs.BOFThenrs.MoveFirstMsgBox”已經(jīng)是第一條記錄"，vbExclamation，”提示"EndIfCase2rs.MoveNextIfrs。EOFThenrs.MoveLastMsgBox”已經(jīng)是最后一條記錄！”，vbExclamation,”提示”EndIfCase3rs。MoveLastEndSelectText1。Text=rs（0）Text2.Text=rs(1）Text3。Text=rs(2)Text4.Text=rs（3)Text5。Text=rs（4）Text6。Text=rs（5）Text7.Text=rs（6）Text8。Text=rs(7)Text9。Text=rs(8)EndSubPrivateSubCommand4_Click()IfText1.Text="”ThenMsgBox”請輸入條碼號！"，vbOKOnly+vbExclamation，”警示”Text1.SetFocusExitSubEndIfIfText2.Text="”ThenMsgBox"請輸入讀者編號!",vbOKOnly+vbExclamation，"警示”Text2.SetFocusExitSubEndIfIfText3.Text=””ThenMsgBox"請輸入書本名稱！"，vbOKOnly+vbExclamation，”警示"Text3。SetFocusExitSubEndIfIfText4.Text="”ThenMsgBox”請輸入圖書作者！”，vbOKOnly+vbExclamation,”警示”Text4。SetFocusExitSubEndIfIfText5。Text=”"ThenMsgBox"請輸入規(guī)定天數(shù)！”,vbOKOnly+vbExclamation，"警示”Text5。SetFocusExitSubEndIfIfText6.Text=

”"ThenMsgBox"

請輸入借出日期

!”，

vbOKOnly+vbExclamation

，”警示”Text6。SetFocusExitSubEndIfIfText7。Text=

””

ThenMsgBox"請輸入還書日期!”,vbOKOnly+vbExclamation，”警示"Text7。SetFocusExitSubEndIfIfText8。Text=””ThenMsgBox”請輸入實(shí)還日期！”,vbOKOnly+vbExclamation，”警示"Text8。SetFocusExitSubEndIfIfText9.Text=””ThenMsgBox"請輸入高出天數(shù)!”,vbOKOnly+vbExclamation,”警示”Text9.SetFocusExitSubEndIfDimcnAsNewADODB。ConnectionDimrsAsNewADODB。RecordsetDimflagAsBooleanDimcn_strAsString，sql_strAsStringcn_str=

"DRIVER={SQL

SERVER};SERVER=QA2ONHYK7VWHRY2

；DATABASE=library"cn.Opencn_strsql_str=

”select*from

借閱信息表

"rs。Opensql_str,cn,adOpenDynamic,adLockOptimisticrs.AddNewrs("條碼號”)=Trim(Text1.Text)rs("讀者編號"）=Trim(Text2。Text）rs("書本名稱”)=Trim（Text3。Text)rs(”圖書作者”）=Trim（Text4。Text)rs（”規(guī)定天數(shù)")=Trim(Text5。Text）rs（"借出日期”）=Trim（Text6。Text）rs("還書日期"）=Trim（Text7.Text)rs（”實(shí)還日期"）=Trim（Text8。Text）rs（”高出天數(shù)”)=Trim(Text9.Text)rs。Updaters.CloseMsgBox"增添信息成功?。?,vbExclamation+vbOKOnly，”提示”EndSubPrivateSubForm_Load（）DimcnAsNewADODB。ConnectionDimcn_strAsString,sql_strAsStringcn_str="DRIVER=｛SQLSERVER｝；SERVER=QA2ONHYK7VWHRY2;DATABASE=library”cn。Opencn_strsql_str="select＊from借閱信息表"rs.Opensql_str，cn_str，adOpenDynamic,adLockOptimisticText1。Text=rs（0）Text2。Text=rs(1)Text3。Text=rs(2)Text4。Text=rs（3）Text5.Text=rs（4)Text6.Text=rs(5)Text7.Text=rs(6)Text8.Text=rs(7)Text9。Text=rs（8）EndSub3。圖書借閱查問設(shè)計過程：選擇圖書借閱查問，在相應(yīng)的欄目輸入要查問的圖書號就能查問該圖書的借閱信息！設(shè)計代碼：PrivateSubCommand1_Click(）DimcnAsNewADODB。ConnectionDimrsAsNewADODB.RecordsetDimflagAsBooleanDimcn_strAsString，sql_strAsStringcn_str="DRIVER=｛SQLSERVER}；SERVER=QA2ONHYK7VWHRY2;DATABASE=library"cn.Opencn_strsql_str=”select＊from借閱信息表”rs。Opensql_str,cnWhileNotrs.EOFIfText10。Text=Trim（rs(0）)ThenText1。Text=rs（0)Text2。Text=rs（1）Text3。Text=rs（2)Text4.Text=rs（3）Text5.Text=rs(4）Text6。Text=rs(5）Text7。Text=rs（6)Text8.Text=rs（7)Text9。Text=rs（8）flag=TrueExitSubElsers.MoveNextflag=FalseEndIfWendIfflag=FalseThenMsgBox”沒有找到此圖書的信息,請確認(rèn)所輸入正確的圖書號!”,vbCritical+vbOKOnly，”錯誤"rs.CloseEndIfEndSubPrivateSubCommand2_Click(）UnloadMeEndSub讀者信息管理3.2。3.1增添刪除改正讀者信息設(shè)計過程：選擇增添刪除改正讀者信息,在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點(diǎn)擊相應(yīng)的按鈕可以實(shí)現(xiàn)增添刪除改正讀者信息.設(shè)計代碼：DimrsAsNewADODB。RecordsetPrivateSubCommand1_Click(）rs。Deleters。AddNewrs（”讀者編號”)=Trim(Text1.Text）rs("讀者姓名”)=Trim（Text2。Text)rs("性別"）=Trim（Text3.Text)rs（"出誕辰期")=Trim（Text4.Text)rs（"單位”)=Trim(Text5.Text)rs（”家庭地址”)=Trim(Text6.Text）rs（"電話”)=Trim（Text7.Text）rs（"Email"）=Trim（Text8。Text)rs("證件種類”）=Trim(Text9。Text）rs（"證件號碼”)=Trim（Text10.Text)rs(”登記日期")=Trim(Text11。Text)rs（”讀者級別”）=Trim（Text12.Text)rs.UpdateMsgBox”改正信息成功！",vbExclamation+vbOKOnly,"提示”EndSubPrivateSubCommand2_Click（)rs.DeleteMsgBox"刪除成功！",vbExclamation+vbOKOnly,"提示”EndSubPrivateSubCommand3_Click（IndexAsInteger）SelectCaseIndexCase0rs.MoveFirstCase1rs。MovePreviousIfrs.BOFThenrs.MoveFirstMsgBox"已經(jīng)是第一條記錄",vbExclamation，”提示"EndIfCase2rs。MoveNextIfrs.EOFThenrs.MoveLastMsgBox"已經(jīng)是最后一條記錄!”，vbExclamation,”提示"EndIfCase3rs.MoveLastEndSelectText1.Text=rs(0）Text2。Text=rs（1)Text3。Text=rs（2)Text4。Text=rs(3）Text5.Text=rs(4）Text6。Text=rs(5)Text7。Text=rs(6）Text8.Text=rs(7）Text9.Text=rs(8)Text10.Text=rs(9)Text11。Text=rs(10）Text12.Text=rs（11）EndSubPrivateSubCommand4_Click()IfText1.Text=

”"ThenMsgBox"請輸入要增添的讀者編號！

"，

vbOKOnly+vbExclamation,

”警示

"Text1.SetFocusExitSubEndIfIfText2.Text="

”

ThenMsgBox"

請輸入要增添的讀者姓名！”,vbOKOnly+vbExclamation

，”警示

"Text2。SetFocusExitSubEndIfIfText3.Text="”ThenMsgBox"請輸入要增添的性別！"，vbOKOnly+vbExclamation,"警示"Text3.SetFocusExitSubEndIfIfText4。Text="”ThenMsgBox"請輸入出誕辰期!”,vbOKOnly+vbExclamation,"警示"Text4。SetFocusExitSubEndIfIfText5.Text=

”"ThenMsgBox”請輸入單位!”,vbOKOnly+vbExclamation，”警示”Text5。SetFocusExitSubEndIfIfText6.Text=

”"ThenMsgBox

”請輸入家庭地址！

"，

vbOKOnly+vbExclamation

，”警示"Text6。SetFocusExitSubEndIfIfText7。Text=

””

ThenMsgBox”請輸入要增添電話！”，vbOKOnly+vbExclamation,”警示"Text7.SetFocusExitSubEndIfIfText8。Text=

””

ThenMsgBox"請輸入要增添的

Email！"，

vbOKOnly+vbExclamation,

”警示

"Text8.SetFocusExitSubEndIfIfText9.Text=""ThenMsgBox"請輸入要增添的證件種類

!”,vbOKOnly+vbExclamation

，"警示”Text9.SetFocusExitSubEndIfIfText10.Text="

”

ThenMsgBox”請輸入證件號碼!”，vbOKOnly+vbExclamation,”警示”Text10。SetFocusExitSubEndIfIfText11。Text=””ThenMsgBox"請輸入登記日期!”，vbOKOnly+vbExclamation，”警示"Text11。SetFocusExitSubEndIfIfText12.Text=""ThenMsgBox”請輸入讀者級別！",vbOKOnly+vbExclamation,”警示"Text12.SetFocusExitSubEndIfDimcnAsNewADODB.ConnectionDimrsAsNewADODB。RecordsetDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str=”DRIVER={SQLSERVER｝；SERVER=QA2ONHYK7VWHRY2；DATABASE=library”cn。Opencn_strsql_str="select＊from讀者信息表"rs。Opensql_str,cn,adOpenDynamic,adLockOptimisticrs。AddNewrs(”cou