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

A400223成本费用计算系统

六、主要功能简介:

1、  用户登录界面: copyright paper51.com

内容来自www.paper51.com

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

内容来自www.paper51.com

3、  班主任名册管理:

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

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

4、  班主任劳务费和管理: http://www.paper51.com

paper51.com

以上就是本系统的各个界面图。

http://www.paper51.com

还有一些按钮的功能为介绍,在后面的内容中在进行介绍。

paper51.com

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

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

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

http://www.paper51.com

http://www.paper51.com

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

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

do form main

copyright paper51.com

thisform.release

http://www.paper51.com

2、  下一个、上一个这四个按钮()的代码是: 内容来自论文无忧网 www.paper51.com

store recno() to x

paper51.com

i=0

内容来自www.paper51.com

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

内容来自www.paper51.com

if found ()

http://www.paper51.com

  i=i+1

内容来自www.paper51.com

  continue paper51.com

  if found () copyright paper51.com

      i=i+1

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

  endif

copyright paper51.com

endif http://www.paper51.com

go x       

内容来自www.paper51.com

do case paper51.com

 casei>1

paper51.com

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

copyright paper51.com

       thisform.text1.value=""

copyright paper51.com

       thisform.text1.setfocus                                         

paper51.com

 caselen(alltrim(thisform.text1.value))=0      http://www.paper51.com

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

       thisform.text1.setfocus

http://www.paper51.com

 caselen(alltrim(thisform.text2.value))=0 http://www.paper51.com

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

copyright paper51.com

       thisform.text2.setfocus

paper51.com

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

http://www.paper51.com

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

http://www.paper51.com

       thisform.text5.setfocus paper51.com

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

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

paper51.com

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

 otherwise

http://www.paper51.com

  skip -2 http://www.paper51.com

  if bof () =.t. 内容来自论文无忧网 www.paper51.com

     thisform.command1.enabled=.f. paper51.com

     thisform.command2.enabled=.f.

paper51.com

  endif

内容来自www.paper51.com

  go x-1

copyright paper51.com

  if eof () =.f. paper51.com

     thisform.command3.enabled=.t.

http://www.paper51.com

     thisform.command4.enabled=.t. 内容来自www.paper51.com

  endif

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

  thisform.text1.enabled=.f.

http://www.paper51.com

  thisform.text2.enabled=.f.

copyright paper51.com

  thisform.text3.enabled=.f. copyright paper51.com

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

  thisform.text5.enabled=.f. 内容来自www.paper51.com

  thisform.text6.enabled=.f. 内容来自www.paper51.com

endcase paper51.com

thisform.refresh copyright paper51.com

3、  添加按扭()的源代码是: copyright paper51.com

do form main http://www.paper51.com

thisform.release

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

4、  修改按钮的原代码()是:

http://www.paper51.com

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

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

if yn=1 paper51.com

  thisform.text1.enabled=.t.

http://www.paper51.com

  thisform.text2.enabled=.t. paper51.com

  thisform.text3.enabled=.t. copyright paper51.com

  thisform.text4.enabled=.t.

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

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

  thisform.text6.enabled=.t.

copyright paper51.com

  thisform.text1.setfocus copyright paper51.com

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

http://www.paper51.com

  replace 姓名 with alltrim(thisform.text2.value)

paper51.com

  replace 电话 with alltrim(thisform.text3.value) http://www.paper51.com

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

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

  replace 住址 with alltrim(thisform.text5.value)

内容来自www.paper51.com

  replace 班级 with alltrim(thisform.text6.value) http://www.paper51.com

endif

http://www.paper51.com

thisform.refresh paper51.com

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