毕业设计（论文）-图书信息管理系统

统计备份和还原 1 3第一节项目提出的意义 3第二节开发目的 3第三节应用目标 3第四节系统特点 4第五节软件配置 4 4 4三、开发工具介绍 5四、项目后期计划 6第二章可行性分析和需求分析 7 7一、经济可行性 7二、技术可行性 8三、社会可行性 9四、法律可行性 9五、管理可行性 9第二节需求分析 一、理解需求 三、数据流图 第一节系统模块划分 二、数据库需求 三、E-R图分析 四、数据库逻辑结构设计 第三节系统流程分析 第二节登录界面 第三节借书系统 第四节还书系统 第五章系统的测试 第二节测试的实施 1如果企业使用传统人工的方式管理企业物品往业，这种管理方式存在着许多缺23第一章开发背景第一节项目提出的意义第二节开发目的第三节应用目标4第四节系统特点本系统具有以下特点：①功能全面，操作简单，功能得到拓展。能够将图书馆各方面的信息(包括员工、教师学生信息、图书信息、图书订单和供货商信息等)有机结合起来。②界面友好，使用简单方便，因为用户一般都不是计算机专业人员，系统的设计首先要能使用户能够容易地掌握该系统，且能很方便的使用该系统，从而进行更加便利的管理。③本系统是一个基于C/S技术的系统，实现了数据的集中管理，提供最大程度上的数据共享，在保障了数据的一致性的同时，降低系统的维护工作量。④在数据库操作技术上以ADO.NET数据库访问技术和SQL语言为主。第五节软件配置软件配置主要包括数据库选择、操作系统的选择、开发工具的选择。图书管理系统的软件配置要根据用户对系统的稳定性要求、系统的容量以及用户的维护水平来确定。用户习惯使用微软的Windows操作系统对Windows系统的操作比较熟悉，管理员维护Windows操作系统水平较好，因此推荐选择WindowsXP作为开发和测试平台，后期的运行环境也推荐选择WindowsXP系统。国际国内的主导关系型数据库管理系统有SQLServer、ORACLE、SYBASE、ACCESS和DB2。SQLServer是大中型数据库，可以适合大容量数据的应用。SQLServer具有功能强大，操作简单，易于维护等诸多优点，是每个企业开发系统的优先选择对象，而其提供的友好界面，能使普通的管理人员快速入手，所以我选择了SQLServer2005作为系统的数据库。5SQLServer2005还为您的数据管理与分析带来了灵活性，允许单位在快速变化的环境中从容响应，从而获得竞争优的记录保持者，SQLServer2005是一个具备完全Web支持的数据库产品，提供了对可扩展标记语言(XML)的核心支持以及在Internet上和防火墙外进本系统所使用的开发工具是VisualBasic2008。VisualBasic2008是MicrosoftVisualStudi个开发系统。是一个用于快速开发基于Windows的客户机/服务器应用程序的高效工具，与以前各版本相比VisualBasic2008具有以下新特点：①提供了高效能的源码编译器，使应用程序得到优化；②提供了新的比其他数据访问接口更加方便，更加全面的数据访问接口——ADO(ActiveXDataobject),能访问除了标准的关系型数据库(如AccessFoxproSQLserver等)中的数据库外，还能访问邮件数据，Web上的文本或图③提供了动态的HTML页面设计器；④提供了WEBCAASS设计器；⑤提供了高效的帮助环境；②面向对象的程序设计；③事件驱动的编程机制；⑤支持大型数据库的连接与存取操作。6发，鉴于VisualBasic有如此强大的功能，我选用MicrosoftVisualBasic2008本管理系统是一款图书馆管理系统，所涉及的功能为图书馆相关的一切事录(方便记忆)和特色的即时即用图书馆管理系统聊天功能(实现互动交流);理方面更加的安全可靠。系统的角色(身份)分为两种：超级管理员与系统管理7第二章可行性分析和需求分析(1)基本建设投资(2)其他一次性支出(3)非一次性支出年。也就是说，开发本系统能开始获益是1年左右的时间。8在学校课程中，我已基本掌握了结构化查询语言SQL,并能熟练使9在开发一个软件之前一定要确定它是否触犯某项法律或与国家的相关规定次性最多能借3本书，期限也为30天。如果两者的同时拥有书的数量已经达到没有超过图书过期时间，则信誉度相应的加1,如果还书者的借书时间超过图书过期时间，则信誉度相应的减5,当信誉度的等级到0时，对于该借书者不能在从根本上说，管理就是一个更好的利用资源(人、财、物、时间),为企业等),充分了解原系统(手工系统或计算机系统)工作概况，明确各种需求，然供货商信息管定单验收在学生信息录入之前应先设置好学生的种类以及一些相关信息然后进行学生信息的录入，学生信息保存在“xueshengbiao”表中，进行学生信息的管理；另外一个需要数据输入的地方为供货商的录入，供货商信息保存在“ghs”表中，根据供货商的信息进行供货商的管理。根据以上这些信息进行图书采购的定单的填写，图书采购定单保存在最后根据入库图书的类别设置进行图书信息管理，书库信息保存在“shukubiao”中。第三章系统设计为两类查询：全部图书信息查询和已借图书查询(关键字是是否在库)。当图书员)之间的简单聊天交流。供货商管图3-2供货商管理模块的子功能如图3-3所示：供货商管理首首次合作基础数据模块主要功能有库存商品和往来单位，如图3-5所示：基本信息锁机图3-7第二节数据库设计根据上面的实力设计规划出的实体有：图书信息实体、学生信息实体、借阅图书介绍姓名Jy(借阅信息)联系人供货商序号联系人Orders(定单信定单序号H定单序号姓名姓名借书Ghs(供货商信息表2-4-1:shukubiao书库图书信息表列名数据类型说明图书序号图书的编号，唯一书号图书书号书名书名类别图书类别出版社出版社作者作者图书ISBN号印张图书印张字数字数版次图书版次印数印数定价图书定价开本开本是否在库是否在书库中的标志是否损坏是否损坏的标志是否遗失是否遗失的标志入库时间图书入库的日期图书介绍图书的简单介绍表2-4-2:xueshengbiao书库图书信息表列名数据类型说明学生序号学生的编号，唯一学号学号，不唯一姓名学生姓名性别性别系别学生系别班级学生所在班级级别学生的级别，表示借书的能力已借图书已经借过图书多少本照片存放学生照片的路径表2-4-3:jh借阅信息表列名数据类型说明图书序号图书序号学生序号学生序号书名书名姓名学生姓名学号学号书号书号系别学生系别班级学生班级已借图书学生已经借阅的图书数量出版社出版社作者图书作者借阅日期借阅日期图书类别图书类别是否归还该书是否归还续借该书是否续借过表2-4-4ghs供货商信息表列名数据类型说明供货商序号供货商序号供货商供货商城市城市地址地址电话电话传真传真邮政编码邮政编码联系人联系人首次合作时间首次合作时间表2-4-5orders定单信息表列名数据类型说明定单序号定单序号书名书名类别类别出版社出版社作者作者印张印张字数字数版次版次开本开本印数印数定价定价详细信息详细信息供货商序号供货商序号供货商供货商联系人联系人城市供货商城市订购数量订购数量订购价格订购价格交付方式交付方式交货日期定单验收的日期书号书号定单日期定单填写的日期是否验收定单验收的标志验收日期定单验收日期表2-4-6gqs过期书信息表列名数据类型说明图书序号图书序号书名书名书号书号学生序号学生序号学生姓名学生姓名系别系别班级班级过期时间过期的天数表2-4-7password]员工信息表列名数据类型说明姓名员工姓名员工序号员工序号密码密码类别员工权限级别性别性别家庭住址家庭住址联系电话联系电话职务职务出生日期出生日期照片存放员工照片的路径表2-4-8jhfk罚款信息表列名数据类型说明流水号流水号罚款原因罚款原因罚款金额罚款金额日期日期登录否成功?足选降操作类型得到返回结果否是结束订单昏理因书昏理供费商旨理油助功能用户名埋基础势作第四章系统实现第一节主窗体主窗体是本图书管理系统的核心所在，它上面是所有功能模块信息的汇总。信息统计、快速锁机。快捷栏分为：系统快捷栏、信息拓展栏。公告栏：游动显示你当前添加的备忘信息。系统主界面如图4-1所示：系统(S)查询S)管理G)统计T)数据Q)帮助HD图书信息查间序号问题E总第二节登录界面管理系统。登录界面实现的功能有：验证用户名和密码是否正确、游动显示信息“请您先登录本系统”、记住登录成功后的用户名(可以对已经登录成功的用登录窗体效果如下图4-2所示：图书馆图书馆营理系统登录：图4-2登录窗口如果输入的用户名或密码错误，则出提示错误信息，如图4-3所示：用户名：yy图4-3登录窗口(用户名或密码错误)图书信息收索、图书册数统计、图书信息填充(包含是否在库、是否损坏、是否遗失、到期时间)、图书借阅、续借图书等。借书系统效果如下图4-4所示：书院已借图书书号搜卡请您录入要借的图书书号在库；造失羊羊大蒜素图书类别科技类数学类学(工)号：出版社力量同方书名美女与时代查若日历措书机器热S图4-4借书系统书书中类别作小构期机器热街选择图书是计期料核类数学西西建先方森图4-5还书系统生信息查询；如图4-6,4-7,4-8所示：书号名称出板壮书号书名图书类别出版壮作者ISDN印张同方羊半制作小问期断华维克电子类强强合心2同方中号镝公最入要置的能书号说m图4-6图书信息查询教职工信良查询已借图书已借图书已僧图书；姓名生别务出生日期家庭佳址信用等级教职王照片序号工工号姓名帐号性别职务出生日期图4-7教职工信息查询联资就近回)关闭心学生信性别图4-8学生信息查询加；如图4-9,4-10,4-11所示：类别9版型定价8其要书介绍(100宁以内出版社图4-9图书信息添加请在下面导入完善的员工信息基主言层一密码职务创建时间交取当前g加6关阳的图4-10员工信息添加士营点一类别字数图4-11订单信息添加除；如图4-12,4-13,4-14所示：中度2就血1谓2输入善查出nmt的号图4-12图书信息删除B来疏官理乃图4-13员工信息删除原订单行吗价格收图十5名称图十5名称序号输入要查找的订单序号图4-14订单信息删除改；如图4-15所示：19喜请体入省Tnai书书图4-15图书信息修改图书信息的统计；帮助系统的实现，如图4-16所示：图书类别分类统计式饼形图数学类文学类2图4-16图书统计A、备忘录效果图(4-17):备它备它dd清主(@关田标题(20字以内)内容(200字以内)图4-17备忘录实现功能就是不同用户之间的信息交流，效果图(4-18)图4-18聊天窗口绍。在这里简单列出，如图(4-19)群罐面锁机密码修改界面确认密码第五章系统的测试第一节测试的基本层次步骤地继续。每个系统又由许多模块组成。因此，系统的测试的基本层次如图5-1所示。概要设计详细设计图5-1测试的基本层次②借还图书③书库维护④图书采购⑤学生及供货商管理①登陆功能测试测试数据：输入用户名(系统管理员、超级管理员),输入密码符合要求，能够完成学校(企业)对相关信息的增、删、改、查，同时也能保证附录源代码置True,弹起为FalseAsSystem.Windows.Forms.MouseEventArgs)HandlesContrlBar.MousEndIfPrivateSubContrlBar_MouseUp(ByVSystem.Windows.Forms.MouseEventArgs)HandlesContrlBa有拖动System.EventArgs)HandlesMe.Shown'Labeljishu.Visible=Falseid=sa;password=;initialsource=(local)”sqlcmdYidenglu.CommandText="select*frommydaptYidenglu.SelectCommandmydaptYidenglu.Fill(mydsYidenglu,"TABIfmydsYidenglu.Tables("TABLEyidenglu").Rows.Count=0ThenComboBoxAccountID.Items.Add(”<空>")ComboBoxAccountID.Items.Add(mydsYidenglu.TabNextComboBoxAccountID.Items.Add("<清空用户名列EndIfAsSystem.EventArgs)HandlesButtonCancle.ClickIfMsgBox(”-您确定要退出使用本系统?"&vbCrLf&"-欢迎再次使用!",MsgBoxStyle.OkCancel,"退出信息")=MsgBoxResult.0kThenEndIfPrivateSubButtoSystem.EventArgs)HandlesButton0K.ClicksqlconLianjie.ConnectionString="userid=sa;password=;initsource=(local)”sqlcmdLianjie.CommanwhereAccountID='"&ComboBoxAccountID.Text&"’andPassword='"&TextBoxPassword.Text&””sqlcmdLianjie.ConnectiomydaptLianjie.SelectCommand=sqlcmdLianjiemydaptLianjie.Fill(mydsLianjie,"TasqlcmdJiance.CommandText="select*fromTAwhereAccountID='”&ComboBoxAccountID.Text&””mydaptJiance.SelectmydaptJiance.Fill(mydsJiance,"TAIfComboBoxAccountID.Text=""ThenMsgBox("-用户名不能为空"&vbCrLf&"-请您输入正确的用ElseIfTextBoxPassword.Text=””ThenMsgBox(”-密码不能为空"&vbCrLf&"-请您输入正确的密码!",MsgBoxStyle.OkOnly,"信息")ElseIfmydsLianjie.Tables("TableInformation").Rows.Count='Iftrycount=3ThenMsgBox(“-您的累计错误登录次数达到3次”&vbCrLf&"-系统将自动关闭!",MsgBoxStyle.OkOnly,"信息")'EndIfIfMsgBox("-用户名或密码不存在入!",MsgBoxStyle.OkOnly,"错误")=MsgBoxResult.OkThenComboBoxAccountID.Text=””EndIfMessageBoxButtons.OK,MessageBEndIfElseIfmydsJiance.Tables("TABLEyidenglu").Rows.Count=0IfMsgBox("登录成功，欢迎使用!",MsgBoxStyle.OkOnly,"信息")=MsgBoxResult.OkThenmydsLianjie.Tables("TableInformation"sqlcmdXieru.CommandTextmydsLianjie.Tables("TableInformation").Rows(0)(1)&“)”sqlcmdXieru.Connection=sqlconLianjiesqlcmdXieru.ExecuteNonQuery()’该情况为满足正确名(防止重复添加)ComboBoxAccountID.TeEndIfIfMsgBox("登录成功，欢迎使用!",MsgBoxStyle.OkOnly,”信息")=MsgBoxResult.0kThenmydsLianjie.Tables("TableInformation"FMain.ToolStripLabeshenfen.Text=mydsLianjie.Tables("TableInformation"FMain.ToolStripLabelmingzi.Text=mydsLianjie.Tables("TableInformation"EndIfEndIfIfComboBoxAccountID.Text="<清空用户名列表>”Then’当选择(清空用户名列表)时，所执行的操作。IfMsgBox("你确定要清空用户名信息吗?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThensqlcmdqk.CommandText="deletefromTABLEyidenglu"TABLEyidenglu”’重新加载已经登录成功的用户名(此时已经为空)。mydaptJiazai.SelectCommand=sqlcmydaptJiazai.Fill(mydsJiazai,"TAIfmydsJiazai.Tables("TABLEyidenglu").Rows.Count=ComboBoxAccountID.Items.Add(”<空>mydsJiazai.Tables("TABLEyidenComboBoxAccountID.Items.Add(mydsJiazai.TablNextComboBoxAccountID.Items.Add("<清空用户名列表>")EndIfmydaptJiazai.SelectCommand=sqlcmydaptJiazai.Fill(mydsJiazai,"TAIfmydsJiazai.Tables("TABLEyidenglu").Rows.Count=ComboBoxAccountID.Items.Add("<空>")’如果数据库中没有记录，列表值为(空)mydsJiazai.Tables("TABLEyidenglu").Rows.CountComboBoxAccountID.Items.Add(mydsJiazai.Table’列表值中添加用户名NextComboBoxAccountID.Items.Add("<清空用户名列表>")EndIfEndIfEndIfIfLabelmessage.Left+Labelmessage.Width>0ThenLabelmessage.Left=PictureBox1.WidthEndIf’判断条件，设置动态文本：请您先登录本系统System.EventArgs)HandlLabeljishu.Text=“10”IfLabeljishu.Text>=0ThenIfLabeljishu.Text=0ThenIfMsgBox("谢谢使用本系统!",MsgBoxStyle.OkOnly,"信息")=MsgBoxResult.OkThenEndIfEndIfEndIfsqlconys.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”mydaptys.Fill(mydsyIfComboBoxAccountID.Text="superadministrator"AndMsgBox(”登录成功，欢迎使用!”,MsgBoxStyle.OkOnly,”信息")FMain.ToolStripLabeshenfen.Text="超级管理员"mydsys.Tables("ID").RowEndIf主窗体ImportsSystem.DataPrivateSubFormMain_FormClosing(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.FormClosingEventArgs)HandlesMe.FormClosingIfguanbi=TrueThenEndIfSystem.EventArgs)HandlesMe.WindowState=FormWindowState.MaximizedTimerjcbw.EnabledIfMe.WindowState=FormWindowState.MaximizedThen’设置窗体控件位置和大小GroupBoxliaotian.LeftGroupBoxliaotian.TopTextBoxfasong.LeftButtonfasong.LeftButtonfasong.Height=23TreeViewAll.HeightElseIfMe.WindowState=FormWindowState.NormalThenGroupBoxliaotian.LeGroupBoxliaotian.Top=300GroupBoxliaotian.Width=Me.Width-197TextBoxjieshou.HeightTextBoxjieshou.Width=MTextBoxfasong.Height=21TextBoxfasong.Width=Me.Width-350Buttonfasong.Top=350PictureBoxbw.Top=49GroupBoxliaotian.LeTextBoxjieshou.HeightTextBoxfasong.Width=Me.Width-350Buttonfasong.Top=350PictureBoxbw.Top=49TreeViewAll.Height=Me.Height-86EndIfvbCrLf&""'TextBoxfasong.Text="请输入150字以内的聊天内容”PrivateSub注销ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles注销System.Object,ByValeAsSystem.EventArgs)Handles退出PrivateSub设置密码ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDimmydsszAsNewDataSetsqlconsz.ConnectionString="usercatalog=EmployeesInformation;datasource=(local)”sqlcmdsz.CommandTextAccountID='”&LabelAccountID.Text&”’”sqlcmdsz.Connection=sqlconszmydaptsz.SelectCommand=sqlcmdszmydaptsz.Fill(mydssz,"TableIn’加载当前用户下的所有信息Ifmydssz.Tables("TableInformation").Rows(0)(11).ToString=""Then’判断当前用户下是否设置了锁机密码IfMsgBox("-您还没有设置锁机密码”&vbCrLf&"-请您现在设置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenLockFormSet.ShowDialog()’锁机密码设置窗体显示EndIfIfMsgBox("您已经设置了锁机密码",MsgBoxStyle.OkOnly,"信息")=MsgBoxResult.OkThen设置密码ToolStripMenuItem.Ena密码了密码。则设置密码选项变为不可用EndIfEndIfSystem.Object,ByValeAsSystem.EventArgs)Handles锁机点击锁机的事件DimsqlconsjAsNewSqlConnDimmydaptsjAsNewSqlDataAAccountID=’”&LabelAcco="userid=sa;password=;initialsource=(local)”="select*fromTableInformationwheremydaptsj.SelectCommamydaptsj.Fill(mydssj,"TableInIfmydssj.Tables("TableInformation").Rows(0)(11).ToStringIfMsgBox("-您还没有设置锁机密码”&vbCrLf&"-请您现在设置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThen示EndIfEndIfPrivateSub修改密码TooSystem.Object,ByValeAsSystemsqlconxg.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”AccountID='”&LabelAccountID.Text&”’”sqlcmdxg.Connection=sqlcmydaptxg.Fill(mydsxg,"TableInIfmydsxg.Tables("TableInformation").Rows(0)(11).ToStringIfMsgBox("-您还没有设置锁机密码”&vbCrLf&"-请您现在设置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen示EndIfEndIfSystem.Object,ByValeAsSystem.EventArgs)Handles取消密码sqlconqx.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”sqlcmdqx.CommandText="select*fromTableInformationwhereAccountID='”&LabelAccountID.Text&”’”mydaptqx.Fill(mydsqx,"TableInfIfmydsqx.Tables("TableInformation").Rows(0)(11).ToStringIfMsgBox("-您还没有设置锁机密码”&vbCrLf&“-请您现在设置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenLockFormSet.ShowDialog()锁机密码设置窗体EndIf示EndIfPrivateSubToolStripButtonsuoji_Click(ByValsesqlconksj.ConnectionString="userid=sa;password=;inicatalog=EmployeesInformation;datasource=(local)”sqlcmdksj.CommandText="select*fromTableInfowhereAccountID='”&LabelAccountID.Text&”’”sqlcmdksj.Connection=mydaptksj.SelectCommanmydaptksj.Fill(mydsksj,"TableIIfmydsksj.Tables("TableInformation").Rows(0)(11).ToString在设置",MsgBoxStyle.0kCancel,"信息")=MsgBoxResult.0kThenLockFormSet.ShowDialog()锁机密码设置窗体显示EndIfEndIfPrivateSub员工信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles员工信息添加IfToolStripLabeshenfen.Text="超级管理员"ThenAddYGFormInfor.ShowDMsgBox("只有超级管理员才能进行此操作",MsgBoxStyle.OkOnly,"信息")员工信息添加ToolStripMenuItem.EnabledEndIfWeekdayName(Weekday(Today))’获取日期和当前星期ToolStripLabeshijian.Text=TimeOfDay()’获取当前时间PrivateSub学生信息添加ToolStripMenuItem_Click(ByValAsSystem.Object,ByValeAsSystem.EventArgs)Handles学生信息添加AddStuFormInfor.ShowDPrivateSubToolStripButtonAddsAddStuFormInfor.ShowDPrivateSub编辑公告栏ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventPrivateSub查看公告栏ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles查看公告栏sqlconbj.ConnectionString="userid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”AccountID='”&LabelAccountID.Text&””sqlcmdbj.Connectionmydaptbj.SelectCommand=sqlcmdbjmydaptbj.Fill(mydsbj,"TableI’加载当前用户下的所有信息Ifmydsbj.Tables("TableInformation").Rows(0)(14).ToString=""Then’判断当前用户下是否已经添加了备忘内容IfMsgBox("-您还没有添加任何备忘信息”&vbCrLf&"-是否现在添加?”,MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen加窗体显示EndIfViewFormBeiWang.ShowDialog()’示EndIfAddFormBeiWang.Showsqlconbj.ConnectionString="userid=sa;pcatalog=EmployeesInformation;datasource=(local)”mydaptbj.SelectCommamydaptbj.Fill(mydsbj,"TableIIfmydsbj.Tables("TableInformation").Rows(0)(14).ToStringIfMsgBox("-您还没有添加任何备忘信息"&vbCrLf&"-是否现在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen加窗体显示EndIfViewFormBeiWang.ShowD示EndIfPrivateSub图书信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles图书信息添加PrivateSub订单信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles订单信息添加IfToolStripLabeshenfen.Text="超级管理员"ThenAddFormDingdan.ShowDMsgBox("只有超级管理员才能进行此操作!",MsgBoxStyle.OkOnly,"信息")订单信息添加ToolStripMenuItem.Enabled=FalseEndIfPrivateSub供货商信息添加ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles供货商信息添加IfToolStripLabeshenfen.Text="超级管理员"ThenMsgBox(”只有超级管理员才能进行此操作!",MsgBoxStyle.0kOnly,"信息")供货商信息添加ToolStripMenuItem.EndIfPrivateSubTimerjcbw_Tick(ByValDimmydsjcbwAsNewDataSetid=sa;password=;initialcatalog=Emplosource=(local)”whereAccountID='"&LabelAccountID.Text&”’”mydaptjcbw.SelectCommanmydaptjcbw.Fill(mydsjIfmydsjcbw.Tables("bw").Rows(0)(14).ToString=""ThenLabemessage.Text=”(当前无任何备忘信息)”&"谢谢您选择本系统，本系统开发人员祝你工作愉快!”mydsjcbw.Tables("bw").Rows(0)(14).ToString&””&"--谢谢您选择本系统，本系统开发人员祝你工作愉快!"EndIfIfLabemessage.Left+Labemessage.Width>0ThenLabemessage.Left=Labemessage.Left-3EndIfsqlconts.ConnectionStrsource=(local)”mydaptts.Fill(mydsts在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThenEndIfEndIfAsSystem.Object,ByValeAsSystem.EventArgs)Handles员工信息删除catalog=EmployeesInformation;datasource=(local)”mydaptsc.SelectCommIfToolStripLabeshenfen.Text<>"超级管理员"ThenMsgBox(”只有超级管理员才能进行此操作!",MsgBoxStyle.OkOnly,"信息")员工信息删除ToolStripMenuItem.Enabled=False何信息IfMsgBox("-没有任何员工信息”&vbCrLf&"-是否现在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenAddYGFormInfor.ShowDiEndIfEndIfPrivateSub学生信息删除ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles学生信息删除sqlconxs.ConnectionString="userid=sa;password=;initialcatalog=StudentInformation;datasource=(local)”sqlcmdxs.CommandText="select*fromsqlcmdxs.Connection=sqlconxsmydaptxs.SelectCommand=sqlcm息时IfMsgBox("-没有任何学生信息”&vbCrLf&“-是否现在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenAddStuFormInfor.ShowDEndIfEndIfPrivateSub订单信息删除ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles订单信息删除ToolStripMenuItem.Clicksqlcondd.ConnectionString="userid=sa;password=;initialcatalog=DingDanInformation;datasource=(local)”TABLEdingdanInformation”mydaptdd.SelectCommand=sqlcmdddmydaptdd.Fill(mydsdIfToolStripLabeshenfen.Text<>"超级管理员"ThenMsgBox(”只有超级管理员才能进行此操作!",MsgBoxStyle.OkOnly,"信息")订单信息删除ToolStripMenuItem.Enabled=False何信息IfMsgBox("-没有任何订单信息"&vbCrLf&"-是否现在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenAddFormDingdan.ShowDEndIfEndIfPrivateSub供货商信息删除ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles供货商信息删除ToolStripMenuItem.ClickDimmydaptghsAsNewSsqlconghs.ConnectionString="userid=sa;password=;catalog=GHSInformation;datasource=(local)”sqlcmdghs.CommandText="select*fromTABLEGHSInformation"sqlcmdghs.Connection=sqlcmydaptghs.SelectCommand=sqmydaptghs.Fill(mydsghIfToolStripLabeshenfen.Text<>"超级管理员"ThenMsgBox(”只有超级管理员才能进行此操作!",MsgBoxStyle.0kOnly,"信息")任何信息IfMsgBox("-没有任何供货商信息”&vbCrLf&"-是否现在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThenEndIfEndIfAsSystem.Object,ByValeAsSystem.EventArgs)Handles图书信息修改XIUGAIFormBook.ShowDiPrivateSubToolStripMenuItem19_Click(ByVaAddFormTeacher.ShowPrivateSubToolStripMenuItem20_Click(ByValsencatalog=StudentInformation;datasource=(local)”mydaptjzg.SelectCommmydaptjzg.Fill(myds信息时添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.AddFormTeacher.ShowEndIfEndIfPrivateSubToolStripAsSystem.Object,ByValeAsSystem.EventArgs)Handles员工"信息")AsSystem.Object,ByValeAsSystem.EventArgs"信息")"信息")PrivateSub供货商信息修改ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles供货商信息修改MsgBox("请您综合利用添加和删除功能!",MsgBoxStyle.0kOnly,"信息")PrivateSub图书信息查询ToolStripMenuItem_Click(ByVaAsSystem.Object,ByValeAsSystem.EventArgsPrivateSub借书ToolStripMenuItem_Click(ByValsenSystem.Object,ByValPrivateSub还书ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EvPrivateSub教职工信息查询ToolStripMenuItem_CliAsSystem.Object,ByValeAsSystem.EventArgs)Handles教职工信息查询PrivateSub学生信息查询ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles学生信息查询PrivateSubTreeViewAll_AfterSelect(ByVSystem.Object,ByValeAsSystem.Windows.Forms.TreeViHandlesTreeViewAl1.AfterSeleIfTreeViewAl1.SelectedNode.Name="jdtuichu"ThenIfMsgBox("您确定要退出使用系统吗?",MsgBoxStyle.OkCancel,"退出")=MsgBoxResult.OkThenEndIfElseIfTreeViewAl1.SelectedNode.Name="jdquxiao"Thensqlconqx.ConnectionString="uid=sa;password=;initialcatalog=EmployeesInformation;datasource=(local)”whereAccountID='”&LabelAccountID.Text&“”mydaptqx.SelectCommand=sqlcmdqxmydaptqx.Fill(mydsqx,"TableInmydsqx.Tables("TableInformation").Rows(0)(11).ToString=””Then您现在设置",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.0kThen窗体显示EndIf体显示EndIfwhereAccountID='“&LabelAccountID.Text&””mydaptbj.SelectCommamydaptbj.Fill(mydsbj,"TableIIfmydsbj.Tables("TableInformation").Rows(0)(14).ToString=“”Then判断当前用户下是否已经添加了备忘内容IfMsgBox("-您还没有添加任何备忘信息"&vbCrLf&"一是否现在添加?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen息添加窗体显示EndIfViewFormBeiWang.ShowDialog()’备忘信息查看窗体显示EndIfElseIfTreeViewAl1.SelectedNode.Name="jdtianjia"ThenTextBoxhuizong.Visible=FalseAddStuFormInfor.ShowDElseIfTreeViewAl1.SelectedNode.Name="jdchaxun"ThenElseIfTreeViewAl1.SelectedNode.Name="jdtushu"ThenMessageBox.Show(”实现该功能需要预定，谢谢!","信息",MessageBoxButtons.OK,MessageBoxIcoElseIfTreeViewAl1.SelectedNode.Name="jdxuhao"ThenTextBoxhuizong.Visible=TrueTextBoxhuizong.Text="序号分类：”&vbCrLf&"序号分&"快速获取方法，点击获取直接生成。手动录入序号，当自动生成的序号存在时。”&vbCrLf&“解决方案请具体参考帮助与支持。”ElseIfTreeViewAl1.SelectedNode.Name="jdsuoji"ThenTextBoxhuizong.Text="锁机介绍：”&ybCrLf&"锁机功能由锁机界面、密码设置、密码修改、取消密码四块组成”&vbCrLf&"锁机功能用途；”&vbCrLf&"暂时锁定系统，方便你的离开，而且不用退出系统重复登录”ElseIfTreeViewAl1.SelectedNode.Name="jdliaotian"ThenTextBoxhuizong.Text="在聊天文本框输入msgclr快速清空所有聊天信息”&vbCrLf&"小提示：选中聊天内容按住鼠标左键向下拖动可以"&vbCrLf&"显示未显示完的聊天信息!”ElseIfTreeViewAl1.SelectedNode.NameTextBoxhuizong.Text=TrueTextBoxhuizong.Text="打印功能只有在超级管理员的身份EndIf'PrivateSubTextBoxfasong_MouseClick(ByValByValeAsSystem.WIfTextBoxfasong.Text="请输入150字以内的聊天内容"ThenEndIfByValeAsSystem.EventArgs)HandlesButtonfasong.ClickIfMsgBox("您要清空聊天信息吗?",MsgBoxStyle.OkCancel,"信息")=MsgBoxResult.OkThen窗口”&vbCrLf&""="图书馆管理系统即时即用聊天窗口”&vbCrLf&“”EndIf信息")IfTextBoxfasong.Text=""Then容"Then信息")ElseIfTextBoxfasong.Text="请输入150字以内的聊天内DimmydaptjcfsAsNewSqlDataAdapTABLEtalking”=sqlconfsmydaptjcfs.SelectCommanmydaptjcfs.Fill(mydsjcIfmydsjcfs.Tables("jclt").Rows.Count=0Thensqlcmdfs.CommandText="insertintoTABLEtalkingvalues(’"&ToolStripLabelmToolStripLabeshijian.Text&”’,'"&TextBoxfasong.Text&")”MsgBox("请等待......",MsgBoxStyle.OkOnly,”信息")EndIfEndIfEndIfAsSystem.EventArgs)HandlesTimerjieshou.Tick’在定时器的TICK事件中从聊天信息数据库中加载信息DimsqlconjsAsDimsqlcmdjcjsAsNewSqlDimmydsjcjsAsNewDataSetDimmydaptjcjsAsNewSqlDataAdaptersqlconjs.ConnectionString="userid=sa;pcatalog=Talking;datasource=(local)”mydaptjcjs.Fill(mydsjc不为空时，把信息加载到LISTBOX中a=“”&vbCrLf&"--"&ybCrLf&mydsjcjs.Tables("jclt").Rows(0)mydsjcjs.Tables("jclt").Rows(0)(1)&vbCrLf&”"&mydsjcjs.Tables("jclt").RTextBoxjieshou.Text=b&a’TEXTBOX获取聊天内容'textboxjieshou.Items.Add(mydsjcjs.Tables("jclt").Rows(0)(0)&":"&”"&mydsjcjs.Tables("jclt").Rows(0)(1))'textboxjieshou.Items.Add(”mydsjcjs.Tables("jclt").EndIfsqlcmdqk.CommandText="deletefromTABLEtalking"'PrivateSubTextBoxfasong_T