【正文】 , easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthetic generous, convenient userfriendly. In particular system statements generated module function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated, and enhanced power management efficiency. Keyword : Delphi Information Management System database module utilities management system 引 言 1 1 Delphi 語言概述 2 Delphi 簡介 2 數(shù)據(jù)庫系統(tǒng)簡介 5 本應用軟件的基本介紹 7 2 本應用程序的構成和開發(fā)步驟 9 可行性研究 10 經濟可行性 11 時間可行性 12 技術可行性 13 社會可行性 14 數(shù)據(jù)庫的建立和連接 15 系統(tǒng)的總體設計 17 3 本程序的技術實現(xiàn)及具體功能 21 登錄的 界面與程序設計 實現(xiàn) 24 部門目錄選擇界 面與代碼設計 實現(xiàn) 34 報銷憑證界面與代碼設計實現(xiàn) 45 客戶資料查詢界面與代碼設計 52 主界面設計與代碼設計 55 結 論 60 致 謝 61 參 考 文 獻 62 引 言 隨著經濟的發(fā)展，社會的進步，計算機越來越深入到我們日常的工作學習及生活中，成為我們日常生活中不可缺少的輔助工具。 它已經深入到日常工作和生活的方方面面，比如文字處理、 信息管理、輔助設計、圖形圖像處理、教育培訓以及游戲娛樂等。然而，雖然現(xiàn)在世界上已經充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設計訓練，使用 Delphi 編程語言 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應用程序了。 服務信息 管理系統(tǒng) 為 企事業(yè)單位服務中心工作人員日常工作的調度、安排、計劃。貨運管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。而對于后者則要求應用程序功能完備 ,易使用等特點。 因為本人能力有限，加上時間緊迫，所以設計出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機版，不能實現(xiàn)網絡互聯(lián)操作 ,這些都有待于我在以后的工作學習中進一步改進。它易學易用，如同 VB，因而被稱為“第四代編程語言”。這里把“ VB”比作是傻瓜相機， Delphi 是帶有自動功能的專業(yè)相機。也有的把 Delphi 稱作 VB殺手。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。數(shù)據(jù)庫是依照某種數(shù)據(jù)模型組織起來并存放二級存儲器中的數(shù)據(jù)集合。數(shù)據(jù)庫由數(shù)據(jù)庫管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過數(shù)據(jù)庫管理系統(tǒng)進行。 對數(shù)據(jù)庫的維護包括保持數(shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)庫管理員一般是由業(yè)務水平較高、資歷較深的人員擔任。在這一含義下，數(shù)據(jù)庫系統(tǒng)是軟件研究領域的一個重要分支，常稱為數(shù)據(jù)庫領域。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)是計算機應用的一個里程碑，它使得計算機應用從以科學計算為主轉向以數(shù)據(jù)處理為主，并從而使計算機得以在各行各業(yè)乃至家庭普遍使用。為了實現(xiàn)對任意部分數(shù)據(jù)的快速訪問，就要研究許多優(yōu)化技術。由于對數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨立于具體的應用程序而存在，從而數(shù)據(jù)庫又可以為多個用戶所共享。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫系統(tǒng)的廣泛應用奠定了基礎。 本應用軟件的基本介紹 本應用軟件先是打開一個啟動窗口，就可以進入應用程序的主窗口了。 2 本應用程序的構成和開發(fā)步驟 下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。 應用程序的主體：主要完成用戶的業(yè)務邏輯功能， 如系統(tǒng)參數(shù)配置 ,字典維護 ,抄表 ,報表生成 .等信息 . 應用程序的輔助部分：協(xié)助程序主體完成的一些工作。 可行性研究 任何一個系統(tǒng)或一項工程，在建立之前，必須首選進行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性。下面從四方面來討論： 經濟可行性 主要是只指算一個新的系統(tǒng)開發(fā)所需要的投資費用和運算費用，并與估計的新系統(tǒng)收益進行比較，看是否有利。 時間可行性 主要包括系統(tǒng)在目前環(huán)境下能否正常運行，運行后所引起的各方面，以及這些變化對社會或人的因素所產生的影響。 技術可行性 利用現(xiàn)有的設備，軟件及技術人員，新系統(tǒng)的目標能否達到，這也是可行性研究中需要考慮的一個問題。本系統(tǒng)使用的 Delphi 普及 性好，操作簡單，用戶可以很快掌握使用方法，因此，在技術上是完全可行的。開發(fā)本系統(tǒng)的目標不僅是提高工作效率，減輕勞動強度，而且減少出錯率，具有很好的社會意義。 ODBC 是數(shù)據(jù)庫的通用接 口，其缺點是效率低；專用接口調用直接速度快，但是通用性差，如果用 ODBC 連接數(shù)據(jù)庫一般要兩個步驟： ； 。在創(chuàng)建數(shù)據(jù)源時可以通過 BDE administrator進行創(chuàng)建，也可以通過系統(tǒng)控制面板中的 ODBC數(shù)據(jù)源進行建立。接下來的工作是建表。你可以通過 Access 進行建表，也可以通過在 delphi 主程序中建表，也可以通過 powerdesigner 進行可視化的建立，不過用這種方法，在導入的時候要把數(shù)據(jù)庫要先斷開，否則數(shù)據(jù)庫的數(shù)據(jù)容易丟失。同時也要注意表的字段長度和可否為空。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上。我在程序開發(fā)的初期，同樣犯了這個錯誤，導致數(shù)據(jù)庫出錯，有時還要向表中新加入字段。 系統(tǒng)的總體設計 這個管理系統(tǒng)從 4 月 1 日開始著手設計開發(fā) ,經過一段時間的分析，并根據(jù)對 水電 管理的具體要求及需要本軟件實現(xiàn)的功能，將本軟件分為 5 個大的模塊，分別是：第一部分：文件模塊 ； 第二部分： 編輯模塊 ； 第三部分： 工具模塊 ； 第四部分： 初始模塊；第五部分：幫助模塊 。海運費用 39。MS Sans Serif39。其它費用 39。中文 (簡體 ) 智能 ABC39。MS Sans Serif39。海運單價 39。MS Sans Serif39。MS Sans Serif39。HY_ID39。編號 39。HY_GONGSI39。船運公司 39。HY_ORDER39。訂艙條款 39。HY_BEGIN39。起運港 39。HY_END39。目的港 39。HY_BOX39。箱型 39。HY_PRICE39。單價 39。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, TFlatPanelUnit, TFlatButtonUnit。 DBGrid1: TDBGrid。 FlatButton2: TFlatButton。 FlatButton4: TFlatButton。 FlatButton6: TFlatButton。 procedure FormClose(Sender: TObject。 procedure FlatButton7Click(Sender: TObject)。 procedure FlatButton1Click(Sender: TObject)。 procedure FlatButton3Click(Sender: TObject)。 procedure FlatButton5Click(Sender: TObject)。 procedure FormShow(Sender: TObject)。 var MonthForm: TMonthForm。 {$R *.dfm} procedure (Sender: TObject。 begin Action:=cafree。 procedure (Sender: TObject)。 end。 begin YBCXForm:=(application)。 //:=。 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin YBCXForm:=(application)。 end。 begin if =2 then begin ShowMessage(39。)。 end。 PrintForm:=(application)。 end。 begin 。 (39。)。 end。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TFlatButtonUnit, TFlatComboBoxUnit, AAFont, AACtrls, ExtCtrls, TFlatPanelUnit。 AALabel1: TAALabel。 FlatComboBox1: TFlatComboBox。 FlatButton2: TFlatButton。 procedure FormClose(Sender: TObject。 procedure FlatButton2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 implementation uses DMUnit, CDUnit。 var Action: TCloseAction)。 end。 begin close。 procedure (Sender: TObject)。 s:string。39。39。請輸入完整查詢條件 !39。 。 (39。)。 Exit。 Str:=39。 S:=。發(fā)貨名稱 39。 where CD_NAME like 39。39。%39。39。39。目的地 39。 where LY_MUDI like 39。39。%39。39。39。 。 。 end。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TFlatButtonUnit, TFlatPanelUnit, Menus,SHellapi, jpeg。 type TMainForm = class(TForm) MainMenu1: TMainMenu。 N63: TMenuItem。 N65: TMenuItem。 Image1: TImage。 N1: TMenuItem。 N3: TMenuItem。 N5: TMenuItem。 N7: TMenuItem。 N9: TMenuItem。 N16: TMenuItem。 N11: TMenuItem。 N21: TMenuItem。 FlatButton1: TFlatButton。 FlatButton3: TFlatButton。 FlatButton5: TFlatButton。 FlatButton7: TFlatButton。 FlatButton10: TFlatButton。 FlatButton12: TFlatButton。 FlatButton9: TFlatButton。 FlatPanel2: TFlatPanel。 procedure FormShow(Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure FlatButton13Click(Send