and3.Enabled.F. Thisform.Command4.Enabled.F. Thisform.Command1.Enabled.T. Thisform.Command2.Enabled.T. Thisform.Refresh3、编制一个表单完成学生成绩查询显示功能1From1 的 Init 事件SET TALK OFFSELECT 1USE 学生SELECT 2USE 成绩2Command1 的 Click 事件SELECT 1LOCATE ALL FOR ALLTRIM姓名ALLTRIM(Thisform.Combo1.Displayvalue)IF FOUNDMESSAGEBOX“查无此人”ELSESELECT 2AVERAGE ALL FOR 学号学生.学号 TO PJThisform.Text1.ValuePJENDIFThisform.Refresh(3)Command2 的 Click 事件Thisform.Release4、编一页面转换表单,要求表单上有一个包含 3 页的页框,每页依次一幅图画、一张表格、一个列表框。
Form1 的 Init 事件Thisform.P0 ampampP 是用户自定义的属性Timer1 的 Timer 事件Thisform.Pageframe1.Page1. Enabled.F.Thisform.Pageframe1.Page2. Enabled.F.Thisform.Pageframe1.Page3. Enabled.F.Thisform.PThisform.P1IF Thisform.PgtThisform.Pageframe1.Pagecount Thisform.P1ENDIFThisform.Pageframe1.PagesThisform.P.Enabled.T.Thisform.Pageframe1.ActivepageThisform.PThisform.Refresh5.编制手工日历表单。
(1) 表单 FORM1 的 INIT 事件 Thisform.Text1.ValueDATE Thisform.Spinner1.Setfocus2微调 Spinner1 的 UpClick 事件 Thisform.Text1.ValueThisform.Text1.Value1 Thisform.Refresh3微调 Spinner1 的 DownClick 事件 Thisform .Text1.ValueThisform.Text1.Value-1 Thisform . Refresh6.编制表文件完成自动只读浏览显示功能(表单内容将以 2 秒为间隔自动刷新)表单 FROM1 的 INIT 事件Thisform.Setall“Readonly”.T.”Textbox”Thisform.Setall “Readonly”.T.”Editbox”Thisform Setall “Readonly ”.T.”Checkbox”计时器 TIMER1 的 timer 事件SkipIF EOF Go TOPENDIFThisform.Refresh7.设计一个表单,使表单中的信息行显示系统当前时间,并使该信息行在表单内左右缓慢平移。
界面如图 4-23 和图 4-24 所示。
要求:现实时间信息的字体大小为 20 号。
信息先向右移动,且每 0.1 秒钟移动一个像素点。
(1) 表单 Form1 的 Iint 事件 This.caption”信息移动态平行移动”Thisform.timer1.interval1002计时器 TIMER1 的 TIMER 事件Thisform..label1.captionTIME IF Thisform .Label1.Leftlt0 Thisform.D.T.EndifIf thisform.label1.leftgtthisform.width-thisform.label1.widththisform.D.F.EndifIf thisform.D.T. Thisform.label1.leftthisform.label1.left1Else Thisform.label1.leftthisform.label1.left-1Endif8.利用计时器空间设计一个模拟拍球动作的表单。
具体界面如图 4-25 和 4-26 所示。
球的起始位置在表单的顶行中部,表单执行后,秋自上而下落下并且球体逐渐变大,当球到达表单底部时自动弹回,并且球体又逐渐回缩变小,当球到达顶部时再次自动下落,如此往复弹跳,仿佛有人用手拍打球,知道关闭表单。
(1) 表单 Form1 的 Init 事件Thisform.shape1.width40Thisform.shape1.height40Thisform.shape1.top0Thisform. t1Thisform.timer1.interval1002.计时器 Timer1 的 Timer 事件 If thisform.shape1.toplt0 Thisform.T1EndifIf thisform.shape1.topgt Thisform . Height- Thisform.shape1.heightThisform.T0Endif If thisform.T1Thisform.shape1.top Thisform.shape1.top1Thisform.shape1.width Thisform.shape1.width1Thisform.shape1.height Thisform.shape1.height1ElseThisform.shape1.top Thisform.shape1.top-1Thisform.shape1.width Thisform.shape1.width-1Thisform.shape1.height Thisform.shape1.height-1EndifThisform.refresh9.设计一个 3 表关联查询表单表单 FORM1 的 INIT 的事件Thisform.setall“Readonly”.T.”Grid”Thisform.setall“Allowaddnew”.F.”Grid”Thisform.setall“Deletemark”.F.”Grid”10.设计一个统计车票总金额的表单。
“计算总额”命令按钮设置“计算总额”Default 为.T. Text1 ReadOnly 为.T.Command1 的 Click 事件:S0IF Thisform.Check1.Value1 SS580ENDIFIF Thisform.Check2.Value1 SS50ENDIFIF Thisform.Check3.Value1 SS280ENDIFThisform.Text1.ValueSThisform.RefreshCommand2 的 Click 事件:Thisform.Release 。
、11.编制一个表单完成计数器计数显示功能。
初始显示为“00:00:00”“计数”“停止”添加自定义属性 HMSForm1 的 Init 事件:STORE 0 This.HThis.MThis.SThisform.Text1.Value”00:00:00”Thisform.Timer1.Enabled.F.Thisform.Refresh命令按钮 Command1 的 Click 事件:Thisform.Timer1.Enabled.T.STORE 0 Thisform.HThisform.MThisform.SThisform.Text1.Value”00:00:00”命令按钮 Command2 的 Click 事件:Thisform.Timer1.Enabled.F.计数器 Timer1 的 Timer 事件:Thisform.SThisform.S1IF Thisform.S60 Thisform.S0 Thisform.MThisform.M1 IF Thisform.M60 Thisform.M0 Thisform.HThisform.H1 ENDIFENDIFHHIIFThisform.Hgt9STRThisform.H2”0”STRThisform.H1MMIIFThisform.Mgt9STRThisform.M2”0”STRThisform.M1SSIIFThisform.Sgt9STRThisform.S2”0”STRThisform.S1Thisform.Text1.ValueHH”:”MM”:”SSThisform.Refresh12、用单项按钮设计 5 色调色板表单(1)表单 form1 的 init 事件 Thisform.optiongroup1.value1 Thisform.optiongroup1.backcolorRGB255002选项按钮组 optiongroup1 的 click 事件 DO CASE CASE this.Value1 this.BackColorRGB25500 CASE this.Value2 this.BackColorRGB00255 CASE this.Value3 this.BackColorRGB02550 CASE this.Value4 this.BackColorRGB255255255 CASE this.value5 this.BackColorRGB000 ENDCASE thisform.Refresh13、设计一个表单,当用户在文本框输入矩阵的维数后,按“显示”按钮则会在编辑框中输出对角线为 0 的 N 维矩阵,输入数据不合要求时显示提示信息。
(1)文本框 text1 的 valid 事件 IF VALthis.Valuegt9 OR VALthis.Valuelt1 MESSAGEBOXquot输入错,请重新输入!quot RETURN .F. ELSE RETURN .T. ENDIF thisform.Refresh(2)命令按钮 command1 的 click 事件 NVALALLTRIMthisform.text1.ValueDIMENSION ANNCHquotquotFOR I1 TO N FOR J1 TO N IF IJ OR IJN1 AIJ0 ELSE AIJ1 ENDIF CHCHSTRAIJ2 ENDFOR CHCHCHR13ENDFORthisform.edit1.ValueChthisform.text1.SetFocusthisform.Refresh第 14 题设计一个完成口令判定功能的表单,界面如图 4-37图 4-40 所示。
具体要求如下:1.用户从键盘输入口令时,表单的显示控件以”“代替具体内容;2。
系统的口令存放在表文件quot学生.dbfquot的姓名字段中,要求完全匹配;3。
输入口令后,按回车键或按“确定”按钮,将自动显示信息框(MESSAGEBOX),提示“正确!”或“错误”;4。
按“退出”按钮自动关闭菜单(1)表单 FORM1 的 init 事件 USE 学生 Thisform.text1.passwordcharquotquot This.Captionquot口令验证窗quot(2)文框 Text1.Valid 事件 locate for alltrimthis.valuealltrim姓名 if found messageboxquot正确quot return .f. else messageboxquot错误quot return .f. endif thisfor.refresh3命令按钮 command1 的 click 事件 thisform.text1.valid4命令按钮 command2 的 clicl 事件 use thisform.release第 15 题
上一篇:
【精品】
下一篇:
ASP小区停车管理系统(Access)(含录像)