图书馆管理系统软件工程课程设计说明书一份《图书管理系统》系统设计报告一、引言1．摘要：中学图书馆管理系统目的：方便图书馆对书籍借阅的管理主要功能：—学生基本信息查询—书籍借阅管理—书籍管理2．背景：第十小组承担开发任务3．工作条件与限制：windows操作平台，VisualBasic6.0和SQLSserver2000等软件为开发工具，利用上课时间和课外时间做成。由于现在图书管理系统已经比叫完善，所以我们暂时没有能做出比以前有先进技术的管理系统。4．参考和引用资料：《数据库系统概论》，VB应用5．专门术语定义：二、系统总体技术方案1．计算机系统配置：windows平台，VB/SqlServer2000，WINNTSERVER操作系统,SQLserver2000关系数据库管理系统，VB操作软件，局域网。2．模块设计：主要分为三个模块：即学生基本信息模块，书籍借阅模块，书籍管理模块代码设计：读者信息查询PublicconnStrAsADODB.ConnectionPrivateSubCommand1_ClickEndSubPrivateSubcmdAdd_ClickIfTrimList1.Text<>""ThenList2.AddItemList1.TextEndIfEndSubPrivateSubcmdMove_ClickIfTrimList2.Text<>""ThenList2.RemoveItemList2.ListIndexEndIfEndSubPrivateSubcmdSearch_ClickDimcmdstrAsStringIfList2.ListCount=0ThenMsgBox"请选择输出列！",vbOKOnly,"提示"ExitSubEndIfcmdstr="select"Fori=0ToList2.ListCount-1IfTrimList2.Listi="图书证号"Thencmdstr=cmdstr+"READER_DATA."+TrimList2.Listi+","ElseIfTrimList2.Listi="书号"Thencmdstr=cmdstr+"MARC_DATA."+TrimList2.Listi+","Elsecmdstr=cmdstr+TrimList2.Listi+","EndIfEndIfNextcmdstr=Leftcmdstr,Lencmdstr-1IfOpbook.Value=TrueThencmdstr=cmdstr+"fromMARC_DATAwhere"EndIfIfOpreader.Value=TrueThencmdstr=cmdstr+"fromREADER_DATAwhere"EndIfIfOplend.Value=TrueThencmdstr=cmdstr+"fromMARC_DATA,READER_DATA,LEND_DATA"&"whereMARC_DATA.书号=LEND_DATA.书号and"&"READER_DATA.图书证号=LEND_DATA.图书证号and"EndIfIfTrimcomKey.Text=""ThenMsgBox"请选择查询关键字！",vbOKOnly,"提示"ExitSubEndIfIfTrimtxtKey.Text=""ThenMsgBox"请设置查询关键字的值！",vbOKOnly,"提示"ExitSubEndIfIfComType.Text="精确匹配"Thencmdstr=cmdstr+TrimcomKey.Text+"=''"+TrimtxtKey.Text+"''"Elsecmdstr=cmdstr+TrimcomKey.Text+"like''"+TrimtxtKey.Text+"%''"EndIfAdodc1.RecordSource=cmdstrAdodc1.RefreshDataGrid1.RefreshEndSubPrivateSubForm_LoadSetconnStr=NewADODB.ConnectionconnStr.Open"driver={SQLServer};Server=SYSLAB000;UID=jj138;PWD=;database=计教1班38号"Adodc1.ConnectionString=connStrComType.AddItem"精确匹配"ComType.AddItem"前方一致匹配"EndSubPrivateSubLabel3_ClickEndSubPrivateSubList2_ClickEndSubPrivateSubOpbook_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetrs.Open"MARC_DATA",connStr,adOpenKeyset,adLockReadOnly,adCmdTablecomKey.ClearList1.ClearFori=0Tors.Fields.Count-1comKey.AddItemrs.Fieldsi.NameList1.AddItemrs.Fieldsi.NameNextrs.CloseList2.CleartxtKey.Text=""EndSubPrivateSubOplend_ClickcomKey.ClearList1.ClearcomKey.AddItem"图书证号"comKey.AddItem"姓名"comKey.AddItem"书号"comKey.AddItem"书名"comKey.AddItem"出版社"comKey.AddItem"借出日期"comKey.AddItem"还书日期"List1.AddItem"图书证号"List1.AddItem"姓名"List1.AddItem"书号"List1.AddItem"书名"List1.AddItem"出版社"List1.AddItem"借出日期"List1.AddItem"还书日期"List2.CleartxtKey.Text=""EndSubPrivateSubOpreader_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetrs.Open"READER_DATA",connStr,adOpenKeyset,adLockReadOnly,adCmdTablecomKey.ClearList1.ClearFori=0Tors.Fields.Count-1comKey.AddItemrs.Fieldsi.NameList1.AddItemrs.Fieldsi.NameNextrs.CloseList2.CleartxtKey.Text=""EndSub借还书处理PrivateSubcmdLend_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetIfTrimtxtBid.Text=""OrTrimtxtRid_1.Text=""ThenMsgBox"请输入图书证号和书号！",vbOKOnly,"提示信息"Elsers.Open"LEND_DATA",connStr,adOpenKeyset,adLockOptimistic,adCmdTablers.AddNewrs"书号"=txtBid.Textrs"借出日期"=Daters"图书证号"=txtRid.Textrs.UpdateAdodc1.RefreshEndIfEndSubPrivateSubcmdReturn_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetIfTrimtxtBid.Text=""OrTrimtxtRid_1.Text=""ThenMsgBox"请输入图书证号和书号！",vbOKOnly,"提示信息"Elsecmdstr="updateLEND_DATAset还书日期=''"_&Date&"''where书号=''"&TrimtxtBid.Text&"''"rs.Opencmdstr,connStr,adOpenKeyset,adLockOptimistic,adCmdTextAdodc1.RefreshEndIfEndSubPrivateSubcmds_ClickDimrsAsADODB.RecordsetSetrs=NewADODB.Recordsetcmdstr="select*fromREADER_DATAWHERE图书证号=''"&TrimtxtRid_1.Text&"''"rs.Opencmdstr,connStr,adOpenForwardOnly,adLockReadOnly,adCmdTextIfNotrs.EOFThentxtRid.Text=rs"图书证号"txtName.Text=rs"姓名"IfNotIsNullrs"性别"ThentxtXb.Text=rs"性别"EndIfIfNotIsNullrs"系名"ThentxtXm.Text=rs"系名"EndIfElseMsgBox"未找到该读者信息！",vbOKOnly,"提示信息"EndIfcmdstr="select借出日期,还书日期,LEND_DATA.书号,书名,作者,出版社"&"fromLEND_DATA,MARC_DATA"&"whereLEND_DATA.书号=MARC_DATA.书号and"&"还书日期isnulland图书证号=''"&TrimtxtRid_1.Text&"''"Adodc1.RecordSource=cmdstrAdodc1.RefreshEndSubPrivateSubcmdSearch_Clickcmdstr="select借出日期,还书日期,LEND_DATA.书号,书名,作者,出版社"&"fromLEND_DATA,MARC_DATA"&"whereLEND_DATA.书号=MARC_DATA.书号and图书证号=''"&TrimtxtRid_1.Text&"''"Adodc1.RecordSource=cmdstrAdodc1.RefreshEndSubPrivateSubDataGrid1_ClickIfNotAdodc1.Recordset.BOFAndNotAdodc1.Recordset.BOFThentxtBid.Text=Adodc1.Recordset"书号"EndIfEndSubPrivateSubForm_LoadSetconnStr=NewADODB.ConnectionconnStr.Open"driver={SQLServer};Server=SYSLAB000;UID=jj138;PWD=;database=计教1班38号"Adodc1.ConnectionString=connStrEndSub图书馆详细信息PrivateSubtxt_refreshIfNotAdodc1.Recordset.EOFAndNotAdodc1.Recordset.BOFThentxtBid.Text=Adodc1.Recordset"书号"txtBname.Text=Adodc1.Recordset"书名"txtWrite.Text=Adodc1.Recordset"作者"txtPublisher.Text=Adodc1.Recordset"出版社"txtYear.Text=Adodc1.Recordset"出版时间"txtGb.Text=Adodc1.Recordset"国别代码"txtDate.Text=Adodc1.Recordset"进馆时间"txtCallno.Text=Adodc1.Recordset"分类号"EndIfEndSubPrivateSubcmdDele_ClickDimdeletxtAsStringdeletxt="是否删除图书《"&Adodc1.Recordset"书名"&"》的记录？"IfNotAdodc1.Recordset.EOFAndNotAdodc1.Recordset.BOFThenIfMsgBoxdeletxt,vbOKCancel,"提示信息"=vbOKThenAdodc1.Recordset.DeleteAdodc1.RefreshEndIfEndIfEndSubPrivateSubcmdNew_ClickIfcmdNew.Caption="新增"Thentxt_enable2cmdNew.Caption="保存"txtBid.Text=""txtBname.Text=""txtWrite.Text=""txtPublisher.Text=""txtYear.Text=""txtGb.Text=""txtDate.Text=""txtCallno.Text=""ElseAdodc1.Recordset.AddNewAdodc1.Recordset"书号"=TrimtxtBid.TextAdodc1.Recordset"书名"=TrimtxtBname.TextAdodc1.Recordset"作者"=TrimtxtWrite.TextAdodc1.Recordset"出版社"=TrimtxtPublisher.TextAdodc1.Recordset"出版时间"=TrimtxtYear.TextAdodc1.Recordset"国别代码"=TrimtxtGb.Text4Adodc1.Recordset"进馆时间"=TrimtxtDate.TextAdodc1.Recordset"分类号"=TrimtxtCallno.TextAdodc1.Recordset.UpdateBatchAdodc1.Refreshtxt_enable1cmdNew.Caption="新增"Adodc1.Recordset.MoveFirsttxt_refreshEndIfPrivateSubcmdNext_ClickIfNotAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveNexttxt_refreshEndIfEndSubPrivateSubcmdPre_ClickIfNotAdodc1.Recordset.BOFThenAdodc1.Recordset.MovePrevioustxt_refresh2EndIfEndSubPrivateSubcmdUpdate_ClickIfcmdUpdate.Caption="修改"Thentxt_enable2cmdUpdate.Caption="保存"ElseAdodc1.Recordset"书号"=TrimtxtBid.TextAdodc1.Recordset"书名"=TrimtxtBname.TextAdodc1.Recordset"作者"=TrimtxtWrite.TextAdodc1.Recordset"出版社"=TrimtxtPublisher.TextAdodc1.Recordset"出版时间"=TrimtxtYear.TextAdodc1.Recordset"国别代码"=TrimtxtGb.TextAdodc1.Recordset"进馆时间"=TrimtxtDate.TextAdodc1.Recordset"分类号"=TrimtxtCallno.TextAdodc1.Recordset.UpdateBatchAdodc1.Refreshtxt_enable1cmdUpdate.Caption="修改"EndIfEndSubPrivateSubForm_Loadtxt_refreshEndSubPrivateSubText1_ChangeEndSubPrivateSubText8_ChangeEndSubPrivateSubtxtBname_ChangeEndSub。