是否更换配件
8
AccessoryList
Varchar200
更换配件的列表
9
Amount
Float
维修费用
10
CheckPerson
Varchar50
巡检人员
(5)设备移机表Movement,保存设备移机信息,结构如表2-5所示
表2-5表Movement的结构
编号
字段名称
数据类型
说明
1
MoveID
Int
记录编号,主键
2
DevNo
Varchar50
设备编号
3
MoveDate
Datetime
移机时间
4
Reason
Varchar200
移机原因
5
NewPlace
Varchar50
新布放地点
6
NewAdmin
Varchar50
新管理员
(6)设备报废表Discard,保存设备的报废信息,结构如表2-6所示。
表2-6表Discard的结构
编号
字段名称
数据类型
说明
1
DisID
Int
记录编号,主键
2
DevNo
Varchar50
设备编号
3
DisSum
Int
折算金额
4
Reason
Varchar200
报废原因
5
CreateDate
Datetime
申请时间
6
Username
Varchar40
申请人
7
Checker
Varchar40
审批人
8
CheckDate
Datetime
审批日期
9
Result
Varchar200
审批意见
10
Status
Varchar10
状态(申请、提交、同意、不同意、报废)
(7)用户信息表Users,保存系统用户星系,结构如表2-7所示。
表2-7表Users的结构
编号
字段名称
数据类型
说明
1
UserName
Varchar50
用户名,主键
2
UserPwd
Varchar50
密码
在表的结构表中定义了每个表的主键,为了规定各表之间的关系,还定义一组外键,如表2-8所示。
表2-8外键定义
关系名
主键表
主键字段
外键表
外键字段
FK_Device_BaseInfo
BaseInfo
InfoID
Device
TypeID
FK_Device_BaseInfo1
BaseInfo
InfoID
Device
EnterpriseID
FK_Device_BaseInfo2
BaseInfo
InfoID
Device
BranchID
FK_Maintenance_Device
Device
DevNo
Maintenance
DevNo
FK_
Device
DevNo
Check
DevNo
FK_
Device
DevNo
Movement
DevNo
FK_
Device
DevNo
Discard
DevNo
第三章设计工程框架
3.1工程中的模块
本工程包含如下几个模块:
*Const用来管理工程中的常量。
*DbFunc用来管理工程中与数据库操作相关的声明、变量和函数。
*GeneralFunc用来管理工程中一些通用的自定义函数。
*Variable用来管理工程中的全局变量。
3.2添加类模块
在工程中,需要为每一个创建一个类模块,将对此表的所有数据库操作封装在类中。在通常情况下,类的成员变量与对应的表中的字段名相同。
1)BaseInfo类用来管理表BaseInfo的数据库操作,它保存为BaseInfo.cls。
2)Devicees类用来管理表Device的数据库操作,它保存为Device.cls。
3)Maintenance类用来管理表Maintenance的数据库操作,它保存为Maintenance.cls。
4)Check类用来管理表Check的数据库操作,它保存为Check.cls。
5)Movement类用来管理表Movement的数据库操作,它保存为Movement.cls。
6)Discard类用来管理表Discard的数据库操作,它保存为Discard.cls。
7)Users类用来管理表Users的数据库操作,它保存为Users.cls。
第四章系统设计
当系统运行时,首先打开登录窗体,只有有权限的用户才能进入系统。登录成功后,将显示系统主界面。
4.1设计登录窗体
登录窗体的名称为FrmLogin,他的界面布局如图4-1所示。
图4-1登录窗体的界面布局
登录窗体的属性如表4-1所示。
表4-1设置登录窗体的属性
窗体属性
设置值
具体说明
名称
FrmLogin
设置窗体名称
BorderStyle
1-FixedSingle
设置窗体的边框属性
Caption
身份验证
窗体的标题条文本
ControlBox
False
取消控制按钮,防止用户通过控制按钮关闭对话框
StartUpPosition
2-屏幕中心
设置窗体弹出时,位置在屏幕中心
登录窗体中控件的属性如表4-2所示。
表4-2登录窗体包含的控件及其属性
对象名
属性
属性值
Label1
Caption
用户名
Label2
Caption
密码
TxtUser
Text
空
TxtPwd
Text
空
PasswordChar
*
Cmd_Ok
Caption
确定
Cmd_Cancel
Caption
取消
代码如下:
PrivateSubCmd_OK_Click()
DimjAsSingle
'数据有效性检查
I
上一篇:
VB银行代扣代发工资系统(论文和程序)
下一篇:
对硕士毕业生迁移失业目的地的实证研讨