VB图书管理系统源代码 第6页
创建数据库后，为Library数据库添加数据表，步骤如下。
(1)在服务器资源管理器中右击数据库Library下的“表”文件夹。在弹出的快捷菜单中执行“新建表”命令，出现表设计器。
(2)添加表的字段和其他详细资料。各表数据结构如下表所示。
表 名 列 名 数据类型 长 度 主 键
出版社信息 出版社名称 varchar 50 Yes
出版社地址 varchar 50
网址 char 50
E-mail char 50
读者信息 证号 int 4 Yes
姓名 varchar 20
联系方式 varchar 50
已借书数目 int 4
读者类别 int 4
能否借书 bit 1
密码 varchar 6
借阅信息 书号 char 10 Yes
证号 int 4 Yes
借阅日期 datetime 8
应归还日期 datetime 8
实际归还日期 datetime 8
续借 bit 1
书籍信息 书号 char 10 Yes
丛书系列 nchar 50
作者 nchar 50
责任编辑 nchar 50
字数 int 4
定价 money 8
出版时间 datetime 8
主题分类 nchar 50
二级分类 char 50
馆内借阅分类 int 4
总册数 int 4
库存量 int 4
出版社 varchar 50
书名 varchar 50
管理者信息 用户名称 char 20 Yes
密码 char 20
权限 int 4
表2.1 图书管理系统各表数据结构
2.2.3连接数据库
为数据库Library和本系统之间建立一个数据连接。
(1)在服务器资源管理器中右击“数据连接”节点。在弹出的快捷菜单中执行“添加连接”命令，打开Data Link Properties对话框。切换到Provider选项卡，选中列表框中的Microsoft OLE DB Provider for SQL Server项。单击“下一步”切换到Connection选项卡。
(2)在其中的第一个下拉列表框中选择数据库所在服务器名称。输入登录服务器信息后选择数据库Library，然后单击Test Connection按钮。如果测试成功，单击“确定”按钮。
2.3主窗体设计
创建一个新的“Windows应用程序”类型的项目，名为“图书馆管理”。将默认创建的窗体命名为“主窗体”，把“主窗体”作为本系统中的主界面。
在窗体中添加两个Pannel控件，7个Button控件和7个Linklabel控件。
2.3.1设计登录界面
设计登录界面,创建一个新的”Windows窗体”,名为登录,作为本系统的登录界面.在登录窗体上添加两个Label控件,两个Button控件和两个TextBox控件,添加控件后的窗体如图所示。
2.3.2添加数据组件
在工具箱中单击“数据”选项卡，添加OleDbDataAdapter组件。
(1)在工具箱中单击OleDbDataAdapter组件，在窗体任意位置拖动出一个虚框矩形后释放左键弹出“数据适配器配置向导”对话框。
(2) 单击“下一步”，在打开的对话框中选择前面建好的数据连接，然后单击“下一步”。
(3)选中“使用SQL语句”，然后单击“下一步”进入“生成SQL语句”对话框。
(4)在其中的多行文本框直接输入SQL语句“SELECT 管理者信息.* FROM 管理者信息”。
(5)单击“下一步”按钮，进入“查看向导结果”，单击“完成”按钮完成数据适配器配置。
配置数据适配器后，在主窗体上就会自动添加一个OleDbConnection控件。
2.3.3生成数据集
生成数据集的步骤如下:
(1)单击OleDbDataAdapter控件“属性”对话框中的“生成数据集”链接,打开“生成数据集”对话框。
(2)在其中选中“新建”单选按钮,并在其后面的文本框中输入“Lib管理者信息”。
(3)在“选择要添加到数据集中的表”列表框中列出了前面添加的OleDbDataAdapter组件所连接的表,选中该表名前面的复选框。
(4)选中“将此数据集添加到设计器”复选框，单击“确定”按钮
这样,将生成一个名称为“Lib管理者信息”的数据集,该数据集以文件形式存储,文件名为“Lib管理者信息.xsd”。而在项目中,添加了一个DataSet组件,名为“objLib管理者信息”。
在解决方案资源管理器中右击该项目，在弹出快捷菜单中单击“属性”菜单项。在打开的“属性页”对话框中的“启动对象”下拉列表框中选择“主窗体”选项。单击“确定”按钮，这样该项目启动时，就会从主窗体开始启动。
2.3.4设计代码
在程序运行过程中,如果想通过单击LinkLabel控件或Button控件进入系统中的各个功能模块(如显示读者信息等),就会弹出一个对话框要求输入用户名和密码.单击"确认"按钮,程序就会到数据库的"管理者信息"表中查找该用户名和密码是否存在.如果存在,允许进入功能模块.
完成登录功能的主要代码集中在UserCheck函数中.在程序运行过程中,在登录窗体的"用户姓名"和"用户密码"文本框中输入用户名和密码后,单击"确认"按钮就会触发UserCheck函数并执行其中的代码.如果UserCheck函数返回True,那么允许用户的操作;否则拒绝用户的操作请求.
在UserCheck函数中首先定义Login类型的变量dlg_Login,然后通过ShowDialog方法来显示登录窗体.如果用户在登录窗体中输入用户姓名和密码,并且单击了"确认"按钮,那么自动调用一个自定义函数LoadDataSet(),由此函数进行数据加载.如果出错,显示错误信息,回滚整个事务.
具体设计代码见附录1.1。
2.4 读者信息
在当前项目中添加一个“Windows窗体”，将窗体命名为“读者信息”。
2.4.1设计显示界面
在窗体上添加1个GroupBox控件，9个Button控件，5个TextBox控件，1个CheckBox控件和7个Label控件。
各按钮控件是为了执行相应的操作。各TextBox控件和CheckBox控件用来显示数据集中的数据，这个功能通过设置DataBindings属性来实现。
2.4.2添加数据组件
向窗体添加OleDbConnection组件，命名为OleDbConnection1后将其选中，在“属性”对话框的ConnectionString栏单击，选择所建数据库Library。
添加OleDbDataAdapter组件和生成数据集的方法步骤如2.3.2及2.3.3。
设置各TextBox控件的DataBinding属性来实现对数据集中数据的显示(以Edit证号为例)。
(1)选中“Edit证号”控件单击“属性”对话框。
(2)单击DataBinding属性前面的+号打开该属性的详细列表。
(3)设置Text属性：在该属性后面栏中单击并选择所对应字段。
(4)设置其他TextBox控件的DataBinding属性。
2.4.3功能实现
显示数据，添加读者，保存更改，记录定位的实现。
具体实现代码见附1.2。
“管理者信息”，“出版社信息”，“书籍信息”，“借阅信息”和该模块的设计思路及方法步骤完全一致，在此从略。
2.5 显示报表
在当前项目中添加一个“Windows窗体”，命名为“报表窗体”，该模块显示当前数据库中读者信息和借阅信息的报表。
在窗体上添加一个CrystalReportViewer1，它充当报表显示的窗体，然后在窗体中添加一个菜单，菜单中包括两个子菜单项—“读者信息”和“借阅信息”。
在程序运行中，如果单击“读者信息”菜单项，就会自动在窗体上显示“读者信息报表.rpt”：如果单击“借阅信息”命令就会自动在窗体上显示“借阅信息报表.rpt”报表。
2.5.1添加读者信息报表
(1)在开发环境中选择菜单“项目”中的“添加新项”对话框中选择Crystal Report选项。
(2)在“名称”文本框中输入报表名“读者信息报表.rpt”，单击“打开”按钮，就会弹出入图所示的“Crystal Report库”对话框。
(3)在其对话框中选择“使用报表专家”单选按钮，在“选择专家”列表框中选择“标准”选项，单击“确定”按钮，进入下一步。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
VB图书管理系统源代码 第6页下载如图片无法显示或论文不完整，请联系qq752018766
