ch903表單其他控件

1、9.3 表單其他控件1 1 選項(xiàng)按鈕組選項(xiàng)按鈕組對(duì)象名屬性名屬性值說(shuō)明Text1ControlSource教師.姓名文本框數(shù)據(jù)源Optiongroup1Autosize.T.選項(xiàng)按鈕組大小隨內(nèi)容定Optiongroup1ButtonCount4選項(xiàng)按鈕數(shù)目Optiongroup1ControlSource教師.職稱(chēng)選項(xiàng)按鈕組數(shù)據(jù)源Option1Caption教授選項(xiàng)按鈕組第一個(gè)按鈕標(biāo)簽Option2Caption講師選項(xiàng)按鈕組第二個(gè)按鈕標(biāo)簽Option3Caption副教授選項(xiàng)按鈕組第三個(gè)按鈕標(biāo)簽Option4Caption助教選項(xiàng)按鈕組第四個(gè)按鈕標(biāo)簽“上一條上一條”click事件代碼事件代碼

2、:skip -1thisform.refresh“下一條下一條”click事件代碼事件代碼:skip thisform.refresh2 2 復(fù)選框復(fù)選框?qū)ο竺麑?duì)象名屬性名屬性名屬性值屬性值說(shuō)明說(shuō)明Text1ControlSource學(xué)生.姓名文本框數(shù)據(jù)源Check1Caption數(shù)學(xué)建模第一個(gè)復(fù)選框標(biāo)簽Check2Caption計(jì)算機(jī)網(wǎng)絡(luò)第二個(gè)復(fù)選框標(biāo)簽Check3Caption日語(yǔ)第三個(gè)復(fù)選框標(biāo)簽CaptionCheck6Caption電子商務(wù)第六個(gè)復(fù)選框標(biāo)簽Command2Caption退出第二個(gè)命令按鈕標(biāo)題Command3Caption選課確認(rèn)第三個(gè)命令按鈕標(biāo)題2 2 復(fù)選框復(fù)選框 表

3、單Init事件代碼: public kch(6) select 1 use 學(xué)生 select 2 use 選課 select 3 use 課程 “下一條”按鈕Click事件代碼: select 1 * *在顯示下一條記錄時(shí)在顯示下一條記錄時(shí), ,使使所有復(fù)選框恢復(fù)初始狀態(tài)所有復(fù)選框恢復(fù)初始狀態(tài) thisform.check1.value=0 thisform.check2.value=0 thisform.check3.value=0 thisform.check4.value=0 thisform.check5.value=0 thisform.check6.value=0 skip th

4、isform.refresh2 2 復(fù)選框復(fù)選框“選課確認(rèn)選課確認(rèn)”按鈕按鈕Click事件代碼事件代碼:select 1locate all for 姓名姓名=thisform.txt姓名姓名.valuexsh=學(xué)號(hào)學(xué)號(hào)select 3n=0if thisform.check1.value=1locate all for 課程名課程名=數(shù)學(xué)建模數(shù)學(xué)建模n=n+1kch(n)=課程號(hào)課程號(hào)endifif thisform.check2.value=1locate all for 課程名課程名=計(jì)算機(jī)網(wǎng)絡(luò)計(jì)算機(jī)網(wǎng)絡(luò)n=n+1kch(n)=課程號(hào)課程號(hào)endifif thisform.check3.

5、value=1locate all for 課程名課程名=日語(yǔ)日語(yǔ)n=n+1kch(n)=課程號(hào)課程號(hào)endifif thisform.check4.value=1locate all for 課程名課程名=數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)n=n+1kch(n)=課程號(hào)課程號(hào)endifif thisform.check5.value=1locate all for 課程名課程名=商業(yè)會(huì)計(jì)商業(yè)會(huì)計(jì)n=n+1kch(n)=課程號(hào)課程號(hào)endifif thisform.check6.value=1locate all for 課程名課程名=電子商務(wù)電子商務(wù)n=n+1kch(n)=課程號(hào)課程號(hào)endifselect 2f

6、or i=1 to n append blank replace 學(xué)號(hào)學(xué)號(hào) with xsh,課程號(hào)課程號(hào) with kch(i)endfor2 2 復(fù)選框復(fù)選框 “退出退出”按鈕按鈕Click事件代事件代碼：碼： clear memory release thisform “選課確認(rèn)選課確認(rèn)”按鈕按鈕Click事件代碼注釋?zhuān)菏录a注釋?zhuān)?首先，在首先，在學(xué)生表學(xué)生表中找到中找到相應(yīng)于學(xué)生姓名的相應(yīng)于學(xué)生姓名的學(xué)號(hào)學(xué)號(hào)，然后根據(jù)復(fù)選框的值，然后根據(jù)復(fù)選框的值，在在課程表課程表中找到已選課中找到已選課課程對(duì)應(yīng)的課程對(duì)應(yīng)的課程號(hào)課程號(hào)，再，再根據(jù)所選的課程門(mén)數(shù)，根據(jù)所選的課程門(mén)數(shù)，在在選課表選課

7、表中，分別為每中，分別為每選的一門(mén)課程增加一條選的一門(mén)課程增加一條記錄。記錄。3 編輯框?qū)ο竺麑傩悦麑傩灾嫡f(shuō)明Text1ControlSource學(xué)生.姓名文本框數(shù)據(jù)源Edit1ControlSource學(xué)生.特長(zhǎng)編輯框數(shù)據(jù)源4 列表框?qū)ο竺麑傩悦麑傩灾嫡f(shuō)明Text1ControlSource教師.姓名文本框數(shù)據(jù)源List1RowSource課程.課程名列表框數(shù)據(jù)源List1RowSourceType 字段列表框數(shù)據(jù)類(lèi)型 “表單表單”Init事件代碼：事件代碼： select 1 use 教師 select 2 use 授課 select 3 use 課程 “確認(rèn)”Click事件代碼： sel

8、ect 1 locate all for 姓名=thisform.txt姓名.value jsh=教師號(hào) select 3 locate all for 課程名=thisform.list1.value kch=課程號(hào) select 2 append blank replace 教師號(hào) with jsh,課程號(hào) with kch 代碼注釋?zhuān)捍a注釋?zhuān)?在教師表中找到對(duì)應(yīng)于教師姓名的教師號(hào)教師號(hào)，在課程表中找到對(duì)應(yīng)于課程名的課程號(hào)課程號(hào)，當(dāng)每個(gè)教師選取了一門(mén)課程后，在授課表中添加一條記錄。5 組合框?qū)ο竺麑傩悦麑傩灾嫡f(shuō)明Combo1RowSourceType字段組合框1數(shù)據(jù)源類(lèi)型Combo1Ro

9、wSource教師.姓名組合框1數(shù)據(jù)源Combo2RowSourceType字段組合框2數(shù)據(jù)源類(lèi)型Combo2RowSource課程.課程名組合框2數(shù)據(jù)源List1RowSourceType3-SQL語(yǔ)句文本框數(shù)據(jù)源類(lèi)型表單表單Init事件代碼事件代碼: public jsh,kch select 1 use 教師 select 2 use 授課 select 3 use 課程 mand1.enabled=.f. mand2.enabled=.f. bo1.value= bo2.value= “說(shuō)明：說(shuō)明：在表單創(chuàng)建時(shí),定義兩個(gè)全局變量；分別在三個(gè)工作區(qū)打開(kāi)三個(gè)表；把“添加”和“刪除”兩個(gè)按鈕

10、的初始狀態(tài)設(shè)置為不可用；兩個(gè)組合框中的編輯框不顯示內(nèi)容。Combo1 InteractiveChange事件代碼:thisform.list1.rowsource=select 課程名 from 教師,授課,課程 into cursor temp1;where 教師.教師號(hào)=授課.教師號(hào) and 授課.課程號(hào)=課程.課程號(hào) and;姓名=bo1.value“說(shuō)明：說(shuō)明：當(dāng)選取了教師姓名組合框中的某個(gè)教師名后，在列表框中顯示該教師已選的課程。Combo2 InteractiveChange事件代碼:mand1.enabled=.t.說(shuō)明：說(shuō)明：當(dāng)選取了可選課程組合框中的當(dāng)選取了可選課程組合框中的

11、某課程時(shí)，使某課程時(shí)，使“添加添加”命令按命令按鈕可用。鈕可用。List1 Click事件代碼:mand2.enabled=.t.說(shuō)明：說(shuō)明：當(dāng)選取了已選課程列表框中的當(dāng)選取了已選課程列表框中的某課程時(shí)，使某課程時(shí)，使“刪除刪除”命令按命令按鈕可用。鈕可用。 Command1 Click事件代碼事件代碼: select 1 locate all for 姓名姓名=bo1.value jsh=教師號(hào)教師號(hào) select 3 locate all for 課程名課程名=bo2.value kch=課程號(hào)課程號(hào) select 2 append blank replace 教師號(hào)教師號(hào) with js

12、h,課程號(hào)課程號(hào) with kch this.enable=.f. bo2.value= eractivechange() thisform.refresh 說(shuō)明：說(shuō)明：分別找到對(duì)應(yīng)于教師和課程的教師號(hào)和課程號(hào)，分別找到對(duì)應(yīng)于教師和課程的教師號(hào)和課程號(hào)，在授課表中添加新記錄，并刷新列表框中的數(shù)據(jù)項(xiàng)，并在授課表中添加新記錄，并刷新列表框中的數(shù)據(jù)項(xiàng)，并重新設(shè)置該命令按鈕不可用。重新設(shè)置該命令按鈕不可用。Command2 Click事件代碼事件代碼:select 1locate all for 姓名=bo1.valuejsh=教師號(hào)select 3locate all for 課程名=

13、thisform.list1.list(thisform.list1.listindex)kch=課程號(hào)select 2delete all for 教師號(hào)=jsh and 課程號(hào)=kchpackthis.enable=eractivechange()thisform.refresh說(shuō)明：說(shuō)明：根據(jù)組合框中的教師名和列表框中的課程名，找到相應(yīng)的教師號(hào)和課程號(hào)，在授課表中刪除相應(yīng)記錄，并刷新列表框中的數(shù)據(jù)項(xiàng)，重新設(shè)置該按鈕為不可用。6 微調(diào)按鈕對(duì)象名屬性名屬性值說(shuō)明Text1ControlSource教師.姓名文本框數(shù)據(jù)源Spinner1ControlSource教師.工資微調(diào)按鈕

14、數(shù)據(jù)源Spinner1SpinnerHighValue5000微調(diào)按鈕上限值Spinner1SpinnerLowValue1000微調(diào)按鈕下限值Spinner1Increment100微調(diào)量7 計(jì)時(shí)器對(duì)象名屬性名屬性值說(shuō)明Timer1 Interval100第一個(gè)標(biāo)簽移動(dòng)時(shí)間間隔Timer1 Enabled T表單打開(kāi)時(shí)啟動(dòng)計(jì)時(shí)器計(jì)時(shí)器”Timer“過(guò)程代碼：if thisform.label2.left1 thisform.label2.left=thisform.width-8 else thisform.label2.left=thisform.label2.left-2endif當(dāng)標(biāo)簽

15、2距表單左邊距小于1，則標(biāo)簽得左邊距為表單寬度-8，否則其左邊距為其左邊距-2.8 圖像 分別對(duì)表單及圖像控件設(shè)置“Picture”屬性即可。9 表格對(duì)象名屬性名屬性值說(shuō)明Combo1RowSourceType字段組合框數(shù)據(jù)類(lèi)型Combo1RowSource學(xué)生.姓名組合框數(shù)據(jù)源Grid1ColumnCount2表格列數(shù)Grid1RowSourceTypeSQL表格數(shù)據(jù)類(lèi)型Grid1RowSource“ ”在查詢(xún)前表格內(nèi)容為空 Combo1 InteractiveChange()事件代碼： thisform.grid1.recordsource=select 課程名 ,成績(jī) from 學(xué)生,選

16、課,課程 into cursor temp2; where 學(xué)生.學(xué)號(hào)=選課.學(xué)號(hào) and 選課.課程號(hào)=課程.課程號(hào) and 姓名=bo1.value thisform.grid1.refresh 說(shuō)明：說(shuō)明： 當(dāng)選取了學(xué)生姓名組合框的某個(gè)學(xué)生名后，在表格中將顯示該學(xué)生各門(mén)課程的成績(jī)。對(duì)象名屬性名屬性值說(shuō)明Grid1ColumnCount1表格1列數(shù)Grid1LinkMaster教師父表名Grid1RecordSourceType1-別名表格1數(shù)據(jù)源類(lèi)型Grid1RecordSource教師表格1數(shù)據(jù)源Column1ControlSource教師.姓名表格1第一列數(shù)據(jù)源Header1Capt

17、ion教師表格1第一列列標(biāo)題Grid2ColumnCount1表格2列數(shù)Grid2LinkMaster教師父表名Grid2RecordSourceType1-別名表格2數(shù)據(jù)源類(lèi)型Grid2RecordSource授課表格2數(shù)據(jù)源Column2ControlSource授課.課程號(hào)表格2第一列數(shù)據(jù)源Header1Caption課程號(hào)表格2第一列列標(biāo)題10 頁(yè)框?qū)ο竺麑傩悦麑傩灾嫡f(shuō)明PageFrame1 PageCount3設(shè)置頁(yè)框數(shù)目Page1Caption學(xué)生表第一個(gè)頁(yè)框標(biāo)題Page2Caption教師表第二個(gè)頁(yè)框標(biāo)題Page3Caption課程表第三個(gè)頁(yè)框標(biāo)題11 命令按鈕組命令按鈕組屬性設(shè)

18、置對(duì)象名屬性名屬性值說(shuō)明CommandGroup1PageCount 4設(shè)置命令按鈕數(shù)目Command1Caption增加第一個(gè)命令按鈕標(biāo)題Command2Caption修改第二個(gè)命令按鈕標(biāo)題Command3Caption刪除第三個(gè)命令按鈕標(biāo)題Command4Caption退出第四個(gè)命令按鈕標(biāo)題事件代碼Command1 Click事件代碼事件代碼: append blank thisform.refreshCommand2 Click事件代碼事件代碼: =tableupdate()Command3 Click事件代碼事件代碼: if messagebox(確實(shí)要?jiǎng)h除記錄嗎？,1+16+256,

19、提示)=1 delete pack thisform.refresh else release thisform endif命令按鈕組屬性設(shè)置對(duì)象名屬性名屬性值說(shuō)明CommandGroup1PageCount 4設(shè)置命令按鈕數(shù)目Command1Caption首記錄第一個(gè)命令按鈕標(biāo)題Command2Caption上一條第二個(gè)命令按鈕標(biāo)題Command3Caption下一條第三個(gè)命令按鈕標(biāo)題Command4Caption末記錄第四個(gè)命令按鈕標(biāo)題事件代碼Command1 Click事件代碼事件代碼: go top mand2.enabled=.f. mand3.enabled=.t. mand4.e

20、nabled=.t. thisform.refresh 說(shuō)明：說(shuō)明： 記錄指針到表的第一條記錄，使“上一條”按鈕不可用，“下一條”和“末記錄”按鈕可用，同時(shí)刷新表單。事件代碼Command2 Click事件代碼事件代碼:skip -1if bof() this.enabled=.f. mand1.enabled=.f. mand3.enabled=.t. mand4.enabled=.t.else this.enabled=.t. mand1.enabled=.t. mand3.enabled=.t. mand4.enabled=.t.endifthisform.refresh說(shuō)明：說(shuō)明：記錄

21、指針向上移動(dòng)一條記錄，如果移動(dòng)第一條記錄之上，則本按鈕和記錄指針向上移動(dòng)一條記錄，如果移動(dòng)第一條記錄之上，則本按鈕和“首記錄首記錄”不可不可用，其他按鈕可用；如果沒(méi)移動(dòng)第一條記錄之上，所有按鈕均可用。用，其他按鈕可用；如果沒(méi)移動(dòng)第一條記錄之上，所有按鈕均可用。事件代碼Command3 Click事件代碼事件代碼:skip if eof() this.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. mand4.enabled=.t.else this.enabled=.t. mand1.enabled=.t. mand2.enabled=.t. m

22、and4.enabled=.t.endifthisform.refresh說(shuō)明：說(shuō)明：記錄指針向下移動(dòng)一條記錄，如果移動(dòng)最后一條記錄之上，則本按鈕和記錄指針向下移動(dòng)一條記錄，如果移動(dòng)最后一條記錄之上，則本按鈕和“末記錄末記錄”不不可用，其他按鈕可用；如果沒(méi)移動(dòng)最后一條記錄之上，所有按鈕均可用?？捎?，其他按鈕可用；如果沒(méi)移動(dòng)最后一條記錄之上，所有按鈕均可用。事件代碼Command4 Click事件代碼事件代碼: go bottom this.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. thisform.ref

23、resh 說(shuō)明：說(shuō)明： 記錄指針到表的最后一條記錄，同時(shí)使“下一條”按鈕不可用，“上一條”和“首記錄”按鈕可用，同時(shí)刷新表單。12 ActiveX控件和ActiveX綁定控件12 ActiveX控件和ActiveX綁定控件對(duì)象名屬性名屬性值說(shuō)明Text1ControlSource姓名文本框數(shù)據(jù)源Oleboundcontrol1ControlSource學(xué)生.照片ActiveX綁定控件數(shù)據(jù)源Oleboundcontrol1Stretch1-等比填充對(duì)圖象大小進(jìn)行調(diào)整13 表單集14 表單控件綜合應(yīng)用 1、歡迎界面對(duì)象名屬性名屬性值說(shuō)明Timert1Interval100 計(jì)時(shí)器時(shí)間間隔Timer

24、2Interval100 計(jì)時(shí)器時(shí)間間隔Formset1 Load事件代碼：事件代碼：public n n=0Timer1 Timer事件代碼：事件代碼：n=n+1if n=50 thisformset.form1.hide thisformset.form2.showendifif n=80 thisform.release do form 系統(tǒng)登錄endifTimer2 Timer事件代碼：事件代碼：if thisformset.form1.label1.fontsize30 thisformset.form1.label1.fontsize=thisformset.form1.label1.fontsize+2endif2 系統(tǒng)登錄 Command1 Click事件代碼：事件代碼： if trim(thisform.text1.value)操作員.密碼 if messagebox(請(qǐng)重新輸入口令,0+16,提示)=1 thisform.text1.setfocus endif else do form d:jxglch9系統(tǒng)功能 release thisform endif Command2 Click事件代碼：事件代