工资管理信息系统

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,兰州理工大学国际经济管理学院杨文黎,系统实施举例,工资管理系统,1,2,3,主表单的“Init”事件程序：,wdpathname=“d:工资系统数据库,set default to &wdpathname,4,人员增删表单：,5,6,“第一个”按钮的Click事件程序：,go top,thisform.refresh,thisform.cmdpre.enabled=.f.,thisform.cmdnext.enabled=.t.,thisform.cmdbottom.enabled=.t.,7,“前一个”按钮的Click事件程序：,skip -1,if bof(),this.enabled=.f.,thisform.cmdtop.enabled=.t.,thisform.cmdnext.enabled=.t.,thisform.cmdbottom.enabled=.t.,else,this.enabled=.t.,thisform.cmdtop.enabled=.t.,thisform.cmdnext.enabled=.t.,thisform.cmdbottom.enabled=.t.,endif,thisform.refresh,8,“后一个”按钮的Click事件程序：,skip,if eof(),this.enabled=.f.,thisform.cmdtop.enabled=.t.,thisform.cmdpre.enabled=.t.,thisform.cmdbottom.enabled=.t.,else,this.enabled=.t.,thisform.cmdtop.enabled=.t.,thisform.cmdpre.enabled=.t.,thisform.cmdbottom.enabled=.t.,endif,thisform.refresh,9,“后一个”按钮的Click事件程序：,go bottom,thisform.cmdtop.enabled=.t.,thisform.cmdpre.enabled=.t.,thisform.cmdnext.enabled=.f.,thisform.refresh,10,“添加”按钮的Click事件程序：,append blank,thisform.refresh,11,“删除”按钮的Click事件程序：,result=messagebox(你真的要删除这条记录吗?,4+32+256,警告),if result=6,delete,pack,thisform.refresh,endif,12,“退出”按钮的Click事件程序：,thisform.release,IF USED(月工资表),SELECT 月工资表,USE,ENDIF,13,wait window “,正在进行月初始化.,nowait,use,月工资表,replace all,房租,with 0,托儿费,with 0,医药费,with 0,set safety off,copy to,扣款表,fields,部门,姓名,房租,托儿费,医药费,set safety on,USE,14,扣款输入表单：,15,扣款输入表单的,Init,事件程序：,thisform.grid1.recordsource=扣款表,16,17,wait window ,正在计算实发工资,.,nowait,select 2,use,扣款表,set safety off,index on,姓名,TO,姓名索引,set safety on,select 1,use,月工资表,set order to 1,set relation to,姓名,INTO,扣款表,replace all,房租,with,扣款表.房租,托儿费,with,扣款表.托儿费,医药费,with,扣款表.医药费,replace all,实发工资,with,工资-房租-托儿费-医药费,USE,SELECT 2,USE,18,查询表单：,19,20,查询表单的Init事件程序：,public q1,bo1.value=1,21,22,if bo1.value=1,select,部门,姓名,房租,托儿费,医药费,实发工资,FROM,月工资表,WHERE,姓名,like thisform.text1.value INTO CURSOR q1,thisform.grid1.recordsource=q1,endif,if bo1.value=2,select,部门,姓名,房租,托儿费,医药费,实发工资,FROM,月工资表,WHERE,部门,like thisform.text1.value INTO CURSOR q1,thisform.grid1.recordsource=q1,endif,thisform.refresh,23,报表设计器：,24,25,打印按钮的Click事件程序：,report form 月工资报表 preview,26,大作业要求,1.作业字数不少于5000字,2.,内容主要包括：,（1） 系统概述：系统名称、企业现状概述、系统建立背景、意义,（2）信息系统的目标、规模、初步实现方案,（3）可行性分析,（4）新系统的业务流程、组织机构、数据流程、数据字典、数据概念模型、功能分解图、管理模型等,27,（5）新系统设计说明,软件总体结构、硬软件配置、数据库设计说明、输入/输出设计说明、代码设计说明、对话设计说明、系统流程设计说明等。,28,