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