辦公自動化系統(tǒng)-無憂無慮畢設(shè)網(wǎng)

無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計站 ,免費畢業(yè)設(shè)計論文 ,無憂無慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計 ,出售各類畢業(yè)設(shè)計源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費視頻教程 ,我們將竭誠為您服務(wù)！ 畢業(yè)設(shè)計 院系 _ 專業(yè) _ 班級 _ 姓名 _ 日期 年 月 日 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 中文摘要 辦公自動化系統(tǒng) 企事業(yè)單位辦公管理人員日常工作的調(diào)度、安排、計劃。文件撰寫、歸檔、 調(diào)用、傳真、打印等提供充足的信息和快捷的查詢手段 .其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。利用 DELPHI 6.0 軟件及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性強、安全性好的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應(yīng)用程序。經(jīng)過調(diào)試、編譯與實現(xiàn)，該程序 界面友好、程序設(shè)計風(fēng)格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“報表生成模塊”的功能極大的減輕工作人員的工作量，并以快速、準確等優(yōu)點取代人工操作， 提高了管理工作效率。 關(guān)鍵詞 ： DELPHI 6.0 管理信息系統(tǒng) 數(shù) 據(jù)庫 模塊 辦公自動化系統(tǒng) 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Utilities Management System for management of day-to-day work of the utility meter-reading fee, statements generated, the cost of the provision of adequate means of information and quick enquiries. Its development mainly to the establishment and maintenance of databases including background and the development of two front-end applications. Delphi 6.0 and the use of object-oriented software development tools, the establishment 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 user-friendly. 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 6.0 Information Management System database module utilities management system 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 引 言 1 1 Delphi 語言概述 2 1.1 Delphi 簡介 2 1.2 數(shù)據(jù)庫系統(tǒng)簡介 5 1.3 本應(yīng)用軟件的基本介紹 7 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 9 2.1 可行性研究 10 2.1.1 經(jīng)濟可行性 11 2.1.2 時間可行性 12 2.1.3 技術(shù)可行性 13 2.1.4 社會可行性 14 2.2 數(shù)據(jù)庫的建立和連接 15 2.3 系統(tǒng)的總體設(shè)計 17 3 本程序的技術(shù)實現(xiàn)及具體功能 21 3.1 登錄的界面與程序設(shè)計實現(xiàn) 24 3.2 客戶信息 界面與代碼設(shè)計實現(xiàn) 34 3.3 發(fā)送通知界面與代碼設(shè)計實現(xiàn) 45 3.4 人事調(diào)動信息界面與代碼設(shè)計 52 3.5 主界面設(shè)計與代碼設(shè)計 55 結(jié) 論 60 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 致 謝 61 參 考 文 獻 62 引 言 隨著經(jīng)濟的發(fā)展，社會的進步，計算機越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。 隨著科學(xué)技術(shù)的不斷提高 ,計算機科學(xué)日漸成熟 ,其強大的功能已為人們深刻認識 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理 、信息管理、輔助設(shè)計、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。以前開發(fā)Windows 應(yīng)用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識和經(jīng)過特殊的培訓(xùn)才能勝任。現(xiàn)在不同了，即使你沒有接受過嚴格的程序設(shè)計訓(xùn)練，使用 Delphi 編程語言 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。 Delphi 編程語言 繼承了其他語 言易學(xué)易用的特點，特別適合于初學(xué)者學(xué)習(xí) Windows 系無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 統(tǒng)編程。 辦公自動化系統(tǒng) 企事業(yè)單位辦公管理人員日常工作的調(diào)度、安排、計劃。文件撰寫、歸檔、調(diào)用、傳真、打印等提供充足的信息和快捷的查詢手段 .其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。貨運管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點。 經(jīng)過分析 ,我 們使用 Delphi 編程語言 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對初始原型系統(tǒng)進行需求迭代 ,不斷修正和改進 ,直到形成用戶滿意的可行系統(tǒng)。 因為本人能力有限，加上時間緊迫，所以設(shè)計出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機版，不能實現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進一步改進。 1.1 Delphi 簡介 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 1.1 Delphi 簡介 Delphi是 Inprise公司出品的一個優(yōu) 秀 的可視化程序 開發(fā)工具軟件，它短小精悍，但功能卻可以與龐大的 visual c+媲美。它易學(xué)易用，如同 VB，因而被稱為“第四代編程語言”。 從 1995 年推出 Delphi1.0 至今已經(jīng)經(jīng)歷了 7 個版本，Delphi7.0 運行在 win9x 或 winme ， win2000， winxp，windowsNT 等操作系統(tǒng)下，是一個 32 位的應(yīng)用程序開發(fā)工具。這里把“ VB”比作是傻瓜相機， Delphi 是帶有自動功能的專業(yè)相機。前些年，軟件界流行一句話叫“真正的程序員用 VC，聰明的程序員用 Delphi”。也有的把 Delphi 稱作 VB殺手。 1.2 數(shù)據(jù)庫系統(tǒng)簡介 數(shù)據(jù)庫系統(tǒng)是一個實際可運行的存儲、維護和應(yīng)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng)，是存儲介質(zhì)、處理對象和管理系統(tǒng)的集合體。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。其軟件主要包括操作系統(tǒng)、各種宿主語言，實用程序以及數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫是依照某種數(shù)據(jù)模型組織起來并存放二級存儲器中的數(shù)據(jù)集合。這些數(shù)據(jù)為多個應(yīng)用服務(wù)，獨立于具體的應(yīng)用程序。數(shù)據(jù)庫由數(shù)據(jù)庫管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過數(shù)據(jù)庫管理系統(tǒng)進行。數(shù)據(jù)庫管理無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護數(shù)據(jù)庫并有效地訪問數(shù)據(jù)庫中任意部分數(shù)據(jù)。 對數(shù)據(jù)庫的維護包括保持數(shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)管理員負責(zé)創(chuàng)建、監(jiān)控和維護整個數(shù)據(jù)庫，使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。數(shù)據(jù)庫管理員一般是由業(yè)務(wù)水平較高、資歷較深的人員擔(dān)任。 數(shù)據(jù)庫系統(tǒng)的個體含義是指一個具體的數(shù)據(jù)庫管理系統(tǒng)軟件和用它建立起來的數(shù)據(jù)庫；它的學(xué)科含義是指研究、開發(fā)、建立、維護和應(yīng)用數(shù)據(jù)庫系統(tǒng)所涉及的理論、方法、技術(shù)所構(gòu)成的學(xué)科。在這一含義下，數(shù)據(jù)庫系統(tǒng)是軟件研究領(lǐng)域的一個重要分支，常稱為數(shù)據(jù)庫領(lǐng)域。 數(shù)據(jù)庫研究跨越于計算機應(yīng)用、系統(tǒng)軟件和理論三個領(lǐng)域，其中應(yīng)用促進新系統(tǒng)的研制 開發(fā)，新系統(tǒng)帶來新的理論研究，而理論研究又對前兩個領(lǐng)域起著指導(dǎo)作用。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)是計算機應(yīng)用的一個里程碑，它使得計算機應(yīng)用從以科學(xué)計算為主轉(zhuǎn)向以數(shù)據(jù)處理為主，并從而使計算機得以在各行各業(yè)乃至家庭普遍使用。在它之前的文件系統(tǒng)雖然也能處理持久數(shù)據(jù)，但是文件系統(tǒng)不提供對任意部分數(shù)據(jù)的快速訪問，而這對數(shù)據(jù)量不斷增大的應(yīng)用來說是至關(guān)重要的。為了實現(xiàn)對任意部分數(shù)據(jù)的快速訪問，就要研究許多優(yōu)化技術(shù)。這些優(yōu)化技術(shù)往往很復(fù)雜，是普通用戶難以實現(xiàn)的，所以就由系統(tǒng)軟件（數(shù)據(jù)庫管理系統(tǒng)）來完成，而提供給用戶無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 的是簡單易用的數(shù)據(jù)庫 語言。由于對數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫又可以為多個用戶所共享。因此，數(shù)據(jù)的獨立性和共享性是數(shù)據(jù)庫系統(tǒng)的重要特征。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)使得普通用戶能夠方便地將日常數(shù)據(jù)存入計算機并在需要的時候快速訪問它們，從而使的計算機走出科研機構(gòu)進入各行各業(yè)、進入家庭。 1.3 本應(yīng)用軟件的基本介紹 本應(yīng)用軟件先是打開一個啟動窗口，就可以進入應(yīng)用程序的主窗口了。主界面是一個圖型界面窗口，整個平臺顯示采 用人性化方式，可以非常方便的系統(tǒng)管理、字典維護、抄表 ,報表管理等基本信息，管理日常經(jīng)營的基本情況，通過各種條件查詢出水電管理的基本信息，以及打印出查詢出的基本信息，總之一切水電管理基本信息都會顯示在系統(tǒng)平臺上，大大提高了管理人員的工作效率。 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。Delphi 應(yīng)用程序一般包含以下三個基本部分： 應(yīng)用程序運行的接口：負責(zé)系統(tǒng)整體環(huán)境的設(shè)置，運行狀態(tài)的監(jiān)視，應(yīng)用程序的啟動等。 應(yīng)用程序的主體：主要完成用戶的業(yè)務(wù)邏輯功能， 如系統(tǒng)參數(shù)配置 ,字典維護 ,抄表 ,報表生成 .等信息 . 應(yīng)用程序的輔助部分：協(xié)助程序主體完成的一些工作。 下面從軟件工程的角度描述本程序的開發(fā)生命周期，開發(fā)過程和組織過程。 2.1 可行性研究 任何一個系統(tǒng)或一項工程，在建立之前，必須首選進行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性?？赡苄灾搁_發(fā)信息系統(tǒng)的條件是否具備，必要性是指客觀上是否真正需要，通過可行性研究，可避免盲目投資，減少政治性要的損失。下面從四方面來討論： 2.1.1 經(jīng)濟可行性 主要是只指算一個新的系統(tǒng)開發(fā)所需要的投資費用和運算費用，并與估計的新系統(tǒng)收益進行比較，看是否有利。本系統(tǒng)所需的軟硬件成本比較低，投資小，具有一定的通過性，因此 ，在經(jīng)濟上是可行的。 2.1.2 時間可行性 主要包括系統(tǒng)在目前環(huán)境下能否正常運行，運行后所引起的各方面，以及這些變化對社會或人的因素所產(chǎn)生的影響。本系統(tǒng)對人事的管理比較全面，可長期使用。 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 2.1.3 技術(shù)可行性 利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目標能否達到，這也是可行性研究中需要考慮的一個問題。關(guān)系型數(shù)據(jù) 庫的高速發(fā)展使管理信息系統(tǒng)具備了良好的開發(fā)環(huán)境。本系統(tǒng)使用的 Delphi 普及 性好，操作簡單，用戶可以很快掌握使用方法，因此，在技術(shù)上是完全可行的。 2.1.4 社會可行性 人類社會文明的發(fā)展已進入信息化的高速發(fā)展時期，傳統(tǒng)的手工方式支持下的管理模式，已經(jīng)不能滿足各方面的需要。開發(fā)本系統(tǒng)的目標不僅是提高工作效率，減輕勞動強度，而且減少出錯率，具有很好的社會意義。 2.2 數(shù)據(jù)庫的建立和連接 這個程序采用的數(shù)據(jù)庫是 SQL， Delphi 作為數(shù)據(jù)庫的前臺開發(fā)工具，必須與后臺數(shù)據(jù)庫進行連接，這樣才能控制和進行操作數(shù)據(jù)庫，數(shù)據(jù)庫的連接方式有兩種， ODBC 和 ADO。 ODBC 是數(shù)據(jù)庫的通用接 口，其缺點是效率低；專用接口調(diào)用直接速度快，但是通用性差，如果用 ODBC 連接數(shù)據(jù)庫一般要兩個步驟： 1.要創(chuàng)建數(shù)據(jù)源； 2.創(chuàng)建描述文件。數(shù)據(jù)庫的建立則時在 SQL 中建立的，在這里你可以設(shè)置數(shù)據(jù)庫的密碼，對數(shù)據(jù)庫進行保護。在創(chuàng)建數(shù)據(jù)源時可以通過 BDE administrator 進行創(chuàng)建，也可以通過系統(tǒng)控制面板中的 ODBC數(shù)據(jù)源進行建立。而描述文件則可以在 Delphi 的主程序中用Database Profile 中進行建立，之后進行數(shù)據(jù)庫的連接。接下無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 來的工作是建表。同樣建表的過程也不是唯一的，但是最終實現(xiàn)的結(jié)果是唯一 的。你可以通過 Access 進行建表，也可以通過在 delphi 主程序中建表，也可以通過 powerdesigner 進行可視化的建立，不過用這種方法，在導(dǎo)入的時候要把數(shù)據(jù)庫要先斷開，否則數(shù)據(jù)庫的數(shù)據(jù)容易丟失。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。同時也要注意表的字段長度和可否為空。因為以后要設(shè)計到主鍵，外鍵的問題。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上?？梢娊ū頃r應(yīng)做好全局的打算。我在程序開發(fā)的初期，同樣犯了這個錯誤，導(dǎo)致數(shù)據(jù)庫出錯，有時還要向表中新加入字段。導(dǎo)致數(shù)據(jù)窗口不好用的連 鎖反映。 2.3 系統(tǒng)的總體設(shè)計 這個管理系統(tǒng)從 4 月 1 日開始著手設(shè)計開發(fā) ,經(jīng)過一段時間的分析，并根據(jù)對水電管理的具體要求及需要本軟件實現(xiàn)的功能，將本軟件分為 5 個大的模塊，分別是：第一部分：系統(tǒng)管理 ； 第二部分：員工管理 ； 第三部分：客戶管理； 第四部分：業(yè)務(wù)管理；第五部分：賬目管理；第六部分：賬目管理；第七部分：統(tǒng)計分析； 程序流程圖如下： 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： 3 本程序的技術(shù)實現(xiàn)及具體功能 3.1 登錄的界面與程序設(shè)計實現(xiàn) 程序登入 主界面 系統(tǒng)管理 員工管理 客戶管理 業(yè)務(wù)管理 賬目管理 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： unit UlogIn； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons； type TfrmLogIn = class(TForm) Image1: TImage； Bevel1: TBevel； Label1: TLabel； ComboBox1: TComboBox； Label2: TLabel； Label3: TLabel； Edit2: TEdit； Bevel2: TBevel； Bevel3: TBevel； bbtnOK: TBitBtn； bbtnCancel: TBitBtn； ComboBox2: TComboBox； procedure bbtnCancelClick(Sender: TObject)； procedure ComboBox1DropDown(Sender: TObject)； procedure bbtnOKClick(Sender: TObject)； procedure ComboBox2DropDown(Sender: TObject)； private Private declarations public Public declarations end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： var frmLogIn: TfrmLogIn； LogTimes:Integer=0； DeptName:string； LogInTime:TDateTime； UserName:string； implementation uses Umain, MyData, UtodayWork； $R *.dfm procedure TfrmLogIn.bbtnCancelClick(Sender: TObject)； begin Application.Terminate； end； procedure TfrmLogIn.ComboBox1DropDown(Sender: TObject)； begin ComboBox1.Items.Clear； with dm.AQDept do begin close； sql.Clear； sql.Add(select distinct department from Users)； open； first； while not dm.AQDept.Eof do begin ComboBox1.Items.Add(dm.AQDept.FieldValuesdepartment)； dm.AQDept.Next； end； end； end； procedure TfrmLogIn.bbtnOKClick(Sender: TObject)； begin if Edit2.Text= then begin ShowMessage(用戶密碼不能為空！ )； Exit； end； with dm.AQDept do 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： begin close； sql.Clear； sql.Add(select * from Users where Department=+Trim(ComboBox1.Text)+and UserName=+Trim(ComboBox2.Text)+ and PWD=+frmMain.Encrypt(Trim(Edit2.Text)+)； open； end； if dm.AQDept.Eof then begin LogTimes:=LogTimes+1； if LogTimes3 then begin MessageBox(handle,pchar(密碼第 +IntToStr(LogTimes)+次錯誤 ,請重新輸入 !),密碼錯誤 ,MB_OK OR MB_ICONERROR)； Edit2.Text:=； Edit2.SetFocus； end else begin MessageBox(handle,密碼錯誤三次程序?qū)㈥P(guān)閉！ ,密碼錯誤 ,MB_ICONERROR)； Application.Terminate； end； end else if dm.AQDept.RecordCount0 then begin DeptName:=Trim(ComboBox1.Text)； UserName:=Trim(ComboBox2.Text)； LogInTime:=Now； self.Close； end； end； procedure TfrmLogIn.ComboBox2DropDown(Sender: TObject)； begin if ComboBox1.ItemIndex0 then begin ShowMessage(請先選擇該用戶所在的部門 !)； Exit； end； ComboBox2.Items.Clear； with dm.AQDept do begin close； sql.Clear； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： sql.Add(select * from Users where Department=+Trim(comboBox1.Text)+)； open； first； while not dm.AQDept.Eof do begin ComboBox2.Items.Add(dm.AQDept.FieldValuesUserName)； dm.AQDept.Next； end； end； end； end. 3.2 客戶信息界面與代碼設(shè)計實現(xiàn) unit Ucustom； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids, ImgList, Menus, Mask, DBCtrls； type TfrmCustomer = class(TForm) 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Panel2: TPanel； Splitter1: TSplitter； GroupBox2: TGroupBox； GroupBox3: TGroupBox； bbtnNew: TBitBtn； bbtnModify: TBitBtn； bbtnDel: TBitBtn； bbtnExit: TBitBtn； ImageList1: TImageList； GroupBox4: TGroupBox； DBGrid3: TDBGrid； PopupMenu1: TPopupMenu； A1: TMenuItem； B1: TMenuItem； C1: TMenuItem； N5: TMenuItem； N6: TMenuItem； N8: TMenuItem； GroupBox5: TGroupBox； DBGrid1: TDBGrid； GroupBox1: TGroupBox； TreeView1: TTreeView； HeaderControl1: THeaderControl； ComboBox1: TComboBox； Edit8: TEdit； DBEdit4: TDBEdit； DBEdit9: TDBEdit； DBGrid2: TDBGrid； bbtnShowAll: TBitBtn； procedure bbtnNewClick(Sender: TObject)； procedure bbtnModifyClick(Sender: TObject)； procedure bbtnExitClick(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure ComboBox1DropDown(Sender: TObject)； procedure FormShow(Sender: TObject)； procedure TreeView1Click(Sender: TObject)； procedure ComboBox1Change(Sender: TObject)； procedure N1Click(Sender: TObject)； procedure N2Click(Sender: TObject)； procedure N3Click(Sender: TObject)； procedure N9Click(Sender: TObject)； procedure bbtnDelClick(Sender: TObject)； procedure A1Click(Sender: TObject)； procedure B1Click(Sender: TObject)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure C1Click(Sender: TObject)； procedure N6Click(Sender: TObject)； procedure N7Click(Sender: TObject)； procedure DBGrid2DblClick(Sender: TObject)； procedure DBGrid1DblClick(Sender: TObject)； procedure bbtnShowAllClick(Sender: TObject)； private Private declarations public Public declarations end； var frmCustomer: TfrmCustomer； implementation uses MyData, Ufamily, Uconnact, UtodayWorkRecord, UcustomerAdd, UcustomerUpdate； $R *.dfm procedure TfrmCustomer.bbtnNewClick(Sender: TObject)； begin frmCustomerAdd.Show； end； procedure TfrmCustomer.bbtnModifyClick(Sender: TObject)； begin if self.DBGrid1.DataSource.DataSet.IsEmpty then begin ShowMessage(沒有要修改的記錄，請選擇記錄后再試！ )； Exit； end else begin frmCustomerUpdate.Show； end； end； procedure TfrmCustomer.bbtnExitClick(Sender: TObject)； begin close； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TfrmCustomer.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action:=caFree； end； procedure TfrmCustomer.ComboBox1DropDown(Sender: TObject)； begin ComboBox1.Items.Clear； with dm.AQCustName do begin close； sql.Clear； sql.Add(select distinct DeptName from Customers)； open； first； while not Eof do begin ComboBox1.Items.Add(FieldValuesDeptName)； next； end； end； end； procedure TfrmCustomer.FormShow(Sender: TObject)； var node1,node2 :TTreeNode； secoder :string； first:string； kind:string ； begin ComboBox1.Text :=； TreeView1.Items.Clear； with dm.AQCustName do begin close； sql.Clear； sql.Add(select distinct Intension from Customers)； open； end； dm.AQCustName.First； while not dm.AQCustName.Eof do 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： begin first:= dm.AQCustName.fieldbyname(Intension).AsString； node1:=treeview1.Items.AddChild(nil,first)； node1.ImageIndex :=0； node1.SelectedIndex :=0； node1.StateIndex :=-1； kind:=first； with dm.AQDeptName do begin close； sql.Clear； sql.Add(select distinct DeptName from Customers where Intension=+kind+)； open； end； dm.AQDeptName.First； while not dm.AQDeptName.Eof do begin secoder:=dm.AQDeptName.fieldbyname(DeptName).AsString； node2 :=treeview1.Items.AddChild(node1,secoder)； node2.ImageIndex :=1； node2.SelectedIndex :=1； node2.StateIndex :=-1； dm.AQDeptName.Next； end； dm.AQCustName.Next； end； end； procedure TfrmCustomer.TreeView1Click(Sender: TObject)； begin if treeview1.Selected.Level=0 then begin with dm.AQCustInfo do begin close； sql.Clear； sql.Add(select * from Customers where Intension=+treeview1.Selected.Text+)； open； dm.ATCustInfo.Clone(dm.AQCustInfo)； end； end else begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： with dm.AQCustInfo do begin close； sql.Clear； sql.Text :=select * from Customers where DeptName=+treeview1.Selected.Text+ + and Intension=+TreeView1.Selected.Parent.Text+； open； dm.ATCustInfo.Clone(dm.AQCustInfo)； end； end； end； procedure TfrmCustomer.ComboBox1Change(Sender: TObject)； var Tempstr:string； i:integer； begin TempStr:=Trim(ComboBox1.Text)； if TreeView1.Items.GetFirstNode.Text=TempStr then begin TreeView1.Items.GetFirstNode.Selected:=True； end else begin for i:=1 to TreeView1.Items.Count do begin if TreeView1.Items.Itemi.Text=TempStr then begin TreeView1.SetFocus； TreeView1.Items.Itemi.Selected :=True； Break； end else Continue； end； end； end； procedure TfrmCustomer.N1Click(Sender: TObject)； begin bbtnNew.Click； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TfrmCustomer.N2Click(Sender: TObject)； begin bbtnModify.Click； end； procedure TfrmCustomer.N3Click(Sender: TObject)； begin bbtnDel.Click； end； procedure TfrmCustomer.N9Click(Sender: TObject)； begin frmFamily.bbtnAdd.Click； frmFamily.Show； end； procedure TfrmCustomer.bbtnDelClick(Sender: TObject)； var Customerid,CustomerName:string； begin Customerid :=dm.ATCustInfo.FieldByName(CustomerID).AsString； CustomerName:=dm.ATCustInfo.fieldbyname(Cusname).AsString； if self.DBGrid1.DataSource.DataSet.IsEmpty then begin ShowMessage(沒有要刪除的記錄，請選擇記錄后再試！ )； Exit； end else if MessageBox(self.Handle,將刪除與該客戶的項目和家庭成員信息 ,確定嗎？ ,警告 ,MB_OKCANCEL+MB_ICONWARNING+MB_DefButton2)=IDOk then begin dm.ATCustInfo.Delete； with dm.AQItems do begin close； sql.Clear； sql.Add(delete from ProjectItem where Customname=+CustomerName+)； ExecSQL； end； with dm.AQCustInfo do begin close； sql.Clear； sql.Add(delete from Family where CustomerID=+Customerid+)； ExecSQL； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； with dm.AQService do begin close； sql.Clear； sql.Add(delete from Service where SerName=+CustomerName+)； ExecSQL； end； end； end； procedure TfrmCustomer.A1Click(Sender: TObject)； var CustomerId :string； begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID； try if Application.MessageBox( 您確實要把此客戶移到 A 區(qū)嗎？ , 系統(tǒng)提示,MB_YESNO)=6 then begin with dm.AQCustInfo do begin close； sql.Clear； sql.Text :=update Customers set Intension= 一定 where CustomerID=+CustomerId+； ExecSql； end； showmessage(成功移動到 A 區(qū)！ )； self.FormShow(Sender)； end； except showmessage(移動到 A 區(qū)失敗！ )； end； end； procedure TfrmCustomer.B1Click(Sender: TObject)； var CustomerId :string； begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID； try if Application.MessageBox( 您確實要把此客戶移到 B 區(qū)嗎？ , 系統(tǒng)提示,MB_YESNO)=6 then 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： begin with dm.AQCustInfo do begin close； sql.Clear； sql.Text :=update Customers set Intension= 初定 where CustomerID=+CustomerId+； ExecSql； end； showmessage(成功移動到 B 區(qū)！ )； self.FormShow(Sender)； end； except showmessage(移動到 B 區(qū)失?。?)； end； end； procedure TfrmCustomer.C1Click(Sender: TObject)； var CustomerId :string； begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID； try if Application.MessageBox( 您確實要把此客戶移到 C 區(qū)嗎？ , 系統(tǒng)提示,MB_YESNO)=6 then begin with dm.AQCustInfo do begin close； sql.Clear； sql.Text :=update Customers set Intension= 待定 where CustomerID=+CustomerId+； ExecSql； end； showmessage(成功移動到 C 區(qū)！ )； self.FormShow(Sender)； end； except showmessage(移動到 C 區(qū)失?。?)； end； end； procedure TfrmCustomer.N6Click(Sender: TObject)； var 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： CustomerId :string； begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID； try if Application.MessageBox(您確實要把此客戶移到公共區(qū)域嗎？ ,系統(tǒng)提示,MB_YESNO)=6 then begin with dm.AQCustInfo do begin close； sql.Clear； sql.Text :=update Customers set Intension= 公共區(qū)域 where CustomerID=+CustomerId+； ExecSql； end； showmessage(成功移動到公共區(qū)域！ )； self.FormShow(Sender)； end； except showmessage(移動到公共區(qū)域失??！ )； end； end； procedure TfrmCustomer.N7Click(Sender: TObject)； begin frmContact.Show； end； procedure TfrmCustomer.DBGrid2DblClick(Sender: TObject)； begin if DBGrid2.DataSource.DataSet.IsEmpty then Exit else frmContact.Show； end； procedure TfrmCustomer.DBGrid1DblClick(Sender: TObject)； begin if DBGrid1.DataSource.DataSet.IsEmpty then Exit else frmCustomerUpdate.Show； end； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： procedure TfrmCustomer.bbtnShowAllClick(Sender: TObject)； begin dm.ATCustInfo.Close； dm.ATCustInfo.Open； dm.ATContact.Close； dm.ATContact.Open； dm.ATFimaly.Close； dm.ATFimaly.Open； end； end. 3.3 發(fā) 送 通 知 界 面 與 代 碼 設(shè) 計 實 現(xiàn) unit UsendMsg； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons,Unotice； type TfrmSendMsg = class(TForm) GroupBox1: TGroupBox； Panel1: TPanel； Label1: TLabel； AddrBox: TComboBox； bbtnSend: TBitBtn； GroupBox2: TGroupBox； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： mesText: TMemo； StatusPanel: TPanel； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure bbtnSendClick(Sender: TObject)； procedure FormCreate(Sender: TObject)； procedure AddrBoxChange(Sender: TObject)； procedure mesTextChange(Sender: TObject)； private Private declarations UserName:String； MessageHeader:TStringList； public Public declarations end； var frmSendMsg: TfrmSendMsg； implementation $R *.dfm procedure TfrmSendMsg.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action:=caFree； end； procedure TfrmSendMsg.bbtnSendClick(Sender: TObject)； var i,res:Integer； begin if AddrBox.Text then begin StatusPanel.Font.Color:=clBlack； StatusPanel.Caption:=請稍等 .； Update； if AddrBox.Items.IndexOf(AddrBox.Text)=-1 then AddrBox.Items.Add(AddrBox.Text)； res:=SendMsg(AddrBox.Text,MessageHeader.Text+mesText.Text)； /ShowMessage(IntToStr(res)； if res=0 then begin frmSendMsg.StatusPanel.Caption:=消息已成功送出 ； frmSendMsg.StatusPanel.Font.Color:=clBlue； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； try if res=87 then begin frmSendMsg.StatusPanel.Caption:=指定 參數(shù)錯誤 ； frmSendMsg.StatusPanel.Font.Color:=clRed； end； except /ShowMessage(指定參數(shù)錯誤 )； end； try if res=2273 then begin frmSendMsg.StatusPanel.Caption:=不能找到該 IP:+AddrBox.Text； frmSendMsg.StatusPanel.Font.Color:=clRed； end； / ShowMessage(不能找到該 IP:+AddrBox.Text)； except end； try if (res0)and(res87)and(res2273) then begin frmSendMsg.StatusPanel.Caption:=錯誤 :+IntToStr(res)； frmSendMsg.StatusPanel.Font.Color:=clRed； end； except / end； end； end； procedure TfrmSendMsg.FormCreate(Sender: TObject)； var strUser:PChar； strSize:DWord； begin mesText.Lines.Clear； strUser:=StrAlloc(100)； strSize:=100； GetUserName(strUser,strSize)； UserName:=strUser； strDispose(strUser)； MessageHeader:=TStringList.Create； MessageHeader.Add(-)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： MessageHeader.Add( FROM +UserName)； MessageHeader.Add(-)； end； procedure TfrmSendMsg.AddrBoxChange(Sender: TObject)； begin StatusPanel.Caption:=； end； procedure TfrmSendMsg.mesTextChange(Sender: TObject)； begin StatusPanel.Caption:=； end； end. 3.4 人事調(diào)動信息界面與代碼設(shè)計 unit UpersonalChange； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Dialogs, StdCtrls, Buttons, dbcgrids, Grids, DBGrids, ExtCtrls, Mask, DBCtrls, ComCtrls； type TfrmPersonalChange = class(TForm) GroupBox1: TGroupBox； ComboBox1: TComboBox； sbtnShowAll: TBitBtn； bbtnSelect: TBitBtn； ControlBar1: TControlBar； StaticText1: TStaticText； GroupBox2: TGroupBox； Label2: TLabel； Label3: TLabel； Label4: TLabel； Label5: TLabel； Label6: TLabel； Label7: TLabel； Edit1: TEdit； Label8: TLabel； GroupBox3: TGroupBox； DBGrid1: TDBGrid； Panel1: TPanel； bbtnSave: TBitBtn； bbtnExit: TBitBtn； bbtnModify: TBitBtn； Edit2: TEdit； Memo1: TMemo； ComboBox2: TComboBox； ComboBox3: TComboBox； DBEdit1: TDBEdit； DBEdit2: TDBEdit； DBEdit3: TDBEdit； Label1: TLabel； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure bbtnSelectClick(Sender: TObject)； procedure bbtnModifyClick(Sender: TObject)； procedure FormCreate(Sender: TObject)； procedure bbtnExitClick(Sender: TObject)； procedure sbtnShowAllClick(Sender: TObject)； procedure bbtnSaveClick(Sender: TObject)； private Private declarations public 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Public declarations end； var frmPersonalChange: TfrmPersonalChange； implementation uses Mydata, UemployeeMgr； $R *.dfm procedure TfrmPersonalChange.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action:=caFree； end； procedure TfrmPersonalChange.bbtnSelectClick(Sender: TObject)； var SelectFields,FieldsValue:String； begin if ComboBox1.Text= then Exit； if combobox1.Text=員工編號 then begin SelectFields:=Empno； end else if ComboBox1.Text=姓名 then begin SelectFields:=EmpName； end else if ComboBox1.Text=所在部門 then begin SelectFields:=Department； end else if ComboBox1.Text=職位 then begin SelectFields:=Post； end； FieldsValue:=%+Trim(Edit1.Text)+%； with dm.AQEmpInfo do begin close； sql.Clear； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： sql.Add(select * from Employees where +SelectFields+ like +FieldsValue+)； open； dm.ATEmpInfo.Clone(dm.AQEmpInfo)； end； end； procedure TfrmPersonalChange.bbtnModifyClick(Sender: TObject)； begin bbtnsave.Enabled:=true； combobox2.Enabled:=true； edit2.Enabled:=true； combobox3.Enabled:=true； memo1.Enabled:=true； combobox3.Enabled:=true； dm.ATEmpInfo.Edit； end； procedure TfrmPersonalChange.FormCreate(Sender: TObject)； begin bbtnsave.Enabled:=false； combobox3.Enabled:=false； edit2.Enabled:=false； end； procedure TfrmPersonalChange.bbtnExitClick(Sender: TObject)； begin close； end； procedure TfrmPersonalChange.sbtnShowAllClick(Sender: TObject)； begin dm.ATEmpInfo.Close； dm.ATEmpInfo.Open； end； procedure TfrmPersonalChange.bbtnSaveClick(Sender: TObject)； begin with dm.ATEmpInfo do begin Edit； FieldByName(Status).Value:=Trim(ComboBox2.Text)； FieldByName(Post).Value:=Trim(Edit2.Text)； FieldByName(Department).Value:=Trim(ComboBox3.Text)； FieldByName(Notes).Value:=Trim(Memo1.Text)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Post； ShowMessage(已存盤！ )； Close； Open； end； end； end. 3.5 主界面設(shè)計與代碼設(shè)計 unit Umain； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, ToolWin, XPMan, Buttons, ExtCtrls,QStdCtrls, StdActns, ActnList； type TfrmMain = class(TForm) MainMenu1: TMainMenu； EmpMgr: TMenuItem； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： ClientMgr: TMenuItem； BusinessMgr: TMenuItem； MoneyMgr: TMenuItem； systemMgr: TMenuItem； StatusBar1: TStatusBar； empInfo: TMenuItem； empRaise: TMenuItem； XPManifest1: TXPManifest； CoolBar1: TCoolBar； sbtnEmpBrowse: TSpeedButton； sbtnServiceBrowse: TSpeedButton； sbtnSalaryBrowse: TSpeedButton； sbtnBusiBrowse: TSpeedButton； sbtnClientBrowse: TSpeedButton； sbtnExit: TSpeedButton； SalaryBrowse: TMenuItem； DailyCost: TMenuItem； Windows: TMenuItem； userAdd: TMenuItem； passwdModify: TMenuItem； loginHistory: TMenuItem； N13: TMenuItem； BusinessTip: TMenuItem； N15: TMenuItem； N16: TMenuItem； Exit: TMenuItem； Statistic: TMenuItem； dataBase: TMenuItem； ClientBrowse: TMenuItem； ServiceBrowse: TMenuItem； OrdersArrange: TMenuItem； BusinessInfo: TMenuItem； Timer1: TTimer； N1: TMenuItem； N2: TMenuItem； N3: TMenuItem； ActionList1: TActionList； WindowCascade1: TWindowCascade； WindowTileHorizontal1: TWindowTileHorizontal； WindowTileVertical1: TWindowTileVertical； Cascade: TMenuItem； Vertical: TMenuItem； Horizontal: TMenuItem； N4: TMenuItem； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： About: TMenuItem； N5: TMenuItem； procedure sbtnEmpBrowseClick(Sender: TObject)； procedure empRaiseClick(Sender: TObject)； procedure SalaryBrowseClick(Sender: TObject)； procedure DailyCostClick(Sender: TObject)； procedure empInfoClick(Sender: TObject)； procedure ServiceBrowseClick(Sender: TObject)； procedure BusinessInfoClick(Sender: TObject)； procedure ClientBrowseClick(Sender: TObject)； procedure OrdersArrangeClick(Sender: TObject)； procedure BusinessTipClick(Sender: TObject)； procedure sbtnBusiBrowseClick(Sender: TObject)； procedure sbtnClientBrowseClick(Sender: TObject)； procedure sbtnServiceBrowseClick(Sender: TObject)； procedure sbtnSalaryBrowseClick(Sender: TObject)； procedure sbtnExitClick(Sender: TObject)； procedure userAddClick(Sender: TObject)； procedure passwdModifyClick(Sender: TObject)； procedure dataBaseClick(Sender: TObject)； procedure loginHistoryClick(Sender: TObject)； procedure FormShow(Sender: TObject)； procedure FormCloseQuery(Sender: TObject； var CanClose: Boolean)； procedure Timer1Timer(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure N1Click(Sender: TObject)； procedure N2Click(Sender: TObject)； procedure AboutClick(Sender: TObject)； procedure ExitClick(Sender: TObject)； procedure N3Click(Sender: TObject)； procedure N5Click(Sender: TObject)； private Private declarations public Public declarations function Encrypt(Text:string):string； end； var frmMain: TfrmMain； implementation uses UpublcBrower, UemployeeMgr, UpersonalChange, UarrangeOrders, Usalary, UdailyCost, Userver, Ucustom, UtodayWork, Usysmanadd, Upasschg, 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： Udatecontrol, Ulogdaily, UlogIn, MyData, Userverchg, Userverchart, utotal, Uabout, UsendMsg； $R *.dfm procedure AddLogIn； begin with dm.AQHistory do begin close； sql.Clear； sql.Add(INSERT INTO LogHistory(UserID,LogInTime,LogOutTime)； sql.Add(values ()； sql.Add(+UserName+,)； sql.Add(+FormatDateTime(yyyy-mm-dd hh:mm:ss,LogInTime)+,)； sql.Add(+FormatDateTime(yyyy-mm-dd hh:mm:ss,Now)+)； sql.Add()； ExecSQL； end； end； /得到使用時間 function TimeGetStamp(T2:string):String； var h1,m1,s1,n1,h2,m2,s2,n2:word； hh,mm,ss:Longint； strtime :Longint； begin Decodetime(now,h1,m1,s1,n1)； Decodetime(StrtoTime(T2),h2,m2,s2,n2)； hh := h1*3600+m1*60+s1； mm := h2*3600+m2*60+s2； if hh mm then strtime :=hh-mm else strtime :=hh-mm+24*3600； hh := Strtime div 3600； mm := Strtime mod 3600 div 60 ； ss := Strtime mod 60； Result := inttoStr(hh) +小時 + inttoStr( mm) +分 +inttoStr(ss)+秒 ； end； function TfrmMain.Encrypt(Text:string):string；/用戶加密與解密 var Temp:string； CharStr:char； i,ASC:Integer； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： begin Result:=； Temp:=Text； for i:=1 to Length(Temp)do begin CharStr:=Tempi； ASC:=ord(CharStr) xor i； Result:=Result+chr(ASC)； end； end； /自定義的函數(shù) -打開 Child 窗體。 procedure OpenForm(FormClass: TFormClass； var fm； AOwner:TComponent)； var i: integer； Child:TForm； begin for i := 0 to Screen.FormCount -1 do if Screen.Formsi.ClassType=FormClass then begin Child:=Screen.Formsi； if Child.WindowState=wsMinimized then ShowWindow(Child.handle,SW_SHOWNORMAL) else ShowWindow(Child.handle,SW_SHOWNA)； if (not Child.Visible) then Child.Visible:=True； Child.BringToFront； Child.Setfocus； TForm(fm):=Child； exit； end； Child:=TForm(FormClass.NewInstance)； TForm(fm):=Child； Child.Create(AOwner)； end； procedure TfrmMain.sbtnEmpBrowseClick(Sender: TObject)； begin OpenForm(TfrmEmployeeMgr,frmEmployeeMgr,self)； frmEmployeeMgr.WindowState:=wsMaximized； end； procedure TfrmMain.empRaiseClick(Sender: TObject)； begin OpenForm(TfrmPersonalChange,frmPersonalChange,self)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： end； procedure TfrmMain.SalaryBrowseClick(Sender: TObject)； begin OpenForm(TfrmSalary,frmSalary,self)； frmSalary.WindowState:=wsMaximized； end； procedure TfrmMain.DailyCostClick(Sender: TObject)； begin OpenForm(TfrmDailyCost,frmDailyCost,self)； end； procedure TfrmMain.empInfoClick(Sender: TObject)； begin OpenForm(TfrmEmployeeMgr,frmEmployeeMgr,self)； frmEmployeeMgr.WindowState:=wsMaximized； end； procedure TfrmMain.ServiceBrowseClick(Sender: TObject)； begin OpenForm(TfrmServer,frmServer,self)； frmServer.WindowState:=wsMaximized； end； procedure TfrmMain.BusinessInfoClick(Sender: TObject)； begin OpenForm(TfrmCustomer,frmCustomer,self)； frmCustomer.WindowState:=wsMaximized； end； procedure TfrmMain.ClientBrowseClick(Sender: TObject)； begin OpenForm(TfrmPublicBrower,frmPublicBrower,self)； frmPublicBrower.WindowState:=wsMaximized； end； procedure TfrmMain.OrdersArrangeClick(Sender: TObject)； begin OpenForm(TfrmArrangeOrders,frmArrangeOrders,self)； end； procedure TfrmMain.BusinessTipClick(Sender: TObject)； begin 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計源碼下載 畢業(yè)設(shè)計源碼下載： OpenForm(TfrmTodayWork,frmTodayWork,self)； end； procedure TfrmMain.sbtnBusiBrowseClick(Sender: TObject)； begin OpenForm(TfrmPublicBrower,frmPublicBrower,self)； frmPublicBrower.WindowState:=wsMaximized； end； procedure TfrmMain.sbtnClientBrowseClick(Sender: TObject)； begin OpenForm(TfrmCustomer,frmCustomer,self)； frmCusto