[經(jīng)管營(yíng)銷]超市零售管理系統(tǒng)-全文預(yù)覽
【正文】 （圖①“查詢”按鈕（mand2）的click事件如下： use messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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ù)中不存在您所要查詢的記錄,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 (DynamicBackColor,RGB(224,225,255),Column) else messagebox(請(qǐng)輸入要查找的內(nèi)容！,16,系統(tǒng)提示) = endif① 取消”按鈕（mand2）的click事件如下：下圖為查詢模塊其余的出庫(kù)查詢、庫(kù)存查詢和商品資料查詢的界面設(shè)計(jì)，其制作過(guò)程與入庫(kù)查詢相似。在表單上設(shè)計(jì)如下事件過(guò)程：新建表單form1，并將其caption屬性值設(shè)為“入庫(kù)查詢”，width屬性值設(shè)置為290，height屬性值設(shè)置為175，.，并將其保存為“”。項(xiàng)目具體實(shí)現(xiàn)例：入庫(kù)查詢表單本表單用于查詢?nèi)霂?kù)商品情
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1