论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 其他 代写论文
当前位置: 网站首页 > 计算机 > VF >

(C)VFP017职员信息管理系统

do form 修改记录

thisform.release

在“删除记录”按钮的“Click”事件中添加代码如下:

内容来自www.paper51.com

do form 删除记录

内容来自www.paper51.com

thisform.release

内容来自论文无忧网 www.paper51.com

在“查询”按钮的“Click”事件中添加代码如下:

内容来自www.paper51.com

do form 查询

paper51.com

thisform.release

paper51.com

在“报表打印”按钮的“Click”事件中添加代码如下:

http://www.paper51.com

do form 报表打印 内容来自论文无忧网 www.paper51.com

thisform.release 内容来自论文无忧网 www.paper51.com

在“退出”按钮的“Click”事件中添加代码如下:

内容来自论文无忧网 www.paper51.com

thisform.release

paper51.com

clear events

http://www.paper51.com

“增加记录”模块

copyright paper51.com

paper51.com

企业新进职员都要为其建立人事档案,该模块的功能就是添加新职员信息。操作很简单,按需要输入完数据后,单击“确定”按钮即可,同时系统会弹出对话框提示输入成功。“取消”按钮的功能是清空所有文本框。该模块做了些限制性设计,以防用户误操作。如:将输入“职员号”、“进本单位年份”的文本框的Format和InputMask属性都设为“9999”,使用户只能输入四位数字,输入其它字符无效。同样在输入“生日”的文本框的Format和InputMask属性都设为“9999/99/99”。单击“确定”后,如果没有输入“职员号”或输入的“职员号”已存在,系统都会弹出提示信息,以便用户改正。 copyright paper51.com

在“确定”按钮的“Click”事件中添加代码如下: http://www.paper51.com

* 检查“职员号”是否为空

内容来自论文无忧网 www.paper51.com

if empty(alltrim(thisform.txtID.value)) paper51.com

messagebox("职员号不能为空",48,"错误") 内容来自www.paper51.com

thisform.txtID.setfocus http://www.paper51.com

else

内容来自论文无忧网 www.paper51.com

    * 获取各输入值 http://www.paper51.com

inID=alltrim(thisform.txtID.value) 内容来自www.paper51.com

inName=alltrim(thisform.txtName.value) paper51.com

inSex=alltrim(thisform.txtSex.value)

http://www.paper51.com

inBirth=alltrim(thisform.txtBirth.value)

copyright paper51.com

inLearn=alltrim(thisform.txtLearn.value) http://www.paper51.com

inPolitics=alltrim(thisform.txtPolitics.value)

paper51.com

inPhone=alltrim(thisform.txtPhone.value)

内容来自www.paper51.com

inAddress=alltrim(thisform.txtAddress.value) 内容来自论文无忧网 www.paper51.com

inDepartment=alltrim(thisform.txtDepartment.value)

内容来自www.paper51.com

inFunction=alltrim(thisform.txtFunction.value) copyright paper51.com

inDate=alltrim(thisform.txtDate.value) http://www.paper51.com

inMemo=alltrim(thisform.edtMemo.value) http://www.paper51.com

* 检查输入的“职员号”是否已存在

内容来自www.paper51.com

set order to 职员号 内容来自www.paper51.com

seek inID paper51.com

if !found() paper51.com

insert into 职员信息表value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo) 内容来自论文无忧网 www.paper51.com

    messagebox("添加成功!",48,"信息")

内容来自论文无忧网 www.paper51.com

    * 添加完毕后清空各文本框

paper51.com

    thisform.txtID.value=''

paper51.com

    thisform.txtName.value=''

http://www.paper51.com

    thisform.txtSex.value='' copyright paper51.com

    thisform.txtBirth.value=''

内容来自www.paper51.com

    thisform.txtLearn.value=''

http://www.paper51.com

    thisform.txtPolitics.value='' 内容来自www.paper51.com

    thisform.txtPhone.value='' paper51.com

    thisform.txtAddress.value='' http://www.paper51.com

    thisform.txtDepartment.value='' 内容来自论文无忧网 www.paper51.com

    thisform.txtFunction.value='' 内容来自www.paper51.com

    thisform.txtDate.value='' http://www.paper51.com

  

http://www.paper51.com

------分隔线----------------------------
联系方式