表单名称： 添加 文件名： 添加.scx
数据环境： student.dbf， class.dbf， score.dbf， teacher.dbf， course.dbf 对象设置：
对 象 Form1 PageFrame1 Command1 Page1 Page2 Page3 Page4 Page5 Command1 Command2 属 性 Caption PageCount Caption Caption Caption Caption Caption Caption Caption Caption 值 添加 5 返回主菜单 学生表 教师表 班级表 课程表 成绩表 添加 清空 主表单中的Command1 与上面的Command1不同，这是在各个页面中的Command1 说 明 函数与方法声明： 因为添加表单中对于5个表的操作方法类似，所以这里只给出学生表的添加部分，其余4个页面的程序请同学们自己对照思考和编制。 (1) Form1中的Active事件 功能： 设置焦点位置 程序清单：
this.pageframe1.page1.text1.setfocus
(2) Form1中的Command1的Click事件 功能： 释放当前窗口 程序清单： thisform.release
(3) Page1中Command1的Click事件
功能： 将输入的新记录信息添加到学生表中，完成新记录的添加工作
程序清单：
num1=alltrim(thisform.pageframe1.page1.text1.value) num2=alltrim(thisform.pageframe1.page1.text2.value) num3=alltrim(thisform.pageframe1.page1.text3.value) num4=alltrim(thisform.pageframe1.page1.text4.value)
num5=alltrim(dtoc(thisform.pageframe1.page1.text5.value)) &&并非是alltrim(thisform.pageframe1.page1.text5.value) set exact on do case
case num1=''
messagebox('学号不能为空!'，0+48，'系统提示!') thisform.pageframe1.page1.text1.setfocus case num2=''
messagebox('姓名不能为空!'，0+48，'系统提示!') thisform.pageframe1.page1.text2.setfocus case num3=''
messagebox('性别不能为空!'，0+48，'系统提示!') thisform.pageframe1.page1.text3.setfocus case num4=''
messagebox('班级编号不能为空!'，0+48，'系统提示!') thisform.pageframe1.page1.text4.setfocus case num5=''
messagebox('出生日期不能为空!'，0+48，'系统提示!') thisform.pageframe1.page1.text5.setfocus otherwise
a=messagebox('确认添加么?'，1+64+0，'系统提示!') if a=1
select student go bottom
insert into student(学号，姓名，性别，班级编号，出生日期) num3，num4，ctod (num5)) messagebox('添加成功!') else
thisform.pageframe1.page1.text1.setfocus endif endcase
(4) Page1中的Command2的Click事件： 功能： 清空当前页面上输入的数据 程序清单：
this.parent.text1.value='' this.parent.text2.value='' this.parent.text3.value='' this.parent.text4.value='' this.parent.text5.value=''
values(num1，num2， 由于其它各个页面上的添加数据的操作大同小异，这里不再赘述。 比如：
num1=alltrim(thisform.pageframe1.page2.text1.value) num2=alltrim(thisform.pageframe1.page2.text2.value) num3=alltrim(thisform.pageframe1.page2.text3.value) num4=alltrim(thisform.pageframe1.page2.text4.value) num5=alltrim(thisform.pageframe1.page2.text5.value)
num6=alltrim(dtoc(thisform.pageframe1.page2.text6.value)) &&并非是alltrim(thisform.pageframe1.page2.text6.value) set exact on do case
case num1=''
messagebox('教师代码不能为空!',0+48,'系统提示!') thisform.pageframe1.page2.text1.setfocus case num2=''
messagebox('姓名不能为空!',0+48,'系统提示!') thisform.pageframe1.page2.text2.setfocus case num3=''
messagebox('性别不能为空!',0+48,'系统提示!') thisform.pageframe1.page2.text3.setfocus case num4=''
messagebox('职称不能为空!',0+48,'系统提示!') thisform.pageframe1.page2.text4.setfocus case num5=''
messagebox('部门不能为空!',0+48,'系统提示!') thisform.pageframe1.page2.text5.setfocus case num6=''
messagebox('出生日期不能为空!',0+48,'系统提示!') thisform.pageframe1.page2.text6.setfocus otherwise
a=messagebox('确认添加么?',1+64+0,'系统提示!') if a=1
select student go bottom
insert into student(教师代码,姓名,性别,职称,部门,出生日期) values(num1,num2,num3,num4,num5,ctod(num6)) messagebox('添加成功!') else
thisform.pageframe1.page2.text1.setfocus endif endcase
2.4 数据查询模块
功能描述： 用户可以通过不同的页面完成对5个不同表中的数据的查询操作 界面设计：
表单名称： 查询 文件名： 查询.scx
数据环境： student.dbf， class.dbf， score.dbf， teacher.dbf， course.dbf 对象设置：
查询主表单中的对象设置：
对 象 Form1 PageFrame1 Command1 对 象 Combo1 Combo2 Label1 Label2 Label3 Label4 Label5 Label6 Label7 属 性 Caption PageCount Caption 属 性 RowSource RowSource Caption Caption Caption Caption Caption Caption Caption 值 查询 3 返回主菜单 值 Classese.班级编号 Student.姓名 请选择班级代码和姓名 班级代码 姓名 学号 姓名 性别 出生日期 主表单中的Command1 说 明 PageFrame1.Page1中的对象设置： RowSourceType 6-字段 RowSourceType 6-字段 PageFrame1.Page2用来对数据表进行浏览，其界面为：
其中的对象设置：
对 象 Combo1 属 性 RowSourceType RowSource Style Value Label1 Grid1 Caption 值 1-值 学生表，教师表，班级表，课程表，成绩表 2-下拉列表框 1 请选择要浏览的表 RecordSourceType 0-表 PageFrame1.Page3用来进行课程浏览.其界面为：
其中的对象设置：
对 象 Label1 属 性 Caption 值 5 课程代码 CommandGroup1 ButtonCount
Visual Foxpro编程实例
