【正文】 ulevel= do form 主界面 else messagebox([用戶名/密碼] 不正確,重新輸入,48, 信息提示) =space(10) =space(10) n=n+1 endif endif31 / 56●在 mand2 的 click 事件中添加如下代碼：⑵創(chuàng)建采購計劃單新建一個表單，單擊數(shù)據(jù)環(huán)境添加采購計劃單、商品資料表、供應(yīng)商資料表、采購審核單。39。已經(jīng)是第一條記錄了！39。系統(tǒng)提示39。已經(jīng)是最后一條記錄了！39。系統(tǒng)提示39。添加39。保存39。JH00000139。JH39。039。39。39。39。39。39。39。39。39。否39。39。39。確定要保存嗎？39。系統(tǒng)提示39。 (計劃單號,日期,供應(yīng)商編號 ,出版社,商品編號,商品名稱,單位,商品數(shù)量,單價,金額,是否審核,負責(zé)人,備注)。 alltrim( ),alltrim( ),alltrim( ),。 val( ),alltrim( ),alltrim( 負責(zé)人.value),alltrim( )) else skip1 endif =39。 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.f.35 / 56 =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. endif●在控件 mand6（修改）事件中添加以下代碼：if =39。 =39。 =.f. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. else a=messagebox(39。,32+4,39。) if a=6 repl 計劃單號 with alltrim( ),。 供應(yīng)商編號 with alltrim( ),。 商品編號 with alltrim( ),。 單位 with alltrim( ),。 單價 with val( ),。 是否審核 with alltrim( ),。 備注 with alltrim( )endif =39。 =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t.endif●在控件 mand7（刪除）的 click 事件中添加以下代碼：if =39。 messagebox(39。,48,39。) else a=messagebox(39。,32+4+256,39。) if a=6 then if eof()=.f.37 / 56 delete pack endif endifendif在控件 mand8（審核）的 click 事件中添加以下代碼：a=messagebox(39。,32+4+256,39。)if a=6 then if =39。 messagebox(39。,64,39。) else select 采購審核單 供應(yīng)商編號=alltrim( ) 商品編號=alltrim( ) 出版社=alltrim( ) 商品名稱=alltrim( ) 單位=alltrim( ) 商品數(shù)量=val( ) 單價=val( 單價 .value) 金額=val( 金額 .value) calculate max(審核號)to Czdph Nzdph=val(right(Czdph,6)) if Nzdph=0 then Zdph=39。 else Zdph=39。+padl(alltrim(str(Nzdph+1)),6,39。) endif 審核號=zdph 日期=date() insert into 采購審核單( 審核號,供應(yīng)商編號,日期,商品編號,出版社,商品名稱,單位,商品數(shù)量,單價,金額)。 , ,val( ),val( ),val( ))select 采購計劃單replace 是否審核 with 39。endifendif●在控件 mand9（退出）的 click 事件中添加以下代碼：●在控件 mand10（查詢）的 click 事件中添加以下代碼：set exac offif txt=alltrim() continue else txt=alltrim() locate for 計劃單號=alltrim() endif if found()=.t. else messagebox(39。,16,39。) go top endif ⑶創(chuàng)建采購審核單 新建一個表單，單擊數(shù)據(jù)環(huán)境添加采購審核單、商品資料表、商品采購單?！裨诳丶?mand6（添加到采購單）的 click 事件中添加以下代碼：a=messagebox(39。,32+4+256,39。) if a=6 then if =39。 messagebox(39。,64,39。) else select 商品采購單 供應(yīng)商編號=alltrim( ) 商品編號=alltrim( ) 商品名稱=alltrim( ) 出版社=alltrim( ) 單位=alltrim( ) 商品數(shù)量= 單價= 金額= calculate max(采購單號)to Czdph Nzdph=val(right(Czdph,6)) if Nzdph=0 then Zdph=39。 else Zdph=39。+padl(alltrim(str(Nzdph+1)),6,39。) endif 采購單號=zdph 采購日期=date() insert into 商品采購單( 采購單號,供應(yīng)商編號,采購日期,商品編號,商品名稱,出版社,單位,商品數(shù)量,單價,金額)。 , , , )select 采購審核單replace 采購審核 with 39。endifendif⑷商品采購單新建一個表單，單擊數(shù)據(jù)環(huán)境添加商品采購單、商品資料表?！裨诳丶?mand8（打?。┑?click 事件中添加以下代碼：select 商品采購單txt 采購單號=reo()report form rep1 for reo()=txt 采購單號 preview41 / 56⑸采購單查詢新建一個表單，單擊數(shù)據(jù)環(huán)境添加商品采購單。 or empty() wait windows39。 else do case case alltrim()=39。 CXTJ=alltrim()+39。+alltrim()。39。商品數(shù)量39。39。 +39。+alltrim() case alltrim()=39。 CXTJ=alltrim()+39。+alltrim()。39。39。 +39。+alltrim()+39。 endcase select*from 商品采購單。CXTJ.。lingshistudent39。采購報表設(shè)計界面如圖 所示：圖 商品采購單報表⑺創(chuàng)建驗收單 新建一個表單，單擊數(shù)據(jù)環(huán)境添加驗收單、商品資料表、入庫單、商品采購單。不能輸入同一采購物品,請更改采購單號!39。系統(tǒng)提示39。確定要驗收嗎？39。系統(tǒng)提示39。已驗收39。不能重復(fù)驗收！39。系統(tǒng)提示39。RK00000139。RK39。039。 values(zdph,date(), , , ,。已驗收39。其中表單的設(shè)計界面如圖 所示：45 / 56圖 入庫單●在控件 mand6（入庫）的 click 事件中添加如下代碼：a=messagebox(39。,32+4+256,39。) if a=6 then if =39。 messagebox(39。,64,39。) else select 入庫單replace 已入庫 with 39。 use 庫存單表 again getid= set order to 商品編號 seek getid if found() select 庫存單表 replace 當(dāng)前庫存 with 當(dāng)前庫存+val( ) for 商品編號= 商品編 replace 總金額 with 總金額val( ) for 商品編號= 商品編號.valueelse insert into 庫存單表( 商品編號,商品名稱,出版社,倉庫編號,單價,當(dāng)前庫存,總金額)。 , , , ) endif endif endif⑼創(chuàng)建庫存盤點 新建一個表單，在數(shù)據(jù)環(huán)境中添加庫存單表、庫存盤點單?！裨诳丶?mand1（查詢）的 click 事件中添加以下代碼：select*from 庫存盤點單 where 操作日期= into cursor 臨時單表 =39。set exact offselect * from 庫存盤點單 where 標志=39。order by into cursor 臨時單表 =39。在控件 mand9(盤點)的 click 事件中添加以下代碼：if =39。messagebox(39。,48,39。)else replace 當(dāng)前庫存 with 當(dāng)前庫存+val( )update 庫存盤點單 set 標志 =39。endif⑽創(chuàng)建庫存報表新建一個報表，在數(shù)據(jù)環(huán)境中添加庫存單表。其中一些重要控件的設(shè)計屬性如表 所示：表 重要控件屬性對象 屬性 值Text1 Value ｛｝Text2 Value ｛｝Grid1 Recordsource 商品采購單其設(shè)計界面如圖 所示：圖 采購統(tǒng)計分析單●在控件 mand1（查詢）的 click 事件中添加以下代碼：if empty() wait windows39。 else if empty() wait windows39。 else select*from 商品采購單。 into cursor 臨時商品采購單 =39。 endif endif●在控件 mand3（查詢）的 click 事件中添加以下代碼：select 商品編號,商品名稱,出版社,sum(商品數(shù)量) as 數(shù)量總和,sum(金額) as 金額總和 from 商品采購單 into cursor 臨時商品采購單=39。在這里，系統(tǒng)各表單界面設(shè)計以及各運行程序設(shè)計就已全部結(jié)束。⑴編輯采購計劃單：先添加采購計劃單，完成后，點擊“審核”按鈕。如圖 所示：圖 采購計劃單⑵編輯采購審核單：在采購審核單中對采購計劃的各項內(nèi)容進行編輯審核，審核完49 / 56成以后就可以點擊“添加到銷售單”按鈕將記錄添加到商品采購單。如圖 所示：圖 商品采購單⑷編輯采購追蹤單：通過添加采購單，就可以對特定的采購單進行追蹤，通過修改采購狀態(tài)進行采購的時時監(jiān)控，直到貨物的順利到貨。第 5 章 總結(jié)本文主要是設(shè)計一個小型書店進銷存管理系統(tǒng)。這些功能模塊的設(shè)計能夠滿足用戶的基本業(yè)務(wù)管理，尤其是通過對書店的業(yè)務(wù)分51 / 56析，在采購管理、銷售管理及庫存管理的設(shè)計上能夠幫助用戶準確、有效的完成從采購到庫存再到銷售的整合過程。該系統(tǒng)操作界面美觀，用戶使用方便。因程序設(shè)計水