图书馆管理系统毕业设计

1论文摘要这是一个使用VISUALBASIC60（企业版）平台开发的图书馆管理系统。在该系统中设置了图书借阅、查询、添加、删除、报表显示。读者添加、添加、删除、查询等信息。方便图书馆的借阅归还。本系统的数据库是通过MICROSOFTACCESS2003，系统最大的特点是功能强大，方便管理、提高管理速度，可靠性强、意思自治（其中有部分功能可以根据用户需要自行设定），操作简单，简便易学，界面直观明了等诸多特点。关键字图书管理系统、VISUALBASIC、模块、数据访问对象、ACCESSVISUALBASIC的程序设计。查询语言ABSTRACTSTHISISAUSEOFVISUALBASIC60ENTERPRISEEDITIONPLATFORMFORTHEDEVELOPMENTOFTHELIBRARYMANAGEMENTSYSTEMINTHISSYSTEMINSTALLEDBORROWBOOKS,QUERY,ADD,DELETE,STATEMENTSSHOWREADERSADD,ADD,DELETE,QUERY,ANDOTHERINFORMATIONLENDINGLIBRARYFORTHERETURNTHESYSTEMOFDATABASESTHROUGHMICROSOFTACCESS2003,THELARGESTSYSTEMISCHARACTERIZEDBYPOWERFUL,EASYMANAGEMENTANDIMPROVEMANAGEMENTOFSPEED,RELIABILITY,AUTONOMYOFWHICHSOMEFUNCTIONSCANBESETACCORDINGTOUSERNEEDSONITSOWN,SIMPLE,EASYTOLEARN,THEINTERFACEINTUITIVEUNDERSTANDING,ANDMANYOTHERFEATURESKEYWORDLIBRARYMANAGEMENTSYSTEM,VISUALBASIC,MODULES,DATAACCESSOBJECTS,ACCESSVISUALBASICPROGRAMMINGQUERYLANGUAGE2目录1系统简介311开发平台32系统运行环境43数据库设计说明44程序清单以及设计步骤55论文总结及感谢356文献参考3531系统简介本息系统是“图书管理系统”，其具备浏览、添加、修改、删除、查找、统计等功能。图书管理系统可以在系统中实现图书的借阅，归还，以及对图书的添加删除，修改等一些基本的操作，同时管理员也可以对系统的设定进行修改。在此次的毕业设计中所使用的软件是MICROSOFTVISUALBASIC60MICROSOFTACCESS2003数据库。使用VISUALBASIC60作为管理系统的开发平台，ACCESS2000用于数据源的开发；使用ODBC（开放式数据库连接）进行对数据源的连接，SQL结构化查询语言用于实现查询功能。之所以采用VB作为开发平台主要是考虑到对此种语言的熟悉性以及使用VB能够在较短的时间内给用户提供友好的界面和完善的功能，缩短了开发周期。而数据源的开发最初是想使用SQLSERVER企业管理器进行的，但是考虑到ACCESS的简单易用性，最终还是采用了ACCESS2000。11开发平台用VISUALBASIC60作为数据库开发平台，30版以后的VISUALBASIC具有数据库连接和数据处理功能，因此完全有资格作为数据库应用程序的开发环境。MICROSOFT公司把许多新的数据访问功能加到VISUALBASIC中，使得该产品成为桌面数据库市场中ACCESS、FOXPRO及PARADOXFORWINDOWS的直接竞争者。与普通的数据库系统相比，用VISUALBASIC作为数据库开发平台有以下优点1、简单性VISUALBASIC提供了数据控件，利用该控件，用户只要编写少量的代码甚至不编写任何代码就可以访问数据库，对数据库进行浏览。2、灵活性VISUALBASIC不像一般的数据库如ACCESS那样局限于特定的应用程序结构，也不需要用某些指令对当前打开的数据库进行操作，因而比较灵活。3、可扩充性VISUALBASIC是一种可以扩充的语言，其中包括在数据库应用方面的扩充。在VISUALBASIC中，可以使用ACTIVEX控件以前版本中称为VBX或OLE控件，这些控件可以由MICROSOFT公司提供，也可以由第三方开发者提供。有了这些控件，可以很容易地在VISUALBASIC中增加新功能，扩充VISUALBASIC数据存取控制的指令系统。用VISUALBASIC60作为数据库前端，数据库前端是一个计算机应用程序，用该程序可以选择数据库中的数据项，并把所选择的数据项按用户的要求显示出来。数据库系统本身被称为后端，后端数据库通常是一个关系表的集合。之所以选择VISUALBASIC作为开发数据库前端应用程序的工具，主要是因为VISUALBASIC可以和多种数据库连接。也就是说，目前较为流行的大多数数据库都可以与VISUALBASIC连接，因而可以用VISUALBASIC开发相应的前端应用程序。VISUALBASIC通过不同的方式与各种数据库进行连接，主要有三种方式，即ACCESS数库引擎、MICROSOFTODBC驱动程序、第三方ODBC驱动程序。ACCESS数据库引擎ACCESS是VISUALBASIC的“内部数据库”，即在VISUALBASIC中可以直接建立ACCESS数据库。同时，通过ACCESS数据库引擎，还可以使用下列数据库BTRIEVEDATDBASEDBF/NDXFOXPRODBF/CDX/NDXPARADOXDB,PX4BMICROSOFTODBC通过MICROSOFTODBC驱动程序，可以使用下列数据库MICROSOFTSQLSERVERORACLESYBASESQLSERVEREXCELXLSTEXTTXTACCESSMDBBTRIEVEDBASEFOXPROPARADOX上面所列的数据库中，除前三种外，其余数据库均包含在一套MICROSOFTODBC桌面数据库驱动程序及MICROSOFTQUERY中。2系统运行环境本设计所使用的系统环境为WINDOWSXPSP2该系统环境是计算机内默认的系统环境3数据库设计说明使用ACCESS的设计器创建6个表，其中表的名称分别为BOOKINFO，BOOKTYPE，LENTINFO，READERINFO，SETINFO，SYSTEMINFO属性分别如下。BOOKINFO字段名称数据类型宽度格式字段大小必添字段书籍编号文本20是书籍名称文本20是类别代码文本20否出版社文本50否作者姓名文本20否书籍价格数字货币单精度型否书籍页码文本10否登记日期日期/时间短日期否是否借出是/否是/否否BOOKTYPE字段名称数据类型宽度格式字段大小类别代码文本50书籍类别文本50借出天数数字整型5LENTINFOREADERINFOSYSTEMINFOSETINFO4程序清单以及设计步骤41程序主界面首先使用VB程序新建一个标准的EXE工程。之后在工程中移除FORM1窗体。在工程菜单中添加MDI窗体。并将名称修改为MDIFORM1，并且将MDIFORM1的CAPTION属性修改为图书管理系统。在窗体中单击右键选择菜单编辑器。设置菜单。其中菜单项目包括开始，登陆，注销，退出，操作，借阅图书，续借图书，还书，编辑，查找图书，查找字段名称数据类型宽度格式字段大小读者编号文本50书籍编号文本50借书日期日期/时间短日期还书日期日期/时间短日期超出天数数字整型罚款金额数字货币单精度型字段名称数据类型宽度格式字段大小读者编号文本50读者姓名文本50读者性别文本3办证日期日期/时间长日期联系电话文本20所属单位文本20家庭住址文本20字段名称数据类型宽度格式字段大小ID自动编号长整型名称文本20密码文本20超级管理员是/否是/否数据库管理员是/否是/否图书管理员是/否是/否字段名称数据类型宽度格式字段大小借出册数数字标准整型罚款数字标准双精度型6读者，读者信息查询，等等，方式如下图所示其中标题则是在菜单中显示的内容。名称则是这个控件名的名称，相当于NAME属性。而二级菜单则在一级菜单下面添加。点击如下图红色框中的按键即可。在快捷键中设置想要设置的快捷键即可。在窗体中添加两个控件，STATUSBAR和TIMER控件。MDIFORM1中的代码如下OPTIONEXPLICITPRIVATESUBMDBACKUP_CLICKFRMBACKUPSHOWENDSUBPRIVATESUBMDIFORM_UNLOADCANCELASINTEGERIFMSGBOX“你确定要退出吗“,VBINFORMATIONVBOKCANCEL,“提示“VBOKTHENENDELSECANCEL1ENDIFENDSUBPRIVATESUBMDTSUM_CLICKFRMTSUMSHOWENDSUBPRIVATESUBMFABOUT_CLICKFRMABOUTSHOWENDSUB名称CAPTIONCOMMAND1确定COMMAND2关闭LABEL1图书管理系统LABEL2用户名LABEL3密码7PRIVATESUBMFADDBOOK_CLICKSETG_RSG_DBOPENRECORDSET“BOOKTYPE“,DBOPENTABLEIFG_RSRECORDCOUNT0THENADDBOOKSHOWELSEMSGBOX“请先设置书籍类别代码“,VBINFORMATIONVBOKONLY,“警告“SETBOOKTYPESHOWENDIFSETG_RSNOTHINGENDSUBPRIVATESUBMFADDREADER_CLICKADDREADERSHOWENDSUBPRIVATESUBMFBOOKTYPE_CLICKSETBOOKTYPESHOWENDSUBPRIVATESUBMDIFORM_LOADMFWORKENABLEDFALSEMFADDENABLEDFALSEMFEDITENABLEDFALSEMFSYSTEMINFOENABLEDFALSEMDTJENABLEDFALSEENDSUBPRIVATESUBMFCHECK_CLICKFRMCHECKSHOWENDSUBPRIVATESUBMFCLOSE_CLICKIFMSGBOX“你确定要退出吗“,VBINFORMATIONVBOKCANCEL,“提示“VBOKTHENENDENDIFENDSUBPRIVATESUBMFFINDBOOK_CLICKFINDBOOKSHOWENDSUBPRIVATESUBMFFINDREADER_CLICKFINDREADERSHOWENDSUBPRIVATESUBMFLENT_CLICKLENTBOOKSHOWENDSUBPRIVATESUBMFLEST_CLICKIFMSGBOX“你确定要注销吗“,VBINFORMATIONVBOKCANCEL,“注销“VBOKTHENMFWORKENABLEDFALSEMFADDENABLEDFALSEMFEDITENABLEDFALSEMFSYSTEMINFOENABLEDFALSESTATUSBAR1PANELS3TEXT“ENDIFENDSUBPRIVATESUBMFREADERL_CLICKFRMREADERLSHOWENDSUBPRIVATESUBMFRENNEW_CLICKRENNEWBOOKSHOWENDSUBPRIVATESUBMFRETURN_CLICKRETURNBOOKSHOW8ENDSUBPRIVATESUBMFSETADMIN_CLICKSETADMINSHOWENDSUBPRIVATESUBMFSETINFO_CLICKSETINFOSHOWENDSUBPRIVATESUBMFSETINI_CLICKFRMSETINISHOWENDSUBPRIVATESUBTIMER1_TIMERSTATUSBAR1PANELS4NOWENDSUB42登陆窗体设置在工程中添加一个窗体，命名为FRMCHECK在窗体中添加命令按纽COMMAND1,COMMAND2,标签框LABEL1，LABEL2，LABEL3，和文本框TEXT1，TEXT2并如下表将其属性修改窗体代码如下PRIVATESUBCOMMAND1_CLICKIFTEXT1TEXT“THENMSGBOX“请填写用户名“,VBINFORMATIONVBOKONLY,“警告“TEXT1SETFOCUSEXITSUBENDIFIFTEXT2TEXT“THENMSGBOX“请填写密码“,VBINFORMATIONVBOKONLY,“警告“TEXT2SETFOCUSEXITSUBENDIFG_STRSQL“SELECTFROMSYSTEMINFOWHERE名称“DATASOURCE“_MODEREADWRITEPERSISTSECURITYINFOTRUEJETOLEDBDATABASEPASSWORDXGG2213“COMMAND3ENABLEDFALSECOMMAND4ENABLEDFALSEOPTIONVENDSUBPRIVATESUBFRAME2_DRAGDROPSOURCEASCONTROL,XASSINGLE,YASSINGLEENDSUBPRIVATESUBFRAME3_DRAGDROPSOURCEASCONTROL,XASSINGLE,YASSINGLEENDSUBPRIVATESUBOPTION1_CLICKLABEL1CAPTION“按编号查询“TEXT1SETFOCUSENDSUBPRIVATESUBOPTION2_CLICKLABEL1CAPTION“按名称查询“TEXT1SETFOCUSENDSUBPRIVATESUBOPTION3_CLICKLABEL1CAPTION“按类别代码查询“TEXT1SETFOCUSENDSUBPRIVATESUBOPTION4_CLICKLABEL1CAPTION“按出版社查询“TEXT1SETFOCUSENDSUBPRIVATESUBOPTION5_CLICKLABEL1CAPTION“按作者姓名查询“TEXT1SETFOCUSENDSUBPRIVATESUBOPTION6_CLICKLABEL1CAPTION“按登记日期查询“TEXT1SETFOCUSENDSUBPUBLICSUBOPTIONVOPTION1VALUEFALSEOPTION2VALUEFALSEOPTION3VALUEFALSEOPTION4VALUEFALSEOPTION5VALUEFALSEOPTION6VALUEFALSEOPTION7VALUEFALSE18CHECK1VALUE0ENDSUBPRIVATESUBOPTION7_CLICKADODC1CURSORLOCATIONADUSECLIENTADODC1COMMANDTYPEADCMDTABLEADODC1RECORDSOURCE“BOOKINFO“ADODC1REFRESHIFADODC1RECORDSETRECORDCOUNT0THENCOMMAND3ENABLEDTRUECOMMAND4ENABLEDTRUEENDIFENDSUB48读者查询修改窗体将窗体名称修改为FINDREADER，将其CAPTION属性更改为读者查询修改。并且在窗体中添加一个数据库连接ADODC控件并将其的VISIBLE属性修改FLASE，五个命令按扭，COMMANDBOX,一个DATAGRID1数据库控件，四个窗体容器FRAME，五个单选按键OPTIONBUTTON一个标签LABEL1,一个个文本框控件TEXT1并且将其中的TEXT属性设置为空。本窗体代码如下PRIVATESUBCOMMAND1_CLICKDIMXASSTRINGIFTEXT1TEXT“THENMSGBOX“请输入查询内容“,VBINFORMATIONVBOKONLY,“警告“TEXT1SETFOCUSEXITSUBENDIFIFOPTION1VALUEFALSEANDOPTION2VALUEFALSEANDOPTION3VALUEFALSEANDOPTION4VALUEFALSETHENMSGBOX“请选择查询方式“,VBINFORMATIONVBOKONLY,“警告“OPTION1VALUETRUEEXITSUBENDIFIFOPTION1VALUETRUETHENX“SELECTFROMREADERINFOWHERE读者编号IN“TEXT1TEXT“ENDIFIFOPTION2VALUETRUETHENX“SELECTFROMREADERINFOWHERE读者姓名IN“TEXT1TEXT“ENDIFIFOPTION3VALUETRUETHENX“SELECTFROMREADERINFOWHERE所属单位IN“TEXT1TEXT“ENDIFIFOPTION4VALUETRUETHENX“SELECTFROMREADERINFOWHERE办证日期IN“DATASOURCE“_MODEREADWRITEPERSISTSECURITYINFOTRUEJETOLEDBDATABASEPASSWORDXGG2213“ADODC1CURSORLOCATIONADUSECLIENTENDSUBPRIVATESUBFRAME4_DRAGDROPSOURCEASCONTROL,XASSINGLE,YASSINGLEENDSUBPRIVATESUBOPTION1_CLICKLABEL1CAPTION“按编号查询“ENDSUBPRIVATESUBOPTION2_CLICKLABEL1CAPTION“按姓名查询“ENDSUBPRIVATESUBOPTION3_CLICKLABEL1CAPTION“按单位查询“ENDSUBPRIVATESUBOPTION4_CLICKLABEL1CAPTION“按办证日期查询“ENDSUBPRIVATESUBOPTION5_CLICKADODC1COMMANDTYPEADCMDTEXTADODC1RECORDSOURCE“SELECTFROMREADERINFO“ADODC1REFRESHIFADODC1RECORDSETRECORDCOUNT“0“THENSETG_RSG_DBOPENRECORDSET“LENTINFO“,DBOPENTABLEWITHG_RSADDNEWFIELDS“读者编号“READERIDTXTTEXTFIELDS“书籍编号“BOOKIDTXTTEXTFIELDS“借书日期“DTPICKER1VALUEUPDATEENDWITHSETG_RSNOTHINGG_STRSQL“SELECTFROMBOOKINFOWHERE书籍编号“DATASOURCE“_MODEREADWRITEPERSISTSECURITYINFOTRUEJETOLEDBDATABASEPASSWORDXGG2213“ADODC1CURSORLOCATIONADUSECLIENTADODC1COMMANDTYPEADCMDTEXTADODC1RECORDSOURCESTRSQLADODC1REFRESHDATAGRID1REFRESHLABEL15CAPTIONCSTRADODC1RECORDSETRECORDCOUNTG_STRSQL“SELECTFROMSETINFO“SETG_RSG_DBOPENRECORDSETG_STRSQLSTRCOUNTG_RS借出册数ADODC1RECORDSETRECORDCOUNTLABEL17CAPTIONCSTRSTRCOUNTBOOKIDTXTSETFOCUSENDSUB412续借窗体将窗体名称修改为LENTBOOK，将其CAPTION属性更改为正在办理图书续借。并且在窗体中添加一个数据库连接ADODC控件并将其的VISIBLE属性修改FLASE，两个命令按扭，COMMANDBOX,一个DATAGRID1数据库控件，三个窗体容器FRAME，七个标签LABEL1,五个文本框控件TEXT1并且将其中的TEXT属性设置为空。一个时间控件DTPICKER本窗体代码如下PRIVATESUBCOMMAND1_CLICKG_STRSQL“SELECTFROMLENTINFOWHERE书籍编号“DATASOURCE“_MODEREADWRITEPERSISTSECURITYINFOTRUEJETOLEDBDATABASEPASSWORDXGG2213“ADODC1CURSORLOCATIONADUSECLIENTADODC1COMMANDTYPEADCMDTEXTADODC1RECORDSOURCESTRSQLADODC1CURSORLOCATIONADUSECLIENTADODC1COMMANDTYPEADCMDTEXTADODC1RECORDSOURCESTRSQLADODC1REFRESHDATAGRID1REFRESHCOMMAND1ENABLEDTRUEELSEMSGBOX“没有该读者的信息请查证后再输入“,VBINFORMATIONVBOKONLY,“提示“TEXT1TEXT“TEXT1SETFOCUSCOMMAND1ENABLEDFALSEENDIFSETG_RSNOTHINGELSEIFKEYASCII“13“ANDTEXT1TEXT“THENMSGBOX“请先输入读者编号“,VBINFORMATIONVBOKONLY,“提示“TEXT1SETFOCUSCOMMAND1ENABLEDFALSE27ENDIFENDSUB413还书操作窗体将窗体名称修改为RETURNBOOK，将其CAPTION属性更改为正在进行还书操作。并且在窗体中添加一个数据库连接ADODC控件并将其的VISIBLE属性修改FLASE，两个命令按扭，COMMANDBOX,一个DATAGRID1数据库控件，两个窗体容器FRAME，十三个标签LABEL1,十个文本框控件TEXT1并且将其中的TEXT属性设置为空。一个时间控件DTPICKER本窗体程序代码如下PRIVATESUBCOMMAND1_CLICKG_STRSQL“SELECTFROMLENTINFOWHERE书籍编号“TXTBOOKIDTEXT“AND读者编号“TXTREADERIDTEXT“_“AND借书日期“TXTLDTEXT“SETG_RSG_DBOPENRECORDSETG_STRSQLWITHG_RSEDITFIELDS“还书日期“VALUETXTRDTEXTFIELDS“超出天数“VALUETXTSUMTEXTFIELDS“罚款金额“VALUETXTMTEXTUPDATEENDWITHSETG_RSNOTHINGG_STRSQL“SELECTFROMBOOKINFOWHERE书籍编号“TXTBOOKIDTEXT“SETG_RSG_DBOPENRECORDSETG_STRSQLWITHG_RSEDITFIELDS“是否借出“VALUEFALSEUPDATEENDWITHSETG_RSNOTHINGTXTBOOKIDTEXT“TXTBOOKIDSETFOCUSTXTBOOKNAMETEXT“TXTREADERIDTEXT“TXTZLTEXT“TXTYMTEXT“TXTDATETEXT“TXTDAYTEXT“TXTSUMTEXT“TXTREADERTEXT“TXTLDTEXT“TXTRDTEXT“TXTMTEXT“COMMAND1ENABLEDFALSEMSGBOX“归还完毕，请返回“,VBINFORMATIONVBOKONLY,“信息“ENDSUBPRIVATESUBCOMMAND2_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADDBLENDSUBPRIVATESUBFRAME2_DRAGDROPSOURCEASCONTROL,XASSINGLE,YASSINGLEENDSUBPRIVATESUBTXTBOOKID_KEYPRESSKEYASCIIASINTEGERIFKEYASCII“13“ANDTXTBOOKIDTEXT“THENG_STRSQL“SELECTBOOKINFO书籍名称,READERINFO读者姓名,BOOKTYPE书籍类别,“_名称CAPTIONCOMMAND1确认还书RCOMMAND2关闭CFRAME1输入书籍编号FRAME2书籍信息LABEL1书籍编号LABEL2LABEL3书籍名称LABEL4读者编号LABEL5书籍种类LABEL6书籍页码LABEL7规定天数LABEL8实际天数LABEL9超出天数LABEL10读者姓名LABEL11借书日期LABEL12还书日期LABEL13罚款金额控件名称TEXTBOXTXTBOOKIDTEXTBOXTXTBOOKNAMETEXTBOXTXTDATETEXTBOXTXTDAYTEXTBOXTXTLDTEXTBOXTXTMTEXTBOXTXTRDTEXTBOXTXTREADERTEXTBOXTXTREADERIDTEXTBOXTXTSUMTEXTBOXTXTYMTEXTBOXTXTZL28“BOOKINFO书籍页码,LENTINFO书籍编号,LENTINFO读者编号,LENTINFO借书日期,“_“BOOKTYPE借出天数“_“FROMBOOKINFO,READERINFO,BOOKTYPE,LENTINFO“_“WHEREREADERINFO读者编号LENTINFO读者编号ANDBOOKINFO书籍编号LENTINFO书籍编号“_“ANDBOOKINFO书籍编号“TXTBOOKIDTEXT“ANDBOOKINFO类别代码BOOKTYPE类别代码AND还书日期ISNULL“SETG_RSG_DBOPENRECORDSETG_STRSQLIFNOTG_RSEOFTHENTXTBOOKNAMETEXTG_RS书籍名称TXTREADERIDTEXTG_RS读者编号TXTZLTEXTG_RS书籍类别TXTYMTEXTG_RS书籍页码TXTREADERTEXTG_RS读者姓名TXTLDTEXTG_RS借书日期TXTDATETEXTG_RS借出天数TXTRDTEXTDATETXTDAYTEXTCSTRDATEG_RS借书日期IFCINTTXTDAYTEXTCINTTXTDATETEXT0THENTXTSUMTEXTCSTRCINTTXTDAYTEXTCINTTXTDATETEXTELSETXTSUMTEXT“0“ENDIFSETG_RSNOTHINGSETG_RSG_DBOPENRECORDSET“SELECTFROMSETINFO“TXTMTEXTG_RS罚款CINTTXTSUMTEXTSETG_RSNOTHINGCOMMAND1ENABLEDTRUEELSESETG_RSNOTHINGMSGBOX“没有该图书信息或该图书尚未借出，请返回“,VBINFORMATIONVBOKONLY,“信息“TXTBOOKIDTEXT“TXTBOOKIDSETFOCUSTXTBOOKNAMETEXT“TXTREADERIDTEXT“TXTZLTEXT“TXTYMTEXT“TXTDATETEXT“TXTDAYTEXT“TXTSUMTEXT“TXTREADERTEXT“TXTLDTEXT“TXTRDTEXT“TXTMTEXT“ENDIFELSEIFKEYASCII“13“ANDTXTBOOKIDTEXT“THENMSGBOX“请输入需要返还的图书编号“,VBINFORMATIONVBOKONLY,“信息“TXTBOOKIDSETFOCUSENDIFENDSUB414管理员设置窗体将窗体名称修改为SETADMIN，将其CAPTION属性更改为管理员设置。在窗体总添加五个命令按扭，COMMANDBOX,四个窗体容器FRAME，八个标签LABEL1,八个文本框控件TEXT1并且将其中的TEXT属性设置为空。三个单选框OPTIONBUTTON，个空间属性如下本窗体代码如下PRIVATESUBCOMMAND1_CLICK29IFTEXT1TEXT“THENMSGBOX“登陆名称不能为空“,VBINFORMATIONVBOKONLY,“警告“TEXT1SETFOCUSEXITSUBENDIFIFTEXT2TEXT“THENMSGBOX“登陆密码不能为空“,VBINFORMATIONVBOKONLY,“警告“TEXT2SETFOCUSEXITSUBENDIFIFTEXT3TEXT“THENMSGBOX“密码确认不能为空“,VBINFORMATIONVBOKONLY,“警告“TEXT3SETFOCUSEXITSUBENDIFIFTEXT2TEXTTEXT3TEXTTHENMSGBOX“两次密码不一样，请重新输入“,VBINFORMATIONVBOKONLY,“提示“TEXT2TEXT“TEXT3TEXT“TEXT2SETFOCUSEXITSUBENDIFIFOPTION1VALUEFALSEANDOPTION2VALUEFALSEANDOPTION3VALUEFALSETHENMSGBOX“请选择操作权限“,VBINFORMATIONVBOKONLY,“警告“EXITSUBENDIFSETG_RSG_DBOPENRECORDSET“SELECTFROMSYSTEMINFOWHERE名称“TEXT1TEXT“IFG_RSEOFFALSETHENMSGBOX“对不起，你所选择的用户名已经存在，请换一个登陆名“,VBINFORMATIONVBOKONLY,“信息“TEXT1TEXT“TEXT1SETFOCUSSETG_RSNOTHINGEXITSUBELSESETG_RSNOTHINGSETG_RSG_DBOPENRECORDSET“SELECTFROMSYSTEMINFO“G_RSADDNEWG_RS名称TEXT1TEXTG_RS密码TEXT2TEXTIFOPTION1VALUETRUETHENG_RS超级管理员TRUEENDIFIFOPTION2VALUETRUETHENG_RS数据库维护员TRUEENDIFIFOPTION3VALUETRUETHENG_RS图书管理员TRUEENDIFG_RSUPDATESETG_RSNOTHINGMSGBOX“用户添加成功，请返回“,VBINFORMATIONVBOKONLY,“提示“TEXT1TEXT“TEXT2TEXT“TEXT3TEXT“TEXT1SETFOCUSENDIFENDSUB名称CAPTIONCOMMAND1添加ACOMMAND2取消CCOMMAND3修改ECOMMAND4取消XCOMMAND5删除DFRAME1新用户添加FRAME2操作权限FRAME3用户修改FRAME4用户删除LABEL1登陆名称LABEL2密码LABEL3密码确认LABEL4登陆名称LABEL5登陆密码LABEL6密码修改LABEL7密码确认LABEL8用户名称OPTION1超级管理员OPTION2数据库维护员OPTION3图书管理员30PRIVATESUBCOMMAND2_CLICKTEXT1TEXT“TEXT2TEXT“TEXT1SETFOCUSOPTION1VALUEFALSEOPTION2VALUEFALSEOPTION3VALUEFALSEENDSUBPRIVATESUBCOMMAND3_CLICKIFTEXT4TEXT“THENMSGBOX“登陆名称不能为空“,VBINFORMATIONVBOKONLY,“警告“TEXT4SETFOCUSEXITSUBENDIFIFTEXT5TEXT“THENMSGBOX“登陆密码不能为空“,VBINFORMATIONVBOKONLY,“警告“TEXT5SETFOCUSEXITSUBENDIFIFTEXT6TEXTTEXT7TEXTTHENMSGBOX“两次密码不一样，请重新输入“,VBINFORMATIONVBOKONLY,“提示“TEXT6TEXT“TEXT7TEXT“TEXT6SETFOCUSEXITSUBENDIFG_STRSQL“SELECTFROMSYSTEMINFOWHERE名称“TEXT4TEXT“AND密码“TEXT5TEXT“SETG_RSG_DBOPENRECORDSETG_STRSQLIFNOTG_RSEOFTHENG_RSEDITG_RS密码TEXT6TEXTG_RSUPDATETEXT4TEXT“TEXT5TEXT“TEXT6TEXT“TEXT7TEXT“SETG_RSNOTHINGMSGBOX“用户“TEXT4TEXT“的密码修改成功“,VBINFORMATIONVBOKONLY,“信息“ELSEMSGBOX“对不起，请核对你输入的用户和密码是否正确“,VBINFORMATIONVBOKONLY,“信息“SETG_RSNOTHINGEXITSUBENDIFENDSUBPRIVATESUBCOMMAND4_CLICKTEXT4TEXT“TEXT5TEXT“TEXT6TEXT“TEXT7TEXT“TEXT4SETFOCUSENDSUBPRIVATESUBCOMMAND5_CLICKIFTEXT8TEXT“THENMSGBOX“登陆名称不能为空“,VBINFORMATIONVBOKONLY,“警告“TEXT1SETFOCUSEXITSUBENDIF31SETG_RSG_DBOPENRECORDSET“SELECTFROMSYSTEMINFOWHERE名称“TEXT8TEXT“IFG_RSRECORDCOUNT0THENIFMSGBOX“你是否确定删除登陆名为“TEXT8TEXT“的用户“,VBINFORMATIONVBOKCANCEL,“删除“VBOKTHENG_RSDELETEMSGBOX“删除成功，请返回“TEXT8TEXT“SETG_RSNOTHINGELSETEXT8TEXT“SETG_RSNOTHINGENDIFELSEMSGBOX“对不起，没有该用户信息“,VBINFORMATIONVBOKONLY,“信息“ENDIFENDSUBPRIVATESUBFORM_LOADDBLENDSUBPRIVATESUBFRAME3_DRAGDROPSOURCEASCONTROL,XASSINGLE,YASSINGLEENDSUB415书籍类别设置窗体将窗体名称修改为SETBOOKTYPE，将其CAPTION属性更改为书籍类别设置。在窗体总添加六个命令按扭，COMMANDBOX,一个窗体容器FRAME，四个标签LABEL1,三个文本框控件TEXT1并且将其中的TEXT属性设置为空。各控件属性如下本窗体代码如下PRIVATESUBCOMMAND1_CLICKSETG_RSG_DBOPENRECORDSET“SELECTFROMBOOKTYPE“,DBOPENDYNASETIFTEXT1TEXT“THENMSGBOX“请输入类别代码“,VBINFORMATIONVBOKONLY,“警告“TEXT1SETFOCUSSETG_RSNOTHINGEXITSUBENDIFDOWHILENOTG_RSEOFIFG_RS类别代码TEXT1TEXTTHENG_STRSQL“SELECTFROMBOOKTYPEWHERE类别代码“TEXT1TEXT“SETG_RSG_DBOPENRECORDSETG_STRSQLTEXT2TEXTG_RS书籍类别TEXT3TEXTG_RS借出天数SETG_RSNOTHINGCOMMAND4ENABLEDTRUECOMMAND5ENABLEDTRUEEXITSUBENDIFG_RSMOVENEXTLOOPMSGBOX“该类别代码不存在，请重新输入“,VBINFORMATIONVBOKONLY,“警告“TEXTFSETG_RSNOTHINGTEXT1SETFOCUSENDSUBPRIVATESUBCOMMAND2_CLICKTEXTFTEXT1SETFOCUSENDSUB名称CAPTIONCOMMAND1查找COMMAND2清除COMMAND3添加ACOMMAND4修改ECOMMAND5删除DCOMMAND6关闭CFRAME1图书类别信息LABEL1类别代码LABEL2图书种类LABEL3可借天数LABEL4输入类别代码进行查询32PRIVATESUBCOMMAND3_CLICKSETG_RSG_DBOPENRECORDSET“SELECTFROMBOOKTYPE“,DBOPENDYNASETIFTEXT1TEXT“THENMSGBOX“请输入类别代码“,VBINFORMATIONVBOKONLY,“警告“SETG_RSNOTHINGTEXT1SETFOCUSEXITSUBENDIFIFTEXT2TEXT“THENMSGBOX“请输入图书种类“,VBINFORMATIONVBOKONLY,“警告“SETG_RSNOTHINGTEXT2SETFOCUSEXITSUBENDIFIFTEXT3TEXT“THENMSGBOX“请输入可借天数“,VBINFORMATIONVBOKONLY,“警告“SETG_RSNOTHINGTEXT3SETFOCUSEXITSUBENDIFDOWHILENOTG_RSEOFIFG_RS类别代码TEXT1TEXTTHENMSGBOX“该类别代码已存在，请重新输入“,VBINFORMATIONVBOKONLY,“警告“SETG_RSNOTHINGTEXT1SETFOCUSEXITSUBENDIFG_RSMOVENEXTLOOPG_RSADDNEW添加记录G_RS类别代码TEXT1TEXTG_RS书籍类别TEXT2TEXTG_RS借出天数CINTTEXT3TEXTG_RSUPDATEMSGBOX“信息成功保存，请点确定键退出“,VBINFORMATIONVBOKONLY,“信息“SETG_RSNOTHING释放TEXTFENDSUBPRIVATESUBCOMMAND4_CLICKSETG_RSG_DBOPENRECORDSET“SELECTFROMBOOKTYPE“,DBOPENDYNASETIFTEXT2TEXT“THENMSGBOX“请输入图书种类“,VBINFORMATIONVBOKONLY,“警告“SETG_RSNOTHINGTEXT2SETFOCUSEXITSUBENDIFIFTEXT3TEXT“THENMSGBOX“请输入可借天数“,VBINFORMATIONVBOKONLY,“警告“SETG_RSNOTHINGTEXT3SETFOCUSEXITSUBENDIFG_RSEDITG_RSFIELDS“书籍类别“VALUETEXT2TEXTG_RSFIELDS“借出天数“VALUECINTTEXT3TEXTG_RSUPDATEMSGBOX“信息成功修改，请点确定键退出“,VBINFORMATIONVBOKONLY,“信息“33SETG_RSNOTHINGTEXTFCOMMAND4ENABLEDFALSECOMMAND5ENABLEDFALSEENDSUBPRIVATESUBCOMMAND5_CLICKSETG_RSG_DBOPENRECORDSET“SELECTFROMBOOKTYPE“,DBOPENDYNASETIFMSGBOX“你确定要删除类别代码为“TEXT1TEXT“的类别信息吗“,_VBINFORMATIONVBOKCANCEL,“删除“VBCANCELTHENSETG_RSNOTHINGEXITSUBELSEG_STRSQL“SELECTFROMBOOKTYPEWHERE类别代码“TEXT1TEXT“SETG_RSG_DBOPENRECORDSETG_STRSQLG_RSDELETETEXTFSETG_RSNOTHINGMSGBOX“删除成功，请点确定键返回“,VBINFORMATIONVBOKONLY,“信息“ENDIFCOMMAND4ENABLEDFALSECOMMAND5ENABLEDFALSEENDSUBPRIVATESUBCOMMAND6_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADDBLENDSUBPRIVATESUBFRAME1_DRAGDROPSOURCEASCONTROL,XASSINGLE,YASSINGLEENDSUBPRIVATESUBTEXT1_CHANGETEXT1TEXTUCASETEXT1TEXTENDSUBPUBLICSUBTEXTFTEXT1TEXT“TEXT2TEXT“TEXT3TEXT“ENDSUB416基本设置窗体将窗体名称修改为SETINFO，将其CAPTION属性更改为基本设置。在窗体总添加三个命令按扭，COMMANDBOX,四个标签LABEL1,两个文本框控件TEXT1并且