【導讀】后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的數(shù)據(jù)庫。應用程序功能完備，易使用等特點。進行系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實施。在分析醫(yī)院藥品管理的具體情。由于Borland公司的Delphi，面向?qū)ο罂梢暬?。程，明確了數(shù)據(jù)表之間的聯(lián)系，詳細說明了主要的程序邏輯。當今世界是信息高速發(fā)展的世界，也是競爭異常激烈的世界。計算機管理信息系統(tǒng)又是獲得信息的重要手段之一。計算機管理信息系統(tǒng)的優(yōu)勢在于能夠迅速、準。確地反映出用戶的需要，及時方便的進行各種檢索。醫(yī)院的藥品管理由于涉及到人民的生命安全，由國家嚴格控制是一門特殊行業(yè)。有合法的可經(jīng)營憑證，藥品的出售更要對消費者負責。藥品的有效期限等問題必須要嚴格控制。品銷售記錄，庫存記錄是醫(yī)院藥品管理的基礎。藥品的過期問題也得以更加及時準確的處理。自動進行，那我們的人事管理就可以達到極高的水平。此外，在財務管理、倉庫管理、生產(chǎn)管理中

　　

【正文】 著，熱門軟件邊學邊用系列之十六 —— Delphi 據(jù)庫程序設計教程，北京希望電子出版社， 2021年 5 月 3． 錦州市藥品監(jiān)督管理局，醫(yī)療機構藥品各項管理制度匯編，2021年 12月 4． 鄭榮貴等 著， Delphi ，電子工業(yè)出版社， 2021年 1 月 5． 段興 著， Delphi實用程序 100例，人民郵電出版社， 2021年 4月 6． 張曉莉等 著，數(shù)據(jù)結構與算法，機械工業(yè)出版社， 2021年 9 月 36 7． 張文沂等 著， Microsoft Access數(shù)據(jù)庫應用基礎，天津大學出版社， 2021年 9 月 8． （美） Rick Dobson 著， MICROSOSOFT ACCESS 2021 程序設計，人民郵電出版社， 2021年 1 月 9． 趙慶華 著，走進 Access告別艱深數(shù)據(jù)庫，新報時代出版社，2021年 1 月 致 謝 在做這個系統(tǒng)期間，我得到了高福詳老師在總體方向把握上悉心的指導與幫助。高福詳老師的指導和幫助對我能順利完成這次畢業(yè)設 37 計起到了關鍵性的作用，在這里表示最真誠的感謝和敬意。 此外，衷心感謝錦州市經(jīng)濟開發(fā)區(qū)醫(yī)院的劉院長及全體藥方醫(yī)生在畢業(yè)設計期間給予我的大力支持。最后，這次和我一組做畢業(yè)設計的同學們也給了我很大的幫助，他們在精神上的支持和鼓勵，使我堅定了信心不斷向前探索，以致取得最后的成績，在此我一并向他 們表示感謝。 附 錄 附 .1 程序自動連接數(shù)據(jù)庫代碼 38 {******************************************************* 動態(tài)創(chuàng)建一個 ODBC系統(tǒng)數(shù)據(jù)源 (DSN) 數(shù)據(jù)源名稱 : 由 DSNName 指定 數(shù)據(jù)源描述：由 DSNDesc 指定 數(shù)據(jù)庫類型 : ACCESS 對應數(shù)據(jù)庫 : 由 DBFile 指定 注意 : 需要在 USES語句中包含 Registry *******************************************************} procedure RegDSNName(DSNName,DSNDesc,DBFile: String)。 var Reg: TRegistry。 bData: array[0..0] of byte。 DriverPath: String。 begin Reg:=。 // 建立一個 Registry實例 with Reg do begin RootKey:=HKEY_LOCAL_MACHINE。 // 設置根鍵值為 HKEY_LOCAL_MACHINE { 查找 Microsoft Access 的數(shù)據(jù)庫驅(qū)動是否安裝 } if OpenKey(39。Software\ODBC\\Microsoft Access Driver (*.mdb)39。,False) then DriverPath:=ReadString(39。Driver39。) // 提取驅(qū)動文件的 39 路徑信息 else begin // 驅(qū)動未安裝則顯示出錯信息 ShowMessage(39。增加 ODBC數(shù)據(jù)源失敗 39。)。 Halt。 end。 CloseKey。 RootKey:=HKEY_CURRENT_USER。 // 設置根鍵值為 HKEY_CURRENT_USER { 找到 Software\ODBC\\ODBC Data Sources } if OpenKey(39。Software\ODBC\\ODBC Data Sources39。,True) then WriteString(DSNName,39。Microsoft Access Driver (*.mdb)39。) // 注冊一個 DSN名稱 else begin // 創(chuàng)建鍵值失敗 ShowMessage(39。增加 ODBC數(shù)據(jù)源失敗 39。)。 Halt。 end。 CloseKey。 { 找到或創(chuàng)建 DSNName,并寫入 DSN 配置信息 } if OpenKey(39。Software\ODBC\\39。+DSNName,True) then begin WriteString(39。DBQ39。,DBFile)。 // 設置數(shù)據(jù)庫目錄 WriteString(39。Description39。,DSNDesc)。 // 設置數(shù)據(jù)源描述 WriteString(39。Driver39。,DriverPath)。 // 驅(qū)動程序 DLL文件 40 WriteInteger(39。DriverId39。,25)。 // 驅(qū)動程序標識 WriteString(39。FIL39。,39。Ms Access。39。)。 // Filter依據(jù) WriteInteger(39。SafeTransaction39。,0)。 // 支持的事務操作數(shù)目 WriteString(39。UID39。,39。39。)。 // 用戶名稱 bData[0]:=0。 WriteBinaryData(39。Exclusive39。,bData,1)。// 非獨占方式 WriteBinaryData(39。ReadOnly39。,bData,1)。 // 非只讀方式 end else begin // 創(chuàng)建鍵值失敗 ShowMessage(39。增加 ODBC數(shù)據(jù)源失敗 39。)。 Halt。 end。 CloseKey。 { 打開 Software\ODBC\\DSNName\Engines\Jet,并寫入DSN數(shù)據(jù)庫引擎配置信息 } if OpenKey(39。Software\ODBC\\39。+DSNName+39。\Engines\Jet39。,True) then begin WriteString(39。ImplicitCommitSync39。,39。Yes39。)。 WriteInteger(39。MaxBufferSize39。,512)。 // 緩沖區(qū)大小 WriteInteger(39。PageTimeout39。,10)。 // 頁超時 WriteInteger(39。Threads39。,3)。 // 支持的線程數(shù)目 41 WriteString(39。UserCommitSync39。,39。Yes39。)。 end else begin // 創(chuàng)建鍵值失敗 ShowMessage(39。增加 ODBC數(shù)據(jù)源失敗 39。)。 Halt。 end。 CloseKey。 // ShowMessage(39。增加 ODBC數(shù)據(jù)源成功 39。)。 // 顯示數(shù)據(jù)源注冊成功提示信息 Free。 end。 end。 附 .2 實現(xiàn)導出 Excel表格代碼 procedure ExportToExcel(qrExport: TADOQuery)。 //FileName: String)。 var RangeE: 。 Bookmark: TBookmarkStr。 I,Row: Integer。 42 begin try // create and show 。 :=39。正在將查詢結果導出到 Excel表格中 ....39。 [0]:=True。 (Null,0)。 RangeE:=。 // fill is the first row with field titles for I:=0 to do begin :=[I].DisplayLabel。 RangeE:=。 end。 // add field data in following rows 。 try Bookmark:=。 43 try 。 Row:=2。 while not do begin RangeE:=[39。A39。+IntToStr(Row),39。A39。+IntToStr(Row)]。 for I:=0 to do begin :=[I].AsString。 RangeE:=。 end。 。 Inc(Row)。 end。 finally :=Bookmark。 end。 finally 44 。 :=39。已將將查詢結果成功導出 ,請自行保存該表！ 39。 end。 except ShowMessage(39。系統(tǒng)中沒有安裝 Excel！ 39。)。 Abort。 end。 。 。 end。 procedure Delay(msecs:integer)。 var FirstTickCount:Longint。 begin FirstTickCount:=GetTickCount。 repeat 45 。 until ((GetTickCountFirstTickCount)=Longint(msecs))。 end。 end