内容发布更新时间 : 2024/11/16 4:13:24星期一 下面是文章的全部内容请认真阅读。

25．编制“学生”表信息查询界面，要求如图1、图2、图3所示。

图1 用户选择前的运行界面 图2 用户选择同学后的运行界面

答案：（学生表拉到数据环境）（把“性别”字段拉到表单内，改Caption）

（1）表单Form1的Init事件代码：

Thisform.Label1.Caption=”请选择学生姓名” Thisform.Label2..Caption=”学号” Thisform.Label3..Caption=”姓名” Thisform.Labe4..Caption=”性别”

Thisform.Label5..Caption=”出生年月” Thisform.Label6..Caption=”奖学金”

Thisform.Check1.Caption=”选中为’男’,否则为’女’” Thisform.Caption=”学生表信息查询” Thisform.Setall(“Readonly”,.T.,”TextBox”) Thisform.Check1.Readonly=.T.

（2）列表框List的InterActiveChange事件代码： ThisForm.SetAll(\ ThisForm.Refresh

19．编制一个表单完成表文件“学生.dbf”内容的学生奖学金查询显示功能（界面如图所示）。

要求：①当用户在组合框输入或选择班级（学号的前三位）后，按回车或“确定”按钮时，表单将自动显示对应班级的奖学金总额；②按“退出”按钮时，自动关闭表单。

图:用户选择确定后的运行界面

答案：(把学生表拉到数据环境)

(1)表单Form1的Init事件代码：

SET TALK OFF SET SAFETY OFF

INDEX ON LEFT(学生.学号,3) TO XH UNIQUE Thisform.Combo1.DisplayValue=Left(学生.学号,3) SCAN

Thisform.Combo1.AddItem(Left(学生.学号,3)) ENDSCAN SET INDEX TO

(2)组合框Combo1的Valid事件代码：

IF EMPTY(This.DisplayValue) RETURN .T. ENDIF

LOCATE FOR LEFT(ALLTRIM(学生.学号),3)==LEFT(ALLTRIM(This.DisplayValue),3) IF EOF() RETURN .F. ELSE

RETURN .T. ENDIF

(3)命令按扭Command1的Click事件代码:

SUM 奖学金 TO MJXJ FOR LEFT(ALLTRIM(学号),3)==LEFT(ALLTRIM;(Thisform.Combo1.DisplayValue),3) Thisform.Text1.Value=MJXJ

(4)命令按扭Command2的Click事件代码:

Thisform.Release

18．建立一个表单，通过每次单击“开始”按钮，都能实现表单的标签信息从顶行向下平移，移到底边即停止。设计界面如图所示。标签高度为30像素，字体颜色为蓝色。

图：信息单向平移表单设计界面

答案：(Foreclour)

(1)表单Form1的Init事件：

Thisform.Timer1.Enabled=.F.

(2)命令按扭Command1的事件代码:

Thisform.Timer1.Enabled=.T.

(3)命令按扭Command2的事件代码:

Thisform.Release

(4)计时器Timer1的Timer事件：

IF Thisform.Label1.Top<=Thisform.Height-Thisform.Label1.Height Thisform.Label1.Top=Thisform.Label1.Top+1 ENDIF

Thisform.Refresh

16．运用文本框和计时器对象设计一个数字时钟表单，界面如图1、2所示。要求：文本框文字为隶书、20号字，表单的标题为“数字时钟”，每隔1秒钟刷新一次时间。

图1：设计界面

图2：运行界面

答案：