二、基本操作題
[操作步驟]
(1)利用“文件”菜單下的“打開”命令來打開考生文件夾
下的表單one，或使用命令“MODIFY FORM one”打開表單one。雙擊“顯示”命令按鈕，在其Click事件中輸入代碼：ThisForm.Text1.Value=year(date())保存并運行修改后的表單，查看運行結果。
(2)單擊工具欄中的“打開”按鈕，打開考生文件夾下的表單two，在“表單”菜單中選擇“新建方法程序”命令，新建-個名為test的方法，在屬性窗口中雙擊此方法，在彈出的窗口中編寫用戶自定義過程代碼：ThisForm.Commandl.Enabled=.f.在表單設計器環(huán)境下雙擊“測試”命令按鈕，編寫Click事件代碼：ThisForm.Test保存并運行修改后的表單，查看運行結果。
(3)單擊工具欄中的“新建”按鈕，在“新建”對話框中選擇“報表”，單擊“新建文件”按鈕;選擇“報表”菜單下的“快速報表”命令，在“打開”對話框中選擇考生文件夾下的“課程表”，在“快速報表”對話框中單擊“確定”按鈕;單擊工具欄中的“保存”按鈕，將快速報表名保存為study_report.
(4)在命令窗口輸入命令：alter table教師表alter職工號set check LEFT(職工號，3)=〝110〞按下回車鍵運行命令。
[易錯誤區(qū)]在Visual FoxPro中，新建的-個方法必須通過相應的語句調用才能使用。在第(2)小題中，按照題目要求新建test方法后，還需要在命令按鈕的Click事件中對該方法進行調用。
三、簡單應用題
(1)[操作步驟]
步驟1：單擊工具欄中的“打開”按鈕，打開考生文件夾下的數(shù)據庫文件“課程管理”。
步驟2：單擊工具欄中的“新建”按鈕，新建-個程序，輸入如下代碼。
CREATE sql VIEW salary AS SELECT教師表.系號，AV
(教師表.工資)As平均工資FROM教師表;
GROUP BY教師表.系號0RDER BY 2 DESC
步驟3：保存程序為four.prg，并運行該程序。
(2)[操作步驟]
步驟1：單擊工具欄中的“打開”按鈕，打開考生文件夾下的表單six.SCX，“登錄”按鈕中的代碼如下。
**********“登錄”按鈕的Click事件代碼**********
USE用戶表
GOTOP
flag=0
&&下面語句有錯誤
WHILE.NOT.EOF()
IF Alhrim(用戶名)==Alltrim(Thisform.Tma1.Value)
IF Alltrim(口令)==Alhrim(Thisfonn.Texl2.Value)
WAIT”歡迎使用”WINDOW TIMEOUT 2
ELSE
WAIT”口令錯誤”WINDOW TIMEOUT 2
ENDIF
nag=l
EXIT
ENDIF
&&下面語句有錯誤
NEXT
ENDDO
&&下面語句有錯誤
CASE FLAG=0
WAIT”用戶名錯誤”WINDOW TIMEOUT 2
ENDIF
********************************
步驟2：修改程序中的錯誤如下。
錯誤l：將“WHILE”改為“DO WHIIE”。
錯誤2：將“NEXT”改為“SKIP”。
錯誤3：將“CASE”改為“IF”。
步驟3：保存并運行表單。
四、綜合應用題
在考生文件夾下完成下列操作：
(1)建立一個表單名和文件名均為my form的表單,如下圖所示。表單的標題為“教師情況”,表單中有兩個命令按鈕(Command1和Command2),兩個復選框(Check1和Check2)和兩個單選按鈕(Option1和Option2)。Command1和Command2的標題分別是“生成表”和“退出”,Check1和Check2的標題分別是“系名”和“工資”,Option1和Option2的標題分別是“按職工號升序’’和“按職工號降序”。
(2)為“生成表”命令按鈕編寫click事件代碼,其功能根據單運行時復選框指定的字段和單選鈕指定的排序方式生成新的自由表。如果兩個復選框都被選中,生成的自由表命名為two.dbf,two.dbf的字段包括職工號、姓名、系名、工資和課程號;如果只有“系名”復選框被選中,生成的自由表命名為one_x.dbf,one_x.dbf的字段包括職工號、姓名、系名和課程號;如果只有“工資”復選框被選中,生成的自由表命名為one_xx.dbf,one_xx.dbf的字段包括職工號、姓名、工資和課程號。
(3)運行表單,并分別執(zhí)行如下操作：
�、龠x中兩個復選框和“按職工號升序”單選鈕,單擊“生成表,,命令按鈕。
�、谥贿x中“系名”復選框和“按職工號降序”單選鈕,單擊“生成表”命令按鈕。
�、壑贿x中“工資”復選框和“按職工號降序”單選鈕,單擊“生成表”命令按鈕。
