ch903表单其他控件

1、9.3 表单其他控件1 1 选项按钮组选项按钮组对象名属性名属性值说明Text1ControlSource教师.姓名文本框数据源Optiongroup1Autosize.T.选项按钮组大小随内容定Optiongroup1ButtonCount4选项按钮数目Optiongroup1ControlSource教师.职称选项按钮组数据源Option1Caption教授选项按钮组第一个按钮标签Option2Caption讲师选项按钮组第二个按钮标签Option3Caption副教授选项按钮组第三个按钮标签Option4Caption助教选项按钮组第四个按钮标签“上一条上一条”click事件代码事件代码

2、:skip -1thisform.refresh“下一条下一条”click事件代码事件代码:skip thisform.refresh2 2 复选框复选框对象名对象名属性名属性名属性值属性值说明说明Text1ControlSource学生.姓名文本框数据源Check1Caption数学建模第一个复选框标签Check2Caption计算机网络第二个复选框标签Check3Caption日语第三个复选框标签CaptionCheck6Caption电子商务第六个复选框标签Command2Caption退出第二个命令按钮标题Command3Caption选课确认第三个命令按钮标题2 2 复选框复选框 表

3、单Init事件代码: public kch(6) select 1 use 学生 select 2 use 选课 select 3 use 课程 “下一条”按钮Click事件代码: select 1 * *在显示下一条记录时在显示下一条记录时, ,使使所有复选框恢复初始状态所有复选框恢复初始状态 thisform.check1.value=0 thisform.check2.value=0 thisform.check3.value=0 thisform.check4.value=0 thisform.check5.value=0 thisform.check6.value=0 skip th

4、isform.refresh2 2 复选框复选框“选课确认选课确认”按钮按钮Click事件代码事件代码:select 1locate all for 姓名姓名=thisform.txt姓名姓名.valuexsh=学号学号select 3n=0if thisform.check1.value=1locate all for 课程名课程名=数学建模数学建模n=n+1kch(n)=课程号课程号endifif thisform.check2.value=1locate all for 课程名课程名=计算机网络计算机网络n=n+1kch(n)=课程号课程号endifif thisform.check3.

5、value=1locate all for 课程名课程名=日语日语n=n+1kch(n)=课程号课程号endifif thisform.check4.value=1locate all for 课程名课程名=数据库数据库n=n+1kch(n)=课程号课程号endifif thisform.check5.value=1locate all for 课程名课程名=商业会计商业会计n=n+1kch(n)=课程号课程号endifif thisform.check6.value=1locate all for 课程名课程名=电子商务电子商务n=n+1kch(n)=课程号课程号endifselect 2f

6、or i=1 to n append blank replace 学号学号 with xsh,课程号课程号 with kch(i)endfor2 2 复选框复选框 “退出退出”按钮按钮Click事件代事件代码：码： clear memory release thisform “选课确认选课确认”按钮按钮Click事件代码注释：事件代码注释： 首先，在首先，在学生表学生表中找到中找到相应于学生姓名的相应于学生姓名的学号学号，然后根据复选框的值，然后根据复选框的值，在在课程表课程表中找到已选课中找到已选课课程对应的课程对应的课程号课程号，再，再根据所选的课程门数，根据所选的课程门数，在在选课表选课

7、表中，分别为每中，分别为每选的一门课程增加一条选的一门课程增加一条记录。记录。3 编辑框对象名属性名属性值说明Text1ControlSource学生.姓名文本框数据源Edit1ControlSource学生.特长编辑框数据源4 列表框对象名属性名属性值说明Text1ControlSource教师.姓名文本框数据源List1RowSource课程.课程名列表框数据源List1RowSourceType 字段列表框数据类型 “表单表单”Init事件代码：事件代码： select 1 use 教师 select 2 use 授课 select 3 use 课程 “确认”Click事件代码： sel

8、ect 1 locate all for 姓名=thisform.txt姓名.value jsh=教师号 select 3 locate all for 课程名=thisform.list1.value kch=课程号 select 2 append blank replace 教师号 with jsh,课程号 with kch 代码注释：代码注释： 在教师表中找到对应于教师姓名的教师号教师号，在课程表中找到对应于课程名的课程号课程号，当每个教师选取了一门课程后，在授课表中添加一条记录。5 组合框对象名属性名属性值说明Combo1RowSourceType字段组合框1数据源类型Combo1Ro

9、wSource教师.姓名组合框1数据源Combo2RowSourceType字段组合框2数据源类型Combo2RowSource课程.课程名组合框2数据源List1RowSourceType3-SQL语句文本框数据源类型表单表单Init事件代码事件代码: public jsh,kch select 1 use 教师 select 2 use 授课 select 3 use 课程 mand1.enabled=.f. mand2.enabled=.f. bo1.value= bo2.value= “说明：说明：在表单创建时,定义两个全局变量；分别在三个工作区打开三个表；把“添加”和“删除”两个按钮

10、的初始状态设置为不可用；两个组合框中的编辑框不显示内容。Combo1 InteractiveChange事件代码:thisform.list1.rowsource=select 课程名 from 教师,授课,课程 into cursor temp1;where 教师.教师号=授课.教师号 and 授课.课程号=课程.课程号 and;姓名=bo1.value“说明：说明：当选取了教师姓名组合框中的某个教师名后，在列表框中显示该教师已选的课程。Combo2 InteractiveChange事件代码:mand1.enabled=.t.说明：说明：当选取了可选课程组合框中的当选取了可选课程组合框中的

11、某课程时，使某课程时，使“添加添加”命令按命令按钮可用。钮可用。List1 Click事件代码:mand2.enabled=.t.说明：说明：当选取了已选课程列表框中的当选取了已选课程列表框中的某课程时，使某课程时，使“删除删除”命令按命令按钮可用。钮可用。 Command1 Click事件代码事件代码: select 1 locate all for 姓名姓名=bo1.value jsh=教师号教师号 select 3 locate all for 课程名课程名=bo2.value kch=课程号课程号 select 2 append blank replace 教师号教师号 with js

12、h,课程号课程号 with kch this.enable=.f. bo2.value= eractivechange() thisform.refresh 说明：说明：分别找到对应于教师和课程的教师号和课程号，分别找到对应于教师和课程的教师号和课程号，在授课表中添加新记录，并刷新列表框中的数据项，并在授课表中添加新记录，并刷新列表框中的数据项，并重新设置该命令按钮不可用。重新设置该命令按钮不可用。Command2 Click事件代码事件代码:select 1locate all for 姓名=bo1.valuejsh=教师号select 3locate all for 课程名=

13、thisform.list1.list(thisform.list1.listindex)kch=课程号select 2delete all for 教师号=jsh and 课程号=kchpackthis.enable=eractivechange()thisform.refresh说明：说明：根据组合框中的教师名和列表框中的课程名，找到相应的教师号和课程号，在授课表中删除相应记录，并刷新列表框中的数据项，重新设置该按钮为不可用。6 微调按钮对象名属性名属性值说明Text1ControlSource教师.姓名文本框数据源Spinner1ControlSource教师.工资微调按钮

14、数据源Spinner1SpinnerHighValue5000微调按钮上限值Spinner1SpinnerLowValue1000微调按钮下限值Spinner1Increment100微调量7 计时器对象名属性名属性值说明Timer1 Interval100第一个标签移动时间间隔Timer1 Enabled T表单打开时启动计时器计时器”Timer“过程代码：if thisform.label2.left1 thisform.label2.left=thisform.width-8 else thisform.label2.left=thisform.label2.left-2endif当标签

15、2距表单左边距小于1，则标签得左边距为表单宽度-8，否则其左边距为其左边距-2.8 图像 分别对表单及图像控件设置“Picture”属性即可。9 表格对象名属性名属性值说明Combo1RowSourceType字段组合框数据类型Combo1RowSource学生.姓名组合框数据源Grid1ColumnCount2表格列数Grid1RowSourceTypeSQL表格数据类型Grid1RowSource“ ”在查询前表格内容为空 Combo1 InteractiveChange()事件代码： thisform.grid1.recordsource=select 课程名 ,成绩 from 学生,选

16、课,课程 into cursor temp2; where 学生.学号=选课.学号 and 选课.课程号=课程.课程号 and 姓名=bo1.value thisform.grid1.refresh 说明：说明： 当选取了学生姓名组合框的某个学生名后，在表格中将显示该学生各门课程的成绩。对象名属性名属性值说明Grid1ColumnCount1表格1列数Grid1LinkMaster教师父表名Grid1RecordSourceType1-别名表格1数据源类型Grid1RecordSource教师表格1数据源Column1ControlSource教师.姓名表格1第一列数据源Header1Capt

17、ion教师表格1第一列列标题Grid2ColumnCount1表格2列数Grid2LinkMaster教师父表名Grid2RecordSourceType1-别名表格2数据源类型Grid2RecordSource授课表格2数据源Column2ControlSource授课.课程号表格2第一列数据源Header1Caption课程号表格2第一列列标题10 页框对象名属性名属性值说明PageFrame1 PageCount3设置页框数目Page1Caption学生表第一个页框标题Page2Caption教师表第二个页框标题Page3Caption课程表第三个页框标题11 命令按钮组命令按钮组属性设

18、置对象名属性名属性值说明CommandGroup1PageCount 4设置命令按钮数目Command1Caption增加第一个命令按钮标题Command2Caption修改第二个命令按钮标题Command3Caption删除第三个命令按钮标题Command4Caption退出第四个命令按钮标题事件代码Command1 Click事件代码事件代码: append blank thisform.refreshCommand2 Click事件代码事件代码: =tableupdate()Command3 Click事件代码事件代码: if messagebox(确实要删除记录吗？,1+16+256,

19、提示)=1 delete pack thisform.refresh else release thisform endif命令按钮组属性设置对象名属性名属性值说明CommandGroup1PageCount 4设置命令按钮数目Command1Caption首记录第一个命令按钮标题Command2Caption上一条第二个命令按钮标题Command3Caption下一条第三个命令按钮标题Command4Caption末记录第四个命令按钮标题事件代码Command1 Click事件代码事件代码: go top mand2.enabled=.f. mand3.enabled=.t. mand4.e

20、nabled=.t. thisform.refresh 说明：说明： 记录指针到表的第一条记录，使“上一条”按钮不可用，“下一条”和“末记录”按钮可用，同时刷新表单。事件代码Command2 Click事件代码事件代码:skip -1if bof() this.enabled=.f. mand1.enabled=.f. mand3.enabled=.t. mand4.enabled=.t.else this.enabled=.t. mand1.enabled=.t. mand3.enabled=.t. mand4.enabled=.t.endifthisform.refresh说明：说明：记录

21、指针向上移动一条记录，如果移动第一条记录之上，则本按钮和记录指针向上移动一条记录，如果移动第一条记录之上，则本按钮和“首记录首记录”不可不可用，其他按钮可用；如果没移动第一条记录之上，所有按钮均可用。用，其他按钮可用；如果没移动第一条记录之上，所有按钮均可用。事件代码Command3 Click事件代码事件代码:skip if eof() this.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. mand4.enabled=.t.else this.enabled=.t. mand1.enabled=.t. mand2.enabled=.t. m

22、and4.enabled=.t.endifthisform.refresh说明：说明：记录指针向下移动一条记录，如果移动最后一条记录之上，则本按钮和记录指针向下移动一条记录，如果移动最后一条记录之上，则本按钮和“末记录末记录”不不可用，其他按钮可用；如果没移动最后一条记录之上，所有按钮均可用。可用，其他按钮可用；如果没移动最后一条记录之上，所有按钮均可用。事件代码Command4 Click事件代码事件代码: go bottom this.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. thisform.ref

23、resh 说明：说明： 记录指针到表的最后一条记录，同时使“下一条”按钮不可用，“上一条”和“首记录”按钮可用，同时刷新表单。12 ActiveX控件和ActiveX绑定控件12 ActiveX控件和ActiveX绑定控件对象名属性名属性值说明Text1ControlSource姓名文本框数据源Oleboundcontrol1ControlSource学生.照片ActiveX绑定控件数据源Oleboundcontrol1Stretch1-等比填充对图象大小进行调整13 表单集14 表单控件综合应用 1、欢迎界面对象名属性名属性值说明Timert1Interval100 计时器时间间隔Timer

24、2Interval100 计时器时间间隔Formset1 Load事件代码：事件代码：public n n=0Timer1 Timer事件代码：事件代码：n=n+1if n=50 thisformset.form1.hide thisformset.form2.showendifif n=80 thisform.release do form 系统登录endifTimer2 Timer事件代码：事件代码：if thisformset.form1.label1.fontsize30 thisformset.form1.label1.fontsize=thisformset.form1.label1.fontsize+2endif2 系统登录 Command1 Click事件代码：事件代码： if trim(thisform.text1.value)操作员.密码 if messagebox(请重新输入口令,0+16,提示)=1 thisform.text1.setfocus endif else do form d:jxglch9系统功能 release thisform endif Command2 Click事件代码：事件代