【文章內(nèi)容簡(jiǎn)介】
,一個(gè)標(biāo)簽,一個(gè)表格,設(shè)置屬性 查詢的代碼是: select * from wpxx where 品名 ==alltrim() into cursor aa =aa 清除的代碼是: = 退出的代碼是: d、建立庫房查詢表單 ( kfcx) 7740963 共 28 頁 第 11 頁 按圖建立組合框,按鈕及表格,設(shè)置屬性。 右鍵,把 rkxx 和 wpxx 添加入,設(shè)置屬性,右鍵組合框在組合框生成器里添加庫房字段,設(shè)置屬性。 其中查詢的代碼是: select * from rkxx where 庫房號(hào) = into cursor hh =hh 退出的代碼是: 共 28 頁 第 12 頁 f、建立編號(hào)查詢表單( bhcx) 按上圖建立一個(gè)標(biāo)簽,一個(gè)文本框,三個(gè)按鈕,一個(gè)表格,設(shè)置屬性。 其中查詢的命令為: select * from wpxx where 編號(hào) ==alltrim() into cursor aa =aa 清除的命令是: = 退出的命令是: 共 28 頁 第 13 頁 g、建立添加表單( tjwp) 右鍵添加 wpxx 到數(shù)據(jù)環(huán)境,設(shè)置屬性,將編號(hào)、類別、庫房號(hào)、規(guī)格、品名、產(chǎn)地拖到表單上,設(shè)置屬性。 添加的代碼是: m=messagebox(是否保存? ,4+48,信息窗口 ) if m=6 messagebox(信息已保存 ,48,信息窗口 ) else delete pack 共 28 頁 第 14 頁 endif append blank 編號(hào) .setfocus 退出的代碼是: delete pack use h、建立統(tǒng)計(jì)表單( tj) 按上圖建立選項(xiàng)按鈕組,數(shù)量為 3,建立兩個(gè)按鈕及一個(gè)表格,設(shè)置屬性。 共 28 頁 第 15 頁 統(tǒng)計(jì)的代碼是: do case case =1 select 類別 ,count(*) as 物品數(shù) from wpxx group by 類別 into cursor aa =aa case =2 select 進(jìn)口否 ,count(*) as 物品數(shù) from wpxx group by 進(jìn)口否 into cursor bb =bb case =3 select 庫房號(hào) ,count(*) as 物品數(shù) from wpxx group by 庫房號(hào) into cursor cc =cc endcase 退出的代碼是: i、建立報(bào)表