課程設(shè)計報告--醫(yī)院住院部信息管理系統(tǒng)(完整版)
【正文】 procedure (Sender: TObject)。 if = 39。admin39。 := True。 := False。procedure (Sender: TObject)。end。編號不能為空!39。)。++ 39。 if 0 then begin //有該信息就彈出一個提示框，然后推出該函數(shù)的執(zhí)行 messageBox(0,39。 。++39。39。,39。39。39。 //年齡 (39。+39。39。39。)。39。++39。 //把DBGrid框的內(nèi)容進行更新 。編號不能為空!39。)。++ 39。 if =0 then begin //有該信息就彈出一個提示框，然后推出該函數(shù)的執(zhí)行 messageBox(0,39。 。39。 (39。)。select 性別 from 基本信息 where 編號=39。 。39。 :=(39。39。工作單位39。 + + 39。).AsString。39。 。39。 。39。代碼實現(xiàn)如下：procedure (Sender: TObject)。 (39。39。 。 end。+39。+39。39。 (39。39。39。,39。++39。住院日期=39。39。39。)。39。+39。)。39。,MB_OKCANCEL) =IDCANCEL then exit。 。 (39。)。,mb_OK)。 (39。)。39。 (39。39。 。 end。39。)。39。39。,39。 //床位費 (+39。)。end。 。where 編號=39。 。 exit。結(jié)算日期=39。39。39。)。39。++39。 (39。,39。藥費=39。 where 39。++39。 :=true。) 。begin 。具體的還有其他設(shè)置如下：主表ADOQuery1屬性Sql語句select * from 基本信息從表ADOQuery2屬性Sql語句select * from 醫(yī)院信息 where 編號 = :編號從表設(shè)置對應(yīng)如下：開始統(tǒng)計后實現(xiàn)以上功能下列為欠費，上方為病人費用信息開始統(tǒng)計按鈕代碼如下：procedure (Sender: TObject)。 。select 編號 from 醫(yī)院信息 where 編號=39。 。39。select , from 基本信息 a,醫(yī)院信息 b where = and ((dd,)*)039。 。編號39。select * from 醫(yī)院信息 where 編號 = :編號39。 := true。39。 (39。,39。 (39。++39。)。39。護理等級=39。++39。,39。39。 //當(dāng)該航班信息存在時則可以將其信息更新到flight表中 。 :=true。39。select *39。begin if (39。)39。)。 //結(jié)算日期 (+39。39。,39。39。++39。 。 if 0 then begin //有該信息就彈出一個提示框，然后推出該函數(shù)的執(zhí)行 messageBox(0,39。++ 39。)。編號不能為空!39。 //把DBGrid框的內(nèi)容進行更新 。39。 end。 。39。 (39。39。 :=true。++39。 where 39。39。39。床號=39。++39。,39。39。39。 (39。39。+39。+39。39。)。39。 。 if =0 then begin //沒有該航班信息就彈出一個提示框，然后推出該函數(shù)的執(zhí)行 messageBox(0,39。++39。)。您確定要修改數(shù)據(jù)嘛？39。 。select 病因 from 基本信息 where 編號=39。)。 (39。39。 。39。 。39。).AsString。 + + 39。性別39。39。 :=(39。39。
電大資料相關(guān)推薦
鄂ICP備17016276號-1