基于数据环境表单设计.doc

基于数据环境的表单设计一、 Kc.dbf Js.dbf课程名课程号学时数据结构0160C语言0260操作系统0372编译原理0454工号姓名工资课程号J20001肖海3408.0001J20003刘星魂2450.0002J20005李明玉4520.0001J20006孙民山2976.0003J20007钱无名2987.0004J20010周军2400.0003J20013周兴池3670.0004Text1的lostfocus事件代码：x=allt(thisform.text1.value)sele 工号,姓名,工资 from js,kc where js.课程号=kc.课程号 and 课程名=x into cursor xxthisform.grid1.recordsourcetype=1thisform.grid1.recordsource=xx二、 Ts.dbf书号作者书名价格数量出版社bj080001张春林计算机应用基础28.556西南大学出版社bz060002王强C程序设计26.96清华大学出版社bj080014吴林风离散数学25.8128清华大学出版社bz050003王欣欣java程序设计31.647重庆大学出版社bj060022林家利高等数学29.6227高等教育出版社bz060005章子强软件工程32.8156西南大学出版社bj080006欧阳利计算机组成原理2989高等教育出版社bz080003王利程序设计基础(vfp)3315高等教育出版社Combo1的interactivechange事件代码：thisform.edit1.value=书名 价格 数量cbs=alltrim(bo1.value)scan for allt(出版社)=cbs x=书名+space(2)+str(价格,5,1)+str(数量,4) thisform.edit1.value=thisform.edit1.value+chr(13)+xendscthisform.refresh三、Jsxx.dbf教师编号姓名性别职称生日J820213毛峰男教授1960-2-24 F820308李梅女副教授1964-3-3 S821034赵小惠女讲师1970-3-12 S821105周勇平男讲师1985-3-8 1、命令按钮“查询”的click事件代码：locate for 职工号=bo1.valuethisform.text1.value=姓名thisform.text2.value=性别thisform.text3.value=职称thisform.label5.caption=出生年月：+str(year(生日),4)+年+str(month(生日),2)+月2、命令按钮“查询”的click事件代码：gh=alltri(bo1.value)sele 姓名,性别,职称 from jsxx where 职工号=gh into array athisform.text1.value=a(1)thisform.text2.value=a(2)thisform.text3.value=a(3)thisform.label5.caption=出生年月：+str(year(生日),4)+年+str(month(生日),2)+月四stu.dbf sco.dbf学号课程名成绩011001语文85.0011001数学90.5011002体育90.0011003数学77.0011004语文68.0011002大学英语I95.0011003大学英语II92.5011005政治90.0011001政治90.5学号姓名寝室电话011001张三3-1-119012385203011002李四4-2-219585296311011003王五5-3-318545678930011004周六3-1-319012341022011005朱琪5-1-219585231487List1的interactivechange代码:select cnt(课程名),sum(成绩) from sco into array a where 学号=substr(thisform.list1.value,1,6) 或 学