VB公司合同管理系统开发与设计(11)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
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 & "'" (责任编辑：qin) |