网站导航网学 原创论文 网站设计 最新系统 最新研究 原创论文 获取论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 设计下载 > VFP毕业设计 > 正文

基于VFP的工资查询管理系统

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/05/10

鉴于大家对VFP毕业设计十分关注,我们编辑小组在此为大家搜集整理了“基于VFP的工资查询管理系统”一文,供大家参考学习!

QQ交谈客服咨询,网学网竭诚为您服务,本站永久域名:myeducs.cn

 

1、       grcx (工资查询)
这个表单的是实现按工号查询,没一个工号有一个固定的密码查询的结果是
职工的基本情况。当然工号和密码要连接生成器。代码在“确定”按钮里具体如下:
inname=alltrim(thisform.text1.value)
inpswd=alltrim(thisform.text2.value)
set order to tms_user
seek inname
if !found()
    cMessageTitle=''设备管理系统''
    cMessageText=''用户名错误,请重新输入''
    nDialogType=4+32
    nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
   do case
       case nAnswer=6        
          thisform.text1.value=''''
          thisform.text1.setfocus        
       case nAnswer=7        
          messagebox("请勿偷窥他人资料",48,"警告")
          thisform.release
       endcase
else
           if tms_pswd!=inpswd
           cMessageTitle=''设备管理系统''
        cMessageText=''密码错误,请重新输入''
          nDialogType=4+32
          nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
        do case
              case nAnswer=6
               if flag<2
               thisform.text2.value=''''
             thisform.text2.setfocus
             flag=flag+1
             else
                    messagebox("请勿偷窥他人资料",48,"警告")
                    thisform.release
                    endif
                 case nAnswer=7  
                messagebox("请勿偷窥他人资料",48,"警告")  
                    thisform.release
        endcase
          else
            thisform.release
             par1=inname
             do form salary\form\gresult
           endif
 endif
按“退出”按钮就释放表单。
2、       gresult 主要是被grcx (工资查询)调用,当然生成器里连接了其它表。
3、       gwgz(岗位工资) 对岗位工资的管理。同gzgl功能一样。
4、       gcgz(等级)也同gzgl功能一样
5、       jm(密码表)

 
本站发布的计算机毕业设计均是完整无错的全套作品,包含开题报告+程序+论文+源代码+翻译+答辩稿PPT

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介,如需了解更多详情请咨询本站客服!QQ交谈QQ3710167

  • 下一篇资讯: 基于VFP的资料管理系统
  • 原创论文

    设为首页 | 加入收藏 | 论文首页 |原创论文 |
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师