【正文】 ment of strong integrity, good safety database developed functions, 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 本應(yīng)用軟件的基本介紹 7 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 9 可行性研究 10 經(jīng)濟(jì)可行性 11 時(shí)間可行性 12 技術(shù)可行性 13 社會可行性 14 數(shù)據(jù)庫的建立和連接 15 系統(tǒng)的總體設(shè)計(jì) 17 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 21 登錄的 界面與程序設(shè)計(jì) 實(shí)現(xiàn) 24 部門目錄選擇界 面與代碼設(shè)計(jì) 實(shí)現(xiàn) 34 報(bào)銷憑證界面與代碼設(shè)計(jì)實(shí)現(xiàn) 45 客戶資料查詢界面與代碼設(shè)計(jì) 52 主界面設(shè)計(jì)與代碼設(shè)計(jì) 55 結(jié) 論 60 致 謝 61 參 考 文 獻(xiàn) 62 引 言 隨著經(jīng)濟(jì)的發(fā)展，社會的進(jìn)步，計(jì)算機(jī)越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。 服務(wù)信息 管理系統(tǒng) 為 企事業(yè)單位服務(wù)中心工作人員日常工作的調(diào)度、安排、計(jì)劃。它易學(xué)易用，如同 VB，因而被稱為“第四代編程語言”。數(shù)據(jù)庫是依照某種數(shù)據(jù)模型組織起來并存放二級存儲器中的數(shù)據(jù)集合。在這一含義下，數(shù)據(jù)庫系統(tǒng)是軟件研究領(lǐng)域的一個(gè)重要分支，常稱為數(shù)據(jù)庫領(lǐng)域。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。 可行性研究 任何一個(gè)系統(tǒng)或一項(xiàng)工程，在建立之前，必須首選進(jìn)行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性。本系統(tǒng)使用的 Delphi 普及 性好，操作簡單，用戶可以很快掌握使用方法，因此，在技術(shù)上是完全可行的。接下來的工作是建表。我在程序開發(fā)的初期，同樣犯了這個(gè)錯(cuò)誤，導(dǎo)致數(shù)據(jù)庫出錯(cuò)，有時(shí)還要向表中新加入字段。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上。在創(chuàng)建數(shù)據(jù)源時(shí)可以通過 BDE administrator進(jìn)行創(chuàng)建，也可以通過系統(tǒng)控制面板中的 ODBC數(shù)據(jù)源進(jìn)行建立。 技術(shù)可行性 利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目標(biāo)能否達(dá)到，這也是可行性研究中需要考慮的一個(gè)問題。 應(yīng)用程序的主體：主要完成用戶的業(yè)務(wù)邏輯功能， 如系統(tǒng)參數(shù)配置 ,字典維護(hù) ,抄表 ,報(bào)表生成 .等信息 . 應(yīng)用程序的輔助部分：協(xié)助程序主體完成的一些工作。由于對數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨(dú)立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫又可以為多個(gè)用戶所共享。數(shù)據(jù)庫管理員一般是由業(yè)務(wù)水平較高、資歷較深的人員擔(dān)任。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。 因?yàn)楸救四芰τ邢?，加上時(shí)間緊迫，所以設(shè)計(jì)出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。現(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用 Delphi 編程語言 也一樣能夠開發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。經(jīng)過調(diào)試、編譯與實(shí)現(xiàn)，該程序 界面友好、程序設(shè)計(jì)風(fēng)格樸素，使用起來美觀大方、方便易用。程序模塊的編制中，重點(diǎn)把握系統(tǒng)內(nèi)部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運(yùn)行無誤。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 80 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = [] = taCenter = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 90 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = [] = taCenter = 39。 ImageIndex = 3 object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 998 Height = 550 Align = alClient Color = clInfoBk Ctl3D = False DataSource = ImeName = 39。 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 Width = 150 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 Width = 85 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 Width = 75 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 Width = 75 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = [] = taCenter = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 60 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = [] = taCenter = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 = [] = taCenter = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 90 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = [] = taCenter = 39。 ImageIndex = 2 object DBGrid4: TDBGrid Left = 0 Top = 188 Width = 998 Height = 313 Align = alClient Color = clInfoBk Ctl3D = False DataSource = ImeName = 39。 = [] = taCenter = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 80 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = [] = taCenter = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 65 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。 = ANSI_CHARSET = clWindowText = 13 = 39。 Width = 90 Visible = True end item Alignment = taCenter Expanded = False FieldName = 39。