利用VF设计人事管理数据库系统.doc

中国矿业大学矿业工程学院 实验报告 课程名称 数据库与运输信息系统 姓名 周轲雯 班级 交通运输10-1班 学号 日期 2013年6月 成绩 教师 王振军 超市管理系统设计 准备工作 1、建立文件夹 在系统的E盘建立一个文件夹用以存放此次设计的各种格式的数据、文件、程序等，文件命名为：超市管理系统。文件夹地址为：E:\超市管理系统 2、需求分析 在此系统中的数据库要包含：员工表，部门职位表，工资表，缺勤表，以及自由表操作员表。 数据库表： 员工表：员工编号，员工姓名，性别，出生日期，工作日期，学历，婚否，部门，职称，备注说明 部门职位表：部门名称，部门代号，职位名称，职位代号 工资表：员工编号，员工姓名，基本工资，津贴，奖金，应发工资，缺勤扣款，医疗保险，住房基金，所得税，实发工资，发出日期 缺勤表：员工编号，员工姓名，缺勤日期，缺勤类别 自由表： 操作员表：序号，操作员编号，操作员密码，操作员级别 数据库与表的创建 建立一个项目文件，文件名称为：超市管理系统，在此项目下建立“超市管理的人事管理系统”，在工具-选项中将默认目录设置为：e:\超市管理系统，将日期格式设置为年月日，24小时制，选择“年份”选项，选择“星期开始于”为“星期一”，设置为默认值。 在此数据库下建立各表。 员工表： 注一：依次设置标题为：员工编号，员工姓名，性别，出生日期，工作日期，学历，婚否，部门，职称，备注 注二：字段有效性规则设置为：xb字段为：xb=”男” or xb=”女” 部门职位表： 注一：字段标题依次设置为：部门名称，部门代号，职位名称，职位代号 注一：字段的标题依次设置为：员工编号，员工姓名，基本工资，津贴，奖金，应发工资，缺勤扣款，医疗保险，住房基金，所得税，实发工资，发出日期 缺勤登记表： 注一：字段的标题依次设置为：员工编号，员工姓名，缺勤日期，缺勤类别 操作员表： 查询与视图 在本程序中没有利用查询设计器来建设查询，而是利用表单来设立查询。由 于数据环境不是特别复杂，所以也并没有建立视图。 表单 操作员管理 数据环境为操作员表，文本框text2，text3的PasswordChar属性为“*” 命令按钮“确认”代码： public czybh,czymm,zcsrmm,czyjb czybh=thisform.text1.value czymm=thisform.text2.value zcsrmm=thisform.text3.value czyjb=thisform.text4.value locate for allt(操作员编号)==allt(czybh) if !eof() =messagebox(此编号已经存在，请重新输入！) thisform.text1.value= thisform.text1.setfocus else if czymmzcsrmm =messagebox(密码输入不一致，请确认！) thisform.text2.value= thisform.text3.value= thisform.text2.setfocus else insert into 操作员表(操作员编号,操作员密码,操作员级别) values (czybh,czymm,czyjb) =messagebox(输入成功！) endif endif thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= 命令按钮“退出”代码： thisform.release 修改操作员密码 数据环境为“操作员表”，文本框text1，text2，text3的PasswordChar属性为“*”。 命令按钮“确定”代码为： locate for 操作员编号=czybh if not allt(czymm)==allt(thisform.text1.value) =messagebox(原密码输入错误，请重新输入！) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus else if not allt(thisform.text2)==allt(thisform.text3)