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