职工工资管理系统论文x

职工工资管理系统论文x内容摘要：

atebase\。 在弹出的表设计器中填写表的内容，如图 16 所示。 9 图 16 设计表的内容 与 表 16 比较，可以发现表的字段名就是列名。 要注意的是在以后的编写程序中对数据库的数据的操作通常是引用表的字段，因此在设计字段是要挑选容易理解的名称。 字段设置完成后，单击“确定”按钮后为表输入数据。 各个功能模块的创建 经过前面对系统功能的分析，我们将企业工资管理系统分为 4 个模块：系统主界面、员工信息管理、工资基本设定和工资汇总。 为了让使用者有一个轻松操作的界面，系统的主界面设计要求界面友好、功能分块明确、美观大方。 下面将以主界面的设计为例，仔细讲解表单的创建。 首先， 展开项目管理器中的文档，选中表单，单击右侧“新建”按钮。 如图 17 所示。 10 图 17 新建表单 在弹出的对话框中单击“新建”按钮后，会弹出“表单设计器”的界面，如图 18 所示。 图 18 为设计的表单 可以根据界面的需要向其中添加控件如图 19 所示。 11 图 19 向表单中添加控件 更改各个控件的属性值为所属值，各更改值见表 17。 表 17 控件属性更改值 控件 Caption Alignment Picture Stretch Form1 企业工资管理系统 Label1 欢迎使用 2中央 Command 员工基本信息 Command 员工基本设定 Command 工资汇总 Command 个人工资设定 Command 退出 Image1 D:\salary\ 2变比填充 Caption属性表示控件的显示名，是为了使用者方便特意设计的名称， 为一些常用的提示信息。 Alignment为控件中 Caption的位置状态，对于 Label（标签），有“ 0左（缺省）”、“ 1右”、“ 2中央”等 3种设置。 另外，设置 Label的 Font（字体）和 Fontsize（字体大小）属性可以改变 Caption显示的字体及大小。 在 Picture中可以把控件的界面设为图象，以便使用者能更形象地使用所开发的软件。 对应 Image（图象）控件，则表示显示在其中的图象。 其属性值应为要显示的图象的路径和文件名。 并应设置其 Streth属性为“ 2变比填充”以使图象能正确显示。 更改之后的表单如图 110所示。 12 图 110 更改后的表单 要注意的是向容器中添加按钮时候 ，必须先添加容器，然后在容器单击鼠标右键，选择编辑，此时容器边缘变为绿色，表明此时容器正处于编辑状态。 此时添加按钮到容器中才能是按钮真正处于容器中，如果直接添加，则按钮实际上处于与容器同一层次上。 可以通过查阅表单的结构层次来理解，如图 111所示 图 111 表单中的控件的结构 控件添加结束后，表单并未完成设计，此时的表单运行后会发现只有一个空壳，单击其中的按钮没 有任何反应。 因此，此时需要为表单设计事件响应。 选中 Command1（按钮 1），双击后弹出控件“方法程序”对话框，如图 112所示 . 13 图 112 为控件Command1 设置Click 事件程序 填写代码如下： Do from salary\form\personnel *打开下级表单 pensonnel..scx, salary\form\personnel为 它的路径 对 Command2（按钮 2）、 Command3（按钮 3）、 Command4（按钮 4）、 Command5（按钮 5）、进行同样的操作。 Command2 的 Click 代码为： do form salary\form\dataformat *打开下级表单 dateformat Command3 的 Click 代码为： do form salary\form\result *打开下级表单 result Command4 的 Click 代码为： do form salary\form\grcx *打开下级表单 grect Command5 的 Click 代码为： clear events *释放表单，结束程序 为了使表单更富动感，这 里设计了一个闪烁效果，闪烁的对象为“ Label”。 选择 Timer（记时器）控件，双击后填写其 Timer 的事件代码： if i=0 =.F. *使 Label1 不可见 i=1 else =.T. *使 Label1 可见 i=0 endif 设置 Timer的 Interval属性为“ 750”。 其作用是控制 Timer的执行间隔时间，单位为 ms。 既是每隔 Timer控件的 Timer事件。 应用类型的方法还可 以随时间推移转变Image1控件里的图像。 14 注意 Timer事件代码中使用了变量 i来控制，因此应先声明该变量。 为表单的 Init事件添加代码： Public i i=0 *声明全局变量 i 到此为止，本程序的主界面已设计完成，记住要储存为“ D:\salary\form\”，以后设计的表单都会放在“ D:salary\form”目录下，以便其他程序员管理。 接下来进入其他表单的设计。 本模块包含的功能有：员工信息浏览、增加删除修改员工记录、根据查询条件查询员工记录、显示查询 结果。 要实现的功能较多，一个表单不可能容纳下所有空件，所以需要使用表单集或页框。 这里使用页框来实现。 新建表单 Personal,存储 ”D:\salary\form\”。 直接拉伸表单至合适大小。 向表单中加入控件，如图 113 所示 图 113 表单的基本控件 本表单需要对数据库中的表进行操作，因此必须将该表加入到表单的数据环境中。 在表单中单击鼠标右键，选择 ”Date Enviroment”（数据环境），在弹出的对话框中添加需要的表，如本表需要添 加表 ”Personnel”。 1.“一览”子页面的设计 将表单数据环境中的表 ”Personnel”的字段添加到表单中，如图 114 所示。 15 图 114 推拽字段到表单中 注意，此时添加到表单的字段处于与页框同一层次，将其添加到页框的子页面 1 种，对页框的操作方法与容器类似。 向子页面 1 中添加控件，如图 115 所示。 图 115 子页面 1 控件 下面列出更改值，如图表 18 所示 控件属性更改值表 控件 Caption Alignment PageCount FontSize Form1 员工信息 Label1 员工信息 2中央 Page1 一览 3 华文彩云 Command1 增加新记录 Command2 修改这条记录 Command3 删除这条记录 Command4 取消操作 16 Command5 退出 如图 115所示，该页面使用了，“类”，在 Visual FoxPro 中使用类可以大大节省开发时间，简化系统的设计工作，并方便系统的维护和修改。 如图 116 位添加的类 —— 导航条。 图 116 查询子页面 该导航条包含 4 个基本功能。 ●“上一个”按钮使记录后退一个； ●“第一个”按钮使记录后退至表首； ●“下一个”按钮使记录前进； ●“最后一个”按钮使记录前进至表尾； 下面给出按钮的 Click 事件代码。 按钮“上一个”的 Click 事件代码： Skip 1 *记录向后退一个 If bof() *判断是否为第一个记录，如是， bof()返回“真”（ .T.） Messagebox（＂ 已是第一个记录 ＂，＂ 48＂，＂ 信息窗口 ＂） =.f. =.f. skip else =.t. =.t. endif =.t. =.t. *根据实际情况给出各个按钮的状态 17 在按钮“第一个”的 Click 事件中输入如下 代码： goto top =.f. =.t. =.t. *根据实际情况给出各个按钮的状态 在按钮“下一个”的 Click 事件中输入如下代码： Skip If eof() *判断是否最后一个记录，如是， eof（）返回“真”（ .T.） Messagebox（＂ 已是最后一条记录 ＂ ,＂ 48＂ ,＂ 信息窗口 ＂） skip 1 =.f. =.f. else =.t. =.t. endif =.t. =.t. *根据实际情况给出各个按钮的状态 在按钮“最后一个”的 Click 事件如 下代码： goto bottom =.f. =.t. =.t. *根据实际情况给出各个按钮的状态 为保证表中的数据不被误操作修改，请将页面中的各文本框的“ Enabled”属性设为“ .F.”。 按钮“取消操作”的“ Enabled” 属性设为“ .F.”。 为“增添新记录”添加 Click 事件代码： =.F. *使导航条不可用 =.F. *使“修改”按钮不可用 =.F. *使“删除”按钮不可用 =.T. *使“取消”按钮可用 if =39。 增加新记录 39。 =.T. =.T. 18 =.T. =.T. =.T. =.T. *使各文本框可用 append blank *添加空行到表的末尾 =39。 增加确认 39。 *将本控件的 Caption 更改为“增加确认” *刷新本页面 *将鼠标焦点设定到文本框 1 else getid=alltrim() getname=alltrim() getsex=alltrim() getjob=alltrim() getindate=alltrim() getrank=alltrim() if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) *判断填入的资料是否齐全 messagebox(资料不足 ,48,错误 ) 如果错误，弹出提示对话框 else =39。 增加新记录 39。 *将本控件的 Caption 更改为“增加新记录” tableupdate(.t.) *表单的更改确认 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. *恢复本子页面的各控件的状态 endif endif 上段代码的功能是添加一个新的员工的信息到数据库中。 19 为“修改这条记录”按钮添加 Click 事件代码： =.F. *使“增加”按钮不可用 =.F. *使“删除”按钮不可用 =.T. *使“取消”按钮可用 =.F. *使导航条可用 if =39。 修改这条记录 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。 修改确认 39。 *文本框 1 获得鼠标焦点 else =39。 修改这条记录 39。 tableupdate(.t.) *更改确认 =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.F. =.T. *恢复本子页面各控件状态 endif 上段代码的功能是修改一个员工的信息并更新到数据库中。 为“删除这条记录”按钮添加 Click 事件代码： getid=alltrim() *获得输入的 id 信息 =39。 39。 =39。 39。 =39。 39。 =39。 39。 =39。 39。 20 =39。 39。 *先将表单中数据源断开 use personnel exclusive *以独占方式打开 set order to pid seek getid delete pack =39。 39。 =39。 39。 =39。 39。 =39。 39。 =39。 39。 =39。 39。 *将数据源重新接上 =.F. =.F. =.F. =.F. =.F. =.F. *设定各文本款为不可用，防止 bug出现 *本删除操作不可取消 上段代码的功能是删除一个员工的信息。