課程設(shè)計(jì)報(bào)告--醫(yī)院住院部信息管理系統(tǒng)-資料下載頁(yè)
2025-01-19 01:13本頁(yè)面
【正文】 //治療費(fèi) (+39。)39。)。 //手術(shù)費(fèi) 。 //把DBGrid框的內(nèi)容進(jìn)行更新 。 。 :=true。end。修改按鈕同住院修改功能：代碼如下procedure (Sender: TObject)。begin if (39。您確定要修改數(shù)據(jù)嘛？39。,39。危險(xiǎn)39。,MB_OKCANCEL) =IDCANCEL then exit。 //先查看是否已經(jīng)有改航班信息 。 。 (39。select *39。)。 (39。from 醫(yī)院信息39。)。 (39。where 編號(hào)=39。39。39。++39。39。39。39。)。 。 。 :=true。 if =0 then begin //沒(méi)有該航班信息就彈出一個(gè)提示框，然后推出該函數(shù)的執(zhí)行 messageBox(0,39。無(wú)該病人的信息39。,39。Error!39。,mb_OK)。 exit。 end。 //當(dāng)該航班信息存在時(shí)則可以將其信息更新到flight表中 。 。 (39。update 醫(yī)院信息 set39。 )。 (39。結(jié)算日期=39。+39。39。39。39。++39。39。39。39。+39。,39。)。 (39。編號(hào)=39。+39。39。39。39。++39。39。39。39。+39。,39。)。 (39。護(hù)理等級(jí)=39。+39。39。39。39。++39。39。39。39。+39。,39。)。 (39。護(hù)理費(fèi)=39。++39。,39。)。 (39。治療費(fèi)=39。++39。,39。)。 (39。床位費(fèi)=39。++39。,39。)。 (39。注射費(fèi)=39。++39。,39。)。 (39。手術(shù)費(fèi)=39。++39。,39。)。 (39。藥費(fèi)=39。++39。,39。)。 (39。預(yù)約金=39。+)。 (39。 where 39。)。 (39。編號(hào)=39。+39。39。39。39。++39。39。39。39。)。//把DBGrid框的內(nèi)容進(jìn)行更新 。 。 :=true。 :=true。 := true。兩個(gè)表進(jìn)行了主從表的設(shè)置設(shè)置如下：procedure (Sender: TObject)。begin 。 。 (39。 select * from 基本信息39。) 。 (39。select * from 醫(yī)院信息 where 編號(hào) = :編號(hào)39。) 。 。 。end。主表事件afterscorll設(shè)置如下procedure (DataSet: TDataSet)。begin 。 (39。編號(hào)39。).Value := (39。編號(hào)39。).value。 。end。具體的還有其他設(shè)置如下：主表ADOQuery1屬性Sql語(yǔ)句select * from 基本信息從表ADOQuery2屬性Sql語(yǔ)句select * from 醫(yī)院信息 where 編號(hào) = :編號(hào)從表設(shè)置對(duì)應(yīng)如下：開(kāi)始統(tǒng)計(jì)后實(shí)現(xiàn)以上功能下列為欠費(fèi)，上方為病人費(fèi)用信息開(kāi)始統(tǒng)計(jì)按鈕代碼如下：procedure (Sender: TObject)。begin 。 。 (39。select ,datediff(dd,)* 總費(fèi)用,((dd,)*) 剩余 from 醫(yī)院信息 b,基本信息 a where =39。)。 。 。 。 (39。select , from 基本信息 a,醫(yī)院信息 b where = and ((dd,)*)039。)。 。至此所有功能和實(shí)現(xiàn)代碼結(jié)束六．設(shè)計(jì)出現(xiàn)的問(wèn)題及解決方案問(wèn)題：，DataSource1設(shè)置成功但在DBGrid1不能顯示對(duì)面數(shù)據(jù)解決方案：ADOQuery1中SQL單擊…，輸入select *from 表名 Active改為true問(wèn)題2：無(wú)法將數(shù)據(jù)庫(kù)的內(nèi)容顯示到文本框中解決方案：。 。 (39。select 編號(hào) from 醫(yī)院信息 where 編號(hào)=39。39。39。 + + 39。39。39。39。)。 。 七．實(shí)驗(yàn)總結(jié) 23
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1