型
Short
1:薪水帐目;2:部门代码;3:职务代码;4:职称代码
3
Mc
参数名称
Alpha(30)
4
Czy
操作员
Alpha(20)
5
Czsj
操作时间
Alpha(19)
6
Rela
费用影响关系
Short
-1代表该项目对实发工资是负的影响;
1代表该项目对实发工资是正的影响;
3.2.6工资短信表
序号
域名
域中文名
域类型
备注
1
ygh
员工号
Alpha(6)
主键
2
sfgz
实发工资
Alpha(10)
说明:基本参数表用于维护系统的一些基本参数,例如职务,职称,工资帐目等、部门。
员工信息表和员工薪金结构表通过员工ID进行关联;可得知每个员工的工资明细情况;
员工薪金结构表中的帐目ID在基本参数表中进行定义;
员工信息表的职务ID和职称ID和部门ID也在基本参数表中进行定义;
工资短信表:是为便于发送工资短信信息而建立的,只保存当前月的工资数据。
第四章 详细设计
根据需求分析、概要设计的结果,采用Delphi做为开发工具,实现公司人事工资管理各模块的功能。
4.1启动界面设计
4.1.1 功能说明
系统运行时,首先弹出启动窗口,4秒钟后自动关闭出现主窗口和登录窗口,实现此界面主要是修改了工程文件,并调用了一个延时函数,实现起来很简单,源程序不加以介绍。
4.2 登录窗口设计
4.2.1功能说明
控制员工登录,防止非法用户闯入本系统,保证系统的安全,输入口令时屏幕显示为"*"以利保密。
4.2.2屏幕格式设计
登录界面
4.2.3源程序分析
procedure TFrm_dl.Button1Click(Sender: TObject);
begin
if edit2.text='' then //判断密码是否输入为空
begin
Application.MessageBox('密码不能为空,请重新输入!','系统提示',mb_IconInformation+mb_OK);
Edit2.SetFocus;
Exit;
end;
query1.
sql.clear;
query1.sql.add('select pswd from yhklb where dlyh='+''''+trim(edit1.text)+'''');
if query1.Active then
query1.close;
query1.open; //根据用户名从用户口令表中取出用户口令
if edit2.text<>query1.fieldbyname('pswd').asstring
then
begin
if err_cou=2 then //判断是否三次输入错误
begin
application.messagebox('三次登录的用户名或密码错误',' 系统退出',mb_IconInformation+mb_OK);
frm_main.close; //关闭主窗口,退出系统
end;
Application.MessageBox('密码或工号不正确','请重新输入!',mb_IconInformation+mb_OK); //若密码输入错误,提示重新输入
Edit2.SetFocus;
err_cou:=err_cou+1; //输入次数加1
exit;
end;
dluser:=edit1.text; //给变量赋值,记录登录用户,供其它程序使用
Close;
end;
4.3 主窗口设计
4.3.1功能说明
界面可同时打开几处子窗口体,在界面上放置了菜单栏和工具栏、状态栏;菜单栏集中了系统操作的入口,各功能模块的执行从此进入;工具框显示了系统菜单中常用项目的快键图标,使用户只需点击相应图标即可进入相应功能模块,当鼠标移动到相应图标时,系统会出现提示信息。状态栏主要是用于显示日期时钟信息,以及系统操作过程中的信息。
4.3.2源程序分析
procedure TFrm_main.N20Click(Sender: TObject); //菜单关闭事件
begin
close;
end;
procedure TFrm_main.N_shutd
相关热词:delphidelphi 人事 工资 管理 系统 论文