第3題 綜合應用

在考生文件夾下完成如下綜合應用題。
設計一個表單名為Form_one、表單文件名為YEAR_SELECT、表單標題名為“部門年度數據查詢”的表單，其表單界面如圖所示。其他要求如下：

（1）為表單建立數據環境，向數據環境添加S_T表（Cursor1）。
（2）當在“年度”標簽微調控件（Spinner1）中選擇年度并單擊“查詢”按鈕（Command1）時，則會在下邊的表格（Grid1）控件內顯示該年度各部門的四個季度的“銷售額”和“利潤”。指定微調控件上箭頭按鈕（SpinnerHighValue屬性）與下箭頭按鈕（SpinnerLowValue屬性）值范圍為2010-1999，缺省值（Value屬性）為2005，增量（Increment屬性）為1。
（3）單擊“退出”按鈕（Command2）時，關閉表單。
要求：表單控件的RecordSourceType屬性設置為“4-SQL說明”。

【答案】
（1）在Visual FoxPro的命令窗口內輸入命令：create form YEAR_SELECT，打開表單設計器。
（2）在屬性面板中設置表單的Name屬性為Form_one，其Caption屬性值為“部門年度數據查詢”。
（3）選擇主菜單中的“顯示”→“數據環境”命令，在“數據環境”窗口中右擊，選擇“添加”命令，在打開的對話框內選擇S_T表。
（4）單擊表單控件工具欄上的“微調”控件圖標，向表單添加一個“微調”控件。在屬性面板中將其SpinnerHighValue和SpinnerLowValue屬性分別改為2010和1999，其Value屬性為2005，Increment屬性為1。
（5）單擊表單控件工具欄上的“表格”控件圖標，向表單添加一個“表格”控件。在屬性面板中將其RecordSourceType屬性改為“4-SQL說明”。
（6）單擊表單控件工具欄上的“命令”按鈕控件圖標，向表單添加兩個命令按鈕，在屬性面板中將其Caption屬性分別改為“查詢”和“退出”。
（7）雙擊“退出”命令按鈕在Click事件中輸入如下程序段：thisform.release。