[經(jīng)管營(yíng)銷(xiāo)]超市零售管理系統(tǒng)(編輯修改稿)
2024-09-14 16:26 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 值分別設(shè)置為“查找”和“取消”。對(duì)表單上各控件的位置進(jìn)行適當(dāng)?shù)恼{(diào)整，重點(diǎn)：（1）“查找”按鈕(mand1) 的click事件如下 ：if empty()=.f. go topa=b=alltrim() local c as integer if a=入庫(kù)編號(hào) Select * from 入庫(kù)單 where 入庫(kù)編號(hào) like b +% into cursor bas sele bas c=reccount() if c1 （圖①“查詢(xún)”按鈕（mand2）的click事件如下： use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif if a=商品型號(hào) Select * from 入庫(kù)單 where 商品型號(hào) like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif if a=計(jì)量單位 Select * from 入庫(kù)單 where 計(jì)量單位 like b +% into cursor bas sele bas c=reccount() if c1use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endifendif if a=生產(chǎn)廠商 Select * from 入庫(kù)單 where 生產(chǎn)廠商 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif if a=倉(cāng)管員 Select * from 入庫(kù)單 where 倉(cāng)管員 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif if a=單價(jià) b=ntom(val(alltrim())) Select * from 入庫(kù)單 where 單價(jià) =b into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endifif a=金額 b=ntom(val(alltrim())) Select * from 入庫(kù)單 where 金額 =b into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif if a=數(shù)量 b=val(alltrim()) Select * from 入庫(kù)單 where 數(shù)量 =b into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif if a=出廠日期 b=ctod(alltrim()) Select * from 入庫(kù)單 where 出廠日期 =b into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄,16,系統(tǒng)提示) () return endif endif with .width=588 .height=200 .left=10 .recordsource=bas .deletemark=.f. .visible=.t. .readonly=.t..ColumnCount=9 .=入庫(kù)編號(hào) .=RGB(255,255,190) .=RGB(255,255,190) .=商品型號(hào) .=RGB(255,255,190) .=計(jì)量單位 .=RGB(255,255,190) .=單價(jià) .=RGB(255,255,190) .=數(shù)量 .=RGB(255,255,190) .=金額 .=RGB(255,255,190) .=生產(chǎn)廠商 .=RGB(255,255,190) .=出廠日期 .=RGB(255,255,190) .=倉(cāng)管員 .=80 .=80 .=80 .=80 .=80 .=80 .=80 .=80 .=80endwith (DynamicBackCo
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1