表单综合题代码整理.docx

1、表单综合题代码整理表单综合代码整理第一套Form1的Name属性：mysupplyForm1的Caption属性：零件供应情况Command1的Caption属性：查询Command2的Caption属性：退出Grid1的Name属性为:grid1Grid1的RecordSourceType属性:0表command1的 click事件：sele 零件名,颜色,重量 from 零件 where 颜色=红 into dbf aathisform.grid1.recordsource=aacommand2的 click事件：thisform.release第二套Combo1的rowsource属性：

2、清华,北航,科学Rowsourcetype属性：1-值Command1的 click事件：sele count(*) from book wher 出版社= bo1.value into array aathisform.text1.value=aa第三套1 新建菜单TJ_MENU3，定义两个菜单项，统计和退出。2统计菜单下建立平均菜单，单击平均菜单项后编辑按钮添加过程代码： SELECT 课程名, AVG(成绩) 平均成绩 FROM course INNER JOIN score1 ; ON Course.课程号 = Score1.课程号 GROUP BY 课程名; ORDER BY 课程名

3、 INTO TABLE NEWTABLE CLOSE ALL3退出菜单项的结果列选择命令，输入：SET SYSMENU TO DEFAULT4保存，生成，运行。在命令窗口输入do tj_menu3.mpr，单击统计-平均，完成操作。第四套Label1的caption属性：无Timer1的interval属性：500Timer1的enabled属性：TTimer1的timer事件：Thisform.label1.caption=time()Command1的 click事件thisform.timer1.enabled=.f.( thisform.timer1.interval=0)Comman

4、d2的 click事件thisform.timer1.enabled=.t. .( thisform.timer1.interval=500)Command3的 click事件thisform.release第五套Command1的 click事件x=thisform.text1.valuesele count(*) from currency_sl wher 姓名=x into array ythisform.text2.value=yCommand2的 click事件thisform.release第六套Command1的 click事件：sele 姓名,持有数量 from currenc

5、y_sl,rate_exchange where ;currency_sl.外币代码=rate_exchange.外币代码 and 外币名称=日元 into dbf rate_ryCommand2的 click事件：thisform.release扩展功能：可以查询日元、美元、欧元的持有数量。命令按钮command1(统计)的Click事件代码如下DO CASECASE thisform.myOption.option1.value=1SELECT Currency_sl.姓名, Currency_sl.持有数量;FROM 外汇数据!rate_exchange INNER JOIN 外汇数据!

6、Currency_sl ;ON rate_exchange.外币代码 = Currency_sl.外币代码;WHERE rate_exchange.外币名称 = 日元;INTO TABLE rate_ry.DBFCASE thisform.myOption.option2.value=1SELECT Currency_sl.姓名, Currency_sl.持有数量; FROM 外汇数据!rate_exchange INNER JOIN 外汇数据!Currency_sl; ON rate_exchange.外币代码 = Currency_sl.外币代码; WHERE rate_exchange.

7、外币名称 = 美元; INTO TABLE rate_my.DBFCASE thisform.myOption.option3.value=1 SELECT Currency_sl.姓名, Currency_sl.持有数量; FROM 外汇数据!rate_exchange INNER JOIN 外汇数据!Currency_sl; ON rate_exchange.外币代码 = Currency_sl.外币代码; WHERE rate_exchange.外币名称 = 欧元; INTO TABLE rate_oy.DBFENDCASE第七套grid1的Recordsourcetype属性：4-SQ

8、L说明Command1的 click事件：thisform.grid1.recordsource=;sele 姓名,课程号,成绩 from 学生, 选课 wher 选课.学号=学生.学号 and;系=6 into cursor aa第八套Combo1的Rowsource属性： p1,p2,p3Combo1的Rowsourcetype属性： 1-值Command1的click事件：x=bo1.valuesele 单价 from 零件信息 wher 零件号=x into array bbthisform.text1.value=bb第九套grid1的Recordsourcetype属性：4-SQL

9、说明Command1的click事件：x=thisform.text1.valuethisform.grid1.recordsource=;sele 外币名称,持有数量 from rate_exchange,currency_sl wher ;rate_exchange.外币代码=currency_sl.外币代码 and 姓名=x order by 2 desc into cursor aa第十套Grid1的caption属性：持有人Grid1的name属性：grdcurrency_slGrid1的recordsource属性：currency_sl.dbfGrid1的recordsource

10、type属性：0-表Grid2的caption属性：外汇汇率Grid2的name属性：grdrate_exchangeGrid2的recordsource属性：rate_exchange.dbfGrid2的recordsourcetype属性：0-表Command1的click事件：Thisform.release第十一套1打开表单设计器窗口，添加两个表格： customer和order，建立好两表的关联。右击表格grd1，选择生成器，在1.表格项中选择customer，将表中所有字段添加到选定字段中。在第二个表格的生成器中，选择4.关系选项卡，把父表中的关键字段设置为customer.客户编

11、号，把子表中的相关索引设置为客户编号。2CREATE MENU mymenu，在弹出的菜单设计器中的菜单名称列处输入退出，结果为过程,相关代码如下所示：myform.releaseset sysmenu to defa3生成并保存菜单，关闭菜单设计器。4设置表单的Load事件代码：do mymenu.mpr 第十二套 相关控件的属性值如下表所示：对象 属性 属性值 Form1 Name myform Grid1 RecordSourceType 0-表 RecordSource 项目信息 Command1 Caption 退出 注意：表格控件和按钮控件的宽度相同、左对齐。第十三套Command

12、1的click事件：x=thisform.text1.valuesele 持有数量 from stock_sl wher 股票代码 in ;(sele 股票代码 from stock_name wher 汉语拼音=x ) into array aa thisform.text2.value=aa第十四套在数据环境中添加表：stock_name和stock_sl,并按股票代码建立联系。Grid1的name属性：grdstock_nameGrid1的recordsource属性：stock_nameGrid1的recordsourcetype属性：1-别名Grid2的name属性：grdstock

13、_slGrid2的recordsource属性：stock_slGrid2的recordsourcetype属性：1-别名第十五套Form1的caption属性：成绩查询Command1的click事件sele 课程名,max(成绩) as 最高分 from course,score1 wher course.课程号=score1.课程号;group by 1 order by 课程名 into dbf new_table3第十六套List1的rowsourcetype属性：7-文件Optiongroup1的click属性：do case case this.value=1 thisform.

14、list1.rowsource=*.doc case this.value=2 thisform.list1.rowsource=*.xls case this.value=3 thisform.list1.rowsource=*.txtendcase第十七套1.creat menu mymenu,打开菜单设计器。打开显示菜单下的常规选项对话框，在位置处选择“追加”。2.在菜单名称中填入考试，结果为子菜单，单击创建；在子菜单的菜单名称中输入计算，结果为过程。在过程中输入下列命令：select avg(数学) from chengji into array aaselect xuesheng.学

15、号,姓名 from xuesheng,chengji where xuesheng.学号=chengji.学号 and 数学aa(1) into table table23.在菜单名称中填入返回，结果为过程，命令为SET SYSMENU TO DEFAULT4.最后保存菜单mymenu.mnx，并生成菜单程序mymenu.mpr，且运行菜单程序并依次执行计算和返回菜单命令。第十八套1. 建立快捷菜单mymenu，菜单名称为“取前三名”，结果为“过程”，代码如下：select top 3 系名,avg(工资) as 平均工资 from 学院表,教师表 where 学院表.系号=教师表.系号 or

16、der by 2 desc group by 系名 into table sa_three2. 建立快捷菜单mymenu，菜单名称为“取前五名”，结果为“过程”，代码如下：select top 5 系名,avg(工资) as 平均工资 from 学院表,教师表 where 学院表.系号=教师表.系号 order by 2 desc group by 系名 into table sa_five3. 生成菜单程序mymenu.mpr4新建表单myform18，在form1的rightclich事件中输入代码：do mymenu.mpr第十九套Command1的click事件代码：IF THISFO

17、RM.TEXT1.VALUE=diana IF THISFORM.TEXT2.VALUE=123 x=MESSAGEBOX(登录成功) ELSE x=MESSAGEBOX(口令错误) THISFORM.TEXT2.VALUE= THISFORM.TEXT2.SETFOCUS ENDIFELSE x=MESSAGEBOX(用户名错误) THISFORM.TEXT1.VALUE= THISFORM.TEXT1.SETFOCUSENDIF 第二十套1. 新建菜单mymenu 2. 菜单名称为“计算”，过程代码：SELECT AVG(年龄) as 平均年龄 from student 菜单名称为“退出”

18、，过程代码：myform.release3. 在菜单设计器中，选“显示”菜单的“常规选项”，选中复选框“顶层表单”。4. 新建表单myform. Form1的caption属性：考试Form1的showwindow属性：2-作为顶层表单Form1的load事件代码：DO MYMENU.MPR WITH THIS,.T.第二十一套List1的rowsource属性：男,女List1的rowsourcetype属性：1-值sele dist(学生信息.专业) from 学生信息 into cursor aa Combo1的rowsourcetype属性：3-SQL语句Command1的click事

19、件：sele * from 学生信息 wher 性别= thisform.list1.value and; 专业= bo1.value into dbf temp第二十二套Spinner1的Spinnerhighvale属性：100.00Spinner1的Spinnerlowvale属性：0.00Timer1的time事件代码：thisform.label1.caption=time()command1的click事件：m=thisform.spinner1.valuethisform.timer1.interval=m*1000command2的click事件：thisform.timer1

20、.interval=0command3的click事件：thisform.release第二十三套1. 新建菜单mymenu 2. 菜单名称为“统计(T)”，过程代码：sele 专业,avg(计算机) 计算机平均成绩 from 学生信息,学生成绩;wher 学生信息.学号=学生成绩.学号 order by 2 desc group by 1 into dbf tabletwo 菜单名称为“退出(=60 and; 学生成绩.学号=学生信息.学号Grid2的recordsourcetype属性：4-SQL说明Command1的click事件：Thisform.release第二十五套Text1的value属性：Command1的click事件：sele 客户.客户号,身份证,姓名,工作单位,类型名,价格 from 客户,房价,入住,客房;where 客户.客户号=入住.客户号 and 房价.类型号=客房.类型号 ;and 入住.客房号=客房.客房号 and 退房日期=thisform.text1.value;order by 价格 desc into dbf tabd