ch903表單其他控件

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

2、:skip -1thisform.refresh“下一條下一條”click事件代碼事件代碼:skip thisform.refresh2 2 復選框復選框?qū)ο竺麑ο竺麑傩悦麑傩悦麑傩灾祵傩灾嫡f明說明Text1ControlSource學生.姓名文本框數(shù)據(jù)源Check1Caption數(shù)學建模第一個復選框標簽Check2Caption計算機網(wǎng)絡第二個復選框標簽Check3Caption日語第三個復選框標簽CaptionCheck6Caption電子商務第六個復選框標簽Command2Caption退出第二個命令按鈕標題Command3Caption選課確認第三個命令按鈕標題2 2 復選框復選框 表

3、單Init事件代碼: public kch(6) select 1 use 學生 select 2 use 選課 select 3 use 課程 “下一條”按鈕Click事件代碼: select 1 * *在顯示下一條記錄時在顯示下一條記錄時, ,使使所有復選框恢復初始狀態(tài)所有復選框恢復初始狀態(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 復選框復選框“選課確認選課確認”按鈕按鈕Click事件代碼事件代碼:select 1locate all for 姓名姓名=thisform.txt姓名姓名.valuexsh=學號學號select 3n=0if thisform.check1.value=1locate all for 課程名課程名=數(shù)學建模數(shù)學建模n=n+1kch(n)=課程號課程號endifif thisform.check2.value=1locate all for 課程名課程名=計算機網(wǎng)絡計算機網(wǎng)絡n=n+1kch(n)=課程號課程號endifif thisform.check3.

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

6、or i=1 to n append blank replace 學號學號 with xsh,課程號課程號 with kch(i)endfor2 2 復選框復選框 “退出退出”按鈕按鈕Click事件代事件代碼：碼： clear memory release thisform “選課確認選課確認”按鈕按鈕Click事件代碼注釋：事件代碼注釋： 首先，在首先，在學生表學生表中找到中找到相應于學生姓名的相應于學生姓名的學號學號，然后根據(jù)復選框的值，然后根據(jù)復選框的值，在在課程表課程表中找到已選課中找到已選課課程對應的課程對應的課程號課程號，再，再根據(jù)所選的課程門數(shù)，根據(jù)所選的課程門數(shù)，在在選課表選課

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

8、ect 1 locate all for 姓名=thisform.txt姓名.value jsh=教師號 select 3 locate all for 課程名=thisform.list1.value kch=課程號 select 2 append blank replace 教師號 with jsh,課程號 with kch 代碼注釋：代碼注釋： 在教師表中找到對應于教師姓名的教師號教師號，在課程表中找到對應于課程名的課程號課程號，當每個教師選取了一門課程后，在授課表中添加一條記錄。5 組合框?qū)ο竺麑傩悦麑傩灾嫡f明Combo1RowSourceType字段組合框1數(shù)據(jù)源類型Combo1Ro

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

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

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

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

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

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

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

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

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

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

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

20、nabled=.t. thisform.refresh 說明：說明： 記錄指針到表的第一條記錄，使“上一條”按鈕不可用，“下一條”和“末記錄”按鈕可用，同時刷新表單。事件代碼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說明：說明：記錄

21、指針向上移動一條記錄，如果移動第一條記錄之上，則本按鈕和記錄指針向上移動一條記錄，如果移動第一條記錄之上，則本按鈕和“首記錄首記錄”不可不可用，其他按鈕可用；如果沒移動第一條記錄之上，所有按鈕均可用。用，其他按鈕可用；如果沒移動第一條記錄之上，所有按鈕均可用。事件代碼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說明：說明：記錄指針向下移動一條記錄，如果移動最后一條記錄之上，則本按鈕和記錄指針向下移動一條記錄，如果移動最后一條記錄之上，則本按鈕和“末記錄末記錄”不不可用，其他按鈕可用；如果沒移動最后一條記錄之上，所有按鈕均可用?？捎?，其他按鈕可用；如果沒移動最后一條記錄之上，所有按鈕均可用。事件代碼Command4 Click事件代碼事件代碼: go bottom this.enabled=.f. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. thisform.ref

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

24、2Interval100 計時器時間間隔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(請重新輸入口令,0+16,提示)=1 thisform.text1.setfocus endif else do form d:jxglch9系統(tǒng)功能 release thisform endif Command2 Click事件代碼：事件代