【導(dǎo)讀】人們對(duì)各類藥品信息及疑難病癥查詢的功能。系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。實(shí)施規(guī)范的進(jìn)、銷、存一體化業(yè)務(wù)管理。強(qiáng)大的庫(kù)存預(yù)警功能，盡量避免損失。靈活、細(xì)分的權(quán)限控制功能。強(qiáng)大的報(bào)表功能，讓您隨時(shí)了解企業(yè)經(jīng)營(yíng)情況。靈活的運(yùn)用表格批量錄入數(shù)據(jù)，使信息傳遞更快捷。與供應(yīng)商和代理商賬目清晰。實(shí)現(xiàn)商品進(jìn)貨分析與統(tǒng)計(jì)、銷售分析與統(tǒng)計(jì)、商品銷售成本明細(xì)等功能。強(qiáng)大的庫(kù)存預(yù)警功能，盡可量地減少商家不必要的損失。對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。管理體制中種種問(wèn)題的制約，也不能使企業(yè)在激烈的競(jìng)爭(zhēng)中占有一席之地。不能得到統(tǒng)計(jì)等問(wèn)題。[6]華傳銘、張振坤.PowerBuilder數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析.機(jī)械工業(yè)出版社.按照設(shè)計(jì)要求，查閱相關(guān)文獻(xiàn)資料并進(jìn)行資料搜集、整理。水平和工作效率，最大限度減少了手工操作帶來(lái)的錯(cuò)誤。7．具有數(shù)據(jù)備份及數(shù)據(jù)恢復(fù)功能，保證系統(tǒng)數(shù)據(jù)的安全。

　　

【正文】 1 RecordSource 商品信息表 Grid1 RecordSource 商品信息表 Spinner1 SpecialEffect 1平面 Style 1圖形 Form1 AutoCenter .T. 表 6 重要控件及屬性 代碼設(shè)計(jì) 在表單的 Resee 方法程序下添加如下代碼： SELE 商品信息表 =商品信息表 .編號(hào) =商品信息表 .名稱 =商品信息表 .簡(jiǎn)稱 =商品信息表 .規(guī)格 =商品信息表 .計(jì)量單位 =商品信息表 .產(chǎn)地 =商品信息表 .出廠日期 =商品信息表 .保質(zhì)期 =商品信息表 .進(jìn)價(jià) =商品信息表 .批發(fā)價(jià) =商品信息表 .零售價(jià) =商品信息表 .備注 =.。 numbertoname(供應(yīng)商信息表 ,全稱 ,商品 信息表 .供應(yīng)商編號(hào) ,1) amp。amp。取出供應(yīng)商名稱 SELE 商品信息表 =padl(alltrim(str(reccount())),5,0) =reccount() =reo() SELE 商品信息表 在表單的 Init 事件中添加如下代碼： SET DELE ON 在表單的 Unload 事件中添加如下代碼： CLOSE ALL database USE data\商品信息表 EXCL PACK USE 14 USE data\庫(kù)存信息表 EXCL PACK USE 在“名稱”文本框的 InterActiveChange 事件下添加如下代碼： =lower(()) 在“名稱”文本框的 Click 事件下添加如下代碼： =() 在 Locatebuttons1 控件的 _FirstButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _LastButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _NextButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Locatebuttons1 控件的 _PreviousButtonClick 方法程序下添加如下代碼： SELE 商品信息表 在 Oftenbuttons1 控件的 _SaveButtonClick 方法程序下添加如下代碼： DIME txt(13),get(9) ***存入信息 SELE 商品信息表 thisreo=reo() FOR m=1 TO 6 txtname=text+alltrim(str(m)) txt(m)=alltrim(thisform.amp。txtname..value) amp。amp。將字符型數(shù)據(jù)存入數(shù)組 ENDFOR FOR m=7 TO 11 txtname=text+alltrim(str(m)) txt(m)=thisform.amp。txtname..value amp。amp。將數(shù)值及日期型數(shù)據(jù)存入數(shù)組 ENDFOR txt(12)=alltrim() txt(13)=(供應(yīng)商信息表 ,全稱 ,。 alltrim(),0) handle1=fopen(系統(tǒng)設(shè)置 .Rtt,2) IF handle10 handle2=fcreate(系統(tǒng)設(shè)置 .Rtt) IF handle2=0 fclose(handle2) ELSE messagebox(無(wú)法創(chuàng)建！請(qǐng)手工刪除程序目錄下 [系統(tǒng)設(shè)置 .Rtt]文件 ,。 然后再試一次！ ,16, 系統(tǒng)提示 ) ENDIF get(8)=9999 get(9)=1 15 ELSE FOR m=1 TO 9 get(m)=fgets(handle1) ENDFOR ENDIF fclose(handle1) IF =1 INSERT INTO 商品信息表 VALUES(txt(1),txt(2),lower(txt(3)),Txt(4),。 txt(6),txt(5),txt(7),txt(8),txt(9),txt(10),txt(11),txt(13),txt(12)) INSERT INTO 庫(kù)存信息表 (商品編號(hào) ,庫(kù)存上限 ,庫(kù)存下限 ) 。 VALUES(txt(1),val(alltrim(get(8))),val(alltrim(get(9)))) ELSE UPDATE 商品信息表 SET 名稱 =txt(2),簡(jiǎn)稱 =lower(txt(3)),規(guī)格 =txt(4),。 計(jì)量單位 =txt(5),產(chǎn)地 =txt(6),出廠日期 =txt(7),。 保質(zhì)期 =txt(8),進(jìn)價(jià) =txt(9),批發(fā)價(jià) =txt(10),零售價(jià) =txt(11),備注 =txt(12),。 供應(yīng)商編號(hào) =txt(13) WHERE 編號(hào) =txt(1) ENDIF FOR m=1 TO 6 amp。amp。清空文本框 textname=text+alltrim(str(m)) thisform.amp。textname..value= ENDFOR ={} ={} =0 =0 =0 =39。39。 =39。39。 FOR m=2 TO 12 amp。amp。使文本框失效 textname=text+alltrim(str(m)) thisform.amp。textname..enabled=.f. ENDFOR =.f. SELE 商品信息表 =.t. =.t. =.t. =.t. 在 Oftenbuttons1 控件的 _DeleteButtonClick 方法程序下添加如下代碼： DELETE FROM 庫(kù)存信息表 WHERE 商品編號(hào) =alltrim() SELE 庫(kù)存信息表 USE USE data\庫(kù)存信息表 EXCL amp。amp。以獨(dú)占方式打開(kāi)庫(kù)存信息表 PACK USE 16 USE data\庫(kù)存信息表 在 Oftenbuttons1 控件的 _UndoButtonClick 方法程序下添加如下代碼： SELE 商品信息表 FOR m=2 TO 12 amp。amp。使文本框失效 textname=text+alltrim(str(m)) thisform.amp。textname..enabled=.f. ENDFOR =.f. GOTO 1 =.t. =.t. =.t. =.t. 在 Oftenbuttons1 控件的 _AddButtonClick 方法程序下添加如下代碼： PRIVATE bh FOR m=1 TO 6 amp。amp。清空文本框 textname=text+alltrim(str(m)) thisform.amp。textname..value= ENDFOR ={} ={} =0 =0 =0 =39。39。 =39。39。 bh= SELECT max(編號(hào) ) AS 編號(hào) FROM 商品信息表 INTO CURSOR ls1 SELE ls1 IF reccount()=0 bh=39。SP0000139。 ELSE ibh=val(right( ,len( )2)) amp。amp。取出編號(hào) bh=SP+padl(alltrim(str(ibh+1)),5,0) ENDIF =bh FOR m=2 TO 12 textname=text+alltrim(str(m)) thisform.amp。textname..enabled=.t. ENDFOR =.t. 17 =.f. =.f. =.f. 在 Oftenbuttons1 控件的 _ChangeButtonClick 事件下添加如下代碼： FOR m=4 TO 12 textname=text+alltrim(str(m)) thisform.amp。textname..enabled=.t. ENDFOR =.t. =.f. =.f. =.f. =.f. 在 Oftenbuttons1 控件的 AreyouOK 方法程序下添加如下代碼： a=messagebox(確定要保存嗎 ?,32+4,系統(tǒng)提示 ) IF a=6 DO CASE CASE empty()=.t. messagebox(請(qǐng)?zhí)砑由唐访?稱 !！ ,16, 系統(tǒng)提示 ) =.f. CASE empty()=.t. messagebox(請(qǐng)?zhí)砑由唐芬?guī)格！ ,16, 系統(tǒng)提示 ) =.f. CASE empty()=.t. messagebox(請(qǐng)?zhí)砑佑?jì)量單位！ ,16, 系統(tǒng)提示 ) =.f. CASE empty()=.t. messagebox(請(qǐng)選擇供應(yīng)商！ ,16, 系統(tǒng)提示 ) =.f. CASE empty()=.t. messagebox(請(qǐng)?zhí)砑由唐愤M(jìn)價(jià)！ ,16, 系統(tǒng)提示 ) =.f. CASE empty()=.t. messagebox(請(qǐng)?zhí)砑由唐放l(fā)價(jià)！ ,16, 系統(tǒng)提示 ) =.f. CASE empty()=.t. messagebox(請(qǐng)?zhí)砑由唐妨闶蹆r(jià)！ ,16, 系統(tǒng)提示 ) =.f. OTHERWISE 18 cs=0 IF =1 SELECT * FROM 商品信息表 WHERE 名稱 = alltrim() 。 INTO CURSOR lssp amp。amp。查詢同名商品 IF reccount()0 =alltrim()+。 (+alltrim()+)[+。 alltrim()+] SELE lssp FOR m=1 TO reccount() SELE lssp GOTO m IF alltrim()==alltrim( ) messagebox(對(duì)不起！您輸入的商品在數(shù)據(jù)表中已經(jīng)存在！ ,16。 ,添加錯(cuò)誤 ) = =.f. RETURN ENDIF ENDFOR IF right(alltrim( ),1)] UPDATE 商品信息表 SET 名稱 =alltrim( )+。 (+alltrim( )+)[+alltrim( )+] WHERE 編號(hào) =lssp.編號(hào) ENDIF ENDIF =.t. ENDIF ENDCASE ENDIF 在表格控件 Grid1 的 AfterRowColChange 事件下添加如下代碼： 在 Grid1 控件的 Init 事件下添加如下代碼： SELE 商品信息表 (DynamicBackColor,iif(reo()%2=0,rgb(188,240,209),rgb(255,255,255)),Column) 在“查詢字段”組合框的 Init 事件下添加如下代碼： PUBLIC mygg,jlh mygg=.f. jlh=1 (編號(hào) ) (名稱 ) (簡(jiǎn)稱 ) (規(guī)格 ) 19 (計(jì)量單位 ) (產(chǎn)地 ) 在“查詢字段”組合框的 InterActiveChange 事件下添加如下代碼： mygg=.f. 在“查詢條件”文本框的 InterActivechange 事件下添加如下代碼： mygg=.f. 在“查詢”按鈕的 Click 事件下添加 如下代碼： zd=alltrim() amp。amp。查詢字段 FOR m=1 TO 4 amp。amp。連接符號(hào) optionmc=OPTION+alltrim(str(m)) IF .amp。optionmc..value=1 fh=alltrim(.amp。optionmc..caption) exit ENDIF ENDFOR IF empty() OR empty() RETURN ENDIF IF fh=LIKE tj=alltrim()+% amp。amp。查詢條件 ELSE tj=alltrim() ENDIF SELECT * FROM 商品信息表 WHERE amp。zd. amp。fh tj INTO CURSOR lssxb amp。amp。根據(jù)條件建立查詢 SELE 商品信息 表 IF mygg=.f. amp。amp。記錄是否更改查詢條件或字段的變量 LOCA FOR 編號(hào) = amp。amp。沒(méi)有更改