VF地税局工资管理系统(论文+开题报告+答辩PPT+源代码+程序清单)(论文和程序)
VF地税局工资管理系统(论文+开题报告+答辩PPT+源代码+程序清单)(论文和程序)-系统图片展示 |
VF地税局工资管理系统(论文+开题报告+答辩PPT+源代码+程序清单)(论文和程序)-包括论文和程序列表 |
包括目录名称:
VF地税局工资管理系统(论文+开题报告+答辩PPT+源代码+程序清单)(论文和程序) - 5 文件数, 1 目录数.
包括目录名称:
gzgl - 47 文件数, 0 目录数.
..\Back1.bmp
..\CHZNWB22.BMP
..\CHZNWB23.BMP
..\CHZNWB24.BMP
..\CHZNWB25.BMP
..\CHZNWB26.BMP
..\sn.txt
..\开题报告(doc)999.doc
..\毕业设计.ppt
..\毕业设计论文(doc)997.doc
..\程序清单(doc)998.doc
VF地税局工资管理系统(论文+开题报告+答辩PPT+源代码+程序清单)(论文和程序)-论文部分内容 |
程序清单(doc)998-部分内容XXXXX大学
计算机科学与技术专业(本科)
毕业设计程序清单
设计题目XX地税局工资管理系统
学校:XXXXX大学
学生 指导教师:
完成日期:2004.12
主程序:mainprg
-------------------------------------------------
clearscreen
clearevents
setdeleon
opendatabasegzgls
usegz
usemm
domain.mpr
doformmmk
readevents
------------------------------------------------
登录界面:mmk
-----------------------------------------------
登录按钮,click事件
inname=alltrim(thisform.text1.value)
inpswd=alltrim(thisform.text2.value)
setordertousername
seekinname
if!found()
cMessageTitle='设备管理系统'
cMessageText='用户名错误,请重新输入'
nDialogType=4+32
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
docase
casenAnswer=6
thisform.text1.value=''
thisform.text1.setfocus
casenAnswer=7
messagebox("请勿偷窥他人资料",48,"警告")
thisform.release
endcase
else
ifpassword!=inpswd
cMessageTitle='设备管理系统'
cMessageText='密码错误,请重新输入'
nDialogType=4+32
nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
docase
casenAnswer=7
messagebox("请勿偷窥他人资料",48,"警告")
thisform.release
endcase
else
thisform.release
doformgzxg
endif
endif
退出按钮:click事件
thisform.release
clearevents
quit
--------------------------------------------------------------------------
程序主界面gzxg
--------------------------------------------------------------------------
工资设定:按钮click事件
doformgzsd
closedatabaseall
工资查询:按钮click事件
doformgzcx
工资汇总:按钮click事件
doformgzhz
退出:按钮click事件
thisform.release
clearevents
quit
查找:按钮click事件
brpath=thisform.combo1.value+'\'+allt(thisform.text1.value)
ifthisform.check1.value=1
thisform.text2.value=''
select*fromkhxxintodbf&brpath\khxx
use
thisform.check1.value=0
endi
ifthisform.check2.value=1
thisform.text2.value=''
select*fromypxx_jhintodbf&brpath\ypxx_jh
use
thisform.check2.value=0
endi
ifthisform.check3.value=1
thisform.text2.value=''
select*fromypxx_kcintodbf&brpath\ypxx_kc
use
thisform.check3.value=0
endi
ifthisform.check4.value=1
thisform.text2.value=''
select*fromypdjintodbf&brpath\ypdj
use
thisform.check4.value=0
endi
ifthisform.check5.value=1
thisform.text2.value=''
selec