表单复习课堂练习题

表单复习课堂练习题

图4

2.组合框/列表框+命令按钮

【2.】某表单(fml)上有一个列表框(list1)、一个文本框（text）和一个命令按钮(command1，其Caption属性为“添加”)。请完善命令按钮的Click事件代码以实现以下功能：在文本框text1中输入字符串，如果该字符串在列表框中不存在，就将该字符串插入到列表框中，否则弹出对话框给出信息提示“该字符串已经存在，请重新输入”。运行表单时参考界面如图所示。

flag=0

FOR n=1 TO THISFORM.list1.ListCount

IF THISFORM list1.List(n)= flag=1 ENDIF ENDFOR

IF flag=0

(THISFORM.text1.Value) ELSE

MESSAGEBOX(“改字符串已经存在，请重新输入”) ENDIF

3.选项按钮组+表格

【32.】已知xs（学生）表、kc（课程）表、cj（成绩）表的表结构如下： （1）xs.dbf：学号（xh,C,8）、姓名（xm,C,8）、性别（xb,C,2）

（2）kc.dbf：课程代号（kcdh，C，8）、课程名称（kcmc，C，20）、学分（xf，N，2） （3）cj.dbf：学号（xh,C,8）、课程代号（kcdh,C,3）、成绩（cj,N,3）

- 5 -

表单复习课堂练习题

图4

某表单运行时如图4所示，其功能是查看出01-04年级需要补考的情况。当用户利用选项按钮组（opt1）选择一个年级时，列表框（list1）中显示出该年级所有课程不及格的学生的学号、姓名、课程名称和成绩（xh字段的前两位表示年级）。 根据图4所示表单，填写表单、列表框和选项按钮组控件的下列属性值：

表单：ControlBox= 列表框：ColumnCount= 选项按钮组：Value= 4.文本框+命令按钮/组+计时器

（1）文本框+命令按钮/组

【18.】学生注册表单（forml）如图1所示 ，该表单中含有3个标签、2个文本框（Text1和Text2）,1个命令按钮组（包含3个按钮），其功能是对学生信息进行注册：

1）如在学生注册（ZC）表中已存在某学生的记录（学号已经存在），说明该学生已注册过；若没有，则进行注册，即将该学生信息存入学生注册表；

2）进行注册时（即按“确认”按钮时），学生和姓名不能为空。

图1 学生注册表单

表单是一个容器型控件，其集合属性为Controls，计数属性为ControlCount。此表单的ControlCount 属性值为__ ___。

根据表单的功能要求，完善下列命令按钮组的Click事件代码： ch1=ALLT(THISFORM.Text1.Value) ch2=ALLT(THISFORM.Text2.Value) DO CASE

CASE THIS.Value =1

IF LEN(ch1)=0 OR LEN(ch2)=0

=MESSAGEBOX (“学号、姓名必须填写！”) ELSE

for zc.xh=ch1 IF !EOF()

=MESSAGEBOX (“此学生已注册，请重新输入！”) ESLE

INSERT INTO zc(xh, xm) Values(ch1, ch2)

- 6 -

表单复习课堂练习题

ENDIF ENDIF

CASE THIS.Value=2

THISFORM.Text1.Value=“” THISFORM.Text2.Value=“”

__ ___ && 使Text1 文本框得到输入焦点 CASE THIS.Value=3

THISFORM.RELEASE ENDCASE

（2）文本框+命令按钮/组+计时器

【36.】某表单上分别有一个标签Label1、文本框Text1、命令按钮组CommandGroup1和计时器Timer1控件（运行时如下图所示）。

在设计时，计时器的Interval属性已设置为500、Enabled属性值已设置为.F.（即不启用），且已为计时器的Timer事件设置了事件处理代码，其功能是使文本框显示当前的系统日期和与时间。命令按钮组中包含3个命令按钮，依次为“启用”、“暂停”和“退出”，其功能分别为启用计时器控件、不启用计时器控件和关闭表单，完善如下的命令按钮组的Click事件处理代码：

DO CASE

CASE THIS.Value=1

THIS. _________ .Timer.Enabled＝.T. CASE THIS.Value=2

THISFORM.Timer1.Enabled=.F. CASE THIS.Value=3

__ ENDCASE

- 7 -