vbsql2000图书管理系统

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

图书借阅管理

读者信息管理增添改正图书全部查问图书增添改正图书借阅增添删除查问读者删除图书信息信息删除借阅查问改正读者信息信息信息信息1。登录界面设计过程：用于输入用户名和密码登录，假如用户输入用户名和密码错误则不可以进入系统.界面是一个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图书管理主界面设计过程：全部功能都在菜单中翻开来实现。设计代码：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点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点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增添改正删除图书信息增添改正删除图书信息设计过程：选择增添改正删除图书信息，在相应的栏目填入或选择相应的内容，点击相应的按钮可以实现增添改正删除图书信息。设计代码：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（"规定天数"）=Trim(Text8.Text)rs（"书的状态”）=Trim(Text9.Text）rs.UpdateMsgBox”改正信息成功!"，vbExclamation+vbOKOnly，"提示"EndSubPrivateSubCommand2_Click（）rs.DeleteMsgBox”删除成功!”,vbExclamation+vbOKOnly，"提示”EndSubPrivateSubCommand3_Click（IndexAsInteger）SelectCaseIndexCase0rs.MoveFirstFrame2.Caption=”目前地点"＆rs.AbsolutePosition&”/”&rs。RecordCountCase1rs.MovePreviousIfrs.BOFThenrs.MoveFirstFrame2。Caption="目前地点"&rs。AbsolutePosition＆”/”＆rs。RecordCountMsgBox”已经是第一条记录"，vbExclamation，"提示"EndIfCase2rs.MoveNextFrame2.Caption=”目前地点"&rs。AbsolutePosition&"/"＆rs.RecordCountIfrs。EOFThenrs.MoveLastMsgBox"已经是最后一条记录！”,vbExclamation，"提示"EndIfCase3rs.MoveLastFrame2。Caption=

”目前地点

"&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"请输入规定天数！”，vbOKOnly+vbExclamation，”警示"Text8.SetFocusExitSubEndIfIfText9.Text=""ThenMsgBox"请输入书的状态!",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(”规定天数"）=Trim(Text8.Text)rs("书的状态")=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查问图书信息查问图书信息图设计过程:选择查问图书信息，在相应的栏目输入要查问的图书号就能查问该图书的基本信息设计代码：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"没有找到此图书的信息,请确认所输入正确的图书号！"，vbCritical+vbOKOnly,"错误"rs.CloseEndIfEndSub3。2。2图书借阅管理3.2。2.1增添改正删除借阅信息增添改正删除借阅信息图设计过程：选择增添改正删除借阅信息，在相应的栏目填入或选择相应的内容，点击相应的按钮可以实现增添改正删除借阅信息.设计代码：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（”实还日期”)=Trim(Text8.Text)rs("高出天数”）=Trim（Text9。Text）rs.UpdateMsgBox"改正信息成功!”，vbExclamation+vbOKOnly,"提示"EndSubPrivateSubCommand2_Click（）rs.Deleters。UpdateMsgBox"删除成功！"，vbExclamation+vbOKOnly,”提示”EndSubPrivateSubCommand3_Click(IndexAsInteger)SelectCaseIndexCase0rs。MoveFirstCase1rs。MovePreviousIfrs.BOFThenrs.MoveFirstMsgBox”已经是第一条记录"，vbExclamation，”提示"EndIfCase2rs.MoveNextIfrs。EOFThenrs.MoveLastMsgBox”已经是最后一条记录！”，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"请输入规定天数！”,vbOKOnly+vbExclamation，"警示”Text5。SetFocusExitSubEndIfIfText6.Text=

”"ThenMsgBox"

请输入借出日期

!”，

vbOKOnly+vbExclamation

，”警示”Text6。SetFocusExitSubEndIfIfText7。Text=

””

ThenMsgBox"请输入还书日期!”,vbOKOnly+vbExclamation，”警示"Text7。SetFocusExitSubEndIfIfText8。Text=””ThenMsgBox”请输入实还日期！”,vbOKOnly+vbExclamation，”警示"Text8。SetFocusExitSubEndIfIfText9.Text=””ThenMsgBox"请输入高出天数!”,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（”规定天数")=Trim(Text5。Text）rs（"借出日期”）=Trim（Text6。Text）rs("还书日期"）=Trim（Text7.Text)rs（”实还日期"）=Trim（Text8。Text）rs（”高出天数”)=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。图书借阅查问设计过程：选择图书借阅查问，在相应的栏目输入要查问的图书号就能查问该图书的借阅信息！设计代码：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”没有找到此图书的信息,请确认所输入正确的图书号!”,vbCritical+vbOKOnly，”错误"rs.CloseEndIfEndSubPrivateSubCommand2_Click(）UnloadMeEndSub读者信息管理3.2。3.1增添删除改正读者信息设计过程：选择增添删除改正读者信息,在相应的栏目填入或选择相应的内容，点击相应的按钮可以实现增添删除改正读者信息.设计代码：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"已经是第一条记录",vbExclamation，”提示"EndIfCase2rs。MoveNextIfrs.EOFThenrs.MoveLastMsgBox"已经是最后一条记录!”，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