【網友版4：】

　　設計一個名為mysupply的表單，表單的控件名和文件名均為mysupply。表單的形式如下圖所示。

　　表單標題為"零件供應情況"，表格控件為Grid1，命令按鈕"查詢"為Command1、"退出"為Command2，標簽控件 Label1 和文本框控件Text1(程序運行時用于輸入工程號)。

　　運行表單時，在文本框中輸入工程號，單擊"查詢"命令按鈕后，表格控件中顯示相應工程所使用的零件的零件名、顏色和重量(通過設置有關"數據"屬性實現)，并將結果按"零件名"升序排序存儲到pp.dbf文件。

　　單擊"退出"按鈕關閉表單。

　　完成表單設計后運行表單，并查詢工程號為"J4"的相應信息。

　　【操作步驟】

　　1.在考生文件夾下建立數據庫BOOKAUTH.DBC，把表BOOKS和AUTHORS添加到該數據庫中。

　　2.為AUTHORS表建立主索引，索引名為"PK"，索引表達式為"作者編號"。

　　3.為BOOKS表建立兩個普通索引，第一個索引名為"PK"，索引表達式為"圖書編號";第二個索引名和索引表達式均為"作者編號"。

　　4.建立AUTHORS表和BOOKS表之間的永久聯系。

　　【操作步驟】

　　(1)步驟1：單擊工具欄中的"新建"按鈕，在"新建"對話框中選擇"文件類型"中的"數據庫"，單擊"新建文件"。在"創建"對話框中輸入數據庫名Bookauth，再單擊"保存"按鈕。

　　步驟2：在數據庫設計器上空白處右擊，在彈出的快捷菜單中選擇"添加表"命令，然后在"打開"對話框中選擇考試文件夾下的authors和books表，然后雙擊打開。

　　(2)在數據庫設計器中右擊表authors，在彈出的快捷菜單中選擇"修改"命令;在表設計器中，選擇"索引"選項卡，在"索引名"中輸入pk，在"類型"中選擇"主索引"，在"表達式"中輸入"作者編號"，單擊"確定"按鈕。

　　(3)在數據庫設計器中右擊表books，在彈出的快捷菜單中選擇"修改"命令;在表設計器中，選擇"索引"選項卡，在"索引名"中分別輸入pk和"作者編號"，在"類型"中選擇"普通索引"，在"表達式"中分別輸入"圖書編號"和"作者編號"，單擊"確定"按鈕。

　　(4)在數據庫設計器中，在表authors中選中主索引pk，按住鼠標拖動至表books的普通索引"作者編號"上，然后釋放鼠標。

　　在考生文件夾下完成如下簡單應用：

　　1.打開表單MYFORM4-4，把表單(名稱為Form1)標題改為"歡迎您"，將文本"歡迎您訪問系統"(名稱為Label1的標簽)改為25號黑體。最后在表單上添加"關閉"(名稱為Command1)命令按鈕，單擊此按鈕關閉表單。

　　保存并運行表單。

　　2.設計一個表單MYFORM4，表單中有兩個命令按鈕"查詢"和"退出"(名稱為Command1和Command2)。

　　(1)單擊"查詢"命令按鈕，查詢BOOKAUTH數據庫中出版過3本以上(含3本)圖書的作者信息，查詢信息包括作者姓名和所在城市;查詢結果按作者姓名升序保存在表NEW_VIEW4中。

　　(2)單擊"退出"命令按扭關閉表單。

　　注意：完成表單設計后要運行表單的所有功能。

　　(1)【操作步驟】

　　步驟1：單擊工具欄中的"打開"按鈕，在"打開"對話框中選擇考生文件夾的下myform4_4.scx表單，單擊"確定"按鈕。

　　步驟2：在"屬性"對話框中，設置表單的Caption屬性為"歡迎您"。

　　步驟3：選中標簽控件，在"屬性"對話框中設置其FontSize屬性為25，FontName屬性為"黑體"。

　　步驟4：在表單上添加一命令按鈕，設置其Caption屬性為"關閉"，雙擊該按鈕，輸入thisform.release，再單擊工具欄中的"保存"按鈕。

　　(2)【操作步驟】

　　步驟1：單擊工具欄中的"新建"按鈕，在"新建"對話框的"文件類型"選項組中選擇"表單"，單擊"新建文件"按鈕。

　　步驟2：系統打開表單設計器，單擊"表單控件"工具欄中的命令按鈕，在表單設計器中拖動鼠標添加一個命令按鈕對象command1，設置其Caption屬性為"查詢"，雙擊command1，在打開的代碼編輯器窗口中輸入以下代碼：

　　SELECT 作者姓名,所在城市;

　　FROM AUTHORS;

　　WHERE 作者編號 IN;

　　(SELECT 作者編號 FROM BOOKS GROUP BY 作者編號 HAVING COUNT(*)>=3);

　　ORDER BY 作者姓名;

　　INTO TABLE NEW_VIEW4

　　用同樣的方法，在表單上添加命令按鈕command2，設置其Caption屬性為"退出"，并雙擊輸入Click的事件代碼為：THISFORM.RELEASE

　　步驟3：單擊工具欄中的"保存"按鈕，在另存為對話框中將表單保存為myform4,再單擊"保存"按鈕。

　　步驟4：單擊工具欄中的"運行"按鈕，運行表單，再分別單擊表單中的"查詢"和"退出"按鈕。

　　(1)在考生文件夾下，將BOOKS表中所有書名中含有"計算機"3個字的圖書復制到BOOKS_BAK表中，以下操作均在BOOKS_BAK表中完成;

　　(2)復制后的圖書價格在原價格的基礎上降低5%;

　　(3)從圖書均價高于25元(含25)的出版社中，查詢并顯示圖書均價最低的出版社名稱及均價，查詢結果保存在new_table4表中(字段名為出版單位和均價)。

　　【操作步驟】

　　步驟1：在命令窗口中輸入下列代碼，用于將BOOKS表中滿足條件的記錄復制到BOOKS_BAK表中，并按回車鍵以執行該代碼。

　　***************************************

　　SELECT * FROM BOOKS WHERE 書名 LIKE "%計算機%" INTO TABLE BOOKS_BAK

　　***************************************

　　步驟2：在命令窗口中輸入下列代碼，用于更新BOOKS_BAK表中的價格字段，并按回車鍵以執行該代碼。

　　*************************

　　UPDATE BOOKS_BAK SET 價格=價格*(1-0.05)

　　*************************

　　步驟3：在命令窗口中輸入下列代碼，并按回車鍵以執行該代碼。

　　********************************

　　SELECT TOP 1 Books_bak.出版單位,avg(books_bak.價格) as 均價;

　　FROM books_bak;

　　GROUP BY Books_bak.出版單位;

　　HAVING 均價>=25;

　　ORDER BY 2;

　　INTO TABLE new_table4.dbf

　　********************************