畢業(yè)設(shè)計(jì)計(jì)算機(jī)信息管理之藥品管理系統(tǒng)doc-資料下載頁(yè)
2025-07-15 22:35本頁(yè)面
【正文】 ))=i jg(3)=chp(i)+rmb(3) ENDI ENDFENDIIF 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) ENDIELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),4,1))=i jg(4)=chp(i)+rmb(4) ENDI ENDFENDIIF VAL(SUBS(STR(hj,10,2),5,1))=0 IF VAL(SUBS(STR(hj,10,2),4,1))=0 jg(5)= ELSE jg(5)=chp(10) ENDIELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),5,1))=i jg(5)=chp(i)+rmb(5) ENDI ENDFENDIIF 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) ENDIELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),6,1))=i jg(6)=chp(i)+rmb(6) ENDI ENDFENDIIF VAL(SUBS(STR(hj,10,2),7,1))=0 IF VAL(SUBS(STR(hj,10,2),6,1))=0 jg(7)= ENDIELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),7,1))=i jg(7)=chp(i) ENDI ENDFENDIIF 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 ENDIELSE FOR i=1 TO 9 IF VAL(SUBS(STR(hj,10,2),9,1))=i jg(9)=chp(i)+RMB(9) ENDI ENDFENDIIF 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 ENDFIF hj=1 if int(hj)=hj jg(8)=rmb(7)+整 ELSE JG(8)=RMB(7) ENDI ELSE jg(8)=rmb(8) ENDIFOR i=1 TO 10 hjd=ALLT(hjd)+ALLT(jg(i))ENDFretu hjd菜單用生成器生成，主要的程序代碼如下：* ********************************************************** * * * 菜單定義 * * * **********************************************************SET SYSMENU TOSET SYSMENU AUTOMATICDEFINE PAD _2670ujj0q OF _MSYSMENU PROMPT 系統(tǒng)設(shè)定 COLOR SCHEME 3DEFINE PAD _2670ujj0r OF _MSYSMENU PROMPT 藥品出入庫(kù) COLOR SCHEME 3DEFINE PAD _2670ujj0s OF _MSYSMENU PROMPT 藥品管理 COLOR SCHEME 3DEFINE PAD _2670ujj0t OF _MSYSMENU PROMPT 幫助 COLOR SCHEME 3ON PAD _2670ujj0q OF _MSYSMENU ACTIVATE POPUP 系統(tǒng)設(shè)定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 4DEFINE 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 4DEFINE 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\ckON SELECTION BAR 2 OF 藥品出入庫(kù) do form scx\grON SELECTION BAR 3 OF 藥品出入庫(kù) do form scx\ykdyfON SELECTION BAR 5 OF 藥品出入庫(kù) do form scx\dwcxDEFINE POPUP 藥品管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE 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ì)劃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\ypzhbON SELECTION BAR 2 OF 藥品管理 do form scx\tjON SELECTION BAR 3 OF 藥品管理 do form scx\lbON SELECTION BAR 5 OF 藥品管理 do prg\ON SELECTION BAR 6 OF 藥品管理 do form scx\jyjhON SELECTION BAR 7 OF 藥品管理 do form scx\tongjON 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ù)存輔助文件 保存用戶(hù)信息 程序文件 主程序文件 備份文件 解密文件 加密文件表單文件 出庫(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
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1