3.3.1 建立数据库
利用Microsoft Access建立数据库,名称为“companyht.mdb”。
3.3.2 建立数据表
根据系统功能模块的需要,再companyht.mdb数据库中建立4个表。
(1) 用户表
该表存放用户登录信息,名称为“用户”,结构如表3.2所示。
表 3.2 用户表
字段名 类型 大小 说明
用户名 文本 255 主键
密码 文本 255
权限 文本 255
(2)客户信息表
该表存放每个客户的信息,名称为“客户信息”。结构如表3.3所示。
表 3.3 客户信息表
字段名 类型 大小 说明
客户编号 文本 2 主键
客户姓名 文本 255
公司名 文本 255
(3)合同信息表
该表存放各个客户的合同标号和合同名称。标的名称为“合同信息”,表结构如表3.4所示。合同编号由4位数字组成,前两位和客户编号相同,后两位为此客户的合同序号。
表 3.4 合同信息表
字段名 类型 大小 说明
合同编号 文本 4 主键
合同名称 文本 255
客户编号 文本 2
(4)项目信息表
该表存放每个合同中的项目编号和项目名称。表的名称为“项目信息”,表结构如表3.5所示。项目编号由6位数字组成,前2位为客户编号,中间2位为合同编号,最后2位为本合同中的项目编号。
表 3.5 项目信息表
字段名 类型 大小 说明
项目编号 文本 6 主键
项目名称 文本 255
合同编号 文本 4
3.3.3 建立数据表表间关系
上述4个表之间有一定的关联,为了保证数据参照完整性,应当建立表间关系。个表之间的关系如图3.14所示。
图 3.14 数据表表间关系
4 系统实现
4.1 登陆界面实现
图 4.1 登陆界面实现
当用户单击确定按钮后,用SQL语句查询“用户”表中是否有相符的用户名和密码,若不符合,则提示重新输入,焦点返回文本框。如果3次输入错误,则退出系统。若输入正确,将用户名和用户权限保存在全局变量中,显示系统主窗体,卸载本窗体。单击取消按钮时结束程序运行。
系统登录的代码实现:
Private Sub Form_Initialize()
ChDrive App.Path
ChDir App.Path
End Sub
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdOk_Click()
Static interr As Integer
Dim strUser As String, strPass As String, strSQL As String
strUser = Trim$(txtUserID.Text)
strPass = Trim$(txtPassword.Text)
strSQL = "SELECT * FROM 用户 WHERE 用户名='" & strUser & "' AND 密码='" & strPass & "'"
- 上一篇:ASP.net实验室建设与实习基地信息库系统的建设与实施
- 下一篇:Flash俄罗斯方块游戏设计+文献综述
-
-
-
-
-
-
-
十二层带中心支撑钢结构...
河岸冲刷和泥沙淤积的监测国内外研究现状
中考体育项目与体育教学合理结合的研究
大众媒体对公共政策制定的影响
酸性水汽提装置总汽提塔设计+CAD图纸
电站锅炉暖风器设计任务书
乳业同业并购式全产业链...
java+mysql车辆管理系统的设计+源代码
当代大学生慈善意识研究+文献综述
杂拟谷盗体内共生菌沃尔...