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

A400223成本费用计算系统

六、主要功能简介:

1、  用户登录界面:

http://www.paper51.com

copyright paper51.com

2、  登录后的界面: http://www.paper51.com

http://www.paper51.com

3、  班主任名册管理: copyright paper51.com

内容来自www.paper51.com

4、  班主任劳务费和管理:

http://www.paper51.com

http://www.paper51.com

以上就是本系统的各个界面图。 内容来自论文无忧网 www.paper51.com

还有一些按钮的功能为介绍,在后面的内容中在进行介绍。 内容来自论文无忧网 www.paper51.com

5、  图中的:各个按钮的功能是返回上一级、第一个、下一个、上一个、最后一个、添加、修改、删除、打印、统计和退出的功能。 http://www.paper51.com

七、本系统的源代码主要有

内容来自www.paper51.com

copyright paper51.com

1、  返回上一级按钮()的代码是:

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

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

thisform.release paper51.com

2、  下一个、上一个这四个按钮()的代码是: copyright paper51.com

store recno() to x paper51.com

i=0

http://www.paper51.com

locate for alltrim(thisform.text1.value)=班主任编号

paper51.com

if found () http://www.paper51.com

  i=i+1

paper51.com

  continue paper51.com

  if found ()

内容来自www.paper51.com

      i=i+1 copyright paper51.com

  endif

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

endif paper51.com

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

do case

paper51.com

 casei>1

http://www.paper51.com

       =messagebox("记录重复了,请更改后重试!",0+64+0,"数据录入错误!")

http://www.paper51.com

       thisform.text1.value=""

copyright paper51.com

       thisform.text1.setfocus                                         

内容来自www.paper51.com

 caselen(alltrim(thisform.text1.value))=0     

copyright paper51.com

       =messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!") copyright paper51.com

       thisform.text1.setfocus paper51.com

 caselen(alltrim(thisform.text2.value))=0

paper51.com

       =messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!")

copyright paper51.com

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

 caselen(alltrim(thisform.text5.value))=0 copyright paper51.com

       =messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!") http://www.paper51.com

       thisform.text5.setfocus copyright paper51.com

 caselen(alltrim(thisform.text6.value))=0

copyright paper51.com

       =messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!")

内容来自www.paper51.com

       thisform.text6.setfocus                                            

http://www.paper51.com

 otherwise 内容来自www.paper51.com

  skip -2

copyright paper51.com

  if bof () =.t. 内容来自www.paper51.com

     thisform.command1.enabled=.f. http://www.paper51.com

     thisform.command2.enabled=.f. http://www.paper51.com

  endif

copyright paper51.com

  go x-1

http://www.paper51.com

  if eof () =.f. 内容来自www.paper51.com

     thisform.command3.enabled=.t. 内容来自论文无忧网 www.paper51.com

     thisform.command4.enabled=.t. paper51.com

  endif

http://www.paper51.com

  thisform.text1.enabled=.f.

paper51.com

  thisform.text2.enabled=.f.

http://www.paper51.com

  thisform.text3.enabled=.f. 内容来自论文无忧网 www.paper51.com

  thisform.text4.enabled=.f. http://www.paper51.com

  thisform.text5.enabled=.f. paper51.com

  thisform.text6.enabled=.f.

http://www.paper51.com

endcase

内容来自www.paper51.com

thisform.refresh

内容来自www.paper51.com

3、  添加按扭()的源代码是: 内容来自www.paper51.com

do form main 内容来自www.paper51.com

thisform.release

http://www.paper51.com

4、  修改按钮的原代码()是: copyright paper51.com

yn=messagebox("真的要 修改 吗?请单击 确定 。",1+64+0,"修改")

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

if yn=1

http://www.paper51.com

  thisform.text1.enabled=.t.

http://www.paper51.com

  thisform.text2.enabled=.t.

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

  thisform.text3.enabled=.t. http://www.paper51.com

  thisform.text4.enabled=.t. http://www.paper51.com

  thisform.text5.enabled=.t. paper51.com

  thisform.text6.enabled=.t.

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

  thisform.text1.setfocus copyright paper51.com

  replace 班主任编号 with alltrim(thisform.text1.value)

内容来自www.paper51.com

  replace 姓名 with alltrim(thisform.text2.value) 内容来自www.paper51.com

  replace 电话 with alltrim(thisform.text3.value)

http://www.paper51.com

  replace 手机 with alltrim(thisform.text4.value)

copyright paper51.com

  replace 住址 with alltrim(thisform.text5.value) 内容来自www.paper51.com

  replace 班级 with alltrim(thisform.text6.value)

内容来自www.paper51.com

endif http://www.paper51.com

thisform.refresh 内容来自www.paper51.com

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