畢業設計計算機信息管理之藥品管理系統-資料下載頁

【導讀】步由工業社會進入信息社會。信息技術是當代最具潛力的新的生產力，信。息資源是經濟和社會發展的重要戰略資源。信息化成為各國經濟和科技競。隨著我國市場經濟的迅速發展和加入WTO，企業信息化程。很多單位對計算機信息管理專業人才需求越來越大。被調查單位普遍反映。性信息管理人才。

　　

【正文】 else jg(1)= ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),2,1))=0 IF VAL(SUBS(STR(hj,10,2),1,1))=0 jg(2)= ELSE jg(2)=chp(10) ENDI ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),2,1))=i jg(2)=chp(i)+rmb(2) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),3,1))=0 IF VAL(SUBS(STR(hj,10,2),1,1))=(SUBS(STR(hj,10,2),2,1))=0 IF VAL(SUBS(STR(hj,10,2),2,1))=0 jg(3)= ELSE 39 jg(3)=chp(10) ENDI ELSE jg(3)=rmb(3) ENDI ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),3,1))=i jg(3)=chp(i)+rmb(3) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),4,1))=0 IF VAL(SUBS(STR(hj,10,2),3,1))=0 jg(4)= ELSE jg(4)=chp(10) ENDI ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),4,1))=i jg(4)=chp(i)+rmb(4) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),5,1))=0 IF VAL(SUBS(STR(hj,10,2),4,1))=0 jg(5)= ELSE 40 jg(5)=chp(10) ENDI ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),5,1))=i jg(5)=chp(i)+rmb(5) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),6,1))=0 IF VAL(SUBS(STR(hj,10,2),5,1))=0 jg(6)= ELSE jg(6)=chp(10) ENDI ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),6,1))=i jg(6)=chp(i)+rmb(6) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),7,1))=0 IF VAL(SUBS(STR(hj,10,2),6,1))=0 jg(7)= ENDI ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),7,1))=i 41 jg(7)=chp(i) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),9,1))=0 IF VAL(SUBS(STR(hj,10,2),10,1))=0 jg(9)= ELSE IF HJ0 jg(9)=CHP(10) ELSE jg(9)= ENDI ENDI ELSE FOR i=1 TO 9 IF VAL(SUBS(STR(hj,10,2),9,1))=i jg(9)=chp(i)+RMB(9) ENDI ENDF ENDI IF VAL(SUBS(STR(hj,10,2),9,1))=0 jg(10)= ENDI FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),10,1))=i jg(10)=chp(i)+rmb(10) ENDI ENDF 42 IF hj=1 if int(hj)=hj jg(8)=rmb(7)+整 ELSE JG(8)=RMB(7) ENDI ELSE jg(8)=rmb(8) ENDI FOR i=1 TO 10 hjd=ALLT(hjd)+ALLT(jg(i)) ENDF retu hjd 菜單用生成器生成，主要的 程序代碼如下： * ********************************************************* * * * * 菜單定義 * * * ********************************************************* * SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD _2670ujj0q OF _MSYSMENU PROMPT 系統設定 COLOR SCHEME 3 DEFINE PAD _2670ujj0r OF _MSYSMENU PROMPT 藥品出入庫 COLOR SCHEME 3 DEFINE PAD _2670ujj0s OF _MSYSMENU PROMPT 藥品管理 COLOR SCHEME 3 DEFINE PAD _2670ujj0t OF _MSYSMENU PROMPT 幫助 COLOR SCHEME 3 ON PAD _2670ujj0q OF _MSYSMENU ACTIVATE POPUP 系統設定 43 ON PAD _2670ujj0r OF _MSYSMENU ACTIVATE POPUP 藥品出入庫 ON PAD _2670ujj0s OF _MSYSMENU ACTIVATE POPUP 藥品管理 DEFINE POPUP 系統設定 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 系統設定 PROMPT 人員管理 DEFINE BAR 2 OF 系統設定 PROMPT 期初錄入 DEFINE BAR 3 OF 系統設定 PROMPT 退出 ON SELECTION BAR 1 OF 系統設定 do form scx\ ON SELECTION BAR 2 OF 系統設定 do form scx\ ON SELECTION BAR 3 OF 系統設定 do prg\ DEFINE POPUP 藥品出入庫 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 藥品出入庫 PROMPT 藥品出庫 DEFINE BAR 2 OF 藥品出入庫 PROMPT 藥品入庫 DEFINE BAR 3 OF 藥品出入庫 PROMPT 藥品到藥房 DEFINE BAR 4 OF 藥品出入庫 PROMPT \ DEFINE BAR 5 OF 藥品出入庫 PROMPT 個人完成任務查詢 ON SELECTION BAR 1 OF 藥品出入庫 do form scx\ck ON SELECTION BAR 2 OF 藥品出入庫 do form scx\gr ON SELECTION BAR 3 OF 藥品出入庫 do form scx\ykdyf ON SELECTION BAR 5 OF 藥品出入庫 do form scx\dwcx DEFINE POPUP 藥品管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 藥品管理 PROMPT 藥品出入庫帳簿 DEFINE BAR 2 OF 藥品管理 PROMPT 調整價格 DEFINE BAR 3 OF 藥品管理 PROMPT 藥品分類 DEFINE BAR 4 OF 藥品管理 PROMPT \ DEFINE BAR 5 OF 藥品管理 PROMPT 打印清資表 DEFINE BAR 6 OF 藥品管理 PROMPT 購藥計劃 44 DEFINE BAR 7 OF 藥品 管理 PROMPT 銷售藥品統計 DEFINE BAR 8 OF 藥品管理 PROMPT 整理數據 ON SELECTION BAR 1 OF 藥品管理 do form scx\ypzhb ON SELECTION BAR 2 OF 藥品管理 do form scx\tj ON SELECTION BAR 3 OF 藥品管理 do form scx\lb ON SELECTION BAR 5 OF 藥品管理 do prg\程序 ON SELECTION BAR 6 OF 藥品管理 do form scx\jyjh ON SELECTION BAR 7 OF 藥品管理 do form scx\tongj ON SELECTION BAR 8 OF 藥品管理 do form scx\modifydata 附錄二（維護說明書和程序清單名） 一個系統，不可能完善。當記錄的變動，政策的改變，都要改變系統的結構與方法，所以這里只列出部分表、程序、表單、報表的文件名稱。 保存客戶信息 臨時出庫數據存儲 出庫主文件 庫存主文件 庫存輔助文件 臨時購入數據存儲 購入主文件 賬簿文件 保存藥品類別 保存用戶信息 程序文件 主程序文件 備份文件 解密文件 加密文件 表單文件 45 出庫表單 入庫表單 購藥查詢 賬簿表單 類別錄入表單 新藥錄入表單 藥品查詢表單 人員管理表單 參考文獻 [1]. Visual C++ 信息管理系統開發實例導航 人民郵電出版社 [2]. 薩師煊 數據庫系統概論 高等教育出版社 [3]. 李師賢，李文軍，周曉聰 面向對象程序設計基礎 高等教育出版社 [4]. 施伯樂等編著 . 數據庫系統教程 . 高等教育出版社 , 1999.