三、
1. 建立表單
CREATE FORM myform
2. 在“表單設計器”中,在“屬性”的Caption處輸入“教師情況”,在Name處輸入“myform”。
3. 在“表單設計器”中,添加兩個復選框,在第1個復選框Check1“屬性”的Caption處輸入“系名”,在第2個復選框Check1“屬性”的Caption處輸入“工資”。
4. 在“表單設計器”中,添加一個選項按鈕組Optiongroup1,并在選定它且單擊右鍵,再選擇“編輯”項,接著選定Option1,在其Caption處輸入“按職工號升序”,接著選定Option2,在其Caption處輸入“按職工號降序”,
5. 在“表單設計器”中,添加兩個命令按鈕(Command1和Command2),在第1個命令按鈕Command1“屬性”窗口的Caption處輸入“生成表”,在第2個命令按鈕Command2“屬性”窗口的Caption處輸入“退出”。
6. 雙擊“生成表”命令按鈕,在“Command1.Click”編輯窗口中輸入命令組,接著關閉編輯窗口。
IF ThisForm.Check1.Value=1 And ThisForm.Check2.Value=1 Then
IF ThisForm.Optiongroup1.Value=1 Then
SELECT 職工號,姓名,系名,工資,課程號 FROM 教師表 INNER JOIN 學院表 ON 教師表.系號 = 學院表.系號 ORDER BY 職工號 INTO TABLE TWO
ELSE
SELECT 職工號,姓名,系名,工資,課程號 FROM 教師表 INNER JOIN 學院表 ON 教師表.系號 = 學院表.系號 ORDER BY 職工號 DESC INTO TABLE TWO
ENDIF
ELSE
IF ThisForm.Check1.Value=1 Then
IF ThisForm.Optiongroup1.Value=1 Then
SELECT 職工號,姓名,系名,課程號 FROM 教師表 INNER JOIN 學院表 ON 教師表.系號 = 學院表.系號 ORDER BY 職工號 INTO TABLE ONE_X
ELSE
SELECT 職工號,姓名,系名,課程號 FROM 教師表 INNER JOIN 學院表 ON 教師表.系號 = 學院表.系號 ORDER BY 職工號 DESC INTO TABLE ONE_X
ENDIF
ELSE
If ThisForm.Check2.Value=1 Then
IF ThisForm.Optiongroup1.Value=1 Then
SELECT 職工號,姓名,工資,課程號 FROM 教師表 INNER JOIN 學院表 ON 教師表.系號 = 學院表.系號 ORDER BY 職工號 INTO TABLE ONE_XX
ELSE
SELECT 職工號,姓名,工資,課程號 FROM 教師表 INNER JOIN 學院表 ON 教師表.系號 = 學院表.系號 ORDER BY 職工號 DESC INTO TABLE ONE_XX
ENDIF
ENDIF
ENDIF
ENDIF
7. 雙擊“退出”命令按鈕,在“Command2.Click”編輯窗口中輸入“ThisForm.Release”,接著關閉編輯窗口。
相關推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |