實驗八 表單設計VF

1、實驗八 表單設計一、 實驗目的1. 熟悉表單設計器的使用。2. 掌握表單設計的基本過程和方法。3. 掌握表單的常用屬性，方法和事件。4. 掌握標簽、編輯框、命令按鈕、組合框、列表框、表格、等常用控件的使用。二、實驗內(nèi)容和步驟建立一個如下圖所示表單：圖1 學生登錄窗口要求實現(xiàn)：（1）系統(tǒng)初次載入時，不顯示文字“學生成績登錄系統(tǒng)”，單擊窗體右鍵時，顯示文字“學生成績登錄系統(tǒng)”。（2）單擊“登錄”按鈕時，用戶名所對應的文本框的背景色為紅色。（3）單擊“退出”按鈕時，密碼所對應的文本框消失。（4）雙擊窗體時，兩文本框恢復正常。設計步驟： 選擇“文件/表單/新建文件”，打開表單設計器。 在表單上添加三個

2、標簽（Label1、Label2、Label3）、兩個文本框（Text1、Text2）和一個命令按紐（Command1）。 設置表單、控件屬性如下表所示。表1 屬性設置對 象屬 性屬 性 值Form1Caption系統(tǒng)登錄Command1Caption登錄Command1Caption退出Label1Caption學生成績登錄系統(tǒng)Fontsize20Forecolor255,0,0Label2Caption用戶名：Label3Caption密碼：Text1InputMaskxxxxText2InputMaskxxxPasswordChar* 編寫相應事件過程代碼。l 表單Form1的Init事

3、件過程代碼： ThisForm.label1.visible=.F.l 表單Form1的Rightclick事件過程代碼：ThisForm.label1.visible=.T.l 命令按鈕Command1的Click事件過程代碼：Thisform.text1.backcolor=RGB(255,0,0) l 命令按鈕Command2的Click事件過程代碼：Thisform.Text2.visible=.F.l 表單Form1的dblclick事件過程代碼：Thisform.text1.backcolor=rgb(255,255,255)Thisform.text2.visible=.T. 保

4、存表單，命名為“表單01”。 運行該表單，驗證是否達到要求。2.設計一個登錄表單，當用戶輸入用戶名和口令并按確認鍵后，檢驗其輸入是否正確，若正確(假定用戶名為“USER”,口令為“123”)，就顯示“歡迎使用”字樣并關(guān)閉表單；若不正確，顯示“用戶名或口令不對，請重輸”字樣（要求口令輸入時顯示星號*），連續(xù)三次都輸入不正確，顯示“輸入次數(shù)超過三次，你無權(quán)使用本系統(tǒng)”。圖2 用戶登錄界面設計步驟： 新建一表單，在表單上添加兩個標簽、兩個文本框、一個命令按紐。 設置兩個標簽和一個命令按紐的Caption屬性如上圖所示。設置文本框Text1、Text2的InputMask屬性值分別為xxxx和xxx；

5、設置Text2的PasswordChar屬性值為*。 編寫相應對象的相應事件過程代碼。l 表單Form1的Load事件代碼:public numnum=0l 命令按鈕Command1的Click事件代碼:if upper(thisform.text1.value)="USER".and.;thisform.text2.value="123" wait "歡迎登錄" window at 25,80 thisform.releaseelse num=num+1 if num<3 thisform.text1.value="

6、" thisform.text2.value="" thisform.text1.setfocus else messagebox("輸入次數(shù)超過三次，你無權(quán)使用本系統(tǒng)",48,"提示") thisform.release endif endif 保存表單，命名為“表單02”，運行表單。 3.設計一個選項按鈕組表單，能改變文本框內(nèi)文字的字體格式，如下圖所示。圖3 字體設置界面設計步驟： 新建一表單，在表單上添加一個文本框Text1和一個選項按鈕OptionGroup1。 設置文本框Text1的Value屬性為“設置字體格式”

7、，F(xiàn)ontsize屬性為20，選項按紐OptionGroup1的ButtonCount屬性為4、Caption屬性如上圖所示。 編寫選項按鈕OptionGroup1的Click事件過程代碼： 保存表單，命名為“表單03”，運行表單。4.設計一個運行結(jié)果如下圖所示的表單，可用命令按鈕組中命令按鈕來調(diào)整標簽控件的位置及大小。 圖5 命令按鈕組的使用界面設計步驟： 新建一表單，在表單上添加一個標簽label1和一個命令按鈕組CommandGroup1。 設置標簽label1和命令按鈕組CommandGroup1的屬性如上圖所示。 編寫命令按鈕組的Click事件過程代碼： 保存表單，命名為“表單04”

8、，運行表單。5.編制一個瀏覽記錄的表單（瀏覽記錄.scx），要求具有前后翻頁、插入記錄、刪除當前記錄的功能，并能對當前記錄進行編輯修改（其中“性別”字段的內(nèi)容可用單選按鈕組控件來控制）。運行結(jié)果如下：圖7 瀏覽記錄窗口設計步驟： 新建一表單，將學生情況表（xsqk.dbf）添加到數(shù)據(jù)環(huán)境中。 用鼠標將有關(guān)字段逐個拖到表單中的合適位置形成相應的標簽、文本框、復選框、OLE幫定對象及編輯控件。 添加一個單選按鈕組控件“optiongroup1”取代原來的“txt性別”文本框，并設置其buttoncount屬性為2，controlsource 屬性為xsqk.性別，將其中的option1的capti

9、on屬性設置為“男”，option2的caption屬性設置為“女”。 設置OLE照片控件的stretch屬性為“1-等比填充”。 在表單中添加6個命令按鈕控件commond1command6，并將它們的caption屬性分別設置為：“首記錄”、“上一個記錄”、“下一個記錄”、“尾記錄”、“添加記錄”、“刪除記錄”。 編寫相應事件過程代碼。l 表單對象的init事件過程代碼：set deleted onselect xsqkgo topmand1.enabled=.f.mand2.enabled=.f.l “首記錄”Command1按鈕的click事件過程代碼：go top mand3.ena

10、bled=.t.mand4.enabled=.t.mand2.enabled=.f.this.enabled=.f.thisform.refreshl “上一個記錄”Command2按鈕的click事件過程代碼：mand3.enabled=.t.mand4.enabled=.t.skip -1if bof()go topmand1.enabled=.f.this.enabled=.f.endifthisform.refreshl “下一個記錄”Command3按鈕的click事件過程代碼：mand1.enabled=.t.mand2.enabled=.t.skipif eof()go bott

11、ommand4.enabled=.f.this.enabled=.f.endifthisform.refreshl “尾記錄”Command4按鈕的click事件過程代碼：go bottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.this.enabled=.f.thisform.refreshl “添加記錄”Command5按鈕的click事件過程代碼：append blankthisform.txt學號.setfocusthisform.refreshl “刪除當前記錄”Command6按鈕的click事件過程代碼：ts=mess

12、agebox("確實要刪除此記錄嗎？",4+48)if ts=6deleteskip -1if bof()go topendifthisform.refreshendif 保存表單，命名為“表單05”，運行表單。6.利用學生管理數(shù)據(jù)庫中的xsqk表和cj表，設計一個能進行查詢統(tǒng)計的表單，其界面如下圖所示。當輸入一個學生姓名并單擊“查詢統(tǒng)計”按鈕時，會在右側(cè)表格內(nèi)顯示該同學所選的各門課程的成績，并在左邊相應的文本框內(nèi)顯示其中的最高分、最低分和平均分，單擊“退出”按鈕將關(guān)閉表單。圖8 成績查詢窗口表單設計步驟如下： 新建一表單，打開數(shù)據(jù)環(huán)境設計器窗口，添加表xsqk和cj。 在

13、表單上添加四個個標簽、四個文本框、兩個命令按鈕和一個表格控件，設置標簽、命令按鈕和表單的屬性如上圖所示。 設置表格的ColumnCount屬性值為2、RecordsourceType屬性值為“4SQL說明”。 設置表格兩列標頭的Caption屬性分別為“課程號”和“成績”，并適當調(diào)整兩列的寬度。 編寫相應事件過程代碼。l 表單對象的init事件過程代碼：this.grid1.visible=.f.l “查詢統(tǒng)計”命令按鈕Command1的Click事件過程代碼：thisform.Grid1.Recordsource="select 課程號,成績 ;from cj,xsqk where cj.學號=xsqk.學號 and ;姓名=alltrim(thisform.text1.value) into cursor lsb"thisform.grid1.visible=.t.select max(成績) as ma