《数据库表单的创建》PPT课件.ppt

1、第11章 表单设计与应用,学习目标,掌握表单的创建与运行 掌握表单的操作 掌握表单中常用控件 标签、命令按钮、文本框、编辑框、列表框、组合框、表格,11.1 表单的建立与运行,创建表单的过程，就是定义控件的属性，确定事件或方法、代码的过程。 表单就是一个容器，它可以容纳多个控件。 11.1.2 用表单设计器创建表单 Create form 文件/新建/表单/新建文件,11.1 表单的建立与运行,2.表单设计器环境 （1）属性窗口 表单及其控件均称为对象，每个对象都有自己属性，事件和方法。 有的属性值可以在设置框中输入，有的需要从系统所提供的一组属性值中指定 有的属性是只读的，用户不能修改，斜体

2、显示 要为属性设置一个字符值，可以在设置框中直接输入，不要加定界符。,11.1 表单的建立与运行,（2）表单控件工具栏 要求会使用的控件： 标签、文本框、编辑框、命令按钮、组合框、列表框和表格 （3）表单设计器工具栏 （4）表单菜单 表单中的对象设计过程： 向表单添加控件-设置属性-设计代码,11.1.3 表单的运行,有2种方法可以运行表单： (1)直接使用命令 DO FORM 表单名 (2)在表单设计器窗口，选择“表单”菜单中的“运 行”命令，或直接单击工具栏中的红色惊叹号。 保存表单时，表单将被保存为一个表单文件（扩展名是.scx）和一个表单备注文件（扩展名是.sct）（P196）,11.

3、2 表单的操作,11.2.1表单的属性 1.常用表单属性 表单属性很多，但绝大多数很少用到。 表11.3中列出了有关表单的一些重要属性，这些属性规定了表单的外观和行为，经常在表单设计时用到。 请大家参考表11.3。,事件：一种系统预先定义而由用户或系统发出的动作 2.表单事件 以下3个事件用于表单和表单集： (1)Load事件：该事件代码从表单装入内存至表单被释放期间仅被运行一次。 (2)UnLoad事件：在表单被释放时发生，是释放表单或表单集的最后一个事件。 (3)Activate事件：常用设置表单上控件的初值和初始属性。,11.2.2 常用事件与方法,3.鼠标事件 Click事件:鼠标左键

4、单击对象时发生的事件。 4.键盘事件 InteractiveChange事件。 7.常用方法 Release方法:从内存中释放表单 Refresh方法：刷新表单数据,11.3 常用表单控件,11.3.1 添加表单控件 表单中添加什么样的控件是根据需求决定的，一旦确定了控件的类型，就要定义控件的属性、确定事件和方法代码。,11.3.2 表单控件及其属性 1标签控件（Label） “标签”控件是按一定格式显示在表单上的文本信息，用来显示表单中各种说明和提示信息。一旦“标签”控件的属性、事件和方法被定义，输出信息将根据这些定义，按指定的格式输出。 “标签”控件的属性主要包括：Caption，Name

5、，FontName，FontSize,例11.3 表单中有3个标签。当鼠标单击任何一个标签时，其他两个标签的标题文本互换。 T=thisform.label2.caption Thisform.label.caption=thisform.label3.caption Thisform.label.captio=T,11.3.2 命令按钮控件 “命令按钮”控件主要用来控制程序的执行过程，以及对表中数据的操作等。 “命令按钮”控件的属性主要包括：caption，name “命令按钮”控件的事件：click,11.3.3 文本框控件 “文本框”控件主要用于表中非备注型和通用型字段值的输入、输出，以

6、及内存变量赋值和输出等操作。 “文本框”控件与“标签”控件最主要的区别在于它们使用的数据源是不同的。 常用属性：Value, ControlSource,“标签”控件的数据源来自于其“Caption”属性，“文本框”控件的数据源来自于其“ControlSource”属性，可以是表中的非备注型、通用型字段和内存变量。 “文本框”控件的属性主要包括：“文本框”的大小，“文本框”中输入、输出信息字体的大小、风格和颜色等。,11.3.3 编辑框控件 和文本框相似，也是用来输入用户的数据，但编辑框的内容只能是文本数据。 例子11.4 求100到1000间能被37整除的数。要求在编辑框中显示输出结果，并通

7、过命令按钮来控制输出。,k=0 for x=100 to 1000 if x%37=0 thisform.edit1.value=thisform.edit1.value+str(x,5) k=k+1 if k%5=0 thisform.edit1.value=thisform.edit1.value+chr(13) endif endif endfor,11.3.6 列表框与组合框控件 列表框（listbox）控件提供一组选项，用户可以从中选择一个或者多个选项。 列表框显示其中的若干选项，用户可以通过滚动条浏览其他选项。 要求掌握的属性： ControlSource、RowSource、Ro

8、wSourceType 常用方法： AddItem：给RowSourceType属性为0的列表添加一项。 RemoveItem:从RowSourceType属性为0的列表删除一项。 Requery:当RowSource中的值改变时更新列表。,11.3.6 列表框与组合框控件 “组合框”控件由一个列表框和一个编辑框组成。 两种类型： 1、下拉组合框style属性为0的组合框 可以通过滚动条查看也可以在框中直接输入查看 2、下拉列表框style属性为2的组合框 只能通过滚动条查看，任意时刻只能看见一项,11.3.7 表格控件（Grid） 表格是一个容器对象，包含列（Column）。 每个列对象包含

9、一个标头（Header）和若干控件。 “表格”控件的主要属性是：Columncount，用来定义表格的列数。 标头的主要属性：Caption,C2-类型1-(带有通项公式的计算) 设计表单form1,表单中有命令按钮command1和编辑框edit1,单击命令按钮时将计算下面数列前n项(设n=50)中偶数项的和(结果取4位小数),并将结果显示在edit1中。 1/(123),1/(234),1/(345),1/(n(n+1)(n+2), 结果：0.0568,做题思路： 1、如有前n项，使用for 循环，无用 do while循环； 2、赋初值； 3、循环：for 或do while； 4、循环

10、体内使用通项公式进行计算； 5、将最终的计算结果放在输出的控件中。,C2-类型2-（计算字母的ASCII码值） 设计表单form1,表单中有命令按钮command1、一个编辑框edit1和一个文本框text1,在edit1中输入下面内容：“The authors would like to sincerely thank series editor David Chappellfor his invaluable assistance in reviewing several early drafts of the manuscript and providing unwavering cla

11、rity and vision during major rewrites to guide the book toward its current form. We would also like to thank Rich Bonneau for his help during the initial planning stages.”, 单击命令按钮统计满足下面条件的字符的ASCII码值的和：字符的ASCII码值能被3整除;并将结果显示在text1中。注意：内容中不包含任意回车换行符。,做题思路： 1、字符串赋给一变量； 2、取字符串变量的长度，即字符总个数； 3、变量赋初值； 4、fo

12、r或 do while 循环 5、在循环体内，用substr（）函数取单个字符； 6、循环体内用单个字符的ASCII码值进行累加或累乘计算； 7、将最终的结果放在表单上指定的控件上输出。,C2-类型2-（数字字符串的计算） 设计表单form1,表单中有命令按钮command1、两个编辑框edit1和edit2,在edit1中输内容:54636346342421439843 9583252341243452350932059549786546845684509345348 36834680346658934989543438943943468328943872338496834967834863

13、06830669343954359309346834893436438683496346346348765324234234235459487634534345345324 345634634631513534534634323867867846474,单击按钮分别统计出1、2和3在上面字符串中出现的次数,并将统计结果分三行显示在edit2中。 结果：4 15 60,做题思路： 1、字符串赋给一变量； 2、取字符串变量的长度，即字符总个数； 3、变量赋初值； 4、for或 do while 循环 5、在循环体内，用substr（）函数取单个字符，并转换成数值类型； 6、循环体内用转换后的数值进

14、行累加或累乘计算； 7、将最终的结果放在表单上指定的控件上输出。,设计表单form1,表单中有命令按钮command1和两个文本框text1及text2,在text1中输入字符串How and why Web services provide the ideal foundation for SOA, 单击命令按钮计算该字符串奇数位置中每个字符的ASCII码值的和，即H、W、a等，并将结果显示在text2框中。 结果：2906,C2-类型2-例4,几点有用的规律,1.文本框的value属性可以是文本也可以是数值 2.编辑框的value属性只能是文本 3.向列表框list或者组合框combo显示

15、内容，需要用additem方法，其格式为： Thisform.list1.additem（添加内容） Tbo1.additem（添加内容） 其中，添加内容必须是文本格式，若不是请进行转换 4.将结果显示在文本框或者是编辑框中，可以表示为： Thisform.text1.value=内容 Thisform.edit1.value=内容（必须是文本） 5.将结果显示在标签label中，可以表示为： Thisform.label1.caption=内容（必须是文本） 6.单击命令按钮退出，使用如下代码：thisform.release,有关日期的函数 Ctod 将字符串转换成日期 Dtoc 将日期转

16、换为字符串 set century on Set date to ymd Set stri to 0 Dow(日期表达式)：返回每周的第几天，即星期几 Cdow（日期表达式）：返回英文星期几 将数值转换成字符串函数：str STR（数值型表达式1，数值型表达式2，数值型表达式3 ） 功能：将表达式1的值转换成字符串，转换成字符串的长度 由表达式2决定，保留的小数位数由表达式3决定。 省略表达式3时，转换后无小数部分；省略表达式2和表达式3时，字符串长度为10，无小数部分,C2-类型3-日期 设计表单form1,表单中有命令按钮command1、一个文本框text1和一个组合框combo1, 单

17、击命令按钮将1910年到2254年间的国庆节添加到combo1中,然后计算出1910年到2254年间的每个国庆节是星期日的次数,并将计算结果显示在text1中。 参考答案：49,set cent on set date to ymd set stri to 0 n=0 for i=1910 to 2254 d=str(i)+/10/01 bo1.additem(alltrim(d) t=ctod(alltrim(d) xq=cdow(t) if xq=Sunday |if cdow(ctod(alltrim(d)=“Sunday” n=n+1 endif Endfor thisform.tex

18、t1.value=n,做题思路： 1、三个set 设置语句； 2、赋初始值； 3、for 循环 4、将数值型的年份用str()函数进行转换，再加上 表示月和日的字符串； 5、将字符串日期转变成日期用ctod()函数； 6、判断日期为星期几，用函数dow()或cdow()； 7、将最终的结果在指定的控件上显示输出。,c2-类型3-日期 设计表单form1,表单中有命令按钮command1、一个文本框text1和一个列表框list1, 单击命令按钮将1800年到1900年间的元旦日添加到list1中,然后利用函数计算出1800年到1900年间的每个元旦日是星期几,并将该函数值累加,将计算结果显示在

19、text1中。 参考答案：403,set century on set date to ymd Set stri to 0 (p37) n=0 for i=1800 to 1900 d=str(i)+/01/01 thisform.list1.additem(alltrim(d) dd=ctod(d) n=n+dow(dd) |n=n + dow( ctod(d) ) endfor thisform.text1.value=n,C4-例1（将用到的表及建立的数据库、表单放在同一个文件夹下）,现有两个自由表和,将两文件下载到你的考试文件夹,然后按下面要求完成程序设计: 1. 建立一个数据库stu

20、data,并将上面两个自由表添加到数据库中;以学号(xuehao)为主关键字建立student和score1两表之间的关联,student为父表。 2. 设计一个表单，以studata中的两个表作为表单的数据环境，在表单中添加一个命令按钮 command1和一个标签label1。 command1的标题为“最高平均分”。,3. 单击command1按钮求出所有学生中平均分最高的学号和平均分,并将它们分两行显示在label1中。成绩字段名为chengji。平均分是指每个学生所有课程的平均分。 select xuehao, avg(chengji) as che from score1 group

21、 by xuehao order by che desc into cursor dc thisform.label1.caption=thisform.label1.caption+xuehao+chr(13)+str(che) 656566 96,现有两个自由表和,先将两文件下载到你的考试文件夹,然后按下面要求完成程序设计: 1. 建立一个数据库scoredata,并将上面两个自由表添加到数据库中;以学号(xuehao)为主关键字建立两表之间的关联,score3为父表。 2. 设计一个表单，以scoredata作为表单的数据环境，在表单中添加一个命令按钮command1和 一个编辑框edi

22、t1。 command1的标题为“至少一门及格人的最高助学金”。,C4-9(至少一门不少于某一分数类),3. 单击command1按钮将统计四门成绩至少有一门不小于60的人的最高助学金(zhuxuejin)，并将它显示在edit1中。四门课程成绩字段名分别为cj1、cj2、cj3和cj4。 select max(zhuxuejin) as m from score3,score4 where (score3.cj1=60 or score3.cj2=60 or score4.cj3=60 or score4.cj4=60 ) and score3.xuehao=score4.xuehao in

23、to cursor s thisform.edit1.value=str(s.m) 996,现有两个自由表和,先将两文件下载到你的考试文件夹,然后按下面要求完成程序设计: 1. 建立一个数据库scoredata,并将上面两个自由表添加到数据库中;以学号(xuehao)为主关键字 建立两表之间的关联,score3为父表。 2. 设计一个表单，以scoredata作为表单的数据环境，在表单中添加一个命令按钮command1和一个组合框combo1。 command1的标题为“男生全及格人数”。,C4-9(均不少于某一分数类),3. 单击command1按钮将统计每个年级(2002-2005)男生(

24、xingbie为真)中四门成绩均不小于60的人数，并将它们显示在combo1中。四门课程成绩字段名分别为cj1、cj2、cj3和cj4。年级字段名为nianji。 select count(*) as a from score3,score4 where score3.xuehao=score4.xuehao and score3.cj1=60 and score3.cj2=60 and score4.cj3=60 and score4.cj4=60 and xingbie=.t. and nianji=2002 into cursor t1 bo1.additem(str(t1.a) sel

25、ect count(*) as a from score3,score4 where score3.xuehao=score4.xuehao and score3.cj1=60 and score3.cj2=60 and score4.cj3=60 and score4.cj4=60 and xingbie=.t. and nianji=2003 into cursor t2 bo1.additem(str(t2.a),select count(*) as a from score3,score4 where score3.xuehao=score4.xuehao and score3.cj1

26、=60 and score3.cj2=60 and score4.cj3=60 and score4.cj4=60 and xingbie=.t. and nianji=2004 into cursor t3 bo1.additem(str(t3.a) select count(*) as a from score3,score4 where score3.xuehao=score4.xuehao and score3.cj1=60 and score3.cj2=60 and score4.cj3=60 and score4.cj4=60 and xingbie=.t. and nianji=

27、2005 into cursor t4 bo1.additem(str(t4.a) 2002(8) 2003(12) 2004(11) 2005(6),C4-4(学号中含有某些数字类),现有两个自由表和,按下面要求完成程序设计: 1. 建立一个数据库studata,并将上面两个自由表添加到数据库中;以学号(xuehao)为主关键字 建立student和score1两表之间的关联,student为父表。 2. 设计一个表单，以studata中的两个表作为表单的数据环境，在表单中添加一个命令按钮 command1和一个编辑框edit1,command1的标题为“含4和5平均分”。,3. 单击com

28、mand1按钮求出学号中同时含有4和5的所有学生中的平均分最低的姓名和平均分，并将它们显示在edit1中。成绩字段名为chengji。 平均分是指每个学生所选各门课程的平均分。 select avg(score1.chengji) as ch,student.xingming from student,score1 where student.xuehao like %4% and student.xuehao like %5% and student.xuehao = score1.xuehao group by score1.xuehao order by ch into cursor t

29、2 thisform.edit1.value=xingming+chr(13)+str(ch,10,2) 569084 杨中国 68,在做题之前，应对题中所用到表有所熟悉：自由表t3.dbf 包含如下字段： bianhao字符型，宽度8 xingming字符型，宽度8 mima字符型，宽度6 chusny日期型，宽度8 gongzsj日期型，宽度8 hunfo逻辑型，宽度1 jiangjin数值型，宽度7，小数位数2 gongzi数值型，宽度7，小数位数2,注：做题之前要设置默认目录（将所做好的表单文件及表文件都放在该文件夹下）,请将自由表下载到你的考试文件夹中，并按下面的要求完成程序设计：

30、1. 设计一个表单,表单的标题为“最大年龄人数和编号查询”,名称为tjform,表单中有三个命令按钮 和三个编辑框edit1、edit2和edit3 ,三个按钮的标题分别为“编号查询”,“最大年龄人数”和 “退出”。 2. 在edit1中输入编号(bianhao)，单击“编号查询”按钮将在文本框edit2中显示该编号的姓名(xingming)。 如果没有找到该编号，将在edit2中显示NO FOUND。 3. 单击“最大年龄人数”按钮统计出年龄等于所有记录最大年龄的记录个数,并将它显示在文本框edit3中。 (注：年龄=2005出生年份+1,出生年月字段为chusny)。 4. 单击“退出”按

31、钮将关闭表单。,C3-例题1(查找姓名或编号类),编号查询按钮代码：,a=alltrim(thisform.edit1.value) use t3 locate for bianhao=a if found() thisform.edit2.value=xingming else thisform.edit2.value=No Found! endif use,最大年龄按钮代码：,select count(*) as a1 from t3 where 2005-year(chusny)+1=(select max(2005-year(chusny)+1)from t3) into cursor

32、 t1 thisform.edit3.value=str(t1.a1) close all,退出按钮代码： Thisform.release,现有自由表, 按下面要求完成程序设计： 1. 设计一个表单,表单的标题为“密码处理”,名称为tjform,表单中有三个命令按钮和两个标签, 三个按钮的标题分别为“处理密码”,“最高位统计”和“退出”。 2. 单击“处理密码”按钮将每个记录的密码(mima)最左边的位加1(如果加1后大于9,则取9),其它位不变,并将处理后密码写入表中。 update t3 set mima=; str(val(substr(mima,1,1)+1，1)+substr(mi

33、ma,2,5); where substr(mima,1,1)!=9“ ( 注意：在调试之前必须将t3.DBF文件备份，因为每次调试可能要改变原始表中的数据)。结果：667 9,C3-例2(密码类型题),3. 单击“最高位统计”按钮将统计所有记录的密码中最左边数字的和以及它们中的最大值,并将结果分别显示在两个标签中。 select sum(val(substr(mima,1,1) as he, max(val(substr(mima,1,1) as zuida from t3 into cursor t31 thisform.label1.caption=str(he,10) thisform

34、.label2.caption=str(zuida,1) 4. 单击“退出”按钮将关闭表单。 thisform.release,请将自由表下载到你的考试文件夹中，并按下面的要求完成程序设计： 1. 设计一个表单,表单的标题为“显示姓名和统计”,名称为tjform,表单中有三个命令按钮、 两个列表框list1和list2,一个文本框text1,三个按钮的标题分别为“显示姓名”,“统计”和“退出”。 2. 单击“显示姓名”按钮将所有记录的姓名(xingming)添加到list1中。 use t3 do while .not. eof() thisform.list1.additem(xingmin

35、g) skip enddo use,C3-例3(添加姓名与日期统计类型题),3. 单击“统计”按钮统计出参加工作时间（gongzsj与出生日期(chusny)均为星期一的人数,将人数显示在text1中，并将他们的记录号分别显示在list2中。 n=0 use t3 do while .not. eof() if cdow(gongzsj)=Monday and cdow(chusny)=Monday n=n+1 thisform.list2.additem(str(recno() endif skip enddo thisform.text1.value=str(n) close all,C3

36、-14(“下一个”按钮类型题),请将自由表下载到你的考试文件夹中，并按下面的要求完成程序设计： 1. 设计一个表单,表单的标题为“等于平均人数和浏览”,名称为tjform,表单中有三个按钮、一个组合框和一个文本框,三个按钮的标题分别为“下一个”,“等于平均”和“退出”。 2. 单击“下一个”按钮将在组合框中添加下一个记录的姓名(xingming)。如果到表尾，将添加第一个记录中的姓名。 设置表单的load事件：use t3 skip thisform.list1.additem(xingming) if eof() go top thisform.list1.additem(xingming)

37、 endif thisform.refresh,3. 单击“大于平均年龄”按钮统计出年龄等于所有记录平均年龄的记录个数,并将它显示在文本框中。 (注：年龄=2005出生年份+1, 出生年月字段为chusny)。 select avg(2005-year(chusny)+1) as a from t3 into cursor t4 select count(*) as m from t3 where 2005-year(chusny)+1t4.a into cursor t5 thisform.text1.value=str(t5.m) 4. 单击“退出”按钮将关闭表单。 thisform.re

38、lease,C3-17(表格类型题),请将自由表下载到你的考试文件夹中，并按下面的要求完成程序设计： 1. 设计一个表单,表单的标题为“统计年龄和查询”,名称为tjform, 表单中有三个命令按钮、一个 文本框和一个窗格(grid)，三个按钮的标题分别为“查询”,“统计年龄”和“退出”。 2. 单击“查询”按钮将在窗格中显示所有工资(gongzi)不大于1330的记录,窗格中显示编号(bianhao)、 姓名(xingming)、出生年月(chusny)和工资(gongzi)。 设置grid的属性：ColumnCount=4 RecordSourceType=4-SQL说明 1 thisfor

39、m.grid1.recordsource=select bianhao,xingming,chusny from t3 where gongzi=1330 into cursor t4 2 close all,3. 单击“统计年龄”按钮统计1976年1月1日(包括1976年1月1日）以后出生(chusny)的已婚(hunfo为真) 的年龄总和,并将年龄总和显示在文本框中。(注：年龄=2005出生年份+1)。 1 select sum(2005-year(chusny)+1) as s from t3 where chusny=1976/01/01 and hunfo into cursor t

40、4 2 thisform.text1.value=str(t4.s) 4. 单击“退出”按钮将关闭表单。 Thisform.release 3095,C3-19(添加记录类型) 请将自由表下载到你的考试文件夹中，并按下面的要求完成程序设计： 1. 设计一个表单,表单的标题为“统计工资小数和”,名称为gzform,表单中有三个命令按钮和 一个文本框,三个按钮的标题分别为“增加”,“统计工资小数”和“退出”。 2. 单击“增加”按钮将向表第一个记录前增加一条空记录,编号(bianhao)和姓名(xingming)字段 的值分别为“00000001”和“李正军”,工资(gongzi)字段的值为100

41、0.32,其它字段内容任意。 1 use t3 2 go top 3 insert blank before 4 dimension y(8) 5 y(1)=00000001 6 y(2)=李正军 7 y(8)=1000.32 8 go top 9 gather from y 10 close all,3. 单击“统计工资小数”按钮将计算所有记录工资(gongzi)中小数点后的数字之和，并将计算结果显示 在文本框中。如:工资为199.62，仅计算0.62。显示的结果是指单击一次“增加”按钮后的值。 select sum(gongzi-int(gongzi) as s from t3 into

42、cursor t6 thisform.text1.value=t6.s 4. 单击“退出”按钮将关闭表单。 Thisform.release 53.33,请将自由表下载到你的考试文件夹中，并按下面的要求完成程序设计： ( 注意：在调试之前必须将t3.DBF文件备份，因为每次调试可能要改变原始表中的数据)。 1. 设计一个表单,表单的标题为“统计和减少工资”,名称为tjform,表单中有三个命令按钮和一个列 表框, 三个按钮的标题分别为“减少工资”,“千元统计”和“退出”。 2. 单击“减少工资”按钮将每个记录的工资(gongzi)减少原工资的10.67%。 update t3 set gong

43、zi=gongzi-gongzi*0.1067 close all,C3-4(修改字段内容类型),3. 单击“千元统计”按钮将统计所有记录减少后的工资(gongzi)中的千位数字的和及千位数字中的最 大值,并将统计的两个数值分两行显示在列表框中。只计算千位中值,没有千位按0计算。 select sum(int(gongzi/1000) as s,max(int(gongzi/1000) as ma from t3 into cursor t2 thisform.list1.additem(str(t2.s) thisform.list1.additem(str(t2.ma) 4. 单击“退出”按钮将关闭表单。 Thisform.release 128 2,C4-new,现有两个