系统运行环境与数据库设计.doc
文本预览下载声明
协管员工资管理信息系统实施报告
目录
系统运行环境设计在windows95平台下运行,程序设计语言选择Visual FoxPro 6.0。
系统的硬件要求为586微型计算机,8M以上的内存,500M以上的外存。
一.逻辑结构设计
此阶段的任务是把概念结构设阶段设计好的基本E-R图转换为与选用DBMS产品所支持的数据模型相符合的逻辑结构,其转换规则如下:
1. 对于1:1的联系可以转换为一个独立的关系模式,也可一与任意一端对应实体合并
2. 对于1:n的联系可以转换为一个独立的关系模式,也可一与
n意一端对应实体合并
3. 对于m:n的联系可以转换为一个独立的关系模式
4. 3个或3个以上实体间的一个多元联系可以转换为一个关系模式
5. 各实体分别转换为一个关系模式
因此由上一步E-R图可得到工资管理系统的关系模型为:
部门信息表(部门名称,部门人数,部门负责人)
协管员信息表(协管员编号,姓名,性别,年龄,出生日期,民族,,籍贯,工作时间)
考勤表(工作楼栋,出勤,请假,缺岗,日期)
奖惩表(工作楼栋,请假扣款,缺岗扣款,奖金,时间)
协管员工资表(工作楼栋,应得总计,扣除总计,实发工资)
用户表(用户号,用户名,密码,权限)
数据库物理设计
1.协管员信息表如表1
表1 协管员信息表
编号 属性 数据类型 长度 是否为空 1 协管员编号 char 10 否 2 姓名 char 10 是 3 性别 char 10 是 4 年龄 Int 4 是 5 出生日期 datatime 8 是 6 民族 char 10 是 7 籍贯 char 10 是 8 工作时间 datatime 8 是 2.部门信息表如表2
表2 部门信息表
编号 属性 数据类型 长度 是否为空 1 部门名称 char 10 否 2 部门人数 int 4 是 3 部门负责人 char 10 是
3.考勤表如表3
表3 考勤表
编号 属性 数据类型 长度 是否为空 1 工作楼栋 char 10 否 2 日期 datatime 8 否 3 出勤 int 4 是 4 请假 int 4 是 5 缺岗 Int 4 是
4.协管员工资表如表4
表4 协管员工资表
编号 属性 数据类型 长度 是否为空 1 工作楼栋 Char 10 否 3 应得工资 mony 8 是 3 扣除总计 mony 8 是 4 发实工资 mony 8 是
5.奖惩表如表5
表5 奖惩表
编号 属性 数据类型 长度 是否为空 1 工作楼栋 Char 10 否 2 请假扣款 mony 8 是 4 缺岗扣款 mony 8 是 5 奖金 mony 8 是 6 时间 Datatime 8 是
6.用户表如表6
表6 用户表
编号 属性 数据类型 长度 是否为空 1 用户号 Char 10 否 2 用户名 varchar 50 是 3 密码 int 4 是 4 权限 Char 10 是 三.系统实施
系统实施部分根据上一部分介绍的设计方案,完成了计算机系统的程序设计与调试、系统初始数据的录入以及向计算机系统的转换等工作。
在本工资管理系统里,初次使用系统通过运行比较简单的数据录入、工资查询,报表录入这样一些基本的操作,包括职工证号、姓名及其他信息对照表,部门代码表,以及其他固定数据。之后,如欲修改信息可通过数据维护进行修改。
若有工资变动,可通过建立扣款、补贴文件内各模块可进行当月扣款补贴等变动数据进行录入和修改。
3.1登录语句
Form1.init:
*open data .\data\zg-da
Form1.activate:
Thisform.txtpass.setfocus
Command2.click(进入系统):
If used(“setup”)
Sele setup
Eles
Use.\data\setup
Endif
Loca for itms=”password”
If found ()
If
Uppe (alltrim(thisform.txtpass.value))==upper(alltrim(valur))
Do form form\begin
Thisform.release
Else
E=messagebox(“口令错误请重新输入!”,0+48+0,”警告”)
Thisform.txtpass.setfocus
Endif
Else
Do form form\begin
Thisform.release
Endif
Command3.click(退出系统):
If type(“thisform.parent”)=”0”
Thisformset.release
Else
T
显示全部