3.綜合應用題

　　在考生文件夾下有股票管理數據庫stock_6，數據庫中有stock_mm表和stock_cs表，stock_mm的表結構是股票代碼C(6)、買賣標記L(.T.表示買進，.F.表示賣出)，單價N(7，2)、本次數量N(6);stock_cs的表結構是股票代碼C(6)，買入次數N(4)，最高價N(7，2)。stock_mm表中一支股票對應多個記錄，stock_cs表中一只股票對應一個記錄(stock_cs表開始時記錄個數為0)。

　　請編寫運行符合下列要求的程序：

　　(1)設計一個名為stock_m的菜單，菜單中有兩個菜單項“計算”和“退出”。

　　程序運行時，單擊“計算”菜單項應完成的操作是：計算每支股票的買入次數和(買入時的)最高價存入stock_cs表中，買賣標記.T.(表示買進)。

　　注意：stock_cs表中的記錄按股票代碼從小到大的物理順序存放。

　　(2)根據stock_cs表計算買入次數最多的股票代碼和買入次數，并存儲到的stock_x表中(與stock_cs表對應字段名稱和類型一致)。

　　單擊“退出”菜單項，程序終止運行。

　　【參考答案】

　　具體步驟如下：

　　① 在“命令”窗口輸入：CREATE MENU stock_m命令。

　　② 彈出“新建菜單”對話框，單擊“菜單”圖標按鈕，進入菜單設計器。

　　③ 根據題意，在菜單設計器中輸入兩個主菜單名稱“計算”和“退出”，接著在“計算”菜單行的“結果”下拉列表框中選擇“過程”選項(用于編寫程序)，在“退出”菜單行的“結果”下拉列表框中選擇“命令”選項。

　　④ 單擊“計算”菜單行中的“創建”按鈕，進入程序設計的編輯窗口，輸入如下程序段。

　　*****“計算”菜單命令的程序設計****

　　SET TALK OFF

　　SET SAFETY OFF

　　OPEN DATABASE stock_6

　　SELECT股票代碼,COUNT(*)AS買入次數,MAX(單價)AS最高價;

　　FROM stock_mm;

　　WHERE買賣標記;

　　GROUP BY股票代碼;

　　ORDER BY股票代碼;

　　INTO ARRAY AFieldsValue

　　DELETE FROM stock_cs

　　INSERT INTO stock_cs FROM ARRAY AFieldsValue

　　PACK

　　USE

　　SELECT*TOP 1 FROM stock_cs ORDER BY買入次數DESC INTO TABLE stock_x

　　SET SAFETY ON

　　SET TALK ON

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

　　⑤ 在“退出”菜單項的“命令”文本框中編寫程序代碼：SET SYSMENU TO DEFAULT。

　　⑥ 選擇菜單命令“菜單”→“生成”，生成一個菜單文件stock_m.mpr。

　　⑦ 關閉菜單設計窗口，在“命令”窗口輸入命令：DO stock_m.mpr。

　　⑧ 可以看到Visual FoxPro的菜單欄被新建的菜單所代替，執行“計算”菜單命令，計算結果將自動保存到對應表中，單擊“退出”菜單命令將恢復系統菜單。

　　【試題解析】

　　本試題主要考查了菜單的設計方法，主要注意“結果”下拉列表框中的選項選擇即可，用于編寫程序段的菜單命令應該選擇“過程”。在菜單命令的過程設計中，可利用SQL的查詢語句和插入語句完成對記錄的查找和添加工作，同時注意利用數組來保存和插入查找結果。