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

A400223成本费用计算系统

六、主要功能简介:

1、  用户登录界面: 内容来自www.paper51.com

内容来自www.paper51.com

2、  登录后的界面:

copyright paper51.com

内容来自www.paper51.com

3、  班主任名册管理: 内容来自www.paper51.com

内容来自www.paper51.com

4、  班主任劳务费和管理: 内容来自www.paper51.com

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

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

http://www.paper51.com

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

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

内容来自www.paper51.com

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

copyright paper51.com

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

1、  返回上一级按钮()的代码是: http://www.paper51.com

do form main

copyright paper51.com

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

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

http://www.paper51.com

store recno() to x 内容来自www.paper51.com

i=0 http://www.paper51.com

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

copyright paper51.com

if found () 内容来自www.paper51.com

  i=i+1 paper51.com

  continue 内容来自www.paper51.com

  if found ()

paper51.com

      i=i+1 内容来自论文无忧网 www.paper51.com

  endif 内容来自www.paper51.com

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

go x       

http://www.paper51.com

do case

paper51.com

 casei>1 paper51.com

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

copyright paper51.com

       thisform.text1.value="" http://www.paper51.com

       thisform.text1.setfocus                                         

http://www.paper51.com

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

copyright paper51.com

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

       thisform.text1.setfocus

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

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

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

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

       thisform.text2.setfocus paper51.com

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

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

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

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

copyright paper51.com

       =messagebox("漏填了,请补添后重试!",0+64+0,"数据录入错误!") 内容来自论文无忧网 www.paper51.com

       thisform.text6.setfocus                                            

copyright paper51.com

 otherwise

copyright paper51.com

  skip -2

copyright paper51.com

  if bof () =.t.

内容来自www.paper51.com

     thisform.command1.enabled=.f.

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

     thisform.command2.enabled=.f. paper51.com

  endif http://www.paper51.com

  go x-1

copyright paper51.com

  if eof () =.f.

http://www.paper51.com

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

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

  endif 内容来自www.paper51.com

  thisform.text1.enabled=.f.

paper51.com

  thisform.text2.enabled=.f.

内容来自www.paper51.com

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

  thisform.text4.enabled=.f.

内容来自www.paper51.com

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

  thisform.text6.enabled=.f.

http://www.paper51.com

endcase

paper51.com

thisform.refresh

内容来自www.paper51.com

3、  添加按扭()的源代码是:

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

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

thisform.release

内容来自www.paper51.com

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

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

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

if yn=1 http://www.paper51.com

  thisform.text1.enabled=.t. paper51.com

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

  thisform.text3.enabled=.t.

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

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

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

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

  thisform.text1.setfocus

http://www.paper51.com

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

paper51.com

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

copyright 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)

copyright paper51.com

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

endif

copyright paper51.com

thisform.refresh

paper51.com

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