计算机等级考试二级VF题库75套上机试题(27)

会计考友

第27套　　一、
- E$ t" C) S, G/ m, k: G　　ALTER TABLE 客户 ALTER 性别 SET CHECK 性别 $ "男女"
, a: f; n) H( R　　ALTER TABLE 客户 ALTER COLUMN 性别 SET DEFAULT "女"
　　1. 打开并修改数据库
/ j; P7 q5 m5 A+ _% A# p! V( N9 \　　MODIFY DATABASE 宾馆
5 U3 D6 S3 n( N; }! j( S　　2. 在“数据库设计器-宾馆”中，选择表“入住”并单击鼠标右键，选择“修改”命令，在“表设计器-入住.dbf”中，单击“索引”选项卡，然后输入索引名“fkkey”，选择类型为“主索引”，表达式为“客房号+客户号”，最后单击“确定”按钮，再单击“是(Y)”就可以建立主索引了。
　　1. 打开并修改数据库
% v# N3 h# ~' H7 H2 g, i　　MODIFY DATABASE 宾馆
* [; Q5 b( O: b" j/ k6 E4 b　　2. 在“数据库设计器-宾馆”中，选择表“入住”并单击鼠标右键，选择“修改”命令，在“表设计器-入住.dbf”中，单击“索引”选项卡，然后输入索引名“客房号”，选择类型为“普通索引”，表达式为“客房号”，再移到下一项，输入索引名“客户号”，选择类型为“普通索引”，表达式为“客户号”，再最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。
1 ]! ?5 ?, \. j& a9 z. m3 B　　3. 在“数据库设计器-宾馆”中，选择表“客房”并单击鼠标右键，选择“修改”命令，在“表设计器-客房.dbf”中，单击“索引”选项卡，然后输入索引名“类型号”，选择类型为“普通索引”，表达式为“类型号”，再最后单击“确定”按钮，再单击“是(Y)”就可以建立索引了。
: _, ^+ ^) K7 ^, J7 M' V　　在文件one.prg中存放
: G. G, U- G8 V& X2 V" S! l1 {" V　　SELECT 客户号,身份证,姓名,工作单位 FROM 客户 WHERE 性别="男" INTO TABLE TABA
　　二、
, y* H/ t3 H7 B" ]  B　　1. 建立查询文件
6 r; R0 T' a9 p+ y. t　　CREATE QUERY two
& {, Y* {, {- d9 N+ K; ?5 {; k- b　　2. 在“打开”对话框中，选择表“客房.dbf”，再按“确定”按钮。
9 W3 }8 z4 Y! N+ F　　3. 在“添加表或视图”对话框中，选择表“房价”，再按“添加”按钮，接着按“关闭”按钮，关闭“添加表或视图”对话框。
) V8 {' M$ W1 b0 _- z% x　　4. 在“查询设计器-two”窗口中，单击“字段”选项卡，选择“客房.客房号”、“客房.类型号”、“房价.类型名”、“房价.价格”。
　　5. 在“查询设计器-two”窗口中，单击“筛选”选项卡，选择字段“房价.价格”，在“条件”处选择“>=”，在实例处输入“280”。
　　6. 在“查询设计器-two”窗口中，单击“排序依据”选项卡，选择字段“客房.类型号”并在“排序选项”中选中“升序”，再单击“添加”按钮。
　　7. 在“查询设计器”中，单击“查询\查询去向”菜单项，并显示“查询去向”对话框，在此对话框中，单击“表”按钮，接着在“表名”处输入表名“TABB”，单击“确定”按钮。
' r' c: S  _# Z1 n9 O' E7 Y+ B　　8. 最后保存并运行此查询。
　　第3行：FROM 客户 JOIN 入住 ON 客户.客户号=入住.客户号;
; _1 y2 w7 k/ M- i　　第5行：(SELECT 入住日期;
1 X3 ^! c  c# {( [2 X& a7 q　　第7行：WHERE 客户.客户号=入住.客户号 and 姓名="姚小敏");
: s" P. j7 x+ `( [　　第8行：INTO TABLE TABC
& Q( j# A( X0 R/ L  O6 q! ^　　三、
3 P* @8 v, c: g/ [3 O3 \　　1. 建立表单
　　CREATE FORM test
4 `+ V( L+ w4 i$ s　　2. 在“表单设计器”中，添加一个标签Label1，在其“属性”的Caption处输入“退房日期大于或等于”。
$ ]( ^! t2 X5 s' q- u　　3. 在“表单设计器”中，添加一个文本框Text1。
; p% j1 T5 z1 U& B) m8 Q* z  T% q　　4. 在“表单设计器”中，添加两个命令按钮(Command1和Command2)，在第1个命令按钮Command1“属性”窗口的Caption处输入“查询”，在第2个命令按钮Command2“属性”窗口的Caption处输入“退出”。
/ h. @& d" C8 q% f$ u　　5. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“ThisForm.Release”，接着关闭编辑窗口。
　　6. 双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。
% t' z! e& C! p9 V　　dd=Alltrim(ThisForm.Text1.Value)
* x+ c( P" a8 t( W" x3 C3 d　　SELECT 客户.客户号, 客户.身份证, 客户.姓名, 客户.工作单位, 入住.客房号, 房价.类型名, 房价.价格;
2 K3 O. ^6 A$ A- \& f3 l/ e　　FROM 客户 INNER JOIN 入住;
　　INNER JOIN 客房;
　　INNER JOIN 房价 ;
　　ON 房价.类型号 = 客房.类型号 ;
( z; U! p$ W3 j9 `　　ON 客房.客房号 = 入住.客房号 ;
　　ON 客户.客户号 = 入住.客户号;
　　WHERE 入住.退房日期 >= CTOD(dd);
　　ORDER BY 房价.价格 DESC;
　　INTO TABLE tabd.dbf