畢業(yè)設(shè)計畢業(yè)設(shè)計畢業(yè)設(shè)計畢業(yè)設(shè)計源代碼聯(lián)系本人源代碼聯(lián)系本人源代碼聯(lián)系本人源代碼聯(lián)系本人院系院系院系院系_專業(yè)專業(yè)專業(yè)專業(yè)_班級班級班級班級_姓名姓名姓名姓名_日期日期日期日期年年年年月月月月日日日日中文摘要中文摘要中文摘要中文摘要辦公管理系統(tǒng)為辦公室管理人工作員提供可靠的的信息和快捷的查詢手段，其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。利用DELPHI60軟件及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性強、安全性好的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應(yīng)用程序。經(jīng)過調(diào)試、編譯與實現(xiàn)，該程序界面友好、程序設(shè)計風(fēng)格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“信息設(shè)置模塊”的功能極大的減輕工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點取代人工操作，提高了辦公人員管理工作效率。關(guān)鍵詞關(guān)鍵詞關(guān)鍵詞關(guān)鍵詞DELPHI60信息管理系統(tǒng)信息管理系統(tǒng)信息管理系統(tǒng)信息管理系統(tǒng)數(shù)據(jù)庫數(shù)據(jù)庫數(shù)據(jù)庫數(shù)據(jù)庫模模模模塊塊塊塊辦公管理系統(tǒng)辦公管理系統(tǒng)辦公管理系統(tǒng)辦公管理系統(tǒng)OFFICEMANAGEMENTSYSTEMSFOROFFICEMANAGERSWORKERSPROVIDEQUICKANDRELIABLEINFORMATIONMEANSENQUIRIES,THEDEVELOPMENTMAINLYTOTHEESTABLISHMENTANDMAINTENANCEOFDATABASESINCLUDINGBACKGROUNDAPPLICATIONSANDFRONTENDDEVELOPMENTOFTHETWODELPHI60ANDTHEUSEOFOBJECTORIENTEDSOFTWAREDEVELOPMENTTOOLS,THEESTABLISHMENTOFSTRONGINTEGRITY,GOODSAFETYDATABASEDEVELOPEDFUNCTIONS,EASYTOUSEAPPLICATIONSAFTERDEBUGGING,TRANSLATIONANDTHEREALIZATIONTHATTHEPROCESSFRIENDLYINTERFACE,SIMPLEPROGRAMMINGSTYLE,USINGUPAESTHETICGENEROUS,CONVENIENTUSERFRIENDLYINPARTICULARSYSTEM“INSTALLEDMODULEINFORMATION“GREATLYREDUCETHEFUNCTIONOFTHEWORKLOADOFSTAFF,ANDRAPID,ACCURATEANDADVANTAGESREPLACEMANUALLYOPERATED,ANDENHANCEDTHEEFFICIENCYOFPERSONNELMANAGEMENTOFFICEKEYWORDDELPHI60MODULAROFFICEINFORMATIONMANAGEMENTSYSTEMDATABASEMANAGEMENTSYSTEM引引引引言言言言11DELPHI語言概述語言概述語言概述語言概述211DELPHI簡介簡介簡介簡介212數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)簡介213本應(yīng)用軟件的基本介紹本應(yīng)用軟件的基本介紹本應(yīng)用軟件的基本介紹本應(yīng)用軟件的基本介紹32本應(yīng)用程序的構(gòu)成和開發(fā)步驟本應(yīng)用程序的構(gòu)成和開發(fā)步驟本應(yīng)用程序的構(gòu)成和開發(fā)步驟本應(yīng)用程序的構(gòu)成和開發(fā)步驟421可行性研究可行性研究可行性研究可行性研究4211經(jīng)濟可行性經(jīng)濟可行性經(jīng)濟可行性經(jīng)濟可行性4212時間可行性時間可行性時間可行性時間可行性4213技術(shù)可行性技術(shù)可行性技術(shù)可行性技術(shù)可行性4214社會可行性社會可行性社會可行性社會可行性522數(shù)據(jù)庫的建立和連接數(shù)據(jù)庫的建立和連接數(shù)據(jù)庫的建立和連接數(shù)據(jù)庫的建立和連接523系統(tǒng)的總體設(shè)計系統(tǒng)的總體設(shè)計系統(tǒng)的總體設(shè)計系統(tǒng)的總體設(shè)計524系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計73本程序的技術(shù)實現(xiàn)及具體功能本程序的技術(shù)實現(xiàn)及具體功能本程序的技術(shù)實現(xiàn)及具體功能本程序的技術(shù)實現(xiàn)及具體功能1331登錄的界面與程序設(shè)計實現(xiàn)登錄的界面與程序設(shè)計實現(xiàn)登錄的界面與程序設(shè)計實現(xiàn)登錄的界面與程序設(shè)計實現(xiàn)1332部門管理界面與代碼設(shè)計實現(xiàn)及功能部門管理界面與代碼設(shè)計實現(xiàn)及功能部門管理界面與代碼設(shè)計實現(xiàn)及功能部門管理界面與代碼設(shè)計實現(xiàn)及功能1333文件批量處理界面與代碼設(shè)計實現(xiàn)文件批量處理界面與代碼設(shè)計實現(xiàn)文件批量處理界面與代碼設(shè)計實現(xiàn)文件批量處理界面與代碼設(shè)計實現(xiàn)14,34郵編區(qū)號管理界面與代碼設(shè)計郵編區(qū)號管理界面與代碼設(shè)計郵編區(qū)號管理界面與代碼設(shè)計郵編區(qū)號管理界面與代碼設(shè)計1535主界面設(shè)計與代碼設(shè)計主界面設(shè)計與代碼設(shè)計主界面設(shè)計與代碼設(shè)計主界面設(shè)計與代碼設(shè)計16結(jié)結(jié)結(jié)結(jié)論論論論21致致致致謝謝謝謝22參參參參考考考考文文文文獻獻獻獻23引引引引言言言言隨著經(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)才能勝任?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設(shè)計訓(xùn)練，使用DELPHI編程語言也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。DELPHI編程語言繼承了其他語言易學(xué)易用的特點，特別適合于初學(xué)者學(xué)習(xí)WINDOWS系統(tǒng)編程。辦公管理系統(tǒng)用計算機管理辦公室日常業(yè)務(wù)工作的一種計算機應(yīng)用技術(shù)的創(chuàng)新,在計算機還未普及之前辦公管理工作中的職員管理,辦公通訊錄,郵編區(qū)號,文件批量修改,陰陽歷轉(zhuǎn)換,身份證查詢等都是由工作人員人工處理,調(diào)閱的方式來操作的現(xiàn)在一般的光盤租賃辦公室都具有計算機等硬件設(shè)備,完全有條件采用計算機的辦公管理系統(tǒng),采用計算機作為工具的實用的計算機智能化管理程序來幫助前臺管理員進行更有效的辦公事物管理工作。辦公管理系統(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í)中進一步改進。11DELPHI簡介簡介簡介簡介11DELPHI簡介簡介簡介簡介DELPHI是INPRISE公司出品的一個優(yōu)秀的可視化程序開發(fā)工具軟件，它短小精悍，但功能卻可以與龐大的VISUALC媲美。它易學(xué)易用，如同VB，因而被稱為“第四代編程語言”。從1995年推出DELPHI10至今已經(jīng)經(jīng)歷了7個版本，DELPHI70運行在WIN9X或WINME，WIN2000，WINXP，WINDOWSNT等操作系統(tǒng)下，是一個32位的應(yīng)用程序開發(fā)工具。這里把“VB”比作是傻瓜相機，DELPHI是帶有自動功能的專業(yè)相機。前些年，軟件界流行一句話叫“真正的程序員用VC，聰明的程序員用DELPHI”。也有的把DELPHI稱作VB殺手。12數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)簡介數(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ù)庫管理系統(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ù)據(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è)、進入家庭。13本應(yīng)用軟件的基本介紹本應(yīng)用軟件的基本介紹本應(yīng)用軟件的基本介紹本應(yīng)用軟件的基本介紹本應(yīng)用軟件先是打開一個啟動窗口，就可以進入應(yīng)用程序的主窗口了。主界面是一個圖型界面窗口，整個平臺顯示采用人性化方式，可以非常方便的辦公管理、信息設(shè)置、外部工具等數(shù)據(jù)分析,數(shù)據(jù)查詢等基本信息，管理日常辦公的基本情況，通過各種條件查詢出工作人員所需要的基本信息，以及打印出查詢出的基本信息，總之一切辦公基本信息都會顯示在系統(tǒng)平臺上，大大提高了管理人員的工作效率。2本應(yīng)用程序的構(gòu)成和開發(fā)步驟本應(yīng)用程序的構(gòu)成和開發(fā)步驟本應(yīng)用程序的構(gòu)成和開發(fā)步驟本應(yīng)用程序的構(gòu)成和開發(fā)步驟下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。DELPHI應(yīng)用程序一般包含以下三個基本部分應(yīng)用程序運行的接口負責(zé)系統(tǒng)整體環(huán)境的設(shè)置，運行狀態(tài)的監(jiān)視，應(yīng)用程序的啟動等。應(yīng)用程序的主體主要完成用戶的業(yè)務(wù)邏輯功能，如辦公管理,信息管理,外部工具等信息應(yīng)用程序的輔助部分協(xié)助程序主體完成的一些工作。下面從軟件工程的角度描述本程序的開發(fā)生命周期，開發(fā)過程和組織過程。21可行性研究可行性研究可行性研究可行性研究任何一個系統(tǒng)或一項工程，在建立之前，必須首選進行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性?？赡苄灾搁_發(fā)信息系統(tǒng)的條件是否具備，必要性是指客觀上是否真正需要，通過可行性研究，可避免盲目投資，減少政治性要的損失。下面從四方面來討論211經(jīng)濟可行性主要是只指算一個新的系統(tǒng)開發(fā)所需要的投資費用和運算費用，并與估計的新系統(tǒng)收益進行比較，看是否有利。本系統(tǒng)所需的軟硬件成本比較低，投資小，具有一定的通過性，因此，在經(jīng)濟上是可行的。212時間可行性主要包括系統(tǒng)在目前環(huán)境下能否正常運行，運行后所引起的各方面，以及這些變化對社會或人的因素所產(chǎn)生的影響。本系統(tǒng)對人事的管理比較全面，可長期使用。213技術(shù)可行性利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目標(biāo)能否達到，這也是可行性研究中需要考慮的一個問題。關(guān)系型數(shù)據(jù)庫的高速發(fā)展使管理信息系統(tǒng)具備了良好的開發(fā)環(huán)境。本系統(tǒng)使用的DELPHI普及性好，操作簡單，用戶可以很快掌握使用方法，因此，在技術(shù)上是完全可行的。214社會可行性人類社會文明的發(fā)展已進入信息化的高速發(fā)展時期，傳統(tǒng)的手工方式支持下的管理模式，已經(jīng)不能滿足各方面的需要。開發(fā)本系統(tǒng)的目標(biāo)不僅是提高工作效率，減輕勞動強度，而且減少出錯率，具有很好的社會意義。22數(shù)據(jù)庫的建立和連接數(shù)據(jù)庫的建立和連接數(shù)據(jù)庫的建立和連接數(shù)據(jù)庫的建立和連接這個程序采用的數(shù)據(jù)庫是MICROSOFTACCESS2000，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ù)庫的建立則時在ACCESS2000中建立的，在這里你可以設(shè)置數(shù)據(jù)庫的密碼，對數(shù)據(jù)庫進行保護。在創(chuàng)建數(shù)據(jù)源時可以通過BDEADMINISTRATOR進行創(chuàng)建，也可以通過系統(tǒng)控制面板中的ODBC數(shù)據(jù)源進行建立。而描述文件則可以在DELPHI的主程序中用DATABASEPROFILE中進行建立，之后進行數(shù)據(jù)庫的連接。接下來的工作是建表。同樣建表的過程也不是唯一的，但是最終實現(xiàn)的結(jié)果是唯一的。你可以通過ACCESS進行建表，也可以通過在VISUALBASIC主程序中建表，也可以通過POWERDESIGNER進行可視化的建立，不過用這種方法，在導(dǎo)入的時候要把數(shù)據(jù)庫要先斷開，否則數(shù)據(jù)庫的數(shù)據(jù)容易丟失。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。同時也要注意表的字段長度和可否為空。因為以后要設(shè)計到主鍵，外鍵的問題。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上?？梢娊ū頃r應(yīng)做好全局的打算。我在程序開發(fā)的初期，同樣犯了這個錯誤，導(dǎo)致數(shù)據(jù)庫出錯，有時還要向表中新加入字段。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。23系統(tǒng)的總體設(shè)計系統(tǒng)的總體設(shè)計系統(tǒng)的總體設(shè)計系統(tǒng)的總體設(shè)計這個管理系統(tǒng)從4月1日開始著手設(shè)計開發(fā),經(jīng)過一段時間的分析，并根據(jù)對辦公室日常工作流程的具體要求及需要本軟件實現(xiàn)的功能，將本軟件分為5個大的模塊，分別是第一部分辦公管理；第二部分信息設(shè)置；第三部分外部工具；第四部分幫助其他。程序流程圖如下24系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計系統(tǒng)的詳細設(shè)計進入ACCESS后要做的第一件事就是建立一個數(shù)據(jù)庫。ACCESS提供了6種用構(gòu)造數(shù)據(jù)庫系統(tǒng)的對象，根據(jù)本課題的需要，在這里選擇一個空的數(shù)據(jù)庫，命名建立了一個數(shù)據(jù)庫名稱為“BM”，辦公管理系統(tǒng)。并在此數(shù)據(jù)庫下創(chuàng)建了八個表，用于存放原始數(shù)據(jù)。它只是存放數(shù)據(jù)，對其中數(shù)據(jù)的修改要通過對應(yīng)的窗體來完成。創(chuàng)建各表的具體結(jié)構(gòu)如下1職員表系統(tǒng)登陸主界面辦公管理信息設(shè)置外部工具幫助關(guān)于2部門表部門表部門表部門表3打印設(shè)置表打印設(shè)置表打印設(shè)置表打印設(shè)置表4打印紙信息表打印紙信息表打印紙信息表打印紙信息表5身份證信息表身份證信息表身份證信息表身份證信息表6通訊錄信息表通訊錄信息表通訊錄信息表通訊錄信息表7郵編電話表郵編電話表郵編電話表郵編電話表8用戶權(quán)限表用戶權(quán)限表用戶權(quán)限表用戶權(quán)限表3本程序的技術(shù)實現(xiàn)及具體功能本程序的技術(shù)實現(xiàn)及具體功能本程序的技術(shù)實現(xiàn)及具體功能本程序的技術(shù)實現(xiàn)及具體功能31登錄的界面與程序設(shè)計實現(xiàn)登錄的界面與程序設(shè)計實現(xiàn)登錄的界面與程序設(shè)計實現(xiàn)登錄的界面與程序設(shè)計實現(xiàn)代碼設(shè)置代碼設(shè)置代碼設(shè)置代碼設(shè)置UNITBM_LOGINUINTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,BUTTONS,STDCTRLS,JPEG,EXTCTRLSTYPETBM_LOGINFCLASSTFORMPANEL1TPANELLABEL1TLABELLABEL2TLABELLABEL3TLABELIMAGE1TIMAGEEDTPASSWORDTEDITEDTALIASNAMETEDITPANEL2TPANELBTNOKTSPEEDBUTTONBTNCANCELTSPEEDBUTTONPROCEDUREBTNOKCLICKSENDERTOBJECTPROCEDUREEDTALIASNAMEKEYDOWNSENDERTOBJECTVARKEYWORDSHIFTTSHIFTSTATEPROCEDUREEDTPASSWORDKEYDOWNSENDERTOBJECTVARKEYWORDSHIFTTSHIFTSTATEPROCEDUREBTNCANCELCLICKSENDERTOBJECTPROCEDUREFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANPRIVATEPRIVATEDECLARATIONSPUBLICPUBLICDECLARATIONSENDVARBM_LOGINFTBM_LOGINFLOGINEDBOOLEANFALSEFUNCTIONLOGINEXECUTEAFORMCLASSTFORMCLASSBOOLEAN/打開登錄窗口，并判斷是否登錄成功IMPLEMENTATIONUSESBM_DMU,BM_OFICEURDFMFUNCTIONLOGINEXECUTEAFORMCLASSTFORMCLASSBOOLEANBEGINWITHAFORMCLASSCREATEAPPLICATIONDOBEGINLOGINEDFALSETRYSHOWMODALFINALLYFREEENDRESULTLOGINEDENDENDPROCEDURETBM_LOGINFBTNOKCLICKSENDERTOBJECTVARVLOGINEDVARIANTSQL2,BUMENSTRINGBEGINWITHDMUSERDOBEGINCLOSESQLCLEARSQL2SELECTA,B部門編碼,B部門名稱FROM用戶權(quán)限A,部門BWHEREA用戶名稱“SQL2SQL2EDTALIASNAMETEXT“ANDA密碼“EDTPASSWORDTEXT“SQL2SQL2ANDA部門B部門編碼SQLADDSQL2OPENIFRECORDCOUNT0THENVLOGINEDTRUEELSEVLOGINEDFALSEENDIFVLOGINEDFALSETHENBEGINAPPLICATIONMESSAGEBOX用戶名和密碼不正確，請重新輸入,提示信息,MB_ICONINFORMATIONMB_DEFBUTTON1EXITENDELSEBEGINBM_OFFICEFSTATUSBAR1PANELS0TEXT系統(tǒng)提示BM_OFFICEFSTATUSBAR1PANELS1TEXT北明公司DMUSERFIELDS6ASSTRING操作員DMUSERFIELDS4ASSTRINGBM_OFFICEFSTATUSBAR1PANELS2TEXT登陸時間FORMATDATETIMEYYYY“年“MMMMDD“日“TT,NOWENDLOGINEDTRUECLOSEENDPROCEDURETBM_LOGINFEDTALIASNAMEKEYDOWNSENDERTOBJECTVARKEYWORDSHIFTTSHIFTSTATEBEGINIFKEY13THENEDTPASSWORDSETFOCUSENDPROCEDURETBM_LOGINFEDTPASSWORDKEYDOWNSENDERTOBJECTVARKEYWORDSHIFTTSHIFTSTATEBEGINIFKEY13THENBTNOKCLICKENDPROCEDURETBM_LOGINFBTNCANCELCLICKSENDERTOBJECTBEGINIFAPPLICATIONMESSAGEBOX請確認是否退出本系統(tǒng),提示信息,MB_ICONINFORMATIONMB_YESNOID_YESTHENAPPLICATIONTERMINATEENDPROCEDURETBM_LOGINFFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGIN/CANCLOSEFALSE/IFAPPLICATIONMESSAGEBOX請確認是否退出本系統(tǒng),提示信息,MB_ICONINFORMATIONMB_YESNOID_YESTHEN/CANCLOSETRUE/APPLICATIONTERMINATEENDEND32部門管理界面與代碼設(shè)計實現(xiàn)及功能部門管理界面與代碼設(shè)計實現(xiàn)及功能部門管理界面與代碼設(shè)計實現(xiàn)及功能部門管理界面與代碼設(shè)計實現(xiàn)及功能代碼設(shè)計代碼設(shè)計代碼設(shè)計代碼設(shè)計UNITBM_BUMENUINTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,EXTCTRLS,COMCTRLS,GRIDS,DBGRIDS,STDCTRLS,MASK,DBCTRLS,MENUS,IMGLIST,DB,DBTABLES,BUTTONSTYPETBM_BENMENFCLASSTFORMSPLITTER1TSPLITTERPMOPERATETPOPUPMENUN_INSERTTMENUITEMN_DELETETMENUITEMN_EDITTMENUITEMN_CANCELTMENUITEMN_SAVETMENUITEMN7TMENUITEMN_REFRESHTMENUITEMIMAGELIST2TIMAGELISTIMAGELIST1TIMAGELISTPMOTHERTPOPUPMENUN_ORDERTMENUITEMN_PRINTTMENUITEMPANEL1TPANELTREEVIEWTTREEVIEWPANEL4TPANELPAGECONTROL1TPAGECONTROLTABSHEET1TTABSHEETPANEL3TPANELLABEL3TLABELLABEL1TLABELLABEL2TLABELLABEL4TLABELLABEL5TLABELLABEL6TLABELLABEL7TLABELLABEL8TLABELDBEDT_BMBMTDBEDITDBEDT_BMMCTDBEDITDBEDT_FZRXMTDBEDITDBEDT_BMSXTDBEDITDBEDT_LXDHTDBEDITDBEDT_DZTDBEDITDBEDT_BZTDBEDITTABSHEET2TTABSHEETDBGRIDTDBGRIDPANEL2TPANELDBNAVIGATOR1TDBNAVIGATORADDTSPEEDBUTTONDEL2TSPEEDBUTTONSAVETSPEEDBUTTONFRESHTSPEEDBUTTONCLOSETSPEEDBUTTONEDITTSPEEDBUTTONHUI1TSPEEDBUTTONPROCEDUREFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONPROCEDUREFORMCREATESENDERTOBJECTPROCEDUREN_INSERTCLICKSENDERTOBJECTPROCEDURETREEVIEWCLICKSENDERTOBJECTPROCEDUREFORMSHOWSENDERTOBJECTPROCEDUREN_DELETECLICKSENDERTOBJECTPROCEDUREN_EDITCLICKSENDERTOBJECTPROCEDUREN_CANCELCLICKSENDERTOBJECTPROCEDUREN_SAVECLICKSENDERTOBJECTPROCEDUREN_REFRESHCLICKSENDERTOBJECTPROCEDUREFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANPROCEDUREADDCLICKSENDERTOBJECTPROCEDUREDEL2CLICKSENDERTOBJECTPROCEDUREEDITCLICKSENDERTOBJECTPROCEDURESAVECLICKSENDERTOBJECTPROCEDUREHUI1CLICKSENDERTOBJECTPROCEDUREFRESHCLICKSENDERTOBJECTPRIVATEPRIVATEDECLARATIONSNODE_PARENTTTREENODE/存儲父節(jié)點NODE_CHILDTTREENODE/存儲當(dāng)前節(jié)點B_PDBOOL/用于判斷點擊的是添加還是編輯/在添加、編輯和瀏覽狀態(tài)互置按鈕的有效性PROCEDUREBUTTON_VALIDPROCEDUREREFRESHTREEPUBLICPUBLICDECLARATIONSENDVARBM_BENMENFTBM_BENMENFIMPLEMENTATIONUSESBM_DMURDFMPROCEDURETBM_BENMENFFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONBEGINACTIONCAFREEENDPROCEDURETBM_BENMENFREFRESHTREEVARMYNODE_1,MYNODE_2,MYNODE_3TTREENODES_BM_1,S_BM_2,S_BM_3STRINGS_MC_1,S_MC_2,S_MC_3STRINGBEGINDMBUMENACTIVETRUETREEVIEWITEMSCLEARMYNODE_1TREEVIEWITEMSADDTREEVIEWTOPITEM,北明部門檔案MYNODE_1IMAGEINDEX0MYNODE_1STATEINDEX1MYNODE_1SELECTEDINDEX1DMBUMENINDEXFIELDNAMES部門編碼DMBUMENFIRSTWHILENOTDMBUMENEOFDOBEGINS_BM_1DMBUMENFIELDBYNAME部門編碼ASSTRINGS_MC_1DMBUMENFIELDBYNAME部門名稱ASSTRINGIFLENGTHTRIMS_BM_12THENBEGINMYNODE_2TREEVIEWITEMSADDCHILDMYNODE_1,S_BM_1S_MC_1MYNODE_2IMAGEINDEX0MYNODE_2STATEINDEX1MYNODE_2SELECTEDINDEX1ENDIFLENGTHTRIMS_BM_15THENBEGINMYNODE_3TREEVIEWITEMSADDCHILDMYNODE_2,S_BM_1S_MC_1MYNODE_3IMAGEINDEX0MYNODE_3STATEINDEX1MYNODE_3SELECTEDINDEX1ENDDMBUMENNEXTENDENDPROCEDURETBM_BENMENFFORMCREATESENDERTOBJECTBEGIN/DMBUMENACTIVETRUEREFRESHTREEENDPROCEDURETBM_BENMENFN_INSERTCLICKSENDERTOBJECTVARGS_GLOBALSTRING/存儲添加的父節(jié)點標(biāo)題；BEGINB_PDTRUENODE_PARENTTREEVIEWSELECTEDIFNODE_PARENTLEVEL2THENBEGINAPPLICATIONMESSAGEBOX最底層不能添加，請在上層添加,物資管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1EXITEND/設(shè)置按扭的有效性BUTTON_VALIDIFNODE_PARENTLEVEL0THENBEGINDMBUMENINSERTDMBUMENFIELDBYNAME部門編碼EDITMASK991_PAGECONTROL1ACTIVEPAGEINDEX0DBEDT_BMBMSETFOCUSENDIFNODE_PARENTLEVEL1THENBEGINGS_GLOBALCOPYNODE_PARENTTEXT,2,2DMBUMENINSERTDMBUMENFIELDBYNAME部門編碼EDITMASK99991_PAGECONTROL1ACTIVEPAGEINDEX0DBEDT_BMBMSETFOCUSDBEDT_BMBMTEXTGS_GLOBALENDENDPROCEDURETBM_BENMENFBUTTON_VALIDBEGINDBEDT_BMBMENABLEDNOTDBEDT_BMBMENABLEDDBEDT_BMMCENABLEDNOTDBEDT_BMMCENABLEDDBEDT_FZRXMENABLEDNOTDBEDT_FZRXMENABLEDDBEDT_BMSXENABLEDNOTDBEDT_BMSXENABLEDDBEDT_LXDHENABLEDNOTDBEDT_LXDHENABLEDDBEDT_DZENABLEDNOTDBEDT_DZENABLEDDBEDT_BZENABLEDNOTDBEDT_BZENABLEDN_INSERTENABLEDNOTN_INSERTENABLEDN_DELETEENABLEDNOTN_DELETEENABLEDN_EDITENABLEDNOTN_EDITENABLEDN_CANCELENABLEDNOTN_CANCELENABLEDN_SAVEENABLEDNOTN_SAVEENABLEDN_REFRESHENABLEDNOTN_REFRESHENABLEDTREEVIEWENABLEDNOTTREEVIEWENABLEDADDENABLEDNOTADDENABLEDDEL2ENABLEDNOTDEL2ENABLEDEDITENABLEDNOTEDITENABLEDHUI1ENABLEDNOTHUI1ENABLEDSAVEENABLEDNOTSAVEENABLEDFRESHENABLEDNOTFRESHENABLEDENDPROCEDURETBM_BENMENFTREEVIEWCLICKSENDERTOBJECTVARMYNODETTREENODES_VALUE_1STRINGBEGINIFTREEVIEWITEMSCOUNT0THENEXITMYNODETREEVIEWSELECTED/如果是在目錄樹的第一級，代表是第一級部門，它的部門編碼只有兩位IFMYNODELEVEL1THENBEGIN/從目錄樹的節(jié)點標(biāo)題中，提取部門編碼S_VALUE_1COPYMYNODETEXT,2,2/DMBUMENINDEXFIELDNAMES部門編碼/DMBUMENFINDKEYS_VALUE_1DMBUMENLOCATE部門編碼,S_VALUE_1,DMBUMENFIELDBYNAME部門編碼EDITMASK991_ENDIFMYNODELEVEL2THENBEGIN/從目錄樹的節(jié)點標(biāo)題中，提取部門編碼S_VALUE_1COPYMYNODETEXT,2,5DMBUMENLOCATE部門編碼,S_VALUE_1,DMBUMENFIELDBYNAME部門編碼EDITMASK999991_ENDENDPROCEDURETBM_BENMENFFORMSHOWSENDERTOBJECTBEGINWITHDMDOBEGINBUMENACTIVETRUEZHIGONGACTIVETRUEENDREFRESHTREETREEVIEWTOPITEMSELECTEDTRUEENDPROCEDURETBM_BENMENFN_DELETECLICKSENDERTOBJECTVARMYNODETTREENODEIINTEGERBMSTRINGBEGINMYNODETREEVIEWSELECTED/根目錄不須刪除IFMYNODELEVEL0THENEXIT/如果刪除的是第二級目錄IFMYNODELEVEL2THENBEGINIFDMBUMENRECORDCOUNT0THENBEGINIFAPPLICATIONMESSAGEBOX請確認是否要刪除,北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_YESNOIDYESTHENBEGINDMBUMENDELETEDMBUMENUPDATEBATCHTREEVIEWITEMSDELETEMYNODEENDENDELSEBEGINAPPLICATIONMESSAGEBOX已無記錄可刪除,北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1EXITENDEXITEND/如果刪除是第一級目錄，還得刪除第二級目錄IFMYNODELEVEL1THENBEGIN/DMBUMENCLOSEWITHDMQALLDOBEGINCLOSESQLCLEARSQLADDSELECTFROM部門WHERE部門編碼LIKE“COPYMYNODETEXT,2,2“OPENFIRSTIFAPPLICATIONMESSAGEBOX請確認是否要刪除及包括的子目錄,北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_YESNOIDYESTHENBEGINFORI0TORECORDCOUNT1DOBEGINBMDMQALLFIELDBYNAME部門編碼ASSTRINGWITHDMQALL3DOBEGINCLOSESQLCLEARSQLADDDELETEFROM部門WHERE部門編碼“BM“EXECSQLENDNEXTENDTREEVIEWITEMSDELETEMYNODEDMBUMENCLOSEDMBUMENOPENENDENDENDENDPROCEDURETBM_BENMENFN_EDITCLICKSENDERTOBJECTBEGINB_PDFALSENODE_CHILDTREEVIEWSELECTEDIFNODE_CHILDLEVEL0THENBEGINAPPLICATIONMESSAGEBOX最頂層不能編輯，請在下層編輯,物資管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1EXITEND/設(shè)置按扭有效性BUTTON_VALIDNODE_PARENTNODE_CHILDPARENTIFNODE_PARENTLEVEL0THENBEGINDMBUMENEDITDMBUMENFIELDBYNAME部門編碼EDITMASK991_PAGECONTROL1ACTIVEPAGEINDEX0/DBEDT_BMBMSETFOCUSENDIFNODE_PARENTLEVEL1THENBEGINDMBUMENEDITDMBUMENFIELDBYNAME部門編碼EDITMASK99991_PAGECONTROL1ACTIVEPAGEINDEX0/DBEDT_BMBMSETFOCUSENDENDPROCEDURETBM_BENMENFN_CANCELCLICKSENDERTOBJECTBEGINDMBUMENCANCELBUTTON_VALIDENDPROCEDURETBM_BENMENFN_SAVECLICKSENDERTOBJECTVARS_BM,S_MCSTRINGBEGINIFNODE_PARENTLEVEL0THENBEGINIFLENGTHTRIMDBEDT_BMBMTEXT2THENBEGINAPPLICATIONMESSAGEBOX編碼應(yīng)為兩位,北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1EXITENDENDIFNODE_PARENTLEVEL1THENBEGINIFCOPYDBEDT_BMBMTEXT,1,2COPYNODE_PARENTTEXT,2,2THENBEGINAPPLICATIONMESSAGEBOX前面兩位不能變，請確認,北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1DBEDT_BMBMTEXTCOPYNODE_PARENTTEXT,2,2EXITENDIFLENGTHTRIMDBEDT_BMBMTEXT5THENBEGINAPPLICATIONMESSAGEBOX編碼應(yīng)為五位,北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1EXITENDENDS_BMDBEDT_BMBMTEXTS_MCDBEDT_BMMCTEXTDMZHIGONGOPENDMZHIGONGREFRESHIFDMBUMENSTATEDSINSERTTHENBEGINIFDMZHIGONGLOCATE部門編碼,S_BM,THENBEGINAPPLICATIONMESSAGEBOX部門編碼已重復(fù),北明辦公管理系統(tǒng),MB_ICONINFORMATIONMB_DEFBUTTON1PAGECONTROL1ACTIVEPAGEINDEX0DBEDT_BMBMSETFOCUSEXITENDEND/判斷是添加數(shù)據(jù)的保存還是編輯數(shù)據(jù)保存IFB_PDTRUETHENTREEVIEWITEMSADDCHILDNODE_PARENT,S_BMS_MCELSENODE_CHILDTEXTS_BMS_MCDMBUMENPOST/DMCDS_BMDAAPPLYUPDATES0DMBUMENUPDATEBATCHDMBUMENREFRESH/設(shè)置按扭的有效性BUTTON_VALIDENDPROCEDURETBM_BENMENFN_REFRESHCLICKSENDERTOBJECTBEGINREFRESHTREETREEVIEWTOPITEMSELECTEDTRUEENDPROCEDURETBM_BENMENFFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGINCANCLOSETRUEENDPROCEDURETBM_BENMENFADDCLICKSENDERTOBJECTBEGINN_INSERTCLICKSENDERENDPROCEDURETBM_BENMENFDEL2CLICKSENDERTOBJECTBEGINN_DELETECLICKSENDERENDPROCEDURETBM_BENMENFEDITCLICKSENDERTOBJECTBEGINN_EDITCLICKSENDERENDPROCEDURETBM_BENMENFSAVECLICKSENDERTOBJECTBEGINN_SAVECLICKSENDERENDPROCEDURETBM_BENMENFHUI1CLICKSENDERTOBJECTBEGINN_CANCELCLICKSENDERENDPROCEDURETBM_BENMENFFRESHCLICKSENDERTOBJECTBEGINN_REFRESHCLICKSENDERENDEND33文件批量處理界面與代碼設(shè)計實現(xiàn)文件批量處理界面與代碼設(shè)計實現(xiàn)文件批量處理界面與代碼設(shè)計實現(xiàn)文件批量處理界面與代碼設(shè)計實現(xiàn)代碼設(shè)計UNITBM_CHANGEFILEUINTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,BUTTONS,GRIDS,STDCTRLS,COMCTRLS,MATH,EXTCTRLSTYPETBM_CHANGEFILEFCLASSTFORMPANEL1TPANELGROUPBOX1TGROUPBOXLABEL4TLABELCHECKBOX1TCHECKBOXMEMO1TMEMORNLIST1TSTRINGGRIDOPENDIALOG1TOPENDIALOGSPEEDBUTTON1TSPEEDBUTTONSPEEDBUTTON2TSPEEDBUTTONSPEEDBUTTON3TSPEEDBUTTONSPEEDBUTTON4TSPEEDBUTTONCOMBOBOX1TCOMBOBOXLABEL2TLABELPANEL2TPANELRADIOB1TRADIOBUTTONRADIOB2TRADIOBUTTONPANEL3TPANELLEDIT1TLABELEDEDITUPDOWN1TUPDOWNLABEL3TLABELCOMBOBOX2TCOMBOBOXCHECKBOX2TCHECKBOXCOMBOBOX3TCOMBOBOXEDIT1TEDITSPEEDBUTTON5TSPEEDBUTTONEDIT2TEDITLISTBOX1TLISTBOXSPEEDBUTTON6TSPEEDBUTTONPROCEDURESPEEDBUTTON1CLICKSENDERTOBJECTPROCEDURESPEEDBUTTON2CLICKSENDERTOBJECTPROCEDURESPEEDBUTTON3CLICKSENDERTOBJECTPROCEDURESPEEDBUTTON4CLICKSENDERTOBJECTPROCEDURECHECKBOX1CLICKSENDERTOBJECTPROCEDURERADIOB1CLICKSENDERTOBJECTPROCEDURERADIOB2CLICKSENDERTOBJECTPROCEDUREUPDOWN1CHANGINGEXSENDERTOBJECTVARALLOWCHANGEBOOLEANNEWVALUESMALLINTDIRECTIONTUPDOWNDIRECTIONPROCEDURECHECKBOX2CLICKSENDERTOBJECTPROCEDUREFORMCREATESENDERTOBJECTPROCEDURESPEEDBUTTON5CLICKSENDERTOBJECTPROCEDURESPEEDBUTTON6CLICKSENDERTOBJECTPROCEDUREFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANPROCEDUREFORMCLOSESENDERTOBJECTVARACTIONTCLOSEACTIONPRIVATEPRIVATEDECLARATIONSPROCEDURESEARCHFILEPATHSTRINGPUBLICPUBLICDECLARATIONSENDVARBM_CHANGEFILEFTBM_CHANGEFILEFTOTANUMINTEGERII,TMPLENINTEGERTMPTSTRTSTRINGSIMPLEMENTATIONRDFMFUNCTIONGETFFNAMEFFNAMESTRINGSTRINGBEGIN/只取文件名,不取擴展名RESULTCOPYFFNAME,1,LASTDELIMITER,FFNAME1END