vb课设报告 许泽立

《vb课设报告 许泽立》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、长江大学工程技术学院VB语言程序设计课程设计报告（2011-2012学年第二学期）系(部)机械系专业班级机电专61003班学生姓名许泽立学号/序号201062348/23指导教师张国英（讲师）/肖雪（助教）完成时间2012年7月8日图书管理系统一、功能描述图书管理系统开发。系统开发的总的设计目标是实现图书管理的系统化、规范化和自动化，实现对图书资料的集中统一的管理。本系统主要实现对图书馆信息的管理，主要功能为管理有关读者，书籍，借阅和管理者的信息等。本系统结构分为读者信息管理模块，书籍信息管理模块，借阅信息

2、管理模块，管理者信息管理模块。读者信息管理部分有两方面的功能，可以浏览读者的信息，可以对读者信息进行维护。书籍信息管理可以浏览书籍的信息，可以对书籍信息进行维护。借阅信息管理可以显示当前数据库中书籍借阅情况，可以对借阅信息进行维护。管理者信息管理可以显示数据库中管理者的情况，可以对管理者信息进行维护。可见，本系统并不复杂，主要解决的问题是利用关键字对数据库进行查询。二、概要设计1、系统功能模块框图设计首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理按钮不可

3、用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。MDI主界面程序流程框图如图所示：退出图书归还情况管理管理登录登录界面2、数据库设计创建一数据库为mydb.mdb，该数据库共包含3张表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下：书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格；图1.书籍信息表图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期；图2.图书归还表图书借出表：图书编号、图书名、作者、

4、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。图3.图书借出表一、详细设计1、MDI主界面用户登录模块中登录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。（1）窗体截图图1MDI主界面.图2登录窗体1.功能实现用

5、户登录PrivateSubCommand1_Click()Dimmsg,style,title,responseIfText2.Text=111ThenMDIForm1.bj.Enabled=TrueForm3.HideElsemsg="密码错误，请重新输入。"style=4+16+356title="提示"response=MsgBox(msg,style,title)Ifresponse=6ThenForm3.ShowElseEndIfEndIfEndSub2、图书管理窗体.图3图书管理窗体1.功能实现

6、对图书信息添加PrivateSubCommand1_Click()SelectCaseCommand1.CaptionCase"添加"SelectCaseSSTab1.TabCase0Data1.Recordset.AddNewCase1Data2.Recordset.AddNewCase2Data3.Recordset.AddNewEndSelectSSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalseC

7、ommand1.Caption="确定"Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCase"确定"SelectCaseSSTab1.TabCase0Data1.UpdateRecordCase1Data2.UpdateRecordCase2Dat

8、a3.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TrueCommand1.Caption="添加"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueComm