【正文】 ity, Valmar of many bells. Before its western gate there was a green mound, Ezellohar, that is named also Corollair? and Yavanna hallowed it, and she sat there long upon the green grass and sang a song of power, in which was set all her thought of things that grow in the earth. But Nienna thought in silence, and watered the mould witho that the first designs of the Valar were never after restored. In the confusion and the darkness Melkor escaped, though fear fell upon him。 流程圖 en, until in the Deeps of Time and in the midst of the vast halls of E?there came to be that hour and that place where was made the habitation of the Children of Il鷙 atar. And in this work the chief part was taken by Manw?and Aul?andthe Valar fortified their dwelling, and upon the shores of the sea they raised the Pel髍 i, the Mountains of Aman, highest upon Earth. And above all the mountains of the Pel髍 i was that height upon whose summit Manw?set his throne. Taniquetil the Elves name that holy mountain, and Oioloss?Everlasting Whiteness, and Elerr韓 a Crowned with Stars, and many names beside。 輔助 錄入商品庫時，名稱可以相同，規(guī)格（顏色）也可以相同，但名稱、規(guī)格（顏色）不能同時相同。 自動錄入進出庫數(shù)據(jù)，如果有自動錄入的數(shù)據(jù)傳過來，則菜單可以進入，否則不能進入。 代銷 能自動將盤點正確的數(shù)據(jù)輸入。 所有全局變量以“ P_”開頭。該月盤點表沒有生成 39。進入盤點表管理 39。zbpdb39。該月盤點表沒有生成 39。進入代銷商盤點表管理 39。dxs39。dxpdb39。退出總部倉庫帳錄入 39。是 39。 select amp。代銷保修返回 shk=39。 .and. 返回 =39。dxbxsl39。amp。 select amp。代銷退貨 shk=39。shk set filter to 審核入庫 =39。chd39。是 39。 select amp。銷售保修返回 shk=39。 .and. 返回 =39。xsbxsl39。amp。 select amp。銷售退貨 shk=39。shk set filter to 審核入庫 =39。xsrjz39。是 39。 select amp。進貨單保修退廠返回 shk=39。 .and. 返回 =39。bxtcsl39。amp。 select amp。進貨單退貨，即退貨退廠 shk=39。shk set filter to 審核入庫 =39。jhd39。進入總部倉庫帳錄入 39。dxkzz39。dxkrjz39。dxbx39。dxth39。chd39。xsbx39。xsth39。xsrjz39。bxtc39。thtc39。jhd39。dxs39。ghs39。ckrjz39。ckzz39。 39。 請確認是否正確。+dtoc(date())+chr(13)+39。有人試圖進入系統(tǒng)，但未成功。gzrr39。39。 39。 append blank replace 日期 with date(),。 do form dhk else erase endif *記日志 do dksjk with 39。要進行故障恢復！39。39。 SIZE , 。醫(yī)藥進銷存系統(tǒng) 39。 close table all *設置屏幕 Declare integer Fblz In integer x,integer y x=800 y=600 xx=Fblz(x,y) amp。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 SET FUNCTION 39。 打開數(shù)據(jù)庫： DKSJK。 退出系統(tǒng)。 取備份。查看、打印盤點表。 任意時段退貨金額。統(tǒng)計的范圍包括某一代銷商、全部代銷商、包括倉庫直接銷售，統(tǒng)計的項目為： 任意時段所有商品的銷售金額、成本、利潤合計。并將退貨數(shù)據(jù)傳給庫存模塊，由庫存審核后自動錄入。 銷售管理。記錄每一筆出貨給代銷商的數(shù)據(jù)。 統(tǒng)計銷售數(shù)據(jù)，并查看和打印統(tǒng)計數(shù)據(jù)，按金額排序，標記出數(shù)量最多的商品。 退貨管理。 任意時段某一商品的報費數(shù)量、金額合計。 任意時段所有商品的進庫、出庫數(shù)量、金額合計。 （暫不使用）殘次品、報費數(shù)據(jù)的輸入。查看、打印盤點表。打印進出庫單。根據(jù)庫存庫保修出庫所傳來的數(shù)據(jù)自動審核錄入。 任意時段所有供應商的進貨、退貨、保修金額合計。 統(tǒng)計進貨數(shù)據(jù)，查看和打印統(tǒng)計結果。并將進貨數(shù)據(jù)傳至庫存模塊，經(jīng)庫存審核后自動錄入庫存庫。代碼不能相同。 能自動將盤點正確的數(shù)據(jù)輸入 需要審核入庫的數(shù)據(jù)：進貨（ JHD）、退貨退廠（ THTC）、保修退廠（ BXTC）、保修返回（ BXTC）、銷售數(shù)（ XSRJZ）、銷售退貨（ XSTH）、銷售保 修（ XSBX）、代銷出貨（ CHD）、代銷退貨（ DXTHK）、代銷保修（ DXBXK）。 需要審核入代銷商庫的數(shù)據(jù)：出貨給代銷商（ CHD）、代銷銷售（ DXXSZ）、代銷退貨（ DXTHK）、代銷保修（ DXBXK）。 進貨 自動錄入退貨、保修數(shù)據(jù)，如果有自動錄入的數(shù)據(jù)傳過來，則菜單可以進入，否則不能進入。 do form dhk endif select zbpdb set filter to endif 開發(fā)注意事項 總述 所有數(shù)據(jù)的修改必須經(jīng)過主管同意，即要有主管的密碼。 do form pdbdk name pdbdk do jrz with p_gzrrxm,39。 rqn=year(date()) rqy=month(date()) qd=.t. do form rqxz name rqxz if qd select zbpdb set filter to 年 =rqn .and. 月 =rqy count to jls if jls0 cxnr=space(20) set message to 39。 do form dhk endif select dxpdb set filter to endif *總部倉庫盤點表打開模塊 *程序名： pdbdk *變量說明 private all except p_* do dksjk with 39。 do form dxpdbdk name dxpdbdk do jrz with p_gzrrxm,39。,39。,39。 set message to 39。 endcase count to jls if jls0 do form amp。shk set filter to 審核入庫 =39。dxbx39。否 39。 select amp。代銷保修 shk=39。shk set filter to 審核入庫 =39。dxth39。否 39。 shbd=39。 case jsq=9 amp。shk set filter to 審核入庫 =39。xsbx39。否 39。 select amp。銷售保修退貨 shk=39。shk set filter to 審核入庫 =39。xsth39。否 39。 shbd=39。 case jsq=5 amp。shk set filter to 審核入庫 =39。bxtc39。否 39。 select amp。進貨單保修退廠 shk=39。shk set filter to 審核入庫 =39。thtc39。否 39。 shbd=39。 cxnr=space(20) qd=.t. jsq=1 do while qd .and. jsq=12 do case case jsq=1 amp。 set message to 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do dksjk with 39。 do form dhk do do form main read events *倉庫帳錄入模塊 *程序名： ckzlr *變量說明 private all except p_* do dksjk with 39。如不正確，請用 WINDOWS 功能 39?，F(xiàn)在的時間是： 39。 39。 do form gzrrmm if .not. mmtg select rzk replace 日期 with date(),。 do dksjk with 39。 *密碼確認 mmtg=.t. p_gzrrdm=39。 時間 with time(),。rzk39。 do form dhk do zlsj dhxx=39。) *故障恢復 dhxx=39。 STYLE T amp。 .BORDERSTYLE = 2 .CLOSABLE = .F. .CONTROLBOX = .T. .MAXBUTTON = .F. .MINBUTTON = .T. .MOVABLE = .F. .WINDOWSTATE = 2 .icon=39。amp。1039。939。839。739。639。539。439。339。239。139。 關閉數(shù)據(jù)庫： GBSJK。 確認系統(tǒng)日期 和時間。 密碼管理。錄入盤點庫存數(shù)，但不用盤點數(shù)修正根據(jù)銷售數(shù)所得的庫存數(shù)，兩個數(shù)據(jù)都要，并在統(tǒng)計中做比較，以了解代銷商押總部貨款的數(shù)額。 任意時段保修金額，及到目前為止尚未保修返還的商品、數(shù)量、金額。 任意時段某一商品的銷售數(shù)量、金額、成本、利潤合計。 保修（保修退倉）數(shù)據(jù)錄入、修改、刪除、恢復、查看。錄入、修改、刪除、恢復代銷商傳來的有 關銷售數(shù)據(jù)，傳送的方式可用紙質、磁盤、電話線。并將數(shù)據(jù)傳給庫存模塊，經(jīng)審核后自動錄入。統(tǒng)計的項目為： 任意時段所有商品的銷售金額、合計。錄入、修改、刪除、恢復、查看有關退貨的數(shù)據(jù)，并將退貨數(shù)據(jù)自動傳給庫存模塊，由庫存審核后自動錄入。 銷售管理 記錄每一筆銷售數(shù)據(jù)。 任意時段某一商品的進庫、出庫數(shù)量、金額合計。正品轉殘次品，從倉庫總帳及日記帳中做出庫處理，自動轉到殘次品庫；殘次品轉正品，則自動從殘次品庫中出庫轉向總庫，總帳及日記帳中做入庫處理。錄入盤盈、盤虧數(shù)據(jù)。 設定商品庫存下限。 庫存管理 初始化庫存，錄入商品的初始庫存數(shù)，一旦總帳中已有該商品，則不能再錄入初始數(shù)。 任意時段某一供應商的進貨、退貨、保修金額合計。統(tǒng)計 的項目為： 任意時段所有商品的進貨、退貨、保修金額合計。 缺貨清單查詢。并將進貨數(shù)據(jù)傳至庫存模塊，經(jīng)庫存審核后自動錄入庫存庫。 統(tǒng)計進貨數(shù)據(jù)，查看和打印統(tǒng)計結果。 任意時段所有供應商的進貨、退貨、保修金額合計。根據(jù)庫存庫保修出庫所傳來的數(shù)據(jù)自動審核錄入。打印進出庫單。查看、打印盤點表。 （暫不使用）殘次品、報費數(shù)據(jù)的輸入。 任意時段所有商品的進庫、出庫數(shù)量、金額合計