应用表单的设计

1、第第12章章应用表单的设计应用表单的设计12.1 设计系统说明表单设计系统说明表单12.2 设计系统登录表单设计系统登录表单12.3 设计数据维护表单设计数据维护表单12.4 设计数据查询表单设计数据查询表单12.5 设计多功能表单设计多功能表单习题习题 表单是应用系统的主要工作界面，也是用户进行应表单是应用系统的主要工作界面，也是用户进行应用系统开发的基础。在用系统开发的基础。在Visual FoxPro系统中，使用系统中，使用表单控件进行应用表单的设计，会使应用程序的界表单控件进行应用表单的设计，会使应用程序的界面美观、大方，便于操作和控制。面美观、大方，便于操作和控制。 本章将结合应用表

2、单的设计，进一步介绍常用表单本章将结合应用表单的设计，进一步介绍常用表单控件的基本属性的定义，及其事件和方法代码的设控件的基本属性的定义，及其事件和方法代码的设计。计。12.1 设计系统说明表单设计系统说明表单 系统说明表单，是有关系统功能或系统设计或系统系统说明表单，是有关系统功能或系统设计或系统使用的说明窗口。设计者可以通过它，向使用系统使用的说明窗口。设计者可以通过它，向使用系统的用户说明与系统相关的信息。的用户说明与系统相关的信息。 以下三个不同的例子，都是有关系统说明的窗口，以下三个不同的例子，都是有关系统说明的窗口，这几个系统说明表单各自具有不同的风格，它们体这几个系统说明表单各自

3、具有不同的风格，它们体现了系统说明表单的一般设计形式。现了系统说明表单的一般设计形式。 例例12.1 设计一个表单，其名定义名设计一个表单，其名定义名“关于系统关于系统1”，运行运行“关于系统关于系统1”的结果如图的结果如图12.1所示。所示。图图12.1 “关于系统关于系统1”表单，含有表单，含有3个标签控件。个标签控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：关于系统：关于系统 Top：0 Left：0 Height：454 Width：642 backcolor：255，255，0 Fontname：宋体：宋体 Fontsize：9 Windows

4、tate：2 - 最大化最大化 Name：form1(2) 标签标签1的主要属性如下：的主要属性如下： Caption：铁路售票查询系统：铁路售票查询系统 V1.0 Top：72 Left：80 Height：56 Width：520 Autosize：.T. - 真真 Fontname：仿宋：仿宋 - GB2312 Fontsize：35 Windowstate：2 - 最大化最大化 backcolor：0 - 透明透明 Name：Label1(3) 标签标签2的主要属性如下：的主要属性如下： Caption：版权所有：版权所有(C)2000 Top：192 Left：220 Height：

5、24 Width：184 Fontname：楷体：楷体 - GB2312 Fontsize：14 Name：Label2其他属性与其他属性与Label1相同。相同。(4) 标签标签3的主要属性如下：的主要属性如下： Caption：研制人：杨小礼李雁翎：研制人：杨小礼李雁翎 Top：241 Left：200 Height：29 Width：266 Fontname：楷体：楷体GB2312 Fontsize：18 Name：Label3其他属性与其他属性与Label1相同。相同。 例例12.2 设计一个表单，其名定义为设计一个表单，其名定义为“关于系统关于系统2”。运行运行“关于系统关于系统2”

6、的结果如图的结果如图12.2所示。所示。图图12.2 “关于系统关于系统2”表单，含有表单，含有3个标签控件，个标签控件，1个命令按个命令按钮控件，钮控件，1个图像控件。个图像控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：关于系统：关于系统 Top：0 Left：0 Height：253 Width：394 Fontname：宋体：宋体 Fontsize：9 backcolor：192，192，192 Autocenter：.T. 真真 Name：form1(2) 标签标签1的主要属性如下：的主要属性如下： Caption：旅游信息管理系统：旅游信息管理

7、系统 Top：60 Left：192 Height：253 Width：168 Fontname：宋体：宋体 Fontsize：15 backcolor：0 透明透明 Name：Label1(3) 标签标签2的主要属性如下：的主要属性如下： Caption：Version1.0 Top：120 Left：216 Height：14 Width：120 Fontsize：9 Name：Label2其他属性与其他属性与Label1相同。相同。(4) 标签标签3的主要属性如下：的主要属性如下： Caption：Copyright2000 Top：215 Left：17 Height：25 Width

8、：220 Fontname：幼园：幼园 Fontsize：11 Name：Label3 其他属性与其他属性与Label1相同。相同。(5) 图像图像1的主要属性如下：的主要属性如下： Top：11 Left：11 Height：157 Width：145 Stretch：2 变比填充变比填充 Picture：c:lylj4.bmp Name：Image1 (6) 命令按钮命令按钮1的主要属性如下：的主要属性如下： Caption：确认：确认 Top：216 Left：265 Height：25 Width：100 Name：Command1(7) Command1的的Click事件代码如下：事

9、件代码如下：release thisform 例例12.3 设计一个表单，其名定义为设计一个表单，其名定义为“关于系统关于系统3”。运行运行“关于系统关于系统3”的结果如图的结果如图12.3所示。所示。图图12.3 “关于系统关于系统3”表单，含有表单，含有6个标签控件。个标签控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：系统帮助：系统帮助 Top：13 Left：19 Height：234 Width：519 Fontname：宋体：宋体 Fontsize：9 Picture：c:lyl0252.jpg Name：form1(2) 标签标签1的主要属性

10、如下：的主要属性如下： Caption：熟识本系统应注意以下几点：熟识本系统应注意以下几点： Top：21 Left：19 Height：24 Width：263 Fontname：黑体：黑体 Fontsize：14 Fontunderline：.T.真真 backcolor：0 透明透明 Name：Label1(3) 标签标签2的主要属性如下：的主要属性如下： Caption：1.运行时请不要同时打开过多的窗口！运行时请不要同时打开过多的窗口！ Top：60 Left：96 Height：20 Width：293 Fontname：楷体：楷体GB2312 Fontsize：12 Name：L

11、abel2其他属性与其他属性与Label1相同。相同。(4) 标签标签3的主要属性如下：的主要属性如下： Caption：2.请注意多个控件的配合使用！请注意多个控件的配合使用！ Top：87 Width：242 Name：Label3 其他属性与其他属性与Label2相同。相同。(5) 标签标签4的主要属性如下：的主要属性如下： Caption：3.请注意登陆密码的准确输入！请注意登陆密码的准确输入！ Top：112 Width：242 Name：Label4 其他属性与其他属性与Label2相同。相同。(6) 标签标签5的主要属性如下：的主要属性如下： Caption：4.请谨慎运行删除表

12、单！请谨慎运行删除表单！ Top：141 Width：191 Name：Label5 其他属性与其他属性与Label2相同。相同。(7) 标签标签6的主要属性如下：的主要属性如下： Caption：欢迎使用铁路售票查询管理系统！：欢迎使用铁路售票查询管理系统！ Top：192 Left：204 Height：20 Width：258 Fontname：楷体：楷体GB2312 Fontsize：12 Fontunderline：.T.真真 backcolor：0 透明透明 Name：Label612.2 设计系统登录表单设计系统登录表单 系统登录表单，是用户使用系统的第一个工作窗口。系统登录表单

13、，是用户使用系统的第一个工作窗口。系统登录表单应该是具有启动系统，验证操作员系统登录表单应该是具有启动系统，验证操作员“口令口令”，引导用户使用系统等功能的工作窗口。，引导用户使用系统等功能的工作窗口。 以下介绍两个不同的系统登录表单的设计。以下介绍两个不同的系统登录表单的设计。 例例12.4 设计一个表单，其名定义为设计一个表单，其名定义为“系统登录系统登录1”。运行运行“系统登录系统登录1”的结果如图的结果如图12.4所示。所示。图图12.4 “系统登录系统登录1”表单，含有表单，含有2个标签控件，个标签控件，3个命令按个命令按钮控件，钮控件，1个容器控件，个容器控件，1个文本框控件，个文

14、本框控件，1个组合个组合框控件。框控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：登录：登录 Top：0 Left：0 Height：162 Width：275 Fontname：宋体：宋体 Fontsize：9 backcolor：0，128，255 Autocenter：.T. 真真 Icon：c:lylkey04.ico Name：form1(2) 命令按钮命令按钮1的主要属性如下：的主要属性如下： Caption：确：确 定定 Top：121 Left：24 Height：23 Width：60 Fontname：宋体：宋体 Fontsize：9

15、Autocsize：.F.假假 Name：Command1(3) 命令按钮命令按钮2的主要属性如下：的主要属性如下： Caption：取消：取消 Left：106 Name：Command2其他属性与其他属性与Command1相同。相同。(4) 命令按钮命令按钮3的主要属性如下：的主要属性如下： Caption：退出：退出 Left：190 Name：Command3其他属性与其他属性与Command1相同。相同。(5) 标签标签1的主要属性如下：的主要属性如下： Caption：操作员：操作员 Top：29 Left：63 Height：36 Width：108 Fontname：楷体：楷体

16、GB2312 Fontsize：13 Backcolor：0 透明透明 Name：Label1(6) 标签标签2的主要属性如下：的主要属性如下： Caption：密码：密码 Top：71 Width：73 Name：Label2其他属性与其他属性与Label1相同。相同。(7) 文本框文本框1的主要属性如下：的主要属性如下： Top：70 Left：164 Height：24 Width：69 Passwordchar：* Fontname：宋体：宋体 Fontsize：9 Value：(无无) Name：Text1(8) 组合框组合框1的主要属性如下：的主要属性如下： Top：28 Left

17、：164 Height：24 Width：71 Rowsource：password.czy Rowsourcetype：6 字段字段 Name：Combo1(9) 容器容器1的主要属性如下：的主要属性如下： Top：12 Left：24 Height：96 Width：228 Backstyle：1 不透明不透明 Speciaieffect：1 凹下凹下 backcolor：255，128，255 Name：Container1(10) form1的的init事件代码如下：事件代码如下：public m(11) Command1的的Click事件代码如下：事件代码如下：thisform.i=

18、thisform.i+1select passwordlocate for czy=alltrim(bo1.value)if found() and mm=alltrim(thisform.text1.value)if bo1.value=XFm=1_screen.caption=旅行社管理信息系统旅行社管理信息系统-(操作员操作员 ：XF)endifif bo1.value=LZm=0_screen.caption=旅行社管理信息系统旅行社管理信息系统-(操作员操作员 ：LZ)endif_screen.windowstate=2_screen.movable=.f._screen.minbu

19、tton=.f._screen.maxbutton=.f._screen.showtips=.t._screen.mousepointer=1set classlib to toobar.vcx_screen.addobject(toobar1,toobar)_screen.toobar1.left=0_screen.toobar1.top=0_screen.toobar1.visible=.t._screen.toobar1.enabled=.t.do mmenu.mprset clock onthisform.releaseelseif thisform.i=3=messagebox(不知

20、道是操作员还是密码搞错了不知道是操作员还是密码搞错了?+chr(13)+再试一次再试一次!,48,警个告警个告)thisform.text1.setfocuselse=messagebox(对不起对不起,您已输错三次了您已输错三次了!+ chr(13)+看来你是个非法用户看来你是个非法用户,您请回您请回,48,严重警个告严重警个告)thisform.releaseendifendif(12) Command2的的Click事件代码如下：事件代码如下：release thisform(13) Command3的的Click事件代码如下：事件代码如下：release thisformclose a

21、llquit(14) “系统登录系统登录1”表单的数据环境如图表单的数据环境如图12.5所示。所示。图图12.5 例例12.5设计一个表单，其名定义为设计一个表单，其名定义为“系统登录系统登录2”。运行运行“系统登录系统登录2”的结果如图的结果如图12.6所示。所示。图图12.6 “系统登录系统登录2”表单，含有表单，含有5个标签控件，个标签控件，2个命令按个命令按钮控件，钮控件，1个形状控件，个形状控件，1个文本框控件，个文本框控件，1个组合个组合框控件，框控件，1个计时器控件。个计时器控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：系统登录：系统登录

22、Top：0 Left：0 Height：227 Width：405 Fontname：宋体：宋体 Fontsize：9 Backcolor：192，192，192 Autocenter：.T. 真真 Name：form1(2) 命令按钮命令按钮1的主要属性如下：的主要属性如下： Caption：确认：确认 Top：117 Left：301 Height：23 Width：72 Fontname：宋体：宋体 Fontsize：9 Autocsize：.F.假假 Name：cmdok(3) 命令按钮命令按钮2的主要属性如下：的主要属性如下： Caption：取消：取消 Top：153 Name：c

23、mdCancel其他属性与其他属性与cmdok相同。相同。(4) 标签标签1的主要属性如下：的主要属性如下： Caption：选择操作员：选择操作员： Name：Label1其他属性略。其他属性略。(5) 标签标签2的主要属性如下：的主要属性如下： Caption：操作员口令：操作员口令： Name：Label2其他属性略。其他属性略。(6) 标签标签3的主要属性如下：的主要属性如下： Caption：输入操作员及口令：输入操作员及口令 Name：Label3其他属性略。其他属性略。(7) 标签标签4的主要属性如下：的主要属性如下： Caption：欢迎使用：欢迎使用“学生档案管理学生档案管理

24、 V1.0” Name：Label4其他属性略。其他属性略。(8) 标签标签5的主要属性如下：的主要属性如下： Caption：学生档案管理：学生档案管理 V1.0 Name：Label5其他属性略。其他属性略。(9) 文本框文本框1的主要属性如下：的主要属性如下： Top：150 Left：110 Height：23 Width：178 Passwordchar：* Fontname：宋体：宋体 Fontsize：9 Value：(无无) Name：txtPassword(10) 组合框组合框1的主要属性如下：的主要属性如下： Top：116 Left：110 Height：25 Width

25、：178 Rowsource：sysmn.s1 Rowsourcetype：6 字段字段 Name：txtUserName(11) 形状形状1的主要属性如下：的主要属性如下： Top：104 Left：18 Height：81 Width：371 Backstyle：0 透明透明 Name：Shape1(12) 计时器计时器1的主要属性如下：的主要属性如下： Enabled： .T. Interval：220 Name：Timer1(13) form1的的Init事件代码如下：事件代码如下：public cUser(14) form1的的Load事件代码如下：事件代码如下：set talk o

26、ffset safety off(15) Timer1的的Timer事件代码如下：事件代码如下：if thisform.label4.left1thisform.label4.left=thisform.width-8elsethisform.label4.left=thisform.label4.left-2endif(16) cmdok的的Click事件代码如下：事件代码如下：private syspassselect sysmnsyspass=allt(thisform.txtPassword.Value)locate for allt (s1)= allt(thisform.txtUs

27、erName.Value)iffound() andallt(sysmn.s3)=syspassthisform.cUser = allt(sysmn.s1)sysna= allt(sysmn.s2)thisform.visible=.f._screen.caption= 操作员：操作员：+sysnado hy_main.mprread eventthisform.visible=.t.this.parent.txtpassword.value= else#define mismatch_loc 用户号或口令不正确！请重用户号或口令不正确！请重新输入。新输入。wait window misma

28、tch_loc timeout1thisform.txtPassword.Value = thisform.txtPassword.SetFocusendif(17) cmdCancel的的Click事件代码如下：事件代码如下：thisform.cUser = thisform.Release(18) “系统登录系统登录2”表单的数据环境如图表单的数据环境如图12.7所示。所示。图图12.712.3 设计数据维护表单设计数据维护表单 数据维护表单，是用户进行数据资源管理的一个工数据维护表单，是用户进行数据资源管理的一个工作窗口，是数据库应用系统中的重要工作环境之一。作窗口，是数据库应用系统中的

29、重要工作环境之一。数据维护表单是应用系统提供给用户的一个数据维数据维护表单是应用系统提供给用户的一个数据维护环境，它能够完成数据的输入、修改、增加、删护环境，它能够完成数据的输入、修改、增加、删除及浏览等操作功能。除及浏览等操作功能。 以下介绍以下介绍“数据维护数据维护”和和“数据浏览数据浏览”两个表单设两个表单设计实例。计实例。 例例12.6 设计一个表单，其名定义为设计一个表单，其名定义为“数据维护数据维护”。运行运行“数据维护数据维护”的结果如图的结果如图12.8所示。所示。图图12.8 “数据维护数据维护1”表单，含有表单，含有8个标签控件，个标签控件，1个命令按个命令按钮组控件钮组控

30、件(其中包含其中包含8个命令按钮个命令按钮)，1个复选框控件，个复选框控件，7个文本框控件。个文本框控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：团员情况：团员情况 Top：0 Left：0 Height：299 Width：482 Fontname：宋体：宋体 Fontsize：9 Icon：c:lylmisc27.ico Backcolor：192，192，192 Autocenter：.T. 真真 Name：form1(2) 命令按钮组的主要属性如下：命令按钮组的主要属性如下： Top：241 Left：45 Height：46 Width：407

31、 Buttoncount：8 Name：Commandgroup1(3) 命令按钮命令按钮1的主要属性如下：的主要属性如下： Caption：首记录：首记录 Top：5 Left：5 Height：35 Width：45 Fontname：宋体：宋体 Fontsize：9 Name：Command1(4) 命令按钮命令按钮2的主要属性如下：的主要属性如下： Caption：上一条：上一条 Left：52 Name：Command2其他属性与其他属性与Command1相同。相同。(5) 命令按钮命令按钮3的主要属性如下：的主要属性如下： Caption：下一条：下一条 Left：101 Name

32、：Command3其他属性与其他属性与Command1相同。相同。(6) 命令按钮命令按钮4的主要属性如下：的主要属性如下： Caption：末记录：末记录 Left：150 Name：Command4其他属性与其他属性与Command1相同。相同。(7) 命令按钮命令按钮5的主要属性如下：的主要属性如下： Caption：增加：增加 Left：199 Name：Command5其他属性与其他属性与Command1相同。相同。(8) 命令按钮命令按钮6的主要属性如下：的主要属性如下： Caption：删除：删除 Left：250 Name：Command6其他属性与其他属性与Command1相

33、同。相同。(9) 命令按钮命令按钮7的主要属性如下：的主要属性如下： Caption：存盘：存盘 Left：300 Name：Command7其他属性与其他属性与Command1相同。相同。(10) 命令按钮命令按钮8的主要属性如下：的主要属性如下： Caption：退出：退出 Left：350 Name：Command8其他属性与其他属性与Command1相同。相同。(11) 复选框复选框1的主要属性如下：的主要属性如下： Top：192 Left：128 Height：24 Width：48 Controlsource：member.tf Value：0 Name：Check1(12) 标

34、签标签1的主要属性如下：的主要属性如下： Caption：团员编号：团员编号 Top：24 Left：41 Height：25 Width：85 Fontname：楷体：楷体 GB2312 Fontsize：13 Name：Label1(13) 标签标签2的主要属性如下：的主要属性如下： Caption：姓名：姓名 Top：54 Name：Label2其他属性与其他属性与Label1相同。相同。(14) 标签标签3的主要属性如下：的主要属性如下： Caption：性别：性别 Top：90 Name：Label3其他属性与其他属性与Label1相同。相同。(15) 标签标签4的主要属性如下：的主

35、要属性如下： Caption：电话：电话 Top：129 Name：Label4其他属性与其他属性与Label1相同。相同。(16) 标签标签5的主要属性如下：的主要属性如下： Caption：通讯地址：通讯地址 Top：161 Name：Label5其他属性与其他属性与Label1相同。相同。(17) 标签标签6的主要属性如下：的主要属性如下： Caption：团费交否：团费交否 Top：195 Name：Label6其他属性与其他属性与Label1相同。相同。(18) 标签标签7的主要属性如下：的主要属性如下： Caption：团员编号：团员编号 Top：24 Left：252 Name：

36、Label7其他属性与其他属性与Label1相同。相同。(19) 标签标签8的主要属性如下：的主要属性如下： Caption：身份证号码：身份证号码 Top：84 Left：252 Name：Label8 Width：96其他属性与其他属性与Label1相同。相同。(20) 文本框文本框1的主要属性如下：的主要属性如下： Top：20 Left：128 Height：25 Width：73 Controlsource：member.tbh Fontname：宋体：宋体 Fontsize：9 Value：(无无) Name：Text1(21) 文本框文本框2的主要属性如下：的主要属性如下： To

37、p：53 Controlsource：member.xm Name：Text2其他属性与其他属性与Text1相同。相同。(22) 文本框文本框3的主要属性如下：的主要属性如下： Top：89 Controlsource：member.xb Name：Text3其他属性与其他属性与Text1相同。相同。(23) 文本框文本框4的主要属性如下：的主要属性如下： Top：125 Width：100 Controlsource：member.dh Name：Text4其他属性与其他属性与Text1相同。相同。(24) 文本框文本框5的主要属性如下：的主要属性如下： Top：161 Width：264

38、Controlsource：member.dz Name：Text5其他属性与其他属性与Text1相同。相同。(25) 文本框文本框6的主要属性如下：的主要属性如下： Top：20 Left：128 Width：350 Controlsource：member.hm Name：Text6其他属性与其他属性与Text1相同。相同。(26) 文本框文本框7的主要属性如下：的主要属性如下： Top：120 Left：264 Width：168 Controlsource：member.sfz Name：Text7其他属性与其他属性与Text1相同。相同。(27) form1的的Init事件代码如下：

39、事件代码如下：go topthisform.istop=.t.thisform.isbottom=.f.(28) form1的的Cmdstaus事件代码如下：事件代码如下：lparameter stausif staus=1 with mandgroup1command1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=mand5.enabled=mand6.enabled=mand7.enabled=mand8.enabled=.t. endwith else with mandgroup1command1.enabled=mand2.en

40、abled=mand3.enabled=mand4.enabled=mand5.enabled=mand6.enabled=mand7.enabled=mand8.enabled=.t.endwithendif(29) Command1的的Click事件代码如下：事件代码如下：go topthisform.istop=.t.thisform.isbottom=.f.thisform.refresh(30) Command2的的Click事件代码如下：事件代码如下：skip -1if bof( )=messagebox(前无古人！前无古人！,48,提个醒提个醒)thisform.istop=.t

41、.go topendifthisform.isbottom=.f.thisform.refresh(31) Command3的的Click事件代码如下：事件代码如下：skip 1if eof( )=messagebox(后无来者！后无来者！,48,提个醒提个醒)thisform.isbottom=.t.go topendifthisform.istop=.f.thisform.refresh(32) Command4的的Click事件代码如下：事件代码如下：go bottomthisform.istop=.f.thisform.isbottom=.t.thisform.refresh(33)

42、Command5的的Click事件代码如下：事件代码如下：thisform.isadd=.t.thisform.oldrecord=recno()append blankthisform.refresh(34) Command6的的Click事件代码如下：事件代码如下：yn=messagebox(真要删掉吗？真要删掉吗？,4+32,警个告警个告)if yn=6deleteresult=tableupdate(.F.)if result=.t.pack=messagebox(已经干掉了已经干掉了!,48,提个醒提个醒)else=messagebox(还没干掉还没干掉!,48,提个醒提个醒)=ta

43、blerevert(.f.)endifendifthisform.refresh(35)Command7的的Click事件代码如下：事件代码如下：result=tableupdate(.F.)if result=.f.=messagebox(存不进去！存不进去！,48,警个告警个告)thisform.text1.setfocus()else=messagebox(存进去啦！存进去啦！,48,警个告警个告)mand5.enabled=.f.thisform.cmdstaus(2)thisform.refreshendif(36) Command8的的Click事件代码如下：事件代码如下：rele

44、ase thisform(37) “数据维护数据维护”表单的数据环境如图表单的数据环境如图12.9所示。所示。 例例12.7 设计一个表单，其名定义为设计一个表单，其名定义为“数据浏览数据浏览”。运行运行“数据浏览数据浏览”的结果如图的结果如图12.10所示。所示。图图12.9图图12.10 “数据浏览数据浏览”表单，含有表单，含有3个标签控件，个标签控件，1个图像控个图像控件，件，1编辑框控件，编辑框控件，3个文本框控件，个文本框控件，1个计时器控个计时器控件，件，1命令按钮控件。命令按钮控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：路线情况：路线情况

45、Top：0 Left：0 Height：304 Width：394 Fontname：宋体：宋体 Fontsize：9 Backcolor：192，192，192 Autocenter：.T. 真真 Name：form1(2) 图像图像1的主要属性如下：的主要属性如下： Top：11 Left：254 Height：137 Width：126 Backstyle：1 不透明不透明 Stretch： 2 变比填充变比填充 Name：Image1(3) 编辑框编辑框1的主要属性如下：的主要属性如下： Top：164 Left：20 Height：88 Width：352 Controlsource

46、：line.jj Fontname：宋体：宋体 Fontsize：11 Name：Edit1(4) 标签标签1的主要属性如下：的主要属性如下： Caption：路线编号：路线编号 Top：20 Left：22 Height：25 Width：73 Fontname：楷体：楷体 GB2312 Fontsize：13 Name：Label1(5) 标签标签2的主要属性如下：的主要属性如下： Caption：路线名称：路线名称 Top：72 Name：Label2其他属性与其他属性与Label1相同。相同。(6) 标签标签3的主要属性如下：的主要属性如下： Caption：团费：团费 Top：118

47、 Name：Label3其他属性与其他属性与Label1相同。相同。(7) 文本框文本框1的主要属性如下：的主要属性如下： Top：17 Left：109 Height：23 Width：46 Controlsource：line.lbh Fontname：宋体：宋体 Fontsize：9 Value：(无无) Name：Text1(8) 文本框文本框2的主要属性如下：的主要属性如下： Top：66 Width：144 Controlsource：line.mc Name：Text2其他属性与其他属性与Text1相同。相同。(9) 文本框文本框3的主要属性如下：的主要属性如下： Top：116

48、 Width：59 Controlsource：line.tf Name：Text3其他属性与其他属性与Text1相同。相同。(10) 计时器计时器1的主要属性如下：的主要属性如下： Enabled： .T. Interval：2000 Name：Timer1(11) 命令按钮命令按钮1的主要属性如下：的主要属性如下： Caption：退出：退出 Top：264 Left：288 Height：24 Width：60 Fontname：宋体：宋体 Fontsize：9 Name：Command1(12) form1的的Init事件代码如下：事件代码如下：public ii=0public zz

49、=4_screen.toobar1.timer1.enabled=.F.(13) Timer1的的Timer事件代码如下：事件代码如下：if z=4if i=6i=0endifif i=1 thisform.image1.picture=c:lylj1.bmpendifif i=2 thisform.image1.picture= c:lylj2.bmpendifif i=3 thisform.image1.picture= c:lylj3.bmpendifif i=4 thisform.image1.picture= c:lylj4.bmpendifif i=5 thisform.image

50、1.picture= c:lylj5.bmpendifi=i+1endif (14) Command1的的Click事件代码如下：事件代码如下：_screen.toobar1.timer1.enabled=.t.release thisform(15) “数据浏览数据浏览”表单的数据环境如图表单的数据环境如图12.11所示。所示。图图12.1112.4 设计数据查询表单设计数据查询表单 数据查询表单，是用户进行数据资源检索的一个工数据查询表单，是用户进行数据资源检索的一个工作窗口，也是数据库应用系统中的重要工作环境之作窗口，也是数据库应用系统中的重要工作环境之一。通过数据查询环境，用户可以获取

51、大量的信息，一。通过数据查询环境，用户可以获取大量的信息，从而使数据库中的数据充分为用户服务。从而使数据库中的数据充分为用户服务。 以下介绍两个数据查询表单的设计实例。以下介绍两个数据查询表单的设计实例。 例例12.8 设计一个表单，其名定义为设计一个表单，其名定义为“查询查询1”。运。运行行“查询查询1”的结果如图的结果如图12.12所示。所示。图图12.12 “查询查询1”表单，含有表单，含有1个标签控件，个标签控件，1组合框控件，组合框控件，1个表格控件，个表格控件，2命令按钮控件。命令按钮控件。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：查询团员：查

52、询团员 Top：0 Left：0 Height：246 Width：410 Fontname：宋体：宋体 Fontsize：9 Icon：c:lylmisc28.ico Autocenter：.T. 真真 Name：form1(2) 组合框组合框1的主要属性如下：的主要属性如下： Top：15 Left：149 Height：29 Width：55 Rowsource：select distinct Tbh from member into cursor temp Rowsourcetype：3 SQL语句语句 Fontname：幼圆：幼圆 Fontsize：12 Name：Combo1(3)

53、 表格表格1的主要属性如下：的主要属性如下： Top：84 Left：9 Height：120 Width：395 Columncount：6 Panel：1-右右 Backcolor：255,255,255 Grid1linecolor：0,128,128 Grid1linewidth：1 Headerheight：20 Recordsource：member Name：Grid1(4) 表格表格1中第中第1列的主要属性如下：列的主要属性如下： Width：50 Controlsource：member.hm Columnorder：1 Name：Column1(5) 表格表格1中第中第2列

54、的主要属性如下：列的主要属性如下： Width：46 Controlsource：member.xm Columnorder：2 Name：Column2(6) 表格表格1中第中第3列的主要属性如下：列的主要属性如下： Width：40 Controlsource：member.xb Columnorder：3 Name：Column3(7) 表格表格1中第中第4列的主要属性如下：列的主要属性如下： Width：96 Controlsource：member.dh Columnorder：4 Name：Column4(8) 表格表格1中第中第5列的主要属性如下：列的主要属性如下： Width：

55、78 Controlsource：member.sfz Columnorder：5 Name：Column5(9) 表格表格1中第中第6列的主要属性如下：列的主要属性如下： Width：60 Controlsource：member.tf Columnorder：6 Name：Column6(10) 表格表格1中第中第1列标题的主要属性如下：列标题的主要属性如下： Caption：团员编号：团员编号 Name：Header1(11) 表格表格1中第中第2列标题的主要属性如下：列标题的主要属性如下： Caption：姓：姓 名名 Name：Header1(12) 表格表格1中第中第3列标题的主要

56、属性如下：列标题的主要属性如下： Caption：性：性 别别 Name：Header1(13) 表格表格1中第中第4列标题的主要属性如下：列标题的主要属性如下： Caption：电话：电话 Name：Header1(14) 表格表格1中第中第5列标题的主要属性如下：列标题的主要属性如下： Caption：身：身 份份 证证 Name：Header1(15) 表格表格1中第中第6列标题的主要属性如下：列标题的主要属性如下： Caption：团费交否：团费交否 Name：Header1(16) 标签标签1的主要属性如下：的主要属性如下： Caption：团队编号：团队编号 Top：20 Left

57、：39 Height：25 Width：85 Fontname：楷体：楷体 GB2312 Fontsize：13 Name：Label1 (17) 命令按钮命令按钮1的主要属性如下：的主要属性如下： Caption：查询：查询 Top：17 Left：285 Height：27 Width：67 Fontname：宋体：宋体 Fontsize：9 Name：Command1(18) 命令按钮命令按钮2的主要属性如下：的主要属性如下： Caption：退出：退出 Top：216 Left：312 Height：25 Width：60 Fontname：宋体：宋体 Fontsize：9 Name：

58、Command2(19) Command1的的Click事件代码如下：事件代码如下：if empty(bo1.value)set filter toelseset filter to Tbh=bo1.valueendifthisform.grid1.refreshthisform.grid1.setfocus(20) Command2的的Click事件代码如下：事件代码如下：thisform.release(21) “查询查询1”表单的数据环境如图表单的数据环境如图12.13所示。所示。图图12.13 例例12.9 设计一个表单，其名定义为设计一个表单，其名定义为“查询查询2”。运。运行行“查

59、询查询2”的结果如图的结果如图12.14所示。所示。图图12.14 “查询查询2”表单，含有表单，含有1个标签控件，个标签控件，1个单选按钮组个单选按钮组控件控件(其中包含其中包含3个单选按钮个单选按钮)，1个命令按钮组控件个命令按钮组控件(其中包含其中包含2个命令按钮个命令按钮)。 其中：其中：(1) 表单的主要属性如下：表单的主要属性如下： Caption：选项窗口：选项窗口 Top：0 Left：0 Height：196 Width：189 Fontname：宋体：宋体 Fontsize：9 Autocenter：.T. 真真 Name：form1(2) 标签标签1的主要属性如下：的主要

60、属性如下： Caption：请选择查询编辑对象：请选择查询编辑对象 Top：14 Left：49 Height：25 Width：85 Fontname：宋体：宋体 Fontsize：9 Name：Label1(3) 单选按钮组单选按钮组1的主要属性如下：的主要属性如下： Top：48 Left：36 Height：60 Width：121 Buttoncount：3 Value：1 Autosize： .T. Name：Optiongroup1(4) 单选按钮单选按钮1的主要属性如下：的主要属性如下： Caption：查询进球信息：查询进球信息 Top：5 Left：5 Height：16