企业工资管理系统的开发,标签：计算机论范文,毕业论文范文,http://www.dxs56.com
　　工人信息表(personnel.dbf)(包括编号,姓名,性别,工作岗位,工龄,工资等级)。
　　图6-1为本系统中工人信息的实体集及有关属性的图例：
　　6.1.2实体和实体之间的关系E-R图如图6-2：
　　6.2系统中有关数据库表结构设计如下：
　　部门表
　　字段名 类型 宽度 小数位数 索引
　　部门 字符型 10
　　部门工资 数值型 10 2
　　2．工龄表
　　字段名 类型 宽度 小数位数 索引
　　工龄 数值型 10  索引
　　工龄工资 数值型 10 2
　　3．员工信息表
　　字段名 类型 宽度 小数位数 索引
　　序号 数值型 10  主索引
　　姓名 字符型 6
　　性别 字符型 2
　　岗位 字符型 10
　　工龄 数值型 5
　　工资等级 字符型 5
　　6．3系统模块设计举例
　　下面对本系统的具体的几个模块做详细说明。
　　1、系统主程序MAIN.PRG
　　clear screen
　　clear events
　　set defa to d:\qygz
　　open database database\salary
　　do salary\main.mpr
　　do form salary\form\ksjm
　　read events
　　2、Ksjm.frm
　　(1)打开表单设计器，设计好表单，并且设置好必要的属性，设计结果见图6-3。
　　Form1.load事件代码:
　　public i
　　i=0
　　Timer.timer事件代码:
　　if Thisform.Label1.Left<0-Thisform.Label1.Width
　　Thisform.Label1.Left=Thisform.Width+3
　　Endif
　　Thisform.Label1.Left=Thisform.Label1.Left-10 www.dxs56.com
　　I=I+10
　　If I>=255*2-6
　　I=0
　　Endif
　　(2)“员工基本信息“按钮的CLICK事件为：
　　do form salary\form\personnel
　　personnel.frm的有关设计见第3目
　　图6-3
　　（3）“工资基本设定“按钮的CLICK事件为：
　　do form salary\form\dataformat
　　（4）“工资汇总“按钮的CLICK事件为：
　　do form salary\form\result
　　（5）“个人工资查询“按钮的CLICK事件为：
　　do form salary\form\grcx
　　（6）“退出“按钮的CLICK事件为：
　　thisform.release
　　clear events
　　3． personnel.frm的有关设计：
　　(1)打开表单设计器，设计好表单，并且设置好必要的属性，设计结果见图6-4。
　　Form1.init事件代码:
　　set multilocks on
　　cursorsetprop("buffering",3)
　　(2) thisform.pageframe1.page1.command1.click事件代码：
　　thisform.pageframe1.page1.fy1.enabled=.F.
　　thisform.pageframe1.page1.command2.enabled=.F.
　　thisform.pageframe1.page1.command3.enabled=.F.
　　thisform.pageframe1.page1.command4.enabled=.T.
　　if thisform.pageframe1.page1.command1.caption='增加新记录'
　　thisform.pageframe1.page1.txtpid.enabled=.T.
　　thisform.pageframe1.page1.txtpname.enabled=.T.
　　thisform.pageframe1.page1.txtp***.enabled=.T.
　　thisform.pageframe1.page1.txtpjob.enabled=.T.
　　thisform.pageframe1.page1.txtpindate.enabled=.T.
　　thisform.pageframe1.page1.txtprank.enabled=.T.
　　append blank
　　thisform.pageframe1.page1.command1.caption='增加确认'
　　thisform.pageframe1.page1.refresh
　　thisform.pageframe1.page1.txtpid.setfocus
　　else
　　getid=alltrim(thisform.pageframe1.page1.txtpid.value)
　　getname=alltrim(thisform.pageframe1.page1.txtpname.value)
　　get***=alltrim(thisform.pageframe1.page1.txtp***.value)
　　getjob=alltrim(thisform.pageframe1.page1.txtpjob.value)
　　getindate=alltrim(thisform.pageframe1.page1.txtpindate.value)
　　getrank=alltrim(thisform.pageframe1.page1.txtprank.value)
　　if empty(getid) or empty(getname) or empty(get***) or empty(getjob) or empty(getindate) or empty(getrank) www.dxs56.com
　　messagebox("资料不足",48,"错误")
　　else
　　thisform.pageframe1.page1.command1.caption='增加新记录'
　　tableupdate(.t.)
　　thisform.pageframe1.page1.txtpid.enabled=.F.
　　thisform.pageframe1.page1.txtpname.enabled=.F.
　　thisform.pageframe1.page1.txtp***.enabled=.F.
　　thisform.pageframe1.page1.txtpjob.enabled=.F.
　　thisform.pageframe1.page1.txtpindate.enabled=.F.
　　thisform.pageframe1.page1.txtprank.enabled=.F.
　　thisform.pageframe1.page1.fy1.enabled=.T.
　　thisform.pageframe1.page1.command2.enabled=.T.
　　thisform.pageframe1.page1.command3.enabled=.T.
　　thisform.pageframe1.page1.command4.enabled=.F.
　　endif
　　endif
　　4．工龄工资设定窗体代码:
　　1.”修改”按钮有关代码:
　　thisform.grdgongling.column1.text1.enabled=.T.
　　thisform.grdgongling.column2.text1.enabled=.T.
　　thisform.grdgongling.column1.text1.setfocus
　　2.”修改确认”按钮有关代码:
　　thisform.grdgongling.column1.text1.enabled=.F.
　　thisform.grdgongling.column2.text1.enabled=.F.
　　3.”添加” 按钮有关代码:
　　append blank
　　go bottom
　　thisform.grdgongling.column1.text1.enabled=.T.
　　thisform.grdgongling.column2.text1.enabled=.T.
　　thisform.grdgongling.column1.text1.setfocus
　　4.”删除” 按钮有关代码:
　　thisform.grdgongling.recordsource=''
　　use gongling exclusive
　　delete from gongling where gname=getgname
　　pack
　　thisform.grdgongling.recordsource='gongling'
　　thisform.grdgongling.refresh
　　5.”退出” 按钮有关代码

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9]  下一页