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