ch903表单其他控件.pptVIP

9.3 表单其他控件 1 选项按钮组 2 复选框 2 复选框 表单Init事件代码: public kch(6) select 1 use 学生 select 2 use 选课 select 3 use 课程 2 复选框 “选课确认”按钮Click事件代码: select 1 locate all for 姓名=thisform.txt姓名.value xsh=学号 select 3 n=0 if thisform.check1.value=1 locate all for 课程名=数学建模 n=n+1 kch(n)=课程号 endif if thisform.check2.value=1 locate all for 课程名=计算机网络 n=n+1 kch(n)=课程号 endif if thisform.check3.value=1 locate all for 课程名=日语 n=n+1 kch(n)=课程号 endif if thisform.check4.value=1 locate all for 课程名=数据库 n=n+1 kch(n)=课程号 endif if thisform.check5.value=1 locate all for 课程名=商业会计 n=n+1 kch(n)=课程号 endif if thisform.check6.value=1 locate all for 课程名=电子商务 n=n+1 kch(n)=课程号 endif select 2 for i=1 to n append blank replace 学号 with xsh,课程号 with kch(i) endfor 2 复选框 “退出”按钮Click事件代码： clear memory release thisform “选课确认”按钮Click事件代码注释： 首先，在学生表中找到相应于学生姓名的学号，然后根据复选框的值，在课程表中找到已选课课程对应的课程号，再根据所选的课程门数，在选课表中，分别为每选的一门课程增加一条记录。 3 编辑框 4 列表框 “表单”Init事件代码： select 1 use 教师 select 2 use 授课 select 3 use 课程 “确认”Click事件代码： select 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 组合框 表单Init事件代码: public jsh,kch select 1 use 教师 select 2 use 授课 select 3 use 课程 mand1.enabled=.f. mand2.enabled=.f. bo1.value= bo2.value= “ 说明： 在表单创建时,定义两个全局变量；分别在三个工作区打开三个表；把“添加”和“删除”两个按钮的初始状态设置为不可用；两个组合框中的编辑框不显示内容。 Combo1 InteractiveChange事件代码: thisform.list1.rowsource=select 课程名 from 教师,授课,课程 into cursor temp1; where 教师.教师号=授课.教师号 and 授课.课程号=课程.课程号 and; 姓名=bo1.value“ 说明： 当选取了教师姓名组合框中的某个教师名后，在列表框中显示该教师已选的课程。 Combo2 InteractiveChange事件代码: mand1.enabled=.t. 说明： 当选取了可选课程组合框中的某课程时，使“添加”命令按钮可用。 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 jsh,课程号 with kch this.enable=.f. bo2.value= eractivechange() thi