【正文】 (cmessagetext,ndialogtype,cmessagetitle) do case case nAnswer=6 *更新數(shù)據(jù)表 update tabkc set 藥品名稱 =ypname,藥房名稱 =ckname,簡稱=jiancheng,單位 =danwei,劑型 =jixing,產(chǎn)地 =area,貨位 =huowei,規(guī)格 =guige,包裝=baozuang,商標 =logo1,批準文號 =pzwh,單價 =jinjia,庫存數(shù)量 =kccount,庫存金額=kcje,批號 =pno,保質(zhì)期 =bzq where 藥品編號 =ypnumber messagebox(39。) amp。 cmessagetext=39。執(zhí)行表單的 Resize 事件 endcase endif =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.t. =.t. =.t. =.f. =.f. =.t. =.t. =.t. =.t. =.t. =.t. 各庫出庫入庫表單設計 倉庫的出庫和入庫操作表單是對日常工作中對倉庫的出入庫進行的操作。若沒有查到要找的記錄，點擊“新貨入庫”按鈕就可以入庫新的貨物，同時彈出一“取消”按鈕，若輸入完新記錄，可點擊“入庫完成”按鈕，在入了主庫同時，在對應的入庫流水表中也可以查到該筆操作，若不想輸入可點擊“取消”。 代碼中 zz 為該表單（ load）定義： public zz ； zz=reo() amp。執(zhí)行表單的 Activate store 0 to , store 39。Combo4 獲得焦點 =39。賦數(shù)據(jù)源 amp。) lday=padl(alltrim(str(day(date()),2)),2,39。+lmonth+39。) else select max(銷售票號 ) from tabxsdj into array a cend=val(substr(a(1),14))+1 =alltrim(str(year(date()),4)+39。+lday+39。)) endif =date() amp。,48,39。 cmessagetext=39。 select tabrkdj append from database\ltabrkdj select ltabrkdj go top do while !eof() select *。 into cursor lindeping select lindeping if reccount()1 insert into tabkc values( , ,稱 ,。追加新記錄 else update tabkc set 藥品名稱 = ,庫存數(shù)量 =庫存數(shù)量+ ,。amp。操作成功！ 39。amp。39。39。39。ltabxsth39。amp。039。39。THD000139。39。THD39。39。39。39。ltabrkth39。039。amp。39。amp。39。039。操作員錯誤，請重新輸入！ 39。操作員管理 39。39。操作失??！ 39。首先點擊項目管理器中的“其它”中的“菜單”，然后點擊右邊的“新建”起名為菜單。下面是本系統(tǒng)的主程序及菜單程序： 主程序： clear screen local lcsys16,lcprogram amp。 sys(16)返回當前正在運行的程序名（包括路徑） lcprogram=substr(lcsys16,at(:,lcsys16)1) cd left(lcprogram,rat(\,lcprogram)) amp。關閉項目管理器 do setting amp。程序運行時去掉 Visual FoxPro的主窗口 do form form\admin zoom windows screen max amp。 amp。定義全局變量 public pxsgl,pjhgl,pkfgl,pthgl,pcwgl,pzmgl,pjcinfo,psysgl store . pxsgl,pjhgl,pkfgl,pthgl,pcwgl,pzmgl,pjcinfo,psysgl purview=5 define window ncover from 0,0 to 800,470 nozoom noclose fill file images\ amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。stroke39。amp。amp。amp。amp。amp。amp。amp。amp。定義一個窗口 NCOVER，將它作為應用系統(tǒng)的背景圖片。設置主窗口標題 public purview amp。最大化窗口 =39。設置系統(tǒng)環(huán)境配置 =10000 amp。用 CD命令進入系統(tǒng)所在目錄 deactivate window project manager amp。定義局部變量 lcsys16=sys(16) amp。任何可以建立，編輯文本文件的工具，都可以創(chuàng)建和編輯 Visual FoxPro 程序設計。 菜 單 設 計 做一個系統(tǒng)要是選擇菜單模式，那末菜單的制作就極為重要，因為菜單制作的好壞直接影響到整個系統(tǒng)使用的方便與否。對不起，您無權修改密碼！ 39。原密碼錯誤，請重新輸入！ 39。39。操作員管理 39。THD39。39。THD000139。39。039。amp。amp。39。39。039。39。amp。39。amp。039。amp。amp。39。39。amp。amp。數(shù)據(jù)保存完畢！ 39。amp。 , ) amp。 where 藥品編號 == 。 ndialogtype=4+32 nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nAnswer=6 =39。) else cmessagetitle=39。刷新表單 =.f. =.t. =.t. =.f. 以 下 為 入 庫 登 記 的 設 計 ： 圖（ ） 如圖 ()按“保存”的代碼為 : if empty( ) messagebox(39。+padl(alltrim(str(cend,4)),4,39。+lmonth+39。+lday+39。) if empty(銷售票號 ) set cent on =alltrim(str(year(date()),4)+39。刷新表格 *自動票號 select tabxsdj lmonth=padl(alltrim(str(month(date()),2)),2,39。 amp。 to ,this =manager amp。zz 為當前記錄 下面就介紹一部分的表單和其代碼： 圖 () 如上圖 ()按“登記”的代碼為： l=.t. amp。點擊“出庫完成”按鈕，若倉庫中貨物少于出庫數(shù)，則彈出一對話框，說明貨物不夠，該貨物記錄又恢復到未出庫前狀態(tài)；若倉庫中貨物多于出庫數(shù)，則倉庫中庫存減去出庫數(shù)，其它相應字段內(nèi)容也隨之變化。點擊“入庫”按鈕，彈出一查詢對話框（該對話框同倉庫操作中的查找對話框相似，這里就不做介紹了）查找要入庫的貨物，若查到了，在“入庫數(shù)”中填入要入的數(shù)目，在“入庫時間”中添入入庫時間，點擊“入庫完成”按鈕，對話框“金額”自動顯示入 庫總金額數(shù)。 nanswer=messagebox(cmessagetext,48,cmessagetitle) amp。刷新表單 case nanswer=7 cmessagetitle=39。,48,39。 cmessagetext=39。,48,39。指定控制索引文件 seek ypnumber amp。賦值給全局變量 pjhgl= pkfgl= pjcinfo= psysgl= manager=alltrim() *do form form\fdesktop endif endif set exact off*********** 在該系統(tǒng)中，密碼都為 111，其中有 4 個不同級別的用戶，能夠享受到不同的操作權限。 messagebox(cmessagetext,ndialogtype,cmessagetitle) endcase if =3 endif else purview=val(alltrim( )) amp。 case nanswer=7 cmessagetitle=39。 cmessagetext=39。 messagebox(cmessagetext,ndialogtype,cmessagetitle) amp。選擇“否”時的操作 cmessagetitle=39。選擇“是”時的操作 =39。 cMessagetext=39。快速查詢 set exact on amp。打開數(shù)據(jù)表 ame=alltrim() ppassword=alltrim() set order to 操作員姓名 amp。 登陸界面如下所示：（登陸界面數(shù)據(jù)環(huán)境為數(shù)據(jù)表“密碼”） 進入“按鈕” click 代碼： public manager amp?！氨韱巍钡膭?chuàng)建是先點擊項目管理器中的“文檔”中的“表單”，再“點擊”右邊的新建。 數(shù)據(jù)庫結(jié)構(gòu)設計 有了上面的數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項，我們就能進行下面的數(shù)據(jù)庫及數(shù)據(jù)表的設計。 數(shù)據(jù)庫需求分析 ： 用戶的需求表現(xiàn)在各種信息的提供，保存，更新，添加，刪除和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入和輸出。合理的數(shù)據(jù)庫結(jié)構(gòu)設計可以提高數(shù)據(jù)存儲和利用的效率，保證數(shù)據(jù)的完整性和一致。單擊標志前的加號可查看此項的列 表，單擊減號可折疊展開的列表。 日 常 業(yè) 務 銷 售 登 記 入 庫 登 記 銷 售 退 貨 入 庫 退 貨 退 出 創(chuàng)建項目管理器 項目管理器是按一定的順序和 邏輯關系，對應用系統(tǒng)的文件進行有效組織的工具。 ◆ 有關倉庫的物資的管 理 ,包含有物資的出庫入庫登記，以及對出庫的貨物，退回的貨物的記錄登記等操作； ◆ 倉庫基本信息查詢 ,通過輸入簡單 ,有效的的字段可以查到庫存的一些信息； ◆ 各個倉庫主庫的統(tǒng)計的操作，可以有效的對出庫入庫的各類貨物進行有效的管理，也可以對出貨退貨的進行管理，非常的方便簡潔 ◆ 各個報表包括出庫入庫，以及庫存的報表； ◆ 有關本公司或商家的一些商品，員工，客戶，供應商等一些資料 。一方面，可以使自己在 大學四年 的學習能發(fā)揮作用，另一方面，也能解決單位當前所面臨的一些實際問題。各行各業(yè)將面臨信息