【正文】 it 1 01 星期7 bit 1 0醫(yī)生表:2 編號(hào) int 4 00 醫(yī)生姓名 char 20 01 醫(yī)生職務(wù) char 25 0工作休息代碼表:2 編號(hào) int 4 01 休息值 char 10 0科室表:2 科室號(hào) int 4 01 科室名 char 30 0職務(wù)表:2 編號(hào) int 4 01 職務(wù)名稱(chēng) char 20 0醫(yī)務(wù)人員管理功能界面:值班人員管理功能界面:科室維護(hù)功能界面:部門(mén)維護(hù)功能界面:院長(zhǎng)查詢(xún)管理:藥品價(jià)格整體調(diào)價(jià)控制,單個(gè)藥品調(diào)價(jià)控制,用戶(hù)注冊(cè)管理等功能。系統(tǒng)界面主要是對(duì)各功能界面實(shí)現(xiàn)中轉(zhuǎn),間接管理。用戶(hù)登陸界面: 第五部分　畢業(yè)設(shè)計(jì)心得體會(huì)及結(jié)論在老師的指導(dǎo)下?？墒?，對(duì)我來(lái)說(shuō)，這次設(shè)計(jì)的本身所產(chǎn)生的影響，還遠(yuǎn)遠(yuǎn)沒(méi)有結(jié)束，我從本次畢業(yè)設(shè)計(jì)中學(xué)到了許多課本上沒(méi)有的知識(shí)。在這1個(gè)月中。還從思想的深處體會(huì)到，要把自己的所學(xué)變成現(xiàn)實(shí)時(shí)所將面對(duì)的種種難題。而當(dāng)自己真正的深入到設(shè)計(jì)實(shí)踐當(dāng)中,深入到問(wèn)題當(dāng)中時(shí)。也只有到了那個(gè)時(shí)候，我才真正體會(huì)到學(xué)會(huì)運(yùn)用自己的能力與知識(shí)是何等的重要，知識(shí)是在課堂上，老師教授的，在書(shū)本中學(xué)到的，實(shí)踐則是要自己動(dòng)手，自己去做才能掌握。根據(jù)老師的建議，我找來(lái)了數(shù)據(jù)庫(kù)設(shè)計(jì)與建設(shè)的相關(guān)書(shū)籍和資料，從最基本的問(wèn)題入手開(kāi)始一個(gè)個(gè)的解決我心中的疑惑。隨著時(shí)間的推移，我開(kāi)始慢慢的掌握了設(shè)計(jì)時(shí)所需要的知識(shí)。扎實(shí)的基本功和良好的學(xué)習(xí)習(xí)慣，能使自己在學(xué)習(xí)新知識(shí)有更深刻的認(rèn)識(shí)力和更快的領(lǐng)會(huì)力。為了保證我們畢業(yè)設(shè)計(jì)的正常進(jìn)行，學(xué)院抽調(diào)了優(yōu)秀的老師指導(dǎo)我們進(jìn)行畢業(yè)設(shè)計(jì)，提供良好的設(shè)備給我們，在軟硬件上支持我們進(jìn)行畢業(yè)設(shè)計(jì)，并且不時(shí)地詢(xún)問(wèn)我們畢業(yè)設(shè)計(jì)的進(jìn)展情況。關(guān)于本次設(shè)計(jì)的命題，我的設(shè)計(jì)只能提供其基本的功能。不過(guò)，至少它已經(jīng)啟發(fā)了自己的思維，提高了我的動(dòng)手能力，這是我在課本中學(xué)不到的?！　　　　　　　　　　　　〉诹糠帧「戒浵到y(tǒng)界面代碼:unit main。type Tmain1 = class(TForm) Panel1: TPanel。 TabSheet5: TTabSheet。 GroupBox1: TGroupBox。 Label_mzbagl: TLabel。 GroupBox2: TGroupBox。 Label2: TLabel。 b_go2: TButton。 RichEdit1: TRichEdit。 TabSheet7: TTabSheet。 TabSheet10: TTabSheet。 PageControl1: TPageControl。 Image1: TImage。 TabSheet3: TTabSheet。 ToolBar1: TToolBar。 ToolButton2: TToolButton。 ToolButton8: TToolButton。 ToolButton9: TToolButton。 ToolButton10: TToolButton。 ToolButton3: TToolButton。 N11: TMenuItem。 N2: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 N7: TMenuItem。 objectN17TMenuItem1: TMenuItem。 N29: TMenuItem。 N8: TMenuItem。 N10: TMenuItem。 N41: TMenuItem。 N13: TMenuItem。 N15: TMenuItem。 N16: TMenuItem。 N71: TMenuItem。 N22: TMenuItem。 N24: TMenuItem。 N30: TMenuItem。 N25: TMenuItem。 Timer1: TTimer。 GroupBox4: TGroupBox。 GroupBox6: TGroupBox。 Image3: TImage。 GroupBox7: TGroupBox。 GroupBox9: TGroupBox。 Label5: TLabel。 Image5: TImage。 GroupBox11: TGroupBox。 Image6: TImage。 Image8: TImage。 ADOQuery1: TADOQuery。 var Action: TCloseAction)。 procedure b_go2Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure calculateclick(sender:tobject)。 procedure Image2Click(Sender: TObject)。 procedure Image3Click(Sender: TObject)。 procedure Image4Click(Sender: TObject)。 procedure Label5Click(Sender: TObject)。 procedure ToolButton8Click(Sender: TObject)。 procedure Image7Click(Sender: TObject)。 procedure tuichuclick(sender:tobject)。 procedure N22Click(Sender: TObject)。 procedure N16Click(Sender: TObject)。 procedure N23Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。implementation{$R *.dfm} uses mzgh,mzshg,login,book,calculate1,yaorukugl,yaochukugldan, ywrydj,ksgl11,zwgl11,zbgl11,zyxkgl11,zyglzong11,cygl11,yzgl11,mimagai11,yztjgl11, jinzhanggl11,dmshuju11,connect。 var Action: TCloseAction)。end。begin mzghd:=(application)。end。begin mzshgf:=(application)。end。begin [0].Text:=39。177。176。217。212。:39。207。205。202。188。163。yyyymmdd hh:nn:ss mmmm dddd39。 [1].Text:=39。+。200。188。191。213。163。196。189。198。39。 :=true。 :=false。 :=false。195。213。185。192。199。39。end。begin [2].Text:=FormatDateTime(39。181。179。177。228。186。, now)。procedure (sender:tobject)。 if =mrok then begin (39。)。 :=false。end。begin :=(application)。end。begin if then begin :=true。 :=false。 :=false。210。198。185。192。199。39。 end。procedure (Sender: TObject)。 。end。begin if then begin :=true。 :=false。 :=false。195。213。185。192。199。39。 end。procedure (Sender: TObject)。 。procedure (Sender: TObject)。 :=false。 :=false。 :=39。189。241。203。177。220。237。248。 。end。begin :=(application)。end。begin :=(application)。end。begin :=(application)。end。begin :=(application)。end。begin if then begin :=true。 :=false。 :=false。161。186。220。237。248。 。end。begin :=(application)。end。begin :=(application)。end。begin :=(application)。end。begin 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。 。procedure (Sender: TObject)。end。begin 。 provider =。userid=sa。 // Provider=。User ID=sa。Data Source=.。Auto Translate=True。Workstation ID=TOND_MO。Tag with column collation when possible=False try with do begin close。 (39。39。207。181。232。198。163。189。186。213。209。220。237。181。179。253。221。184。221。39。)。 end。177。179。185。39。 except on e:exception do showmessage(39。184。221。167。220。)。end。begin 。 Provider=。 :=+39。User ID=sa。Data Source=.。 :=+39。Auto Translate=True。Workstation ID=TOND_MO。Tag with column collation when possible=False39。 。restore database data from disk = 39。e:\177。210。201。188。\208。210。212。202。185。192。207。205。\202。190。177。\39。39。 execsql。 showmessage(39。185。173。201。166。)。187。212。202。176。39。 end。end.登陸界面代碼:unit login。type TForm1 = class(TForm) RichEdit1: TRichEdit。 Image1: TImage。 Label1: TLabel。 e_password: TEdit。 b_cancel: TBitBtn。 DBEdit1: TDBEdit。 DBEdit3: TDBEdit。 procedure e_passwordKeyPress(Sender: TObject。 procedure b_cancelClick(Sender: TObject)。 procedure c_usernameChange(Sender: TObject)。var Form1: TForm1。implementation{$R *.dfm} uses dmlogin, main。var i:integer。 。select * from 181。194。177。39。 。 。 for i:=0 to do begin ([1].asstring)。 end。 :=39。217。212。195。39。 flag:=0。procedure (Sender: TObject。begin if key=13 then 。procedure (Sender: TObject)。 :=39。217。212。195。39。39。procedure (Sender: TObject)。 。 (39。199。189。237。217。212。208。195。=39。 (39。39。+[]+39。39。)。 :=[1].DisplayName。 :=[3].DisplayName。199。214。208。209。212。178。247。177。)。