【正文】 3:f4:=f4+[6].AsFloat。197。 then j:=5。245。169。39。237。 。f1:=0。 :=39。begin :=39。226。 [4].AsInteger:=strtoint()。procedure (Sender: TObject。=39。198。39。 (39。191。begin ss:=[]。++39。177。207。180。 。239。189。177。213。 :=39。procedure (Sender: TObject)。 DataCol: Integer。 var Key: Char)。 Label14: TLabel。 DBGrid2: TDBGrid。 Panel4: TPanel。 :=39。210。 var Key: Char)。 [1].AsString:=。39。192。end。 。39。 。 。 for i:=0 to do begin ([1].asstring)。begin :=false。 procedure b_exitClick(Sender: TObject)。 Image1: TImage。end。189。 。220。209。+[]+39。237。195。39。 。var Form1: TForm1。 Label1: TLabel。212。 execsql。207。188。Auto Translate=True。)。179。221。186。 (39。 provider =。 。begin :=(application)。186。begin :=(application)。237。 :=false。185。procedure (Sender: TObject)。 :=false。 if =mrok then begin (39。begin [2].Text:=FormatDateTime(39。 :=false。213。163。176。 var Action: TCloseAction)。 procedure ToolButton8Click(Sender: TObject)。 var Action: TCloseAction)。 GroupBox7: TGroupBox。 N22: TMenuItem。 N29: TMenuItem。 ToolButton10: TToolButton。 TabSheet10: TTabSheet。 TabSheet5: TTabSheet。根據(jù)老師的建議，我找來了數(shù)據(jù)庫設(shè)計與建設(shè)的相關(guān)書籍和資料，從最基本的問題入手開始一個個的解決我心中的疑惑。所用的數(shù)據(jù)表:預(yù)交款信息表:2 編號 int 4 00 交款姓名 char 20 10 預(yù)交金額 money 8 00 交款次數(shù) int 4 00 交款日期 datetime 8 01 病房號 int 4 0住院收費(fèi)明細(xì)表:2 編號 int 4 00 病房號 int 4 00 收費(fèi)名稱 char 30 00 種類 char 10 00 數(shù)量 int 4 00 單價 money 8 01 金額 money 8 1住院收費(fèi)結(jié)算表:2 編號 int 4 00 病房號 int 4 00 病人姓名 char 20 00 收費(fèi)日期 datetime 8 00 主治醫(yī)生 char 20 00 藥費(fèi) money 8 10 手術(shù)費(fèi) money 8 10 病房費(fèi) money 8 10 其它費(fèi) money 8 11 總金額 money 8 1出院結(jié)算信息表:2 編號 int 4 00 病房號 int 4 00 出院日期 datetime 8 00 住院總金額 money 8 01 找還金額 money 8 1預(yù)交款信息功能界面:住院收費(fèi),劃價，醫(yī)藥管理功能界面:出院管理功能界面:醫(yī)務(wù)人員管理功能實(shí)現(xiàn):醫(yī)務(wù)人員注冊,修改,維護(hù),值班維護(hù)及各科室部門維護(hù)等所用到的數(shù)據(jù)表:醫(yī)務(wù)人員信息表:2 編號 int 4 00 姓名 char 20 00 部門科室 char 20 00 職務(wù) char 30 00 聯(lián)系電話 char 15 10 星期1 bit 1 00 星期2 bit 1 00 星期3 bit 1 00 星期4 bit 1 00 星期5 bit 1 00 星期6 bit 1 01 星期7 bit 1 0醫(yī)生表:2 編號 int 4 00 醫(yī)生姓名 char 20 01 醫(yī)生職務(wù) char 25 0工作休息代碼表:2 編號 int 4 01 休息值 char 10 0科室表:2 科室號 int 4 01 科室名 char 30 0職務(wù)表:2 編號 int 4 01 職務(wù)名稱 char 20 0醫(yī)務(wù)人員管理功能界面:值班人員管理功能界面:科室維護(hù)功能界面:部門維護(hù)功能界面:院長查詢管理:藥品價格整體調(diào)價控制,單個藥品調(diào)價控制,用戶注冊管理等功能。（1） 計算機(jī)的軟硬件環(huán)境；（2） 數(shù)據(jù)庫管理系統(tǒng)的能力；（3） 用戶的操作要求與信息要求；（4） 完整性和安全性約束。即數(shù)據(jù)放在服務(wù)器上，程序在客戶機(jī)上。Delphi+學(xué)校醫(yī)院門診收費(fèi)管理系統(tǒng)畢業(yè)論文 (目錄)第一部分 引言 任務(wù)或問題： 實(shí)際背景： 我的工作 特色（創(chuàng)新）第二部分 畢業(yè)設(shè)計課題 設(shè)計課題 設(shè)計時間 設(shè)計人員及任務(wù) 指導(dǎo)老師 設(shè)計內(nèi)容第三部分 系統(tǒng)方案論證第四部分 畢業(yè)設(shè)計內(nèi)容 第五部分 畢業(yè)設(shè)計心得體會第六部分 附錄 參考文獻(xiàn) 摘要本次畢業(yè)設(shè)計任務(wù)是通過開發(fā)一個數(shù)據(jù)庫校醫(yī)院門診收費(fèi)管理系統(tǒng)，學(xué)習(xí)用delphi開發(fā)分布式多層數(shù)據(jù)庫系統(tǒng)。進(jìn)行數(shù)據(jù)訪問時，由客戶機(jī)提出請求（一般是SQL語句），服務(wù)器執(zhí)行并給出結(jié)果。 體系結(jié)構(gòu)規(guī)劃本次設(shè)計的系統(tǒng)采用″客戶/服務(wù)器″體系，為了便于理解，我們先從二層″客戶/服務(wù)器″體系結(jié)構(gòu)來闡述：客戶/服務(wù)器是在網(wǎng)絡(luò)基礎(chǔ)上，以數(shù)據(jù)庫管理為后援，以計算機(jī)為網(wǎng)上工作站的一種系統(tǒng)結(jié)構(gòu)。藥品價格調(diào)價控制管理界面:用戶注冊界面:數(shù)據(jù)庫所用到的數(shù)據(jù)表:CREATE TABLE [住院收費(fèi)明細(xì)表] (CREATE TABLE [住院收費(fèi)結(jié)算表] (CREATE TABLE [出院結(jié)算信息表] (CREATE TABLE [醫(yī)務(wù)人員信息表] (CREATE TABLE [醫(yī)生表] (CREATE TABLE [工作休息代碼表] (CREATE TABLE [當(dāng)日進(jìn)帳表] (CREATE TABLE [掛號類型] (CREATE TABLE [掛號表] (CREATE TABLE [病房狀態(tài)表] (CREATE TABLE [登陸表] (CREATE TABLE [科室表] (CREATE TABLE [職務(wù)表] (CREATE TABLE [藥品入庫總表] (CREATE TABLE [藥品入庫明細(xì)表] (CREATE TABLE [藥品公司表] (CREATE TABLE [藥品出庫表] (CREATE TABLE [藥品庫存表] (CREATE TABLE [門診收費(fèi)明細(xì)表] (CREATE TABLE [門診收費(fèi)結(jié)算表] (CREATE TABLE [預(yù)交款信息表] (能夠?qū)?shù)據(jù)庫進(jìn)行備份，還原操作等功能。 這是一個漫長的學(xué)習(xí)過程。 StaticText5: TStaticText。 Panel2: TPanel。 ToolButton4: TToolButton。 N31: TMenuItem。 N23: TMenuItem。 GroupBox8: TGroupBox。 procedure b_go1Click(Sender: TObject)。 procedure Image6Click(Sender: TObject)。begin 。178。186。223。 :=39。207。39。 :=39。begin :=(application)。220。 :=false。199。 。185。 。end。persist security info=false。backup database data to disk = 39。202。177。201。 end。Packet Size=4096。198。181。 end。173。 Label2: TLabel。 flag:integer。 :=true。 :=1。 where 178。39。161。194。 end else begin 。179。procedure (Sender: TObject)。 e_bianhao: TEdit。 procedure e_nameChange(Sender: TObject)。 :=false。 。 (39。 end。 :=39。 :=inttostr([0].AsInteger+1)。procedure (Sender: TObject)。224。39。 [2].AsString:=。begin if key=13 then 。195。39。 Label1: TLabel。 DBGrid3: TDBGrid。 ListBox1: TListBox。 procedure ComboBox1Click(Sender: TObject)。 Column: TColumn。var i:integer。39。177。195。237。225。202。 (39。230。238。237。39。 。226。39。 :=39。)。 var Key: Char)。 [5].AsFloat:=strtofloat()。177。039。39。f2:=0。 。 where 185。39。39。39。 if trim([7].AsString)=39。196。 4:f5:=f5+[6].AsFloat。 2:f3:=f3+[6].AsFloat。 if trim([7].AsString)=39。39。202。210。++39。177。 [15].AsFloat:=strtofloat()。f10:=0。39。procedure (Sender: TObject)。191。 [3].AsString:=。end。198。169。 :=39。)。 ss:string。39。197。209。226。 。213。209。230。208。201。39。implementation{$R *.dfm} uses dmmzshg,login。 const Rect: TRect。 procedure Edit1KeyPress(Sender: TObject。 Button5: TButton。 Label6: TLabel。 Panel3: TPanel。39。202。procedure (Sender: TObject。begin 。39。197。)。 :=true。 :=39。 for i:=0 to do begin ([1].asstring)。 。 。var i:integer。 procedure FormShow(Sender: TObject)。 Label7: TLabel。 end。194。)。195。194。39。177。177。)。 private { Private declarations } public { Public declarations } en