畢業設計計算機信息管理之藥品管理系統-wenkub.com

　 　

【正文】 modi window screen title tit =.f. public xingm,check,lnpath lnpath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath) check=.f. xingm= use data\ck pack use 36 use data\ltongj pack use use data\zb dele all pack use use data\gr pack use use data\nquery pack use set excl off tit=淄川區淄河鎮衛生院藥品批發系統 modi window screen title tit =.t. = = =.f. do prg\ do form scx\kl1 read events do prg\checkbh1 set sysmenu nosave 大小寫轉換程序（ ） Parameter HJ,HJD hjd= if hj0 37 hj=hj hjd=負 endi DIME rmb(10) rmb(1)=佰 rmb(2)=拾 rmb(3)=萬 rmb(4)=仟 rmb(5)=佰 rmb(6)=拾 rmb(7)=元 rmb(8)= rmb(9)=角 rmb(10)=分 DIME chp(10) chp(1)=壹 chp(2)=貳 chp(3)=叁 chp(4)=肆 chp(5)=伍 chp(6)=陸 chp(7)=柒 chp(8)=捌 chp(9)=玖 chp(10)=零 DIME jg(10) FOR i=1 TO 10 jg(i)= ENDF 38 IF VAL(SUBS(STR(hj,10,2),1,1))=0 jg(1)= ELSE FOR i=1 TO 10 IF VAL(SUBS(STR(hj,10,2),1,1))=i jg(1)=chp(i)+rmb(1) 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