[經(jīng)管營銷]超市零售管理系統(tǒng)(參考版)
2024-08-29 16:26本頁面
【正文】 在這里，真誠的感謝老師給了我這次寶貴的機會。此次課程設(shè)計用到的程序是VFP語言，就對VFP有了系統(tǒng)的了解，這個程序可以說是運用很廣泛的程序，在很多領(lǐng)域中都可以用到。理論聯(lián)系實際就在這里自然地得到實現(xiàn)。這次課程設(shè)計我也遇到了很多困難，也有停滯不前的時候，但是我都沒有放棄，而是努力查閱資料，謙虛詢問其他同學(xué)，在一次次的實踐當中摸索前進，遇到的一個個困難給了我一次次重新學(xué)習(xí)、再次思索的機會。這段時間的設(shè)計，讓我學(xué)習(xí)到很多東西，尤其是對數(shù)據(jù)庫的基本知識與實踐能力。運行后的界面如圖所示。 系統(tǒng)連編把應(yīng)用程序中所用到的組件都添加到項目管理器中后，才能開始連編應(yīng)用程序。l 對系統(tǒng)進行初始化，設(shè)置系統(tǒng)的運行狀態(tài)參數(shù)l 定義全局變量l 設(shè)置系統(tǒng)欄l 調(diào)用系統(tǒng)登錄界面l 結(jié)束時清理環(huán)境進行程序設(shè)計，首先建立主程序，在設(shè)置主文件。應(yīng)用程序的入口稱作主文件，是數(shù)據(jù)庫管理系統(tǒng)的最先執(zhí)行的程序。設(shè)計界面如下:：數(shù)據(jù)環(huán)境（）“輸入”按鈕代碼：對象：mand1 過程：clicka=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 出庫單。銷售情況的明細記錄、各地收銀員收銀記錄以及交結(jié)帳情況等，實現(xiàn)對數(shù)據(jù)庫添加銷售記錄 。調(diào)整表單上各個控件的位置，重點：① “查找”按鈕(mand1)的click事件如下：if empty()=.f. go topa=b=alltrim()c=.f. if a=入庫編號 locate for 入庫編號=b if eof()messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else （圖） c=.t. endif endif if a=商品型號 locate for 商品型號=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endif if a=計量單位 locate for 計量單位=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endif if a=單價 b=ntom(val(alltrim())) locate for 單價=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endifif a=數(shù)量 b=val(alltrim()) locate for 數(shù)量=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endif if a=金額 b=ntom(val(alltrim())) locate for 金額=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endifif a=生產(chǎn)廠商 locate for 生產(chǎn)廠商=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endif if a=出廠日期 b=ctod(val(alltrim())) locate for 出廠日期=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endif if a=倉管員 locate for 倉管員=b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top return else c=.t. endif endif if c =.f. go reo() =.t.
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1