課程設(shè)計報告--醫(yī)院住院部信息管理系統(tǒng)-在線瀏覽
2025-03-08 01:13本頁面
【正文】 , Unit2 in 39。 {Form2}。 (TForm1, Form1)。 (TForm4, Form4)。 (TForm7, Form7)。 。begin if = 39。 then begin showmessage(39。)。 end。39。密碼不能為空39。 exit。 if ( = 39。) and ( = 39。) then begin := True。若為false則沒有權(quán)限，下同。 := True。 := True。 end else //對于普通用戶123而言只有查詢的權(quán)限 if( = 39。) and ( = 39。) then begin := False。 := false。 exit。賬號密碼不正確39。 endend。begin 。procedure (Sender: TObject)。end。begin 。procedure (Sender: TObject)。end。begin //先做好保護工作 if = 39。 then begin showmessage(39。)。 end。 。select *39。 (39。)。where 編號=39。39。39。39。 。 :=true。已有該病人的信息39。Error!39。 exit。 //當不存在該病人信息時 。 (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。 //病因 。 。end。begin if = 39。 then begin showmessage(39。)。 end。 。select *39。 (39。)。where 編號=39。39。39。39。 。 :=true。沒有該病人的信息39。Error!39。 exit。 。 (39。39。 + + 39。39。)。 :=(39。).AsString。 。select 姓名 from 基本信息 where 編號=39。39。39。39。 。姓名39。 。 (39。39。 + + 39。39。)。 :=(39。).AsString。 。select 年齡 from 基本信息 where 編號=39。39。39。39。 。年齡39。 。 (39。39。 + + 39。39。)。 :=(39。).AsString。 。select 住院日期 from 基本信息 where 編號=39。39。39。39。 。住院日期39。 。 (39。39。 + + 39。39。)。 :=(39。).AsString。 。select 床號 from 基本信息 where 編號=39。39。39。39。 。床號39。 。 (39。39。 + + 39。39。)。 :=(39。).AsString。（同樣能將信息輸出到右邊的DBGrid1里）修改按鈕：功能：先查詢，將要修改的數(shù)據(jù)填寫到對面文本框，點修改即可，對應(yīng)DBGRID也會修改并顯示修改后的內(nèi)容。begin if (39。,39。,MB_OKCANCEL) =IDCANCEL then exit。 。select *39。 (39。)。where 編號=39。39。39。39。 。 :=true。無該病人的信息39。Error!39。 exit。 //當該信息存在時
電大資料相關(guān)推薦
鄂ICP備17016276號-1