《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx

上传人:b****3 文档编号:16925094 上传时间:2022-11-27 格式:DOCX 页数:10 大小:147.71KB
下载 相关 举报
《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx_第1页
第1页 / 共10页
《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx_第2页
第2页 / 共10页
《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx_第3页
第3页 / 共10页
《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx_第4页
第4页 / 共10页
《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx_第5页
第5页 / 共10页
点击查看更多>>
下载资源
资源描述

《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx

《《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx》由会员分享,可在线阅读,更多相关《《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx(10页珍藏版)》请在冰豆网上搜索。

《基于VF实现的学生综测管理系统毕业设计论文word格式》Word文件下载.docx

排  序

Nulls

1

学年学期

C

6

升序

2

姓名

3

班号

4

学号

11

5

德育分

N

智育分

7

8

总分

9

名次

3.表单(封面):

要求:

在用户名中输入学号

密码中输入数字“0”

点击“确认”按钮后进入主菜单

如果未输入密码时,显示

如果输入密码错误时,显示

4.菜单:

(1)数据浏览:

例如点击“浏览”栏中的财管班综测,得:

 

(2)数据编辑:

例如点击“编辑”按钮栏中的会计二班得:

(3)数据查询:

按照学号查询个人综测成绩

例如查询学号为20101000001的学生的综测得

如果学好不存在时,显示

5.退出:

点击“退出”按钮时,显示

点击“是”则可以退出系统。

二.程序设计

主程序

settalkoff

closeall

doformfm

modifywindscreentitl'

地大经管学生综测管理系统'

clear

docxcd.mpr

readevent

quit

菜单部分

浏览子菜单代码:

会计一班综测

usekj1

brow

会计二班综测

usekj2

会计三班综测

usekj3

财管综测

usecg

编辑子菜单代码:

编辑会计一班

append

编辑会计二班

编辑会计三班

编辑财管班

查询子菜单代码:

会计一班

dowhile.T.

accept"

请输入要查询的学生学号(输入0结束查询):

"

toxh

ifxh=='

0'

exit

endif

locateforalltrim(学号)==xh

iffound()

dispforalltrim(学号)==xh

else

wait"

没有此学号!

window

enddo

会计二班

会计三班

财管班

Enddo

汇总查询

usehz

退出代码:

ask=messagebox("

确实要退出系统吗"

4+32+256,"

学生综测管理系统"

ifask=6

endif

帮助子菜单代码:

版本信息

clear

use版本

list

封面部分代码

数据环境中加入新口令表(xklb.dbf,存密码和学号)

Form1.intn中写:

Publicerrornumber,Ps

Errornumber=0

退出的click中写:

确定要退出系统吗?

ifask=6

closeall

quit

else

确定的click中写:

usexklb

a=Thisform.text1.value

b=Thisform.text2.value

ifa=="

n=messagebox("

请输入用户名"

4+32,"

学生管理系统登陆"

docase

casen=6

thisform.text1.value="

thisform.text1.setfocus

casen=7

thisform.release

endcase

ifb=="

请输入密码"

thisform.text2.value="

thisform.text2.setfocus

locateforalltrim(xklb.Id)==alltrim(a)

ifalltrim(xklb.Ps)==alltrim(b)

thisform.release

else

messagebox("

密码错误,请重新输入"

64,"

学生综测管理系统登陆"

errornumber=errornumber+1

用户"

+a+"

不存在!

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 农林牧渔 > 农学

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1