一、實驗目的
1．熟練掌握標簽、文本框、編輯框、組合框、列表框、命令按鈕、命令按鈕組、選項按鈕組、復選框、計時器等常用控件的使用方法。
2．理解微調(diào)、表格、Active等控件的使用方法。
3．掌握Visual FoxPro控件和表單設計。
二、實驗內(nèi)容及上機步驟
【上機題一】
設計職工數(shù)據(jù)維護表單，用戶可以瀏覽、增加、修改、刪除職工表記錄。
【上機步驟】
本題的知識點是常用控件（如標簽、文本框、選項按鈕組、復選框、微調(diào)控件、組合框等）的使用方法。
1. 新建表單，打開表單設計器。
2. 設置數(shù)據(jù)環(huán)境
將部門表和職工表添加到數(shù)據(jù)環(huán)境設計器中，右擊職工表，選擇快捷菜單中的“屬性”命令，將職工表的Exclusive屬性設置為.T.，指定以獨占方式打開職工表，這樣可以物理刪除記錄。然后從數(shù)據(jù)環(huán)境設計器窗口中，將職工表的職工編號、姓名、婚否、職稱、工作日期、聯(lián)系電話、簡歷等字段依次拖到表單上。
1. 在表單上添加4個標簽（Label1~Label4）、一個選項按鈕組（OptionGroup1)、一個組合框（Combo1）、一個命令組（Commandgroup1），一個命令按鈕（Command1）、一個線條控件（Line1）。
2. 按下表設置各控件的屬性。
職工數(shù)據(jù)維護表單中各控件屬性設置
對 象 | 屬性名 | 屬性值 | 說明 |
Label1 | Caption | 職工基本情況 | 標題文本 |
Fontsize | 16 | 字號 | |
Fontname | 隸書 | 字體 | |
Label2 | Caption | 性別 | 標題文本 |
Label3 | Caption | 部門編號 | 標題文本 |
Label4 | Caption | 工資級別 | 標題文本 |
OptionGroup1 | Value | 男 | 默認選男 |
Controlsource | 職工表.性別 | 綁定數(shù)據(jù) | |
Option1 | Caption | 男 | 標題文本 |
Option2 | Caption | 女 | 標題文本 |
Combo1 | RowSourceType | 6-字段 | 設置選項數(shù)據(jù)源的類型 |
RowSource | 部門表.部門編號 | 設置選項數(shù)據(jù)源 | |
ControlSource | 職工表.部門編號 | 綁定數(shù)據(jù) | |
Commandgroup1 | ButtonCouunt | 7 | 按鈕數(shù)目 |
Command1 | Caption | 首記錄 | 標題文本 |
Command2 | Caption | 末記錄 | 標題文本 |
Command3 | Caption | 上一條 | 標題文本 |
Command4 | Caption | 下一條 | 標題文本 |
Command5 | Caption | 增加 | 標題文本 |
Command6 | Caption | 刪除 | 標題文本 |
Command7 | Caption | 退出 | 標題文本 |
1. 雙擊命令組控件，編寫命令按鈕組（CommandGroup1）的Click事件代碼，代碼如下：
DO CASE
CASE Thisform.CommandGroup1.Value=1 && 移到第一條記錄
GO TOP
CASEThisform.CommandGroup1.Value=2 && 移到最后一條記錄
GO BOTTOM
CASE Thisform.CommandGroup1.Value =3 && 移到上一條記錄
IF RECNO()>1
SKIP -1
ELSE
GO TOP
ENDIF
CASE Thisform.CommandGroup1.Value=4 && 移到下一條記錄
IF RECNO()<RECCOUNT()
SKIP
ELSE
GO BOTTOM
ENDIF
CASEThisform.CommandGroup1.Value=5 && 增加一條記錄
APPEND BLANK
CASEThisform.CommandGroup1.Value=6 && 刪除一條記錄
DELETE
PACK
CASEThisform.CommandGroup1.Value=7 && 釋放表單
Thisform.Release
ENDCASE
Thisform.Refresh &&刷新表單
1. 保存和運行表單。
【上機題二】
設計一個記事本表單，實現(xiàn)對選定文字的復制、移動等操作。
【上機步驟】
本題考查的知識點是編輯框、文本框及命令按鈕等表單控件的使用方法。：
1. 新建表單，打開表單設計器。
2. 在表單上添加1個編輯框（Edit1）、三個命令按鈕（Command1，Command2,Command3）和一個文本框（Text1）控件，文本框用于顯示選定的文字。
3. 設置三個命令按鈕的Caption屬性，如下表所示。
三個命令按鈕的屬性設置
| 屬性名 | 屬性值 | 說明 |
Command1 | Caption | 復制 | 標題文本 |
Command2 | Caption | 剪切 | 標題文本 |
Command3 | Caption | 粘貼 | 標題文本 |
1. 雙擊“復制”命令按鈕(Command1)，為該按鈕編寫Click事件代碼，代碼如下：
IF Thisform.Edit1.Sellength<>0
x=Thisform.Edit1.Seltext
Thisform.Text1.Value=x
ELSE
Messagebox("未選定文本")
ENDIF
1. 雙擊“剪切”命令按鈕(Command2)，為該按鈕編寫Click事件代碼，代碼如下：
IF Thisform.Edit1.Sellength<>0
x=Thisform.Edit1.Seltext
Thisform.Text1.Value=x
Thisform.Edit1.Seltext=“”
ELSE
Messagebox("未選定文本")
ENDIF
1. 雙擊“粘貼”命令按鈕(Command3)，為該按鈕編寫Click事件代碼，代碼如下：
Thisform.Edit1.Seltext=x