VB图书管理系统

頁頁.1月存頁頁.1月存頁頁.1月存因书955人员零_「统计表.—酗畸一斗2因书955人员零_「统计表.—酗畸一斗2楡吉有笔

_统计麻无嘶入—当时日期材效吉询耍朵一3•处珊言询有应统井嘶绕奸衣•处趣统卄K概述为适应教育现代化的迫切要求，提高高校图书馆的现代化管理水平，提高图书馆使用效率，更好的配置图书资源，降低工作人员劳动强度；结合本人实际兴趣及知识，开发了此软件。2、详细设计2.1•系统功能模块图2・2.数据流图：系统时钟数痂宜理要求 …亠系统时钟当前日期言询要求? 飞”q因书皆理系统卜.—统计要羽 > 罚戟单_3•数据库设讣3.1数据库概念结构设计：

5.2数据库逻辑结构的设计包括有系统用户表yongbu、读者表duzh亡、图书表tushu＞借阅表卩亡sbu、设置表shezo图书表tushu字段名称类型说明图书编号文本书名文本作者文本出版社文本1单价文本本数文本1已借出数文本一 丿借出次数文本读者表duzhe字段名称 类型 说明頁頁.i月存頁頁.i月存读者编号―■“■・・—・文本姓名文本班级文本电话号码文本借阅次数文本已借本数文本已交罚款文本借阅表卩己sbu字段名称类型说明读者编号文本图书编号文本借书日期日期/时间还书日期日期/时间应还日期日期/时间续借文本设置表shez字段名称类型说明还书期限整型

续借期限整型最大借书数整型4、主要功能模块设计4.1•系统登陆界面设计图书管理系统用户名，[Effl三]图书管理系统用户名，[Effl三]巒■定if.nSMQ3-S-26功能介绍:用户选择用户名并输入密码，系统按用户名查看yongbu表，若密码正确，则按权限进入图书管理系统的主界面；若用户密码输入不正确，则系统提示出错，要求重新输入密码否则不得进入本系统。（注：还定义了一个模块名为moduMbas,pubyh和qcqnxian都是全局变量，一个保存用户名，一个保存权限、还有bsqx、x[qx、zd[ss用于保存还书期限、续借期限、最大借书数。）代码实现：PrivateSubCommandLClickOAdodc1・R己cordSource=^select*hornyorjghuwhere用户名二Da乜ComhotText&"'and密码■〃&Textl.Text&""Ajojc1.RefreshIfAdojcl.Recordset.EOF=FalseThenpubyh=D^t^Cornbo!.Textquanxian=A4odc1.Kecordset.FieldsC7权限")Me.HideMDIForml.SbowElseMsgBox"密码错误，请重新输入！：vhOKOnly+vbExcl^mation,"图书馆"Textl.Text=〃“CallForm_LoadEndifEndSubPrivateSubFotm_Load()頁頁.1月存頁頁.1月存Adodd.ConnectiorjString=/,Provlc|er=Miciosoftjet.,/&"OLEDB.4.0；Data5ource=//&App.Patb&^kcsl'.mdb；PersistSecuritylr)fo=F^lse/,，数据库的连接，使用相对路径Adodcl.KecordSource=^select*frorr)yonghu"Adodcl.KefreshUbel5.Qption="日期:"&D^teEndSub4.2图书管理系统的主界面设计Q)界面设计：頁頁.i月存頁頁.i月存Ma»vxrv^mms?0丫耐匍tea^需于*RP1E；■押时祿洛个月MflRRUfJIJ%/务话厂&TCh^■"1fia®0•12:4?|£Dii•・・■H—wewu~JReCiish(b)功能介绍:主界面的功能有系统管理模块：系统设置、用户管理、注销、退出。数据管理模块：借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块：借阅查询、图书查询、读者查询。统计排行模块：读者统计排行、图书统计排行。今日盘点模块：今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。(C)代码实现：PrivateSubMDIForrr)_Activ^teOUnloadfrmlogirj頁頁.I月存AJoc|c1.Connectionstring=<zProvider=Microsoft.Jet.,z&"OLEDB.4.0；DataSource二"&App.Path&/zkcs[.m4H;PersistSecurityInfo二Fals亡"Adodd・2cordSourc己=^select*fromshezz/AJodd.Refreshhsqx=Adodcl.Recordset.Fields”还书期限"）x[qx=AdodclRecordset.Fields（“续借期限"）zdjss=Adodd.Recordset.Fields（":最大借书数"）string*!=”当前还书期限:"&hsqx&〃个月续借期限:"&xjqx&〃个月最大借书数:〃&zd$s&"本"SelectQsequ^nxian 7根据权限分配功能的使用Case"beizu=〃系统管理员:"mmuxtsz.Enabled=TrueQse"2"：beizu=〃操作员:〃 7权限为2的是一般操作人员menuxtsz.En^Hled=F^lseToolb^r1.Buttor)s」tem(1).Enabled=True頁頁.1月存頁頁.1月存Qsebeizu="读者:"Qsebeizu="读者:"，权限为3的是读者EndSelectSt^tusB^rl.P^nelsCD.Text=beizu+pubyhSt^tusB3r1.P^r)elsC2).Text=stringlEndSub4.4借书管理模块頁頁.i月存頁頁.i月存Q）界面设计b）功能介绍该部分完成对读者的借书管理并将借书信息写入peshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段，读者借书数超过系统参数设定的最多本数的不能再借。（C）代码实现PrivateSuhComm^ndVClickC)b=Clr)tCText6.Text)，读者已借图书数e=Clr)tCText5.Text)，读者的借阅次数c=ClntCText17.Text)，图书的本数d=ClntCText18.Text)，图书已借出数f=ClntCText12.Text)，图书的借出次数iFzdjss-b<=0ThenMsgBox"你已借满图书了一借书ExitSubifc-d<=0Then頁頁.i月存頁頁.i月存MsgBox-你要的图书已全部借出〃，借书ExitSubEndlFAdodcl.Recordset.Update"已借本数",StrCb+1）Adodcl.Fsecordset.Upd^te"借阅次数",StrCe+1）Text6.Text=Adodcl.R亡cordset.Fields（“已借本数"）Text5.Text=A（\o（\cl.Kecorclset.FieldsC'借阅次数"）A4odc2.Recordset.Update"已借出本数",StrCd+1）A4odc2.Recordset.Update"借出次数；StrCf+1）Text18.Text=A4ojc2.Recordset.FieldsC,z已借出本数"）Text12.Text=Ac|odc2.Kecorcjset.FleldsC'7借出次数"）Adodc3.Recordset. NewAdodc3・Recordset.Fi』ds（"读者编号"）=Textl.TextAdodc3・Recordset.Fi』ds（"图书编号"）=Text16.TextAdodc3・Recordset.Fblds（”借书日期"）二DTPickerl.V^lueAdodc3Recordset.Fie【ds("应还日期")=DTPlcker2.V^lueA4odc3.Recordset.FieldsC7^借")="0"Adodc3・R亡cords亡t・UpdateAdodc3・2fr亡sbEndSubPrivateSubForm_Load()Adodd.ConnecttonStrin^=,,Provi4er=MicrosoAjet.,/&"OLEDB.4.0；DataSourc己二"&App.Path&/zkcs[.rr)dB;PersistSecurityInfo二Fals亡"ifKeyCocle=13ThenifKeyCocle=13Then頁頁.I月存Adodd.R^cordSourc己=^select*fromduzb亡"Adodcl.FsefreshDTPicker1.V^lue=D^teDTPicker2.V^lue=Da绘Add("m〃,bsqx,DTPlcker!) *sqx是还书期限EndSubPrivateSubText1_KeyDowr)(KeyCodeAsInteger,ShiftAsInteger)AJoc|c1.RefreshAcjotjcl.Recordset.Find"读者编号二'"&Textl.Text&"z"ifA4odc1.Recordset.EOF=TrueThenMsgBox-无此读者编号〃，借书Text2.Text="〃A4odd.RefreshExitSubEndifText2.Text=AdoddRecordset.Fb【ds(“姓名〃)End\(EndSubPrivateSubText16_KeyDownCKeyCodeAsInteger,ShiftAsInteger)頁頁.I月存頁頁.I月存A4o4c2.FsefreshAdodc2・RecordsetFind"图书编号二"&Text16.Text&"z"\(A(\o<ic2.Recordset.EOF=TrueThenMsgBox-无此图书编号〃，借书Text15.Text二"Adodc2・R己存亡sbExitSubEndifText15.Text=Adodc2・Recordset.Fie【ds（"书名"）EndItEndSub4.5图书查询Q）界面设计:頁頁.1月存（b）功能介绍：对图书可根据不同的条件进行查询（图书编号、书名、作者、出版社）°（C）代码实现:PrivateSubComm^ndVChckC)SelectQsecomHo1.ListIndexQse0Adodcl."cordset.Find"图书编号='"&Text8.Text&ifA4odc1.Recordset.EOFThenAdodd.Recordset.MoveFirstAcjotjcl.Recordset.Find"图书编号二'"&Text8.Text&EndifQse1，书名采用模糊查询Adodd."cordset.Fin