【正文】 統(tǒng)設(shè)計(jì)要具備以下要求： 系統(tǒng)性 靈活性 可靠性 經(jīng)濟(jì)性。 增加代碼如下： if =增加 =39。 sxrq with ,sl with ,fxg with ,bh with val(str(lbh+(aa+1)/100,12,2))。 部分查詢代碼如下： 27 查詢 .click if =1 for i=1 to (1) endf endi if =1 =select dm,ypmc,gg,dw from yuanb where llmc $ dm into cursor xxx else =select dm,ypmc,gg,dw from yuanb where llmc $ ypmc into cursor xxx endi 藥名購藥計(jì)劃界面： 這個(gè)界面的使用使購藥更加方便，而且可以保存為 EXCEL 文件加以修改和保存。gcdelimfile..xls for !dele() type xl5 sele jyjh dele all 輸出設(shè)計(jì)： 有關(guān)輸出信息使用方面的內(nèi)容包括使用科室，目的，復(fù)寫份數(shù)，保管方法，有效期等；使用專用紙；采用針式打印機(jī)，輸出的信息內(nèi)容包括輸出項(xiàng)目，位數(shù)，數(shù)據(jù)形式。d39。ml.\ copy file amp。ml.\ copy file amp。ml.\ dele file amp。lpath.\ to amp。lpath.\ to amp。實(shí)在沒有辦法，我調(diào)用了 DOS 命令去實(shí)現(xiàn)，雖然這其中稍微復(fù)雜了一點(diǎn)，但問題是解決了。下次，考試過后我會(huì)逐漸去完善，去補(bǔ)充這個(gè)系統(tǒng)的不足部分。 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=淄川區(qū)淄河鎮(zhèn)衛(wèi)生院藥品批發(fā)系統(tǒng) modi window screen title tit =.t. = = =.f. do prg\ do form scx\kl1 read events do prg\checkbh1 set sysmenu nosave 大小寫轉(zhuǎn)換程序（ ） Parameter HJ,HJD hjd= if hj0 37 hj=hj hjd=負(fù) 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 系統(tǒng)設(shè)定 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 系統(tǒng)設(shè)定 43 ON PAD _2670ujj0r OF _MSYSMENU ACTIVATE POPUP 藥品出入庫 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 SELEC