【導(dǎo)讀】步由工業(yè)社會(huì)進(jìn)入信息社會(huì)。信息技術(shù)是當(dāng)代最具潛力的新的生產(chǎn)力，信。息資源是經(jīng)濟(jì)和社會(huì)發(fā)展的重要戰(zhàn)略資源。信息化成為各國(guó)經(jīng)濟(jì)和科技競(jìng)。隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的迅速發(fā)展和加入WTO，企業(yè)信息化程。很多單位對(duì)計(jì)算機(jī)信息管理專(zhuān)業(yè)人才需求越來(lái)越大。被調(diào)查單位普遍反映。性信息管理人才。

　　

【正文】 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 系統(tǒng)設(shè)定 COLOR SCHEME 3 DEFINE PAD _2670ujj0r OF _MSYSMENU PROMPT 藥品出入庫(kù) 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 系統(tǒng)設(shè)定 43 ON PAD _2670ujj0r OF _MSYSMENU ACTIVATE POPUP 藥品出入庫(kù) ON PAD _2670ujj0s OF _MSYSMENU ACTIVATE POPUP 藥品管理 DEFINE POPUP 系統(tǒng)設(shè)定 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 系統(tǒng)設(shè)定 PROMPT 人員管理 DEFINE BAR 2 OF 系統(tǒng)設(shè)定 PROMPT 期初錄入 DEFINE BAR 3 OF 系統(tǒng)設(shè)定 PROMPT 退出 ON SELECTION BAR 1 OF 系統(tǒng)設(shè)定 do form scx\ ON SELECTION BAR 2 OF 系統(tǒng)設(shè)定 do form scx\ ON SELECTION BAR 3 OF 系統(tǒng)設(shè)定 do prg\ DEFINE POPUP 藥品出入庫(kù) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 藥品出入庫(kù) PROMPT 藥品出庫(kù) DEFINE BAR 2 OF 藥品出入庫(kù) PROMPT 藥品入庫(kù) DEFINE BAR 3 OF 藥品出入庫(kù) PROMPT 藥品到藥房 DEFINE BAR 4 OF 藥品出入庫(kù) PROMPT \ DEFINE BAR 5 OF 藥品出入庫(kù) PROMPT 個(gè)人完成任務(wù)查詢(xún) ON SELECTION BAR 1 OF 藥品出入庫(kù) do form scx\ck ON SELECTION BAR 2 OF 藥品出入庫(kù) do form scx\gr ON SELECTION BAR 3 OF 藥品出入庫(kù) do form scx\ykdyf ON SELECTION BAR 5 OF 藥品出入庫(kù) do form scx\dwcx DEFINE POPUP 藥品管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 藥品管理 PROMPT 藥品出入庫(kù)帳簿 DEFINE BAR 2 OF 藥品管理 PROMPT 調(diào)整價(jià)格 DEFINE BAR 3 OF 藥品管理 PROMPT 藥品分類(lèi) DEFINE BAR 4 OF 藥品管理 PROMPT \ DEFINE BAR 5 OF 藥品管理 PROMPT 打印清資表 DEFINE BAR 6 OF 藥品管理 PROMPT 購(gòu)藥計(jì)劃 44 DEFINE BAR 7 OF 藥品 管理 PROMPT 銷(xiāo)售藥品統(tǒng)計(jì) DEFINE BAR 8 OF 藥品管理 PROMPT 整理數(shù)據(jù) 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 附錄二（維護(hù)說(shuō)明書(shū)和程序清單名） 一個(gè)系統(tǒng)，不可能完善。當(dāng)記錄的變動(dòng)，政策的改變，都要改變系統(tǒng)的結(jié)構(gòu)與方法，所以這里只列出部分表、程序、表單、報(bào)表的文件名稱(chēng)。 保存客戶(hù)信息 臨時(shí)出庫(kù)數(shù)據(jù)存儲(chǔ) 出庫(kù)主文件 庫(kù)存主文件 庫(kù)存輔助文件 臨時(shí)購(gòu)入數(shù)據(jù)存儲(chǔ) 購(gòu)入主文件 賬簿文件 保存藥品類(lèi)別 保存用戶(hù)信息 程序文件 主程序文件 備份文件 解密文件 加密文件 表單文件 45 出庫(kù)表單 入庫(kù)表單 購(gòu)藥查詢(xún) 賬簿表單 類(lèi)別錄入表單 新藥錄入表單 藥品查詢(xún)表單 人員管理表單 參考文獻(xiàn) [1]. Visual C++ 信息管理系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 人民郵電出版社 [2]. 薩師煊 數(shù)據(jù)庫(kù)系統(tǒng)概論 高等教育出版社 [3]. 李師賢，李文軍，周曉聰 面向?qū)ο蟪绦蛟O(shè)計(jì)基礎(chǔ) 高等教育出版社 [4]. 施伯樂(lè)等編著 . 數(shù)據(jù)庫(kù)系統(tǒng)教程 . 高等教育出版社 , 1999.