1.编制“学生”表信息查询界面,要求如图 1、图 2、图 3 所示。
图 1 用户选择前的运行界面
图 2 用户选择同学后的运行界面
图 3 控件的布局界面
编制学生表信息查询界面,要求以只读方式显示学生的信息,界面如图 4-62 和 4-63 所示。 (1)表单 Form1 的 init 事件 Thisform.Label1.caption=”请选择学生” Thisform.Label2.caption=”” Thisform.Label3.caption=”” Thisform.Label4.caption=”性别” Thisform.Label5.caption=”出生年月” Thisform.Label6.caption=”奖学金” Thisform.check1.caption=”选中为?男?,否则为?女?” Thisform.caption=”学生表信息查询” Thisform.setall(“readonly”,.T.,”textbox”) Thisform.check1.readonly=.T. (2)
列表框 list1 的 interactivechange 事件 Thisform.setall(“visible”,.T.) Thisform.refresh
2.编制一个表单完成表文件“学生.dbf”内容的学生奖学金
查询显示功能(界面如图所示) 。 要求:①当用户在组合框输入或选择班级(的左三位)后,按回车或“确定”按钮时, 表单将自动显示对应班级的奖学金总额;②按“退出”按钮时,自动关闭表单。
图:用户选择确定后的运行界面
(1) 表单 FORM1 的 init 事件 SET TALK OFF SET SAFETY OFF INDEX ON LEFT(学生.,3) TO XH UNIQE Thisformbol1.displayvalue=left(学生.,3) SCAN Thisformbol1.additem(left(学生.,3)) ENDSCAN SET INDEX TO (2)组合框 combol1 的 vaild 事件 IF EMPTY(this.displayvalue) Return .T. ENDIF LOCATE FOR LEFT(ALLTRIM(学生.,3)==ALLTRIM(This.displayvalue) IF EOF() Return .F. ELSE Return .T. ENDIF (3)命令按钮 command1 的 click 事件 Sum 奖学金 TO MJXJ FOR LEFT(ALLTRIM(),3)==ALLTRIM(Thisformbol1.displayvalue) Thisform.Text1.value=MJXJ (5) 命令按钮 command1 的 click 事件 Thisform.Release
3.建立一个表单,通过控件的事件代码控制,实现表单顶行的标签信息向下平移。设计界 面如图所示:
图:信息单向平移表单设计界面 命令按钮 FORM1 的 INIT 事件 Thisform.Timer1.Enabled=.F. (2) 命令按钮 COMMAND1 的 CLICK 事件 Thisform.Timer1.Enabled=.T. Thisform.Label1.Top=0 (3) 命令按钮 COMMAND2 的 CLICK 事件 Thisform.Release (4) 计时器 TIMER 的 TIMER 事件 IF Thisform.Label1.top<=thisform.height-thisform.label1.height Thisform.label.top=thisform.label1.top+1 ENDIF Thisform.refresh
4.运用文本框和计时器对象设计一个数字时钟表单,界面如图 1、2 所示。要求:文本框文 字为隶书、20 号字,表单的标题为“数字时钟” ,每隔 1 秒钟刷新一次时间。
图 1:设计界面
(1) 表单 Form1 的 INIT 事件 Thisform.Caption=”数字时钟” Thisform.Text1.Fontname=”隶书” Thisform.Text1.Fontsize=30 Thisform.Timer1.Interval=1000 (2) 计时器 TIMER1 的 timer 事件
图 2:运行界面
Thisform.Text1.Value=LEFT(TIME()
,2)+”时”+SUBSTR(TIME(),4,2)+”分”+RIGHT(TIME(),2)+”秒” Thisform.Refresh
5.设计一个圆球跳动表单。要求:球的宽和高为
40,球的填 充颜色为咖啡色,表单的标题为“圆球跳动” ,球每隔 0.5 秒 在表单的上下边之间跳动。按开始按钮球跳动,按停止按钮 球停止。
设计界面和运行界面见下图所示。
(1) 命令按钮 COMMAND1 的 CLICK 事件 Thisform.Timer1.Enabled=.T. (2) 命令按钮 COMMAND2 的 CLICK 事件 Thisform.Timer1.Enabled=.F. (3) 计时器 TIMER1 的 TIMER 事件 IF Thisform.Shape1.Top=0 Thisform.Shape1.Top=Thisfrom.Height-Thisform.Shape1.Height ELSE Thisform.Shape1.Top=0 ENDIF Thisform.Refresh (4)表单 FORM1 的 init 事件 Thisform.Timer.Enabled=.F.
6.设计一个完成口令判定功能的表单,界面如图所示。具体要求
如下:①用户从