【正文】
這使我鞏固已學(xué)知識,而且鞏固動手操作的能力也大有進步。完成系統(tǒng)連編后,在磁盤上可以找到該系統(tǒng)的可執(zhí)行程序。實現(xiàn)過程:單擊“文件”下拉菜單,再點擊“新建”,選擇“表單”,再單擊“新建文件”后開始表單輸入入庫單據(jù)的設(shè)計。在grid控件下方添加兩個Label控件,使其排成一行,并將其caption屬性依次設(shè)為“請選擇查找方式”和“請輸入要查找的內(nèi)容”。對相應(yīng)信息進行修改后,按按鈕修改,即可保存修改好的信息。而按取消鍵則返回到主菜單。設(shè)計界面如下:“輸入”按鈕代碼a=alltrim()b=alltrim()c=alltrim()d=ntom(val(alltrim()))e=ntom(val(alltrim()))f=alltrim()g=alltrim()h=val(alltrim())i=ctod(alltrim())if empty(a).(b).(c).(d).(e).(f).(g).(h).(i) messagebox(請輸入完整信息) returnendifz=0x=0use 表\商品庫存表scan for =bz=1x=數(shù)量hendscanif z=0messagebox(庫存不足,無法出庫!)elseif x0 messagebox(庫存不足,無法出庫!) else update 表\商品庫存表 set 數(shù)量=數(shù)量h where 商品型號=b insert into 出庫單。該表單使用基本情況表。3 建立數(shù)據(jù)庫和數(shù)據(jù)庫表 建立數(shù)據(jù)庫首先創(chuàng)建數(shù)據(jù)庫,在項目管理器中創(chuàng)建數(shù)據(jù)庫,保存數(shù)據(jù)庫名為【】。項目管理器共有6個選項卡,分別是【全部】選項卡、【數(shù)據(jù)】選項卡、【文檔】選項卡、【類】選項卡、【代碼】選項卡和【其他】選項卡。該系統(tǒng)應(yīng)包括如下幾個功能模塊,功能模塊結(jié)構(gòu)如下圖所示(1)輸入單據(jù):出庫、入庫、產(chǎn)成品清單(2)查詢:出庫查詢、入庫查詢、產(chǎn)成品查詢(3)銷售:銷售費用、銷售退款、進/退貨(4)打印報表:入庫報表、出庫報表。 工作業(yè)績 通過這學(xué)期對數(shù)據(jù)庫這門課的學(xué)習(xí),我對數(shù)據(jù)庫有了基本的了解。 選題說明要在有限的兩周時間設(shè)計出一個小型的超市零售管理系統(tǒng),考慮到我們知識面和視野以及信息系統(tǒng)的價值性,我決定設(shè)計一個日常生活中比較常見的超市零售管理系統(tǒng)。本系統(tǒng)通過對超市零售管理系統(tǒng)進行需求分析和設(shè)計逐步將該系統(tǒng)的實現(xiàn)過程呈現(xiàn)出來。零售領(lǐng)域目前呈多元發(fā)展趨勢,多種業(yè)態(tài):超市、倉儲店、便利店、特許加盟店、專賣店、貨倉等相互并存。課程設(shè)計活動中,撰寫相關(guān)技術(shù)文檔。要退出系統(tǒng),需要有退出功能。在超市零售管理系統(tǒng)中,由項目管理器統(tǒng)一管理系統(tǒng)中的表單、數(shù)據(jù)表、程序、報表以及主菜單。 所需的數(shù)據(jù)表 分析超市零售管理系統(tǒng)的情況,首先需要了解商品的基本信息,即需要基本狀況表。單擊菜單欄的【文件】 【新建】命令,在彈出的【新建】對話框中選擇【項目】單選按鈕。必須先建立表之間的關(guān)系的,才能使用參照完整性。 (商品型號,數(shù)量) value (b,h) insert into 表\商品資料單。項目具體實現(xiàn)例:入庫查詢表單本表單用于查詢?nèi)霂焐唐非闆r。對表單上各控件的位置進行適當(dāng)?shù)恼{(diào)整,重點:(1)“查找”按鈕(mand1) 的click事件如下 :if empty()=.f. go topa=b=alltrim() local c as integer if a=入庫編號 Select * from 入庫單 where 入庫編號 like b +% into cursor bas sele bas c=reccount() if c1 (圖①“查詢”按鈕(mand2)的click事件如下: use messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) () return endif endif if a=商品型號 Select * from 入庫單 where 商品型號 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) () return endif endif if a=計量單位 Select * from 入庫單 where 計量單位 like b +% into cursor bas sele bas c=reccount() if c1use messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) () return endifendif if a=生產(chǎn)廠商 Select * from 入庫單 where 生產(chǎn)廠商 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) () return endif endif if a=倉管員 Select * from 入庫單 where 倉管員 like b +% into cursor bas sele bas c=reccount() if c1 use messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) () return endif endif if a=單價 b=ntom(val(alltrim())) Select * from 入庫單 where 單價 =b into cursor bas sele bas c=rec