VB实训报告

李树朔
-1-
《Visual Basic 程序设计》课程实习报告
设计技巧 数据表设计方法（减少冗余设计） 公共标准模块设计 MDI 窗体及子窗体设计 VB 菜单设计方法（对于“一般操作员”用户，有若干菜单项不可用） ADODC 控件设计方法 ADO 数据对象数据模型的设计方法 Select 查询的设计方法 DataGrid 控件设计方法 DataCombo 控件设计方法 统一的数据编辑设计方法 数据环境设计器 Data Environment 和数据报表 Data Rpeort 设计方法
法用户，调用 MDI 主窗体，若为非法用户，当登录超过三次后，退出程 序。 MDI 主窗体是一个多文档窗体，包含标题栏、菜单栏和状态栏。单击相 应的菜单命令，能完成相应功能： 图书借还管理：包括图书借阅处理、图书归还管理和退出三项功能。 图书入库和查找：实现图书信息的添加、修改、删除和查找功能。 读者登记和查找：实现读者信息的添加、修改、删除和查找功能。 打印：实现打印借书证、打印图书清单功能 设置系统用户：实现系统用户的添加、删除和修改功能
对象
属性
属性取值
Combo1
list
男/女
style
2 ‘dropdown list
Provider=Microsoft.jet.oledb.4.0 connectstring
Data source=lib.mdb;persist security info=false
Commandtype Adcmdtext
四、 实训内容及方法步骤
1、需求分析 设计的目的和意义
许多单位都建有图书馆，图书管理工作涉及图书入库和查询、读者登记 和查找、借书和还书等常见事务处理，采用手工操作，速度慢、效率低， 容易出差错，随着图书馆藏书量的剧增和读者人数的大增，有必要用现 代化的管理手段解决繁杂的图书管理工作，提高工作效率和服务质量。 因此，本案例针对以上需求，开发一个实用的图书管理系统，可供相关 单位参考使用。
用户登录 * Provider=Microsoft.Jet.OLEDB.4.0; Data Source=lib.mdb;Persist Security Info=False 2 Oper false
Frmlogin 界面设计如下图：
图 1 Frmlogin 窗体
MDIfrmMenu 窗体 MDIfrmMenu 中包含的主要对象及属性
Caption
…menu13
Caption
菜单 Menu2
Caption
Menu3
Caption
Menu4
Caption
…menu41
Caption
…menu42
Caption
Menu5
Caption
MDIfrmMenu 界面设计如下图：
图书归还管理 退出 图书入库和查找 读者登记和查找 打印 打印借书证 打印图书清单 设置系统用户
《Visual Basic 程序设计》
课程实习报告
实训题目：图书管理系统 实习时间：2013 年 6 月 班级名称：计算机 指导教师：xxx 老师 学生姓名：xxxxx
《Visual Basic 程序设计》课程实习报告
一、 实训课程与题目：Visual Basic 程序设计,图书管理系统的设 计与开发
表 8 MDIfrmMenu 属性
对象
属性
属性取值
mdifrmmenu
Windowstate
2 ‘maximized
Menu1
Caption
图书借还管理
菜单 …menu11
Caption
图书借阅管理
李树朔
-5-
《Visual Basic 程序设计》课程实习报告
…menu12
Caption
…menubar
Data source=lib.mdb;persist security info=false
Adodc1
Commandtype
表 6 oper 表结构
字段名称
字段类型
字段大小
允许空
用户名
文本
10
否
口令
文本
6
否
级别
文本
10
否
4、创建工程 创建 library.vbp 工程，工程中包括 module1.bas 模块，dataenvironment1.dsr、
datareport1.dsr、datareport2.dsr 三个设计器，以及 frmlogin.frm、MDIfrmmenu.frm 等九个窗体。
Adcmdtable
Recordsource Book
visible
False
Datagrid1
Datasource
Adodc1
Allowdelete
False
Allowupdate
False
李树朔
-8-
《Visual Basic 程序设计》课程实习报告
Allowaddnew caption
False 图书清单
表 10 FrmEdQuBook 属性
对象
属性
属性取值
Combo1
list
借/否
Adodc1
Connectstring Provider=Microsoft.jet.oledb.4.0
Data source=lib.mdb;persist security info=false
Commandtype
Allowdelete Allowupdate align
Adodc1
Connectstring visible
False False vbalignbottom Provider=Microsoft.jet.oledb.4.0 Data source=lib.mdb;persist security info=false False
李树朔
- 11 -
《Visual Basic 程序设计》课程实习报告
图 6 FrmEdQureader 界面
FrmEdreader 窗体 FrmEdreader 中包含的主要对象及属性
表 10 FrmEdreader 属性
对象
属性
属性取值
Combo1
List style
男/女 0
Provider=Microsoft.jet.oledb.4.0 connectstring
Hostingbutton.ico
Command1
Capton
确定
Command2
capton
取消
李树朔
-4-
《Visual Basic 程序设计》课程实习报告
Frame1 Text1(1)
Adodc1
capton Password Connectstring
Commandtype Recordsource visible
Allowaddnew False
caption
读者列表
rowsource
Adodc2
Datacombo1 listfield
部门名称
Байду номын сангаас
Boundcolumn Id
style
0
rowsource
Adodc3
Datacombo2 listfield
Id
Boundcolumn Id
style
0
FrmEdQureader 界面设计如下图：
Data source=lib.mdb;persist security info=false
Adodc2
Commandtype Adcmdtable
Recordsource Depart
visible
false
李树朔
- 10 -
《Visual Basic 程序设计》课程实习报告
Provider=Microsoft.jet.oledb.4.0 connectstring
图书编号 文本
10
否
出版社
文本
20
是
分类号
文本
16
是
定价
货币
默认
是
书名
文本
40
是
入库日期 日期\时间
8
是
作者
文本
16
是
Reader 表，结构如下：
借否
是\否
1
否
表 2 reader 表结构
字段名称 字段类型 字段大小 允许空 字段名称 字段类型 字段大小 允许空
借书证号 文本
18
否
级别代码 文本
Adodc1
Select * from reader,depart,rlevel where reader.部门代
Recordsource 码=depart.id and reader.级别代码=rlevel.id
visible
False
connectstring Provider=Microsoft.jet.oledb.4.0
二、 实训时间和地点：一周，学院微机室 三、 实训目的和要求
1、实训目的 通过《图书管理系统》应用软件程序设计，使学生掌握使用 Visual Basic6.0 进行系统开发设计的方法及步骤；学会在 VB 程序中访问数据库，添加、删除记 录，生成数据报表；学会 VB 可视化编程的方法和各种控件的应用；掌握 MDI 窗 体的设计方法；窗体中菜单栏、工具栏、状态栏的设计方法及代码编写、窗体的 添加载入、工程文件的编译、工程打包及文件展开安装等知识。 2、实训要求 设计《图书管理系统》应用软件，应能实现以下功能： 程序运行，首先调用登陆窗口，接受用户输入的用户名和密码，若为合
2、系统结构 结构图如下：
Frmlogin 窗体 MDIfrmmenu 窗体
图书借还管理 图书入库和查询
读者登记和查询
打印 设置系统用户
图书借阅 管理
图书归还 frmEdQuBook
管理
窗体
frmEdQuReade 窗体
借书证
借书清单
frmSetUser 窗体
frmBorbook Frmretbook Frmedbook
5、界面设计和属性设置 Frmlogin 窗体 Frmlogin 中包含的主要对象及属性
表 7 frmlogin 属性
对象
属性
属性取值
Capton
图书馆管理系统
Maxbutton
0 ＇false
Frmlogin
Minbutton
0 ＇false
Startupposition 2 ＇屏幕中心
icon
窗体
窗体
窗体
Frmedreader Datareport1 窗体
Datareport2
3、数据库设计 创建数据库 创建表
李树朔
-2-
《Visual Basic 程序设计》课程实习报告
Book 表，结构如下：
表 1 book 表结构
字段名称 字段类型 字段大小 允许空 字段名称 字段类型 字段大小 允许空
字段类型
字段大小
文本
4
文本
40
允许空 否 否
李树朔
-3-
《Visual Basic 程序设计》课程实习报告
Rlevel 表，结构如下：
表 5 rlevel 表结构
字段名称
字段类型
字段大小
ID
文本
4
借书总数
整型
默认
借书天数
整型
默认
过期罚款
货币
Oper 表，结构如下：
默认
允许空 否 否 否 否
FrmEdQuBook 界面设计如下图：
图 5 FrmEdQuBook 界面
FrmEdBook 窗体 FrmEdBook 界面设计如下图：
李树朔
-9-
《Visual Basic 程序设计》课程实习报告
图 6 FrmEdBook 界面
FrmEdQureader 窗体 FrmEdQureader 中包含的主要对象及属性 表 10 FrmEdQureader 属性
FrmBorBook 界面设计如下图：
图 3 FrmBorBook 窗体
FrmretBook 窗体
李树朔
-7-
《Visual Basic 程序设计》课程实习报告
FrmretBook 界面设计如下图：
图 4 FrmretBook 窗体
FrmEdQuBook 窗体 FrmEdQuBook 中包含的主要对象及属性
4
否
姓名
文本
16
否
已借书数 整型
默认
否
性别
文本
2
否
入库时间 日期\时间
8
否
部门代码
文本
4
否
Borrow 表，结构如下：
表 3 borrow 表结构
字段名称
字段类型
字段大小
借书证号
文本
18
图书编号
文本
10
借书日期
日期\时间
8
Depart 表，结构如下：
允许空 否 否 否
字段名称 ID
部门名称
表 4 depart 表结构
图 2 MDIfrmMenu 窗体
FrmBorBook 窗体 FrmBorBook 中包含的主要对象及属性
表 9 FrmBorBook 属性
对象
属性
属性取值
Caption
借书清单
Allowaddnew
False
李树朔
-6-
《Visual Basic 程序设计》课程实习报告
Datagridl
Data source=lib.mdb;persist security info=false
Adodc3
Commandtype Adcmdtable
Recordsource Rlevel
visible
False
Datasource Adodc1
Allowdelete False
Datagrid1 Allowupdate False