课程设计添加表单(6个课时).doc
文本预览下载声明
添加表单（添加．scx）
表单对象结构组成：一个页框（含有５页）、一个命令按钮。
属性设置：
对象 属性 属性值 备注 Form1 Caption 添加 autocenter .T. Command1 caption 返回 Pageframe1 pagecount 5 （包含下面５页） Page１ Caption 学生表 Page2 Caption 教师表 Page3 Caption 班级表 Page4 Caption 课程表 Page5 Caption 成绩表 事件设置：
命令按钮command1（返回）的click事件代码：
thisform．Release
表单form1的load事件代码：
for i=1 to 10
select i
use
endfor
数据环境设置：
将“选课成绩管理．Dbc”数据库中的student、score、classes、course、teacher表添加到数据环境中。
１、第一页（学生表）
1）对象结构图：
结构组成：标签、形状、文本框、命令按钮组。
2）Page１中对象及属性设置：
对象 属性 属性值 Label1 Caption 向学生表添加新记录 Commandgroup1 buttoncount 2 Command1 caption 添加 Command2 caption 重写 Shape1 Backstyle 0-透明 3）text４的生成器设置：
将生成器“格式”标签中的“数据类型”设置为“日期型”。（切记！！！）
4）Pageframe1．Page１中对象的事件代码
commandgroup1的click事件代码：
if this.value=1
public n1,n2,n3,n4,n5
n1=alltrim(this.parent.text1.value)
n2=alltrim(this.parent.text2.value)
n3=alltrim(this.parent.text3.value)
n4=this.parent.text4.value
n5=alltrim(this.parent.text5.value)
if n1==
messagebox(学号不能空！,64,提示)
this.parent.text1.value=
this.parent.text2.value=
this.parent.text3.value=
this.parent.text4.value={}
this.parent.text5.value=
this.parent.text1.setfocus
else
sele student
go bottom
insert into student values(n1,n2,n3,n4,n5)
messagebox(添加成功！,64,提示)
this.parent.text1.value=
this.parent.text2.value=
this.parent.text3.value=
this.parent.text4.value={}
this.parent.text5.value=
this.parent.text1.setfocus
endif
else
this.parent.text1.value=
this.parent.text2.value=
this.parent.text3.value=
this.parent.text4.value={}
this.parent.text5.value=
this.parent.text1.setfocus
endif
2、第二页（教师表）
1）对象结构图：
结构组成：标签、形状、文本框、命令按钮组、编辑框。
2）Page２中对象及属性设置：
对象 属性 属性值 Label1 Caption 向教师表添加新记录 Commandgroup1 buttoncount 2 Command1 caption 添加 Command2 caption 重写 Shape1 Backstyle 0-透明 ３）text４的生成器设置：
将生成器“格式”标签中的“数据类型”设置为“日期型”。（切记！！！）
４）Pageframe1．Page２中对象的事件代码
命令按钮组commandgroup1的click事件代码：
if this.value=1
n1=alltrim(this.parent.text1.value)
n2=alltrim(this.parent.text
显示全部