三、
1. 新建表單
CREATE FORM xs
2. 在“表單設計器-xs.scx”中,在“屬性”的Caption處輸入“部門銷售查詢”。
3. 在“表單設計器-xs.scx”中,添加兩個標簽,在第1個標簽Label1“屬性”的Caption處輸入“部門號”,在第2個標簽Label1“屬性”的Caption處輸入“年度”。
4. 在“表單設計器-xs.scx”中,添加兩個文本框(Text1和Text2)。
5. 在“表單設計器-xs.scx”中,添加一個表格Grid1,在其“屬性”的RecordSourceType處選擇“4 - SQL 說明”。
6. 在“表單設計器-xs.scx”中,添加兩個命令按鈕,在第1個命令按鈕“屬性”窗口的Caption處輸入“查詢”,在第2個命令按鈕“屬性”窗口的Caption處輸入“退出”。
7. 在“表單設計器”中,雙擊“查詢”命令按鈕,在“Command1.Click”編輯窗口中輸入下列語句,接著關閉編輯窗口。
X1 = ALLTRIM(ThisForm.Text1.Value)
X2 = ALLTRIM(ThisForm.Text2.Value)
ThisForm.Grid1.RecordSource = "SELECT 銷售表.商品號, 商品名, 一季度利潤, 二季度利潤, 三季度利潤, 四季度利潤 ;
FROM 銷售表 JOIN 商品代碼表 ON 銷售表.商品號 = 商品代碼表.商品號 ;
WHERE 部門號 = X1 AND 年度 = X2 INTO CURSOR lsb"
SELECT 銷售表.商品號, 商品名, 一季度利潤, 二季度利潤, 三季度利潤, 四季度利潤 ;
FROM 銷售表 JOIN 商品代碼表 ON 銷售表.商品號 = 商品代碼表.商品號 ;
WHERE 部門號 = X1 AND 年度 = X2 INTO TABLE xs&X1
8. 在“表單設計器”中,雙擊“退出”命令按鈕,在“Command2.Click”編輯窗口中輸入“Release Thisform”語句,接著關閉編輯窗口。
相關鏈接:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |