|
3.2.4 Kjcsb控制参数表 序号 内容来自www.paper51.com 域名 内容来自www.paper51.com
域中文名 内容来自www.paper51.com 域类型 内容来自www.paper51.com
备注 内容来自论文无忧网 www.paper51.com 1 copyright paper51.com Yf paper51.com 序列 内容来自www.paper51.com Short paper51.com 主键 paper51.com 2 内容来自www.paper51.com Csdm copyright paper51.com 参数代码 http://www.paper51.com
Alpha(20) 内容来自www.paper51.com 3 paper51.com Csmc paper51.com 参数名称 http://www.paper51.com Alpha(40) http://www.paper51.com
4 http://www.paper51.com Czy 内容来自论文无忧网 www.paper51.com 操作员 copyright paper51.com
Alpha(6) paper51.com 5 paper51.com Czsj paper51.com 操作时间 http://www.paper51.com
Alpha(19) 内容来自论文无忧网 www.paper51.com 说明：控制参数表用于控制出盘，在每次出盘成功后，会在该表中插入一条记录，以记录该月是否已经出盘；在需要再次出盘的时候，系统将会首先判断该月的出盘标志，如果已经出盘，则对数据库不做操作，仅仅在界面上进行出盘，生成TXT文本文件，如果未出盘则需要对数据库进行操作（将该月的数据重新插入数据库，作为下个月出盘的初始数据） copyright paper51.com 3.2.5Jbcsb基本参数表 内容来自www.paper51.com 序号 http://www.paper51.com 域名 内容来自论文无忧网 www.paper51.com 域中文名 copyright paper51.com 域类型 copyright paper51.com 备注 内容来自论文无忧网 www.paper51.com
1 http://www.paper51.com ID 内容来自www.paper51.com
ID http://www.paper51.com
Short 内容来自论文无忧网 www.paper51.com 主键 内容来自www.paper51.com 2 内容来自www.paper51.com Lx copyright paper51.com
参数类型 内容来自www.paper51.com Short copyright paper51.com 1：薪水帐目；2：部门代码；3：职务代码；4：职称代码 copyright paper51.com
3 http://www.paper51.com Mc copyright paper51.com 参数名称 copyright paper51.com Alpha(30) 内容来自www.paper51.com 4 copyright paper51.com Czy 内容来自论文无忧网 www.paper51.com 操作员 paper51.com Alpha(20) http://www.paper51.com
5 http://www.paper51.com Czsj 内容来自论文无忧网 www.paper51.com 操作时间 copyright paper51.com Alpha(19) copyright paper51.com 6 paper51.com Rela copyright paper51.com 费用影响关系 http://www.paper51.com
Short http://www.paper51.com -1代表该项目对实发工资是负的影响； paper51.com
1代表该项目对实发工资是正的影响； 内容来自www.paper51.com 3.2.6工资短信表 copyright paper51.com 序号 http://www.paper51.com 域名 内容来自论文无忧网 www.paper51.com 域中文名 内容来自论文无忧网 www.paper51.com
域类型 copyright paper51.com 备注 内容来自论文无忧网 www.paper51.com 1 copyright paper51.com ygh paper51.com 员工号 内容来自论文无忧网 www.paper51.com
Alpha(6) 内容来自www.paper51.com 主键 paper51.com 2 copyright paper51.com sfgz paper51.com
实发工资 copyright paper51.com
Alpha(10) copyright paper51.com 说明：基本参数表用于维护系统的一些基本参数，例如职务，职称，工资帐目等、部门。 copyright paper51.com 员工信息表和员工薪金结构表通过员工ID进行关联；可得知每个员工的工资明细情况； 内容来自论文无忧网 www.paper51.com
员工薪金结构表中的帐目ID在基本参数表中进行定义； 内容来自论文无忧网 www.paper51.com 员工信息表的职务ID和职称ID和部门ID也在基本参数表中进行定义； 内容来自www.paper51.com 工资短信表：是为便于发送工资短信信息而建立的，只保存当前月的工资数据。 内容来自www.paper51.com
第四章 详细设计 内容来自www.paper51.com 根据需求分析、概要设计的结果，采用Delphi做为开发工具，实现公司人事工资管理各模块的功能。 内容来自www.paper51.com
4.1启动界面设计4.1.1 功能说明 http://www.paper51.com 系统运行时，首先弹出此启动窗口，4秒钟后自动关闭出现主窗口和登录窗口,实现此界面主要是修改了工程文件，并调用了一个延时函数，实现起来很简单，源程序不加以介绍。 内容来自www.paper51.com 4.1.2屏幕格式设计 http://www.paper51.com http://www.paper51.com 启动界面 内容来自www.paper51.com
4.2 登录窗口设计4.2.1功能说明 内容来自论文无忧网 www.paper51.com
控制员工登录，防止非法用户闯入本系统，保证系统的安全，输入口令时屏幕显示为“*”以利保密。 http://www.paper51.com
4.2.2屏幕格式设计 paper51.com
copyright paper51.com 登录界面 内容来自www.paper51.com 4.2.3源程序分析 内容来自论文无忧网 www.paper51.com
procedure TFrm_dl.Button1Click(Sender: TObject); 内容来自www.paper51.com begin paper51.com
if edit2.text='' then //判断密码是否输入为空 内容来自论文无忧网 www.paper51.com begin copyright paper51.com Application.MessageBox('密码不能为空，请重新输入！','系统提示',mb_IconInformation+mb_OK); paper51.com Edit2.SetFocus; 内容来自论文无忧网 www.paper51.com
Exit; 内容来自www.paper51.com end; copyright paper51.com query1.sql.clear; paper51.com query1.sql.add('select pswd from yhklb where dlyh='+''''+trim(edit1.text)+''''); paper51.com if query1.Active then 内容来自www.paper51.com
query1.close; copyright paper51.com query1.open; //根据用户名从用户口令表中取出用户口令 内容来自论文无忧网 www.paper51.com if edit2.text<>query1.fieldbyname('pswd').asstring 内容来自论文无忧网 www.paper51.com then http://www.paper51.com begin 内容来自论文无忧网 www.paper51.com if err_cou=2 then //判断是否三次输入错误 内容来自www.paper51.com begin 内容来自www.paper51.com application.messagebox('三次登录的用户名或密码错误',' 系统退出',mb_IconInformation+mb_OK); paper51.com frm_main.close; //关闭主窗口，退出系统 paper51.com end; http://www.paper51.com Application.MessageBox('密码或工号不正确','请重新输入！',mb_IconInformation+mb_OK); //若密码输入错误，提示重新输入 paper51.com
Edit2.SetFocus; http://www.paper51.com err_cou:=err_cou+1; //输入次数加1 copyright paper51.com exit; 内容来自www.paper51.com end; paper51.com dluser:=edit1.text; //给变量赋值，记录登录用户，供其它程序使用 paper51.com Close; paper51.com
end; copyright paper51.com 4.3 主窗口设计4.3.1功能说明 内容来自www.paper51.com 界面采用MDI方式，可同时打开几处子窗口体，在界面上放置了菜单栏和工具栏、状态栏；菜单栏集中了系统操作的入口，各功能模块的执行从此进入；工具框显示了系统菜单中常用项目的快键图标，使用户只需点击相应图标即可进入相应功能模块，当鼠标移动到相应图标时，系统会出现提示信息。状态栏主要是用于显示日期时钟信息，以及系统操作过程中的信息。 内容来自www.paper51.com 4.3.2屏幕格式设计 内容来自论文无忧网 www.paper51.com http://www.paper51.com 系统主界面 内容来自论文无忧网 www.paper51.com 4.3.3源程序分析 内容来自论文无忧网 www.paper51.com
procedure TFrm_main.N20Click(Sender: TObject); //菜单关闭事件 copyright paper51.com begin paper51.com close; copyright paper51.com end; paper51.com procedure TFrm_main.N_shutdownClick(Sender: TObject);件 内容来自论文无忧网 www.paper51.com begin //菜单退出系统并关机事件 http://www.paper51.com if messagedlg('是否退出并关闭计算机？',mtinformation,[mbyes,mbno],1)=mryes then paper51.com begin 内容来自论文无忧网 www.paper51.com close; http://www.paper51.com ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); //调用API函数 copyright paper51.com end; copyright paper51.com end; 内容来自论文无忧网 www.paper51.com procedure TFrm_main.N_closeClick(Sender: TObject); paper51.com begin copyright paper51.com close; paper51.com
end; paper51.com procedure TFrm_main.N_bmcxwhClick(Sender: TObject);//打开部门参数维护窗口 copyright paper51.com
begin paper51.com
Application.CreateForm(TFrm_bmxg, Frm_bmxg); copyright paper51.com if frm_bmxg.query1.active then frm_bmxg.query1.close; //判断Query是否打开 内容来自www.paper51.com frm_bmxg.query1.open; //打开Query 内容来自www.paper51.com end; 内容来自论文无忧网 www.paper51.com
procedure TFrm_main.N_zwwhClick(Sender: TObject); //打开职务参数维护窗口 paper51.com begin paper51.com
Application.CreateForm(TFrm_zwxg, Frm_zwxg); copyright paper51.com if frm_zwxg.query1.active then frm_zwxg.query1.close; http://www.paper51.com frm_zwxg.query1.open; copyright paper51.com end; 内容来自www.paper51.com procedure TFrm_main.N_ygjbxxsrClick(Sender: TObject);//打开新增员工信息窗口 copyright paper51.com
begin http://www.paper51.com Application.CreateForm(Tfrm_ygzbxxsr, frm_ygzbxxsr); http://www.paper51.com end; paper51.com
procedure TFrm_main.N_yhwhClick(Sender: TObject);//打开用户维护窗口 内容来自www.paper51.com
begin paper51.com Application.CreateForm(TFrm_yhgl, Frm_yhgl); http://www.paper51.com
if frm_yhgl.query1.active then frm_yhgl.query1.close; 内容来自论文无忧网 www.paper51.com frm_yhgl.query1.open; 内容来自论文无忧网 www.paper51.com end; paper51.com procedure TFrm_main.Timer1Timer(Sender: TObject); 内容来自www.paper51.com var y,m,d:word; //在状态栏上显示日期时间星期 paper51.com
begin 内容来自论文无忧网 www.paper51.com decodedate(now,y,m,d); http://www.paper51.com statusbar1.Panels[1].text:=concat('【',inttostr(y),'年',inttostr(m),'月',inttostr(d),'日 ',formatdatetime('hh:nn:ssAM/PM',now) ,f_get_week,'】');//调用函数f_get_week 内容来自论文无忧网 www.paper51.com end; copyright paper51.com
procedure TFrm_main.N_zcwhClick(Sender: TObject);//打开职称维护窗口 内容来自www.paper51.com
begin 内容来自www.paper51.com Application.CreateForm(TFrm_zcxg, Frm_zcxg); 内容来自www.paper51.com if frm_zcxg.query1.active then frm_zcxg.query1.close; copyright paper51.com
frm_zcxg.query1.open; copyright paper51.com end; 内容来自论文无忧网 www.paper51.com procedure TFrm_main.N_ygzbxxwhClick(Sender: TObject);//打开员工信息维护窗口 http://www.paper51.com
begin paper51.com
Application.CreateForm(Tfrm_ygzbxxwh, frm_ygzbxxwh); paper51.com
end; paper51.com
procedure TFrm_main.N_zbxxckClick(Sender: TObject); //打开员工信息查看窗口 http://www.paper51.com begin 内容来自论文无忧网 www.paper51.com Application.CreateForm(Tfrm_llygzbxx, frm_llygzbxx); 内容来自论文无忧网 www.paper51.com end; 内容来自论文无忧网 www.paper51.com procedure TFrm_main.N_tjcxClick(Sender: TObject); //打开员工信息条件查询窗口 内容来自www.paper51.com
begin paper51.com
Application.CreateForm(Tfrm_ygzlcx, frm_ygzlcx); 内容来自www.paper51.com end; 内容来自www.paper51.com procedure TFrm_main.N_gzzmwhClick(Sender: TObject);//打开薪水帐目维护窗口 内容来自论文无忧网 www.paper51.com
begin http://www.paper51.com Application.CreateForm(TFrm_gzzmwh, Frm_gzzmwh); http://www.paper51.com if Frm_gzzmwh.query1.active then Frm_gzzmwh.query1.close; paper51.com Frm_gzzmwh.query1.open; 内容来自www.paper51.com end; 内容来自www.paper51.com
procedure TFrm_main.N_cpClick(Sender: TObject); //打开出盘窗口 内容来自论文无忧网 www.paper51.com begin 内容来自www.paper51.com Application.CreateForm(Tfrm_cp, frm_cp); copyright paper51.com end; copyright paper51.com procedure TFrm_main.N_gzdxClick(Sender: TObject); //打开工资短信窗口 内容来自www.paper51.com begin 内容来自www.paper51.com frm_gzdx:=Tfrm_gzdx.create(application); copyright paper51.com frm_gzdx.showmodal; 内容来自www.paper51.com frm_gzdx.free; http://www.paper51.com end; http://www.paper51.com procedure TFrm_main.N_jsbClick(Sender: TObject); //打开写字板 paper51.com
begin http://www.paper51.com ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal);//调用API函数 内容来自论文无忧网 www.paper51.com end; http://www.paper51.com procedure TFrm_main.N_jsqClick(Sender: TObject); //打开计算器 http://www.paper51.com begin 内容来自www.paper51.com ShellExecute(handle,'open','calc.exe',nil,nil,SW_ShowNormal); http://www.paper51.com end; 内容来自论文无忧网 www.paper51.com
procedure TFrm_main.N_ppClick(Sender: TObject); //实现窗口平铺 http://www.paper51.com
begin 内容来自论文无忧网 www.paper51.com TileMode := tbVertical; copyright paper51.com
Tile; copyright paper51.com end; http://www.paper51.com procedure TFrm_main.N_cdClick(Sender: TObject); //实现窗口层叠 paper51.com begin paper51.com Cascade; 内容来自www.paper51.com end; 内容来自论文无忧网 www.paper51.com procedure TFrm_main.N_jxhClick(Sender: TObject); //实现窗口极小化 paper51.com var i:integer; copyright paper51.com
begin 内容来自论文无忧网 www.paper51.com with frm_main do copyright paper51.com begin 内容来自www.paper51.com for i := MDIchildcount-1 downto 0 do 内容来自论文无忧网 www.paper51.com MDIChildren[i].Windowstate := wsMinimized; 内容来自论文无忧网 www.paper51.com
end; 内容来自www.paper51.com
end; http://www.paper51.com procedure TFrm_main.N_aboutClick(Sender: TObject); //打开关于本系统窗口 paper51.com begin copyright paper51.com Application.CreateForm(Tfrm_about, frm_about); paper51.com end; paper51.com function Tfrm_main.f_get_week :string; //获取星期函数 copyright paper51.com
var copyright paper51.com days: array[1..7] of string; copyright paper51.com begin http://www.paper51.com
days[1] := '星期日'; 内容来自论文无忧网 www.paper51.com days[2] := '星期一'; 内容来自www.paper51.com days[3] := '星期二'; paper51.com days[4] := '星期三'; paper51.com days[5] := '星期四'; copyright paper51.com days[6] := '星期五'; copyright paper51.com
days[7] := '星期六'; paper51.com result :=days[DayOfWeek(now)]; 内容来自www.paper51.com end; http://www.paper51.com
procedure TFrm_main.N_ygzlbbClick(Sender: TObject); //生成企业员工花名册 内容来自论文无忧网 www.paper51.com begin 内容来自论文无忧网 www.paper51.com frm_ygbb:=Tfrm_ygbb.create(application); 内容来自www.paper51.com if frm_ygbb.Query1.active then frm_ygbb.Query1.close; copyright paper51.com
frm_ygbb.Query1.open; copyright paper51.com
frm_ygbb.QuickRep1.Prepare; 内容来自www.paper51.com frm_ygbb.QuickRep1.Preview; 内容来自www.paper51.com frm_ygbb.Free; paper51.com end; http://www.paper51.com procedure TFrm_main.N_rsqxfxClick(Sender: TObject); 内容来自www.paper51.com begin //打开人事状况曲线分析窗口 paper51.com Application.CreateForm(Tfrm_rsqkqxfs, frm_rsqkqxfs); copyright paper51.com if frm_rsqkqxfs.Query1.Active then frm_rsqkqxfs.Query1.Close; paper51.com frm_rsqkqxfs.Query1.open; copyright paper51.com end; http://www.paper51.com end. 内容来自论文无忧网 www.paper51.com 4.4人事管理模块的实现4.4.1员工基本信息输入4.4.1.1功能说明 http://www.paper51.com 完成新员工人事档案的建立，初始状态下所有输入和选择框框均无效，只有点新增按钮后才可用，同时提交按钮变成有效。 http://www.paper51.com 4.4.1.2屏幕格式说明 paper51.com http://www.paper51.com 新员工资料录入界面4.4.1.3源程序分析 内容来自www.paper51.com //增加按钮事件，只是将各输入框和提交按钮置为可用。 paper51.com
procedure Tfrm_ygzbxxsr.Button3Click(Sender: TObject); //提交按钮事件 http://www.paper51.com var Sql: String; 内容来自论文无忧网 www.paper51.com
qsrq,rzsj,czdate: String; 内容来自www.paper51.com begin 内容来自www.paper51.com qsrq:=FormatDatetime('YYYY-MM-DD',datetimepicker1.Datetime); //出生日期 copyright paper51.com rzsj:=FormatDatetime('YYYY-MM-DD',datetimepicker2.Datetime); //入职时间 内容来自论文无忧网 www.paper51.com
czdate := FormatDatetime('YYYY-MM-DD HH:MM:SS',Now); //操作时间 http://www.paper51.com if Application.MessageBox('您确认要提交吗？','系统提示',mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit; paper51.com begin http://www.paper51.com if (Edit1.text='') or (Edit2.text='') then paper51.com begin paper51.com Application.MessageBox('姓名不能为空或员工号不能为空!','系统提示',mb_IconInformation+mb_OK); http://www.paper51.com Exit; 内容来自论文无忧网 www.paper51.com
end; 内容来自论文无忧网 www.paper51.com if trim(DBLookupComboBox1.Text) ='' then begin showmessage('请选择部门');exit;end; http://www.paper51.com if trim(DBLookupComboBox2.Text) ='' then begin showmessage('请选择职务');exit;end; 内容来自论文无忧网 www.paper51.com
if trim(DBLookupComboBox3.Text) ='' then begin showmessage('请选择职称');exit;end; http://www.paper51.com sql:='select * from ygzlb where ygh='''+trim(edit1.text)+''''; //根据此员工号是否已存在 copyright paper51.com
query1.sql.clear; paper51.com query1.sql.add(sql); copyright paper51.com
if query1.Active then paper51.com query1.close; copyright paper51.com query1.open; http://www.paper51.com if not query1.isempty then http://www.paper51.com begin paper51.com showmessage('此员工号已存在，请重新输入员工号'); http://www.paper51.com
edit1.selectall; http://www.paper51.com edit1.setfocus; paper51.com exit; 内容来自论文无忧网 www.paper51.com end paper51.com else http://www.paper51.com begin //执行插入操作，往员工资料表中插入一条记录 copyright paper51.com sql:='insert into ygzlb(ygh,xm,xb,xl,qsrq,ssbm,zc,zw,rzsj,sfzh,jtzz,gdlxdh,' http://www.paper51.com +'sjhm,email,zzmm,yxbz,czy,czrq)' copyright paper51.com +'values('''+Trim(Edit1.Text)+''','''+trim(Edit2.text)+''',' 内容来自www.paper51.com +''''+combobox1.text+''','''+combobox3.text+''','''+qsrq+''','''+DBLookupComboBox1.keyvalue+''',' +''''+DBLookupComboBox3.keyvalue+''','''+DBLookupComboBox2.keyvalue+''','''+rzsj+''','''+edit3.text+''',' copyright paper51.com +''''+trim(edit4.text)+''','''+trim(edit7.text)+''','''+trim(edit6.text)+''','''+trim(edit5.text)+''',' paper51.com +''''+combobox2.text+''',1,'''+dluser+''','''+czDate+''')'; copyright paper51.com
query1.sql.clear; copyright paper51.com query1.sql.add(sql); copyright paper51.com query1.execsql; 内容来自论文无忧网 www.paper51.com if Application.MessageBox('该记录提交成功,继续提交吗?','系统提示',mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then 内容来自论文无忧网 www.paper51.com begin paper51.com
Button3.Enabled := False; http://www.paper51.com
Exit; copyright paper51.com end; 内容来自论文无忧网 www.paper51.com button1.Click; 内容来自论文无忧网 www.paper51.com end; paper51.com end; 内容来自论文无忧网 www.paper51.com end; copyright paper51.com |