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俄罗斯方块游戏设计+文献综述

基于android的环境信息管理系统设计

ASP.NET飞翔租贷汽车公司信...

java+mysql文星酒店客房管理系统设计

java的B2C型电子商务网站管理系统的设计

局域网管理系统的设计与实现

医疗公众号管理系统设计+源代码

Android药品公司管理系统的设计+源代码

浅谈高校行政管理人员的...

基于Joomla平台的计算机学院网站设计与开发

提高教育质量,构建大學生...

压疮高危人群的标准化中...

从政策角度谈黑龙江對俄...

STC89C52单片机NRF24L01的无线病房呼叫系统设计

浅论职工思想政治工作茬...

AES算法GPU协处理下分组加...

上海居民的社会参与研究

酵母菌发酵生产天然香料...