VFP程序设计实习报告(6)

毕业生基本信息维护系统：

实现功能：对毕业生基本信息进行维护。

该查询界面的数据环境为：毕业生基本信息表

Label1的属性如下： Alignment=2-中央

BackColor=128,255,255

Caption=毕业生基本信息查询 FontBold=.T. FontName=楷体 FontSize=40

Forecolor=0,0,160 Height=72 Left=0 Top=0 Width=840

“添加”按钮的代码如下：

go bottom append blank thisform.refresh

“修改”按钮的代码如下：

a=messagebox(\确定要修改吗？\提示\

if a=1

sele 毕业生基本信息表

replace 毕业生基本信息表.学号 with

thisform.text1.value

replace 毕业生基本信息表.姓名 with thisform.text2.value

replace 毕业生基本信息表.性别 with thisform.text3.value

replace 毕业生基本信息表.出生年月 with thisform.text4.value

replace 毕业生基本信息表.政治面貌 with thisform.text5.value

replace 毕业生基本信息表.家庭住址 with thisform.text6.value

replace 毕业生基本信息表.民族 with thisform.text7.value

replace 毕业生基本信息表.学工号 with thisform.text8.value

replace 毕业生基本信息表.学历 with thisform.text9.value

replace 毕业生基本信息表.语种 with thisform.text10.value

replace 毕业生基本信息表.邮政编码 with thisform.text11.value

replace 毕业生基本信息表.手机号码 with thisform.text12.value

replace 毕业生基本信息表.Qq号码

with thisform.text13.value

replace 毕业生基本信息表.毕业院校 with thisform.text14.value

replace 毕业生基本信息表.所学专业 with thisform.text15.value messagebox(\修改成功！！！！\提示\ endif thisform.refresh

“删除“按钮的代码如下：

=messagebox(\确定要删除吗？？？\提示\delete pack skip-1

thisform.refresh

“退出”按钮的代码如下： Release Thisform

7.毕业生成绩信息表单

实现功能：查询成绩信息。

学生成绩查询表单属性： Auto Center：.F.--假

Caption：学生成绩查询表单 Font Name:宋体

Font size:9 Height:443

Picture: （自定义）Show window:2--作为顶层

Title bar:0--关闭 Top：0

clear

if thisform.optiongroup1.option1.value=1 then

Width：631

Window state:0--普通 按钮属性： Button count：2（其他属性可根据需要自行设定）

表单控件代码如下： 对象：command1 过程：click

xuehao=\ \sele 学生成绩及表现

xuehao=allt(thisform.txt学号.value)

*set filter to

locate all for 学生成绩及表现.学号=xuehao if not found() *set filter to 学生成绩及表现.学号=allt(thisform.txt学号.value)

*else =messagebox(\查无此人！\错误\

endif else

xm=\ \sele 学生成绩及表现

xm=allt(thisform.txt姓名.value)

*set filter to

a=messagebox(\确定修改吗？\提示\ if a=1 sele 学生成绩及表现 repl 学生成绩及表现.学号 with thisform.txt学号2.value repl 学生成绩及表现.姓名 with thisform.txt姓名2.value repl 学生成绩及表现.政治面貌 with thisform.txt政治面貌.value repl 学生成绩及表现.学业成绩 with thisform.txt学业成绩.value repl 学生成绩及表现.工作单位 with thisform.txt工作单位.value repl 学生成绩及表现.毕业去向 with thisform.txt毕业去向.value repl 学生成绩及表现.学校评价 with thisform.txt学校评价.value repl 学生成绩及表现.工资待遇 with thisform.txt工资待遇.value messagebox(\修改成功！\ endif thisform.refresh

Command6的Click事件的代码如下：xuehao=thisform.txt学号2.value use 学生成绩及表现 exclusive

if messagebox(\你真的要删除记录吗？\删除提示\

locate for 学生成绩及表现.姓名=xm if not found() *set filter to 学生成绩及表现.学号=allt(thisform.txt学号.value)

*else =messagebox(\查无此人！\错误\

endif endif

thisform.refresh

Command2的Click 事件代码如下： clear

release thisform

Command5的Click事件的代码如下： delete from 学生成绩及表现 where 学号=xuehao

pack

messagebox(\删除成功\提示\else

thisform.refresh endif

thisform.refresh

Command7的Click事件的代码如下： do form 学生成绩添加表单 thisform.release

Option 1的Click事件的代码如下： if this.value=1 then

thisform.txt学号.enabled=.t. thisform.txt学号.setfocus thisform.txt姓名.enabled=.f. endif

Option 2的Click事件的代码如下： if this.value=1 then

thisform.txt姓名.enabled=.t. thisform.txt姓名.setfocus thisform.txt学号.enabled=.f. endif

Form1的Init事件的代码如下： thisform.top=80 thisform.left=300

学生成绩录入表单：

实现功能：录入学生成绩。

（表单本身的设置属性没有很大的差别！这里不再介绍，请参照前几个属性）

repl 学生成绩及表现.姓名 with Form 1

thisform.txt姓名.value Init

代码如下： repl 学生成绩及表现.政治面貌

with thisform.txt政治面貌.value thisform.top=80

repl 学生成绩及表现.学业成绩 thisform.left=300

with thisform.txt学业成绩.value Command1

repl 学生成绩及表现.工作单位 Click

代码如下： with thisform.txt工作单位.value

repl 学生成绩及表现.毕业去向 clear

if empty(thisform.txt学号.value) with thisform.txt毕业去向.value messagebox(\学号不能为空！\提示\ repl 学生成绩及表现.学校评价

with thisform.txt学校评价.value else

locate for alltrim(学生成绩及表现.学 repl 学生成绩及表现.工资待遇 号)==alltrim(thisform.txt学号.value) with val(thisform.txt工资待遇.value)

\ if found() messagebox(\ 添加成功！

a=messagebox(\该记录已存在！ thisform.release \提示\ endif

else endif sele 学生成绩及表现 Command 2 的 Click 事件的代码如下： appe blan repl 学生成绩及表现.学号 with thisform.txt学号.value

release thisform clear

8.毕业生学籍信息表单

老师对学生的学籍查询：

实现功能：查询学生学籍。

“查询”的click事件代码： '\ if do form 老师查询结果浏thisform.optiongroup1.option1.value=1 览.scx then else locate for alltrim(毕业生学籍. =messagebox(\输入的班级学号)==alltrim(thisform.combo1.value) 不存在，请重新输入！！！\提示\ if found () thisform.text1.value=\ b=recno() thisform.text1.setfocus do form 学生查询结果浏 endif 览.scx endif endif “退出”的click事件代码： else Release thisform thisform.optiongroup1.option2.value=1 Form1的init事件的代码： then locate for alltrim(毕业生学thisform.text1.enabled=.f. 籍.班级)==alltrim(thisform.text1.value) public c if !eof() public b c=\* from 毕业生thisform.top=80 学籍 where 班级 = thisform.left=300

按学号查询的结果浏览：

实现功能：显示查询的结果。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VFP程序设计实习报告(6)在线全文阅读。