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