表单综合题代码整理.docx

表单综合题代码整理.docx

《表单综合题代码整理.docx》由会员分享，可在线阅读，更多相关《表单综合题代码整理.docx（9页珍藏版）》请在冰豆网上搜索。

表单综合题代码整理

表单综合代码整理

第一套

Form1的Name属性：

mysupply

Form1的Caption属性：

零件供应情况

Command1的Caption属性：

查询

Command2的Caption属性：

退出

Grid1的Name属性为:

grid1

Grid1的RecordSourceType属性:

0－表

command1的click事件：

sele零件名,颜色,重量from零件where颜色="红"intodbfaa

thisform.grid1.recordsource="aa"

command2的click事件：

thisform.release

第二套

Combo1的rowsource属性：

清华,北航,科学

Rowsourcetype属性：

1-值

Command1的click事件：

selecount（*）frombookwher出版社=bo1.valueintoarrayaa

thisform.text1.value=aa

第三套

1．新建菜单TJ_MENU3，定义两个菜单项，"统计"和"退出"。

2．"统计"菜单下建立"平均"菜单，单击"平均"菜单项后"编辑"按钮添加过程代码：

SELECT课程名,AVG（成绩）平均成绩FROMcourseINNERJOINscore1;

ONCourse.课程号=Score1.课程号GROUPBY课程名;

ORDERBY课程名INTOTABLENEWTABLE

CLOSEALL

3．"退出"菜单项的结果列选择"命令"，输入：

SETSYSMENUTODEFAULT

4．保存，生成，运行。

在命令窗口输入dotj_menu3.mpr，单击统计-平均，完成操作。

第四套

Label1的caption属性：

无

Timer1的interval属性：

500

Timer1的enabled属性：

T

Timer1的timer事件：

Thisform.label1.caption=time（）

Command1的click事件

thisform.timer1.enabled=.f.（thisform.timer1.interval=0）

Command2的click事件

thisform.timer1.enabled=.t..（thisform.timer1.interval=500）

Command3的click事件

thisform.release

第五套

Command1的click事件

x=thisform.text1.value

selecount（*）fromcurrency_slwher姓名=xintoarrayy

thisform.text2.value=y

Command2的click事件

thisform.release

第六套

Command1的click事件：

sele姓名,持有数量fromcurrency_sl,rate_exchangewhere;

currency_sl.外币代码=rate_exchange.外币代码and外币名称="日元"intodbfrate_ry

Command2的click事件：

thisform.release

扩展功能：

可以查询日元、美元、欧元的持有数量。

命令按钮command1（统计）的Click事件代码如下

DOCASE

CASEthisform.myOption.option1.value=1

SELECTCurrency_sl.姓名,Currency_sl.持有数量;

FROM外汇数据!

rate_exchangeINNERJOIN外汇数据!

Currency_sl;

ONrate_exchange.外币代码=Currency_sl.外币代码;

WHERErate_exchange.外币名称="日元";

INTOTABLErate_ry.DBF

CASEthisform.myOption.option2.value=1

SELECTCurrency_sl.姓名,Currency_sl.持有数量;

FROM外汇数据!

rate_exchangeINNERJOIN外汇数据!

Currency_sl;

ONrate_exchange.外币代码=Currency_sl.外币代码;

WHERErate_exchange.外币名称="美元";

INTOTABLErate_my.DBF

CASEthisform.myOption.option3.value=1

SELECTCurrency_sl.姓名,Currency_sl.持有数量;

FROM外汇数据!

rate_exchangeINNERJOIN外汇数据!

Currency_sl;

ONrate_exchange.外币代码=Currency_sl.外币代码;

WHERErate_exchange.外币名称="欧元";

INTOTABLErate_oy.DBF

ENDCASE

第七套

grid1的Recordsourcetype属性：

4-SQL说明

Command1的click事件：

thisform.grid1.recordsource=";

sele姓名,课程号,成绩from学生,选课wher选课.学号=学生.学号and;

系=[6]intocursoraa"

第八套

Combo1的Rowsource属性：

p1,p2,p3

Combo1的Rowsourcetype属性：

1-值

Command1的click事件：

x=bo1.value

sele单价from零件信息wher零件号=xintoarraybb

thisform.text1.value=bb

第九套

grid1的Recordsourcetype属性：

4-SQL说明

Command1的click事件：

x=thisform.text1.value

thisform.grid1.recordsource=";

sele外币名称,持有数量fromrate_exchange,currency_slwher;

rate_exchange.外币代码=currency_sl.外币代码and姓名=xorderby2descintocursoraa"

第十套

Grid1的caption属性：

持有人

Grid1的name属性：

grdcurrency_sl

Grid1的recordsource属性：

currency_sl.dbf

Grid1的recordsourcetype属性：

0-表

Grid2的caption属性：

外汇汇率

Grid2的name属性：

grdrate_exchange

Grid2的recordsource属性：

rate_exchange.dbf

Grid2的recordsourcetype属性：

0-表

Command1的click事件：

Thisform.release

第十一套

1．打开表单设计器窗口，添加两个表格：

"customer"和"order"，建立好两表的关联。

右击表格grd1，选择"生成器"，在"1.表格项"中选择"customer"，将表中所有字段添加到选定字段中。

在第二个表格的生成器中，选择"4.关系"选项卡，把"父表中的关键字段"设置为customer.客户编号，把"子表中的相关索引"设置为客户编号。

2．CREATEMENUmymenu，在弹出的"菜单设计器"中的"菜单名称"列处输入"退出"，结果为过程,相关代码如下所示：

myform.release

setsysmenutodefa

3．生成并保存菜单，关闭菜单设计器。

4．设置表单的Load事件代码：

domymenu.mpr

第十二套

相关控件的属性值如下表所示：

对象属性属性值

Form1Namemyform

Grid1RecordSourceType0-表

RecordSource项目信息

Command1Caption退出

注意：

表格控件和按钮控件的宽度相同、左对齐。

第十三套

Command1的click事件：

x=thisform.text1.value

sele持有数量fromstock_slwher股票代码in;

（sele股票代码fromstock_namewher汉语拼音=x）intoarrayaa

thisform.text2.value=aa

第十四套

在数据环境中添加表：

stock_name和stock_sl,并按股票代码建立联系。

Grid1的name属性：

grdstock_name

Grid1的recordsource属性：

stock_name

Grid1的recordsourcetype属性：

1-别名

Grid2的name属性：

grdstock_sl

Grid2的recordsource属性：

stock_sl

Grid2的recordsourcetype属性：

1-别名

第十五套

Form1的caption属性：

成绩查询

Command1的click事件

sele课程名,max（成绩）as最高分fromcourse,score1whercourse.课程号=score1.课程号;

groupby1orderby课程名intodbfnew_table3

第十六套

List1的rowsourcetype属性：

7-文件

Optiongroup1的click属性：

docase

casethis.value=1

thisform.list1.rowsource="*.doc"

casethis.value=2

thisform.list1.rowsource="*.xls"

casethis.value=3

thisform.list1.rowsource="*.txt"

endcase

第十七套

1.creatmenumymenu,打开菜单设计器。

打开"显示"菜单下的"常规选项"对话框，在"位置"处选择“追加”。

2.在菜单名称中填入"考试"，结果为子菜单，单击创建；在子菜单的菜单名称中输入"计算"，结果为过程。

在过程中输入下列命令：

selectavg（数学）fromchengjiintoarrayaa

selectxuesheng.学号,姓名fromxuesheng,chengjiwherexuesheng.学号=chengji.学号and数学>aa

（1）intotabletable2

3.在菜单名称中填入"返回"，结果为过程，命令为SETSYSMENUTODEFAULT

4.最后保存菜单mymenu.mnx，并生成菜单程序mymenu.mpr，且运行菜单程序并依次执行"计算"和"返回"菜单命令。

第十八套

1.建立快捷菜单mymenu，菜单名称为“取前三名”，结果为“过程”，代码如下：

selecttop3系名,avg（工资）as平均工资from学院表,教师表where学院表.系号=教师表.系号orderby2descgroupby系名intotablesa_three

2.建立快捷菜单mymenu，菜单名称为“取前五名”，结果为“过程”，代码如下：

selecttop5系名,avg（工资）as平均工资from学院表,教师表where学院表.系号=教师表.系号orderby2descgroupby系名intotablesa_five

3.生成菜单程序mymenu.mpr

4．新建表单myform18，在form1的rightclich事件中输入代码：

domymenu.mpr

第十九套

Command1的click事件代码：

IFTHISFORM.TEXT1.VALUE="diana"

IFTHISFORM.TEXT2.VALUE="123"

x=MESSAGEBOX（"登录成功"）

ELSE

x=MESSAGEBOX（"口令错误"）

THISFORM.TEXT2.VALUE=""

THISFORM.TEXT2.SETFOCUS

ENDIF

ELSE

x=MESSAGEBOX（"用户名错误"）

THISFORM.TEXT1.VALUE=""

THISFORM.TEXT1.SETFOCUS

ENDIF

第二十套

1.新建菜单mymenu

2.菜单名称为“计算”，过程代码：

SELECTAVG（年龄）as平均年龄fromstudent

菜单名称为“退出”，过程代码：

myform.release

3.在菜单设计器中，选“显示”菜单的“常规选项”，选中复选框“顶层表单”。

4.新建表单myform.

Form1的caption属性：

考试

Form1的showwindow属性：

2-作为顶层表单

Form1的load事件代码：

DOMYMENU.MPRWITHTHIS,.T.

第二十一套

List1的rowsource属性：

男,女

List1的rowsourcetype属性：

1-值

seledist（学生信息.专业）from学生信息intocursoraa

Combo1的rowsourcetype属性：

3-SQL语句

Command1的click事件：

sele*from学生信息wher性别=thisform.list1.valueand;

专业=bo1.valueintodbftemp

第二十二套

Spinner1的Spinnerhighvale属性：

100.00

Spinner1的Spinnerlowvale属性：

0.00

Timer1的time事件代码：

thisform.label1.caption=time（）

command1的click事件：

m=thisform.spinner1.value

thisform.timer1.interval=m*1000

command2的click事件：

thisform.timer1.interval=0

command3的click事件：

thisform.release

第二十三套

1.新建菜单mymenu

2.菜单名称为“统计（\

sele专业,avg（计算机）计算机平均成绩from学生信息,学生成绩;

wher学生信息.学号=学生成绩.学号orderby2descgroupby1intodbftabletwo

菜单名称为“退出（\

myform.release

3.在菜单设计器中，选“显示”菜单的“常规选项”，选中复选框“顶层表单”。

4.新建表单myform.

Form1的caption属性：

查询

Form1的showwindow属性：

2-作为顶层表单

Form1的load（或init）事件代码：

DOMYMENU.MPRWITHTHIS,.T.

第二十四套

Grid1的caption属性：

学生档案

Grid1的recordsource属性：

学生信息.dbf

Grid1的recordsourcetype属性：

0-表

Grid2的caption属性：

学生成绩

Grid2的recordsource属性：

sele姓名,计算机from学生成绩,学生信息where计算机>=60and;

学生成绩.学号=学生信息.学号

Grid2的recordsourcetype属性：

4-SQL说明

Command1的click事件：

Thisform.release

第二十五套

Text1的value属性：

{}

Command1的click事件：

sele客户.客户号,身份证,姓名,工作单位,类型名,价格from客户,房价,入住,客房;

where客户.客户号=入住.客户号and房价.类型号=客房.类型号;

and入住.客房号=客房.客房号and退房日期>=thisform.text1.value;

orderby价格descintodbftabd