visualfoxpro6.0教程教学课件作者张力第八章数据库应用程序开发实例.pptVIP

下载本文档

1
0
约1.07万字
约 83页
2019-10-11 发布于广东
举报
版权申诉

visualfoxpro6.0教程教学课件作者张力第八章数据库应用程序开发实例.ppt

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

任务二系统设计 if yn==6 *——取消修改 tablerevert(.F.) *——表单进入浏览状态 thisform. bmodify=.F. thisform. setmode *——刷新表单 go bottom thisform.fefresh endif cmdexit_ click 上一页下一页返回任务二系统设计 yh=messagebox ( “确定退出”，4+32,”企业工资管理系统”) if yn==6 thisform. release endif 2.员工工资管理表单 (1)界面创建一个名为“salarystc.sex”的表单，在数据环境中添加salarystatic、staffinfo、postpay和salarytax表，用来完成员资管理.如图8-26所示上一页下一页返回任务二系统设计 (2)用到的主要控件及其部分属性(见表8-3) (3)编写表单代码本表单用来计算员工某年月工资、税金，需要用到两个自定义函数: ①函数salarystc 函数salarystc作用:统计公司所有人的工资。 salarystc函数在salarystc. prg文件中定义 function salarvstc (nvear , nmonth) select staffinfo go top localyghh，ygxm，gzyf, jhgz，gwgz，qtgz，kkje，gzze，sdse，sjgz，Y，1 上一页下一页返回任务二系统设计工资月份 1=alltrim(nyear) y=alltrim(nmonth ) gzyf = 1+“年”+y+“月” 循环统计每个人的工资情沉 do while. not eof( ) 员工编号 yghh = staffinfo.员工编号员工姓名 ygxm = staffinfo.姓名上一页下一页返回任务二系统设计基本工资 jbgz = staffinfo.基本工资岗位工资 gwgz=0 初始化变量 select postpay 查找岗位对应的岗位工资 locate for岗位名称=staffinfo.岗位名称找到相应的岗位 if found() gwgz = postpay.岗位工资 else 上一页下一页返回任务二系统设计没有找到取第1条记录 select postpay go top gwgz = postpay.岗位工资 endif qtgz=0 kkje=0 工资总额 gzze = jhgz+gwgz 上一页下一页返回任务二系统设计所得税额 sese=0 实际工资 sjgz=0 插入新记录 nsert into salarystatic values(yghh，ygxm，gzyf, jhgz，gwgz，qtgz, kkje，gzze，sdse，sjgz) 下移记录指针 select staffinfo skip 上一页下一页返回任务二系统设计 enddo return endfune ②sds函数。 sds函数用来计算所得税金额，sds函数在sds. prg文件中定义 function sds(nnum) 减去不用计税部分 nnum=nnum-2000 查找工资级别上一页下一页返回任务二系统设计 select salarytax locate for nnum-工资下限.and. nnum 工资上限 if FOUND() 如果找到.计算税收 sdse = salarytax.速算扣除数+( nnum-salarytax.工资下限)*所得税率* 0. 01 else 如果未找到.为0 sdse=0 endif return sdse endfunc 上一页下一页返回任务二系统设计 cmddel_ click 把数据库中的旧工资删除在工资统计表中删除记录 thisform. grid1.recordsource=null select salarvstatic if. not. ((EOF( ).AND. BOF( )).OR. RECCOUNT( )=0) delete all pack endif thisform. gridl.recordSource=”slarystatic 上一页下一页返回任务二系统设计 thisform. refresh messagebox(“旧工资成功清除”，64,“企业工资管理系统” cmdcou_ click 生成本月新工资表的基本工资和岗位工资 iyear=thisform. txtyear. value imonth=th