2011年计算机二级VFP上机考试冲刺模拟试题（27）

会计考友

　　第27套
　　一、
& ^$ g# Q( F# R% H* a1 P　　ALTER TABLE 客户 ALTER 性别 SET CHECK 性别 $ "男女"
　　ALTER TABLE 客户 ALTER COLUMN 性别 SET DEFAULT "女"
; q7 l8 a0 T. Z3 a　　1. 打开并修改数据库
　　MODIFY DATABASE 宾馆
　　2. 在“数据库设计器-宾馆”中，选择表“入住”并单击鼠标右键，选择“修改”命令，在“表设计器-入住.dbf”中，单击“索引”选项卡，然后输入索引名“fkkey”，选择类型为“主索引”，表达式为“客房号+客户号”，最后单击“确定”按钮，再单击“是(Y)”就可以建立主索引了。
9 C" s$ l9 w! C: j+ @/ B( `$ R　　1. 打开并修改数据库
. n# d7 Z% f% b/ j6 D4 i% f3 f/ s　　MODIFY DATABASE 宾馆
　　2. 在“数据库设计器-宾馆”中，选择表“入住”并单击鼠标右键，选择“修改”命令，在“表设计器-入住.dbf”中，单击“索引”选项卡，然后输入索引名“客房号”，选择类型为“普通索引”，表达式为“客房号”，再移到下一项，输入索引名“客户号”，选择类型为“普通索引”，表达式为“客户号”，再最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。
　　3. 在“数据库设计器-宾馆”中，选择表“客房”并单击鼠标右键，选择“修改”命令，在“表设计器-客房.dbf”中，单击“索引”选项卡，然后输入索引名“类型号”，选择类型为“普通索引”，表达式为“类型号”，再最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。
; ^+ j2 ?' k7 B" E% G* L　　在文件one.prg中存放
　　SELECT 客户号,身份证,姓名,工作单位 FROM 客户 WHERE 性别="男" INTO TABLE TABA
　　二、
　　1. 建立查询文件
- c( d7 y6 y9 ?; M# \　　CREATE QUERY two
: e8 ~  z  \2 o5 A+ z! d! X　　2. 在“打开”对话框中，选择表“客房.dbf”，再按“确定”按钮。
　　3. 在“添加表或视图”对话框中，选择表“房价”，再按“添加”按钮，接着按“关闭”按钮，关闭“添加表或视图”对话框。
　　4. 在“查询设计器-two”窗口中，单击“字段”选项卡，选择“客房.客房号”、“客房.类型号”、“房价.类型名”、“房价.价格”。
　　5. 在“查询设计器-two”窗口中，单击“筛选”选项卡，选择字段“房价.价格”，在“条件”处选择“>=”，在实例处输入“280”。
　　6. 在“查询设计器-two”窗口中，单击“排序依据”选项卡，选择字段“客房.类型号”并在“排序选项”中选中“升序”，再单击“添加”按钮。
9 @3 \1 [6 u6 \+ I( U　　7. 在“查询设计器”中，单击“查询\查询去向”菜单项，并显示“查询去向”对话框，在此对话框中，单击“表”按钮，接着在“表名”处输入表名“TABB”，单击“确定”按钮。
　　8. 最后保存并运行此查询。
' A+ A  l+ `* O1 F0 u+ j　　第3行：FROM 客户 JOIN 入住 ON 客户.客户号=入住.客户号;
　　第5行：(SELECT 入住日期;
　　第7行：WHERE 客户.客户号=入住.客户号 and 姓名="姚小敏");
　　第8行：INTO TABLE TABC
2 v6 m/ U. {1 w4 [& {, G　　三、
　　1. 建立表单
4 c4 H3 X, \! [8 o+ I　　CREATE FORM test
　　2. 在“表单设计器”中，添加一个标签Label1，在其“属性”的Caption处输入“退房日期大于或等于”。
　　3. 在“表单设计器”中，添加一个文本框Text1。
　　4. 在“表单设计器”中，添加两个命令按钮(Command1和Command2)，在第1个命令按钮Command1“属性”窗口的Caption处输入“查询”，在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
　　5. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。
3 F7 `7 Z/ Y+ ~; a3 M4 k) B- t2 m; D　　6. 双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。
: M- _$ G% N+ H6 n9 d' ?$ I  j　　dd=Alltrim(ThisForm.Text1.Value)
. @9 c' ]9 E+ q　　SELECT 客户.客户号, 客户.身份证, 客户.姓名, 客户.工作单位, 入住.客房号, 房价.类型名, 房价.价格;
　　FROM 客户 INNER JOIN 入住;
5 q- g0 E5 b5 [8 X" t, T: a* N　　INNER JOIN 客房;
　　INNER JOIN 房价 ;
& c( n5 j* |0 `+ C/ F8 @) N　　ON 房价.类型号 = 客房.类型号 ;
" J' m1 s. ?$ b9 S　　ON 客房.客房号 = 入住.客房号 ;
　　ON 客户.客户号 = 入住.客户号;
　　WHERE 入住.退房日期 >= CTOD(dd);
　　ORDER BY 房价.价格 DESC;
; ?- w3 X5 O' J1 E! }　　INTO TABLE tabd.dbf