VF学生信息管理系统毕业论文

目录

1引言 (1)

2 需求分析 (2)

3 系统功能 (3)

4 数据库设计 (3)

5 数据流程图 (4)

6表单、报表 (5)

7 退出系统 (26)

8 系统的优缺点 (26)

参考文献 (46)

致谢………………………………………………………………………………… Y

本文介绍了学生学籍管理的开发过程。论文详尽论述了从需求分析、系统分析、详细设计、以及测试与调试的整个开发过程。

文章中所论述的管理信息系统,是一个将业务处理从纯人工操作转换成人工与计算机共同处理的一个实例,并对转换过程进行了详细策划,可作为同类计算机管理信息系统的应用参考。

本软件开发的过程中采用MS Visual foxpro6.0 开发工具,采用成熟的软件研制技术。在本文中,总结了开发过程中的经验及本系统今后的改进方向。

关键词:管理信息系统学生管理 DBF

This text introduced the student's development process of the student status management.The thesis discussed in details analytical from the need, system analysis, detailed design, and test and the whole development process that adjust to try.

The management information system discuss in the article, is a handle business to operate the conversion to become the artificial and calculators to handle together a from the pure artificial solid example, and carry on the detailed plan towards converting the process, can be applied reference of the of the same kind calculator management information system.

It adopt the MS Visual foxpro6.0 in the process of this software development development tool, adoption mature of software research to manufacture the technique.In this text, tallied up the improvement direction of the experience and this system within the development process aftertime.

Keyword:Manage the information system student's management DBF

一、需求分析

学生信息管理系统是每一个班主任老师进行管理所必须的,学生信息管理系统包括对学生的信息和成绩进行录入、修改、查询、删除、打印预览等操作。记得以前看见班主任老师对学生的信息进行处理时都是人工直接完成的,总是在那一张张的纸上记载着每一个学生的信息还有成绩,由于数据量又大所以好费力呀!为此我就想到要设计这个系统。

运行环境:

硬件平台:

服务器:数据库服务器选用专用服务器或高性能PC机,

配置:128M内存、8G硬盘、CDROM光驱。

客户端:选用PC机,

配置:64M(建议至少32M)内存、硬盘可用空间大于1G。

软件平台:

服务器操作系统:WIN2000 Sever。

客户端操作系统:中文WIN98或WINNT Workstation 或 WIN2000 Workstation。

由于visual foxpro6.0具有强大的数据库管理功能,而且数据独立性又强又可以减少数据冗余性,所以就选择了visual foxpro6.0来实现了学生信息管理系统的各项功能。

二、系统功能

学生信息管理系统具体功能如下:

①、权限:该系统要输入密码,才可以进行数据录入、修改、查询、删除、打印预览

以及系统维护。

②、信息更新:本系统可以对学生的信息和成绩进行修改、查询、删除、增加等操作。

③、信息查询:本系统可以通过学号和姓名来对学生的信息和成绩进行查询。

④、成绩汇总:可以对学生的成绩、最高分、最低分进行预览。

⑤、退出:退出系统。

三、数据库设计

学生信息管理系统所需要用到的数据库表有:

●数据库(student.dbc)

表之间的关系,设xingxi.dbf表的学号为主索引,chengji.dbf表的学号为普通索引。

四、数据流程图

五、表单、报表:

?表单zjm的相关内容:

在此表单中插入一张背景图和设它的caption属性为“主界面”,name属性为form3,同时有三个标签、一个命令按钮组、一个计时器。分别设标签的属性caption为“学生信息管理系统”、“设计人:王芸”、“设计时间:2005年4月20日”,同时设它们的fontname,fontoutline,fontsize,forecolor,backstyle属性值,在命令按钮组的生成器中输入进入系统和退出系统,在进入系统的click事件中输入:do form mima 在退出系统click事件中输入:quit 设计时器的interval属性值为100,在计时器的timer事件中输入:

if https://www.360docs.net/doc/0c7899586.html,bel2.top>=168

https://www.360docs.net/doc/0c7899586.html,bel2.top=https://www.360docs.net/doc/0c7899586.html,bel2.top-3

https://www.360docs.net/doc/0c7899586.html,bel3.top=https://www.360docs.net/doc/0c7899586.html,bel3.top-3

else

thisform.timer1.enabled=.f.

endif

thisform.refresh()

就这样保存即可。

?表单mima的相关内容:

在此表单中插入一张背景图片,设它的caption属性为“输入密码”,name属性为form4。在此表单中有两个标签、一个文本框、两个命令按钮,设两个标签和两命令按钮的caption分别为“欢迎使用本系统”、“请输入密码”、“确认”、“返回”,之后分别设它们的fontname,fontoutline,fontsize,forecolor,backstyle的属性值。设文本框的fontsize, forecolor,passwordchar为*的属性值。在“确认”中输入如下:

if thisform.text1.value="123456"

do form yk

else

=messagebox("密码错误",64,"提示")

endif

在“返回”按钮中输入:do form zjm

最后保存起即可。

表单yk的主要内容:

在此表单中插入一张背图片,同时加入一个标签设的caption属性为:“学生信息管理系统”,将它的caption属性改为“页框”,name属性改为form11。在此表单中有一个页框组这个组中有四个页框设它的pagecount属性为4,分别设它们的caption属性为:“学生信息”,“学生成绩”,“打印预览”,“系统维护”同时改它们的fontsize, fontname,forecolor。当然还有一个计时器和一个标签,设计时器的interval属性值20,标签的name属性为label2,在计时器中的timer事件中输入:if https://www.360docs.net/doc/0c7899586.html,bel3.caption!=time()

https://www.360docs.net/doc/0c7899586.html,bel3.caption=time()

endif

在“学生信息”这个页框中有三个标签,六个命令按钮,一张图片,其中有一个标签的caption 属性值为“选择操作内容”,命令按钮的caption属性分别为:“录入信息”,“修改信息”,“查询信息”,“删除信息”,“结束操作”,其中有一个按钮上就是那张图片。“录入信息”的click事件为:do form lrxx.scx ,“修改信息”的click事件为:do form xgxx.scx ,“查询信息”的click事件为:do form cxxx.scx ,“删除信息”的click事件为:do form scxx.scx ,“结束操作”的click事件为:quit 。在这些过程中分别分设它们的fontname,fontoutline,fontsize,forecolor,backcolor的属性值。

在“学生成绩”这个页框中有三个标签,五个命令按钮还有一张图片。其中有一个标签的caption属性值为:“选择操作内容”,命令按钮的caption属性分别为:“录入成绩”,“修改成绩”,“查询成绩”,“结束操作”,其中有一个命令按钮上就是那张图片。“录入成绩”的click事件为:do form lrcj.scx ,“修改成绩”的click事件为:do form xgcj.scx ,“查询成绩”的click事件为:do form cxcj.scx ,“结束操作”的click事件为:quit 。这些过程中分别分设它们的fontname,fontoutline,fontsize,forecolor,backcolor的属性值。

在“打印预览”这个页框中有三个标签,四个命令按钮,一张图片。其中有一个标签的caption 属性值为“选择操作内容”,命令按钮的caption属性分别为:“预览信息”,“成绩汇总”,“结束操作”,其中有一个命令按钮上就是那张图片。“预览信息”的click事件为:report form report1

preview ,“汇总成绩”的click事件为:report form report2 preview ,“结束操作”的click事件为:quit 。在这些过程中分别分设它们的fontname,fontoutline,fontsize,forecolor,backcolor的属性值。

在“系统维护”这个页框中有两个标签,两个命令按钮。其中有两个命令按钮的caption属性为分别为:“输入密码”,“结束操作”,两个标签只用了它的背景色在backcolor属性中设。“输入密码”的click事件为:do form mima.scx ,“结束操作”的click事件为:quit 。在这些过程中分别分设它们的fontname,fontoutline,fontsize,forecolor,backcolor的属性值。

就这样保存起即可。

表单lrxx的主要内容:

将表单的caption属性改为:“录入信息”,name属性为:form1,同时设它的backcolor的属性值。表单主要有九个标签,它们的caption属性分别为:学号,姓名,性别,民族,出生日期,家长姓名,联系电话,家庭住址,备注;七个文本框,它们的name属性分别为:xh,xm,csrq,jzxm,lxdh,jtzz,bz ;两个组合框,它们的name属性为:xb,mc ;两个命令按钮,它们的caption分别为:“录入”,“关闭”。在这些过程中分别分设它们的fontname, fontsize,forecolor,backcolor的属性值。

在“学号”的生成器中输入:####### ,将“出生日期”的生成器中改为日期型,将“性别”的生成器设为“男”,“女”,将“民族”的生成器设为“汉”,“苗”,“白”,“藏”。

在“性别”的init事件中输入:

thisform.xb.value="男"

thisform.xb.refresh

在“确认”按钮的click事件中输入:

select 1

if len(alltrim(thisform.xh.value))<>0

locate for 学号==thisform.xh.value

if eof()

append blank

replace xingxi.学号with thisform.xh.value

replace xingxi.姓名with thisform.xm.value

replace xingxi.性别with thisform.xb.value

replace xingxi.民族with thisform.mc.value

replace xingxi.出生日期with thisform.csrj.value

replace xingxi.家长姓名with thisform.jzxm.value

replace xingxi.联系电话with thisform.nxjh.value

replace xingxi.家庭住址with thisform.jtzz.value

replace xingxi.备注with thisform.bz.value

=messagebox("该学生的信息已存在,不能保存",48,"警告")

endif

else

=messagebox("学号不能空,不能保存",48,"警告")

endif

thisform.xh.value=""

thisform.xm.value=""

thisform.xb.value="男"

thisform.mc.value="汉"

thisform.csrj.value={ / / }

thisform.jzxm.value=""

thisform.nxjh.value=""

thisform.jtzz.value=""

thisform.bz.value=""

this.refresh

在“关闭”按钮的click事件中输入:release windows form1 ,保存起即可。 表单lrcj的相关内容:

设此表单的caption属性为:“录入成绩”,name属性为:form2 ,并设置它的backcolor 属性值,此表单中有十个标签,其中有一个标签只用到它的背景色设置就是上图的那条线,其余标签的caption属性分别为:学号,姓名,考试类别,internet,网络,数据库,信息管理,多媒体,组成原理;有八个文本框它的name属性分别为:xh,xm, innet,wn,sjk,xxgl,dmt,zcyl ;有一个组合框它的name属性为:kslb,同时在它的生成器的手工输入中输入:1-第一次月考,2-第二次月考,3-第三次月考,4-第四次月考,5-期末考试,还有两个命令按钮它们的caption属性分别为:“录入”和“关闭”,name属性为command1和command2。在这些过程中分别分设它们的fontname, fontsize,forecolor,backcolor的属性值。

在xh的lostfocus事件中输入:

select 1

if len(alltrim(thisform.xh.value))<>0

locate for 学号==thisform.xh.value

if.not.eof()

thisform.xm.value=xingxi.姓名

else

=messagebox("该学生的信息不存在,不能录入成绩",48,"警告")

endif

else

=messagebox("学号不能为空,不能保存",48,"警告")

endif

this.refresh

在command1的click事件中输入:

select 2

use chengji

append blank

replace chengji.学号with thisform.xh.value

replace chengji.考试类别with thisform.kslb.value replace chengji.internet with thisform.innet.value

replace chengji.网络with thisform.wn.value

replace chengji.数据库with thisform.sjk.value

replace chengji.信息管理with thisform.xxgl.value replace chengji.多媒体with thisform.dmt.value

replace chengji.组成原理with thisform.zcyl.value thisform.xh.value=""

thisform.xm.value=""

thisform.kslb.value=""

thisform.innet.value=0

thisform.wn.value=0

thisform.sjk.value=0

thisform.xxgl.value=0

thisform.dmt.value=0

thisform.zcyl.value=0

this.refresh

在command2的click事件中输入:

release windows form2

保存起即可。

表单xgxx的主要内容:

设此表单的caption属生为:修改信息,name属性为form5,同时设它的backcolor属性值。在此表单中有九个标签它的caption属性分别为:学号,姓名,性别,出生日期,民族,家长姓名,家庭住址,联系电话,备注;有七个文本框它们的name属性分别为:xh,xm,csrq,jzxm,jtzz,lxdh,bz;有两个组合框它们的name属性分别为:xb,mc;还有两个命令按钮它们的caption属性分别为:“修改”和“关闭”,name属性为command1和command2. 在这些过程中分别分设它们的fontname, fontsize,forecolor,backcolor的属性值。

设xm,csrq,jzxm,jtzz,lxdh,bz的readonly属性为真,同时设xb,mc,command1的enabled的属性为假;在xb的生成器中输入:“男”和“女”,在mc的生成器中输入:“汉”,“苗”,“藏”,“白”。在xh的lostfocus事件中输入:

select 1

**

use xingxi

if len(alltrim(thisform.xh.value))<>0

locate for 学号==thisform.xh.value

if.not.eof()

thisform.xm.readonly=.f.

thisform.xb.enabled=.t.

thisform.mc.enabled=.t.

thisform.csrq.readonly=.f.

thisform.jzxm.readonly=.f.

thisform.lxdh.readonly=.f.

thisform.jtzz.readonly=.f.

thisform.bz.readonly=.f.

https://www.360docs.net/doc/0c7899586.html,mand1.enabled=.t.

thisform.xm.value=xingxi.姓名

thisform.xb.value=xingxi.性别

thisform.mc.value=xingxi.民族

thisform.csrq.value=xingxi.出生日期

thisform.jzxm.value=xingxi.家长姓名

thisform.lxdh.value=xingxi.联系电话

thisform.jtzz.value=xingxi.家庭住址

thisform.bz.value=xingxi.备注

else

=messagebox("该学生的基本信息不存在,不能进行修改",48,"警告")

endif

else

=messagebox("学号不能为空,不能保存",48,"警告")

endif

this.refresh

在xb的init事件中输入:

thisform.xb.value="男"

thisform.xb.refresh

在mc的init事件中输入:

thisform.mc.value="汉"

thisform.mc.refresh

在“修改”的click事件中输入:

select 1

replace xingxi.学号with thisform.xh.value

replace xingxi.姓名with thisform.xm.value

replace xingxi.性别with thisform.xb.value

replace xingxi.民族with thisform.mc.value

replace xingxi.出生日期with thisform.csrq.value

replace xingxi.家长姓名with thisform.jzxm.value

replace xingxi.联系电话with thisform.lxdh.value

replace xingxi.家庭住址with thisform.jtzz.value

replace xingxi.备注with thisform.bz.value

thisform.xh.value=""

thisform.xm.value=""

thisform.xb.value=""

thisform.mc.value=""

thisform.csrq.value={ / / }

thisform.jzxm.value=""

thisform.lxdh.value=""

thisform.jtzz.value=""

thisform.bz.value=""

thisform.xm.readonly=.t.

thisform.xb.enabled=.f.

thisform.mc.enabled=.f.

thisform.csrq.readonly=.t.

thisform.jzxm.readonly=.t.

thisform.lxdh.readonly=.t.

thisform.jtzz.readonly=.t.

thisform.bz.readonly=.t.

https://www.360docs.net/doc/0c7899586.html,mand1.enabled=.f.

this.refresh

在“关闭”的click事件中输入:release windows form5。保存即可。 表单xgcj 的相关内容:

设此表单的caption属性为“修改成绩”,name属性为form6,backcolor的属性值。表单中有十一个标签它们的caption属性分别为:学号,姓名,考试类别,考试成绩,internet,多媒体,数据库,信息管理,网络,组成原理,其中有一个标签只用到它的backcolor属性设置了一下背景色既图中的那条线;有八个文本框它们的name属性分别为:xh,xm,innet,dmt,sjk,xxgl,wn,zcyl;有一个组合框它们的name属性为kslb ,在它的生成器的手工输入中输入:1-第一次月考,2-第二次月考,3-第三次月考,4-第四次月考,5-期末考试;还有两个命令按钮它们的caption属性分别为:“修改”和“关闭”,name属性为:command1和command2。在这些过程中分别分设它们的fontname, fontsize,forecolor的属性值。设xm,innet,dmt,xjk,xxgl,wn,zcyl的readonly属性为真,kslb,command1 的command1的enabled属性为假。

在xh的lostfocus事件中输入:

select 1

use xingxi

if len(alltrim(thisform.xh.value))<>0

locate for 学号==thisform.xh.value

if.not.eof()

thisform.xm.value=xingxi.姓名

else

=messagebox("该学生的基本信息不存在,不能录入成绩",48,"警告")

endif

else

=messagebox("学号不能为空,不能保存",48,"警告")

endif

thisform.kslb.enabled=.t.

thisform.kslb.setfocus

this.refresh

在kslb的click事件中输入:

select 2

locate for 学号==thisform.xh.value.and.考试类别==subs(thisform.kslb.value,1,1) if.not.eof()

thisform.innet.readonly=.f.

thisform.wn.readonly=.f.

thisform.sjk.readonly=.f.

thisform.dmt.readonly=.f.

thisform.xxgl.readonly=.f.

thisform.zcyl.readonly=.f.

https://www.360docs.net/doc/0c7899586.html,mand1.enabled=.t.

thisform.innet.value=internet

thisform.wn.value=网络

thisform.sjk.value=数据库

thisform.dmt.value=多媒体

thisform.xxgl.value=多媒体

thisform.zcyl.value=组成原理

else

=messagebox("记录没有找到",48,"警告")

endif

this.refresh

在“修改”的click事件中输入:

select 2

replace chengji.学号with thisform.xh.value

replace chengji.考试类别with thisform.kslb.value

replace chengji.internet with thisform.innet.value

replace chengji.网络with thisform.wn.value

replace chengji.数据库with thisform.sjk.value

replace chengji.多媒体with thisform.dmt.value

replace chengji.信息管理with thisform.xxgl.value

replace chengji.组成原理with thisform.zcyl.value

thisform.xh.value=""

thisform.xm.value=""

thisform.kslb.value=""

thisform.innet.value=0

thisform.wn.value=0

thisform.sjk.value=0

thisform.dmt.value=0

thisform.xxgl.value=0

thisform.zcyl.value=0

this.refresh

在“关闭”的click事件中输入:release windows form6。就这样保存起即可。 表单cxxx 的主要内容:

设此表单的caption属性为:“查询信息”,name属性为form7,backcolor属性设它的背景色。表单中有九个标签它们的caption属性分别为:学号,姓名,性别,民族,出生日期,家长姓名,联系电话,家庭住址,备注;有两个文本框它们的name属性分别为xb,mc,在xb的生成器中输入“男”和“女”,在mc的生成器中输入“汉”,“苗”,“藏”,“白”;有七个文本框它们的name 属性分别为:xh,xm,csrq,jzxm,lxdh,jtzz,bz;有六个命令按钮它们的caption属性分别为:“首记录”,“上一条”,“下一条”,“尾记录”,“关闭”还一个按钮上只装一个内容,它们的name属性分别为:command1,command2,command3,command4,command5,command6;设xb,mc,csrq,jzxm,lxdh,jtzz,bz的readonly属性为真;设command2,command3,command4,command5的enabled属性为假;在这些过程中分别分设它们的fontname, fontsize,forecolor的属性值。

在xh的lostfocus事件中输入:

recall all

select 1

if len(alltrim(thisform.xh.value))<>0

delete for xingxi.学号<>alltrim(thisform.xh.value)

go top

if.not.eof()

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand5.enabled=.t.

thisform.xh.value=xingxi.学号

thisform.xm.value=xingxi.姓名

thisform.xb.value=xingxi.性别

thisform.mc.value=xingxi.民族

thisform.csrq.value=xingxi.出生日期

thisform.jzxm.value=xingxi.家长姓名

thisform.lxdh.value=xingxi.联系电话

thisform.jtzz.value=xingxi.家庭住址

thisform.bz.value=xingxi.备注

else

=messagebox("该学生的信息不存在",48,"警告") thisform.xh.value=""

thisform.xm.value=""

thisform.xb.value=""

thisform.mc.value=""

thisform.csrq.value=""

thisform.jzxm.value=""

thisform.lxdh.value=""

thisform.jtzz.value=""

thisform.bz.value=""

endif

endif

this.refresh

https://www.360docs.net/doc/0c7899586.html,mand3.setfocus

在xm的lostfocus事件中输入:

recall all

select 1

if len(alltrim(thisform.xm.value))<>0

delete for xingxi.姓名<>alltrim(thisform.xm.value) go top

if.not.eof()

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand5.enabled=.t.

thisform.xh.value=xingxi.学号

thisform.xm.value=xingxi.姓名

thisform.xb.value=xingxi.性别

thisform.mc.value=xingxi.民族

thisform.csrq.value=xingxi.出生日期

thisform.jzxm.value=xingxi.家长姓名

thisform.lxdh.value=xingxi.联系电话

thisform.jtzz.value=xingxi.家庭住址

thisform.bz.value=xingxi.备注

else

=messagebox("该学生的信息不存在",48,"警告") thisform.xh.value=""

thisform.xm.value=""

thisform.xb.value=""

thisform.mc.value=""

thisform.csrq.value=""

thisform.jzxm.value=""

thisform.lxdh.value=""

thisform.jtzz.value=""

thisform.bz.value=""

endif

endif

this.refresh

https://www.360docs.net/doc/0c7899586.html,mand3.setfocus

在“首记录”的click事件中输入:go top

if.not.eof()

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand5.enabled=.t. thisform.xh.value=xingxi.学号thisform.xm.value=xingxi.姓名thisform.xb.value=xingxi.性别thisform.mc.value=xingxi.民族thisform.csrq.value=xingxi.出生日期thisform.jzxm.value=xingxi.家长姓名thisform.lxdh.value=xingxi.联系电话thisform.jtzz.value=xingxi.家庭住址thisform.bz.value=xingxi.备注

endif

this.refresh

在“上一条”的click事件中输入:select 1

skip-1

if.not.bof()

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand5.enabled=.t. thisform.xh.value=xingxi.学号thisform.xm.value=xingxi.姓名thisform.xb.value=xingxi.性别thisform.mc.value=xingxi.民族thisform.csrq.value=xingxi.出生日期thisform.jzxm.value=xingxi.家长姓名thisform.lxdh.value=xingxi.联系电话thisform.jtzz.value=xingxi.家庭住址thisform.bz.value=xingxi.备注

else

go top

endif

this.refresh

在“下一条”的click事件输入:select 1

skip 1

if.not.eof()

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand5.enabled=.t. thisform.xh.value=xingxi.学号thisform.xm.value=xingxi.姓名thisform.xb.value=xingxi.性别thisform.mc.value=xingxi.民族thisform.csrq.value=xingxi.出生日期thisform.jzxm.value=xingxi.家长姓名thisform.lxdh.value=xingxi.联系电话thisform.jtzz.value=xingxi.家庭住址thisform.bz.value=xingxi.备注

else

skip-1

endif

this.refresh

在“尾记录”的click事件中输入:go bottom

if.not.bof()

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t. https://www.360docs.net/doc/0c7899586.html,mand5.enabled=.t. thisform.xh.value=xingxi.学号thisform.xm.value=xingxi.姓名thisform.xb.value=xingxi.性别thisform.mc.value=xingxi.民族thisform.csrq.value=xingxi.出生日期thisform.jzxm.value=xingxi.家长姓名thisform.lxdh.value=xingxi.联系电话thisform.jtzz.value=xingxi.家庭住址thisform.bz.value=xingxi.备注

endif

this.refresh

在“关闭”的click事件中输入:

recall all

release windows form7 保存起即可。

表单cxcj的主要内容:

设表单的caption属性为:“查询成绩”,name属性为form8,backcolor属性设它的背景颜色。这个表单中有五个标签它的确良caption属性分别为:学号,姓名,性别,考试成绩,还有一个标签只用了它的backcolor属性设置它的背景色;有两个数文本框它们的name属性为:xh,xm;有一个组合框它的name属性为xb,同时在它的生成器中输入“男”和“女”;有一个表格在表格的生成器中选择的字段有:考试类别,internet,网络,信息管理,多媒体,组成原理;还有一个五个命令铵钮它们的caption属性分别为:首记录,下一条,上一条,尾记录,关闭,它们的name属性分别为:command1,command2,command3,command4,command5。

设xb的readonly属性为真,设表格的recordsource属性为chengji;设首记录,下一条,上一条,尾记录的enabled属性为假。

在xh的lostfocus事件中输入:

select 1

*

use xingxi

recall all

if len(alltrim(thisform.xh.value))<>0

delete for xingxi.学号<>alltrim(thisform.xh.value)

go top

if.not.eof()

https://www.360docs.net/doc/0c7899586.html,mand1.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand2.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand3.enabled=.t.

https://www.360docs.net/doc/0c7899586.html,mand4.enabled=.t.

thisform.xh.value=xingxi.学号

thisform.xm.value=xingxi.姓名

相关文档
最新文档