家政服務信息管理系統(tǒng)

基于VB的家政服務信息管理系統(tǒng)摘要家政服務管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數據庫的建立和維護以及前端應用程序的開發(fā)兩個方面.對于前者要求建立數據一致性和完整性強,數據安全性好的數據庫.而對于后者則要求應用程序功能完備,易使用等特點。隨著計算機技術的高速發(fā)展，人們對計算機的依賴性越來越強，特別是用計算機開發(fā)的數據庫以及數據管理系統(tǒng)在生活應用中表現得更為突出，為此開發(fā)此系統(tǒng)。通過使用家政服務管理系統(tǒng)，使家政服務店的管理工作系統(tǒng)化、規(guī)范化、自動化、簡易化、智能化，從而達到提高家政服務管理效率的目的。系統(tǒng)開發(fā)采用Microsoft公司的VisualFoxpro6.0，利用其強大的可視化界面功能及對數據庫的支持，先構造一個原型，逐步增加功能，最終滿足需求。關鍵詞：家政服務VB管理系統(tǒng)目錄1緒論………………52系統(tǒng)分析…………72.1開發(fā)背景…………72.2MIS概述…………72.21MIS的概念及解釋…………72.22MIS的結構特征……………82.23MIS的開發(fā)…………………92.3系統(tǒng)功能設計…………………112.4數據庫設計……………………122.41SQL2000數據庫簡介……………………122.42創(chuàng)建數據庫………………122.5開發(fā)平臺……………………172.51系統(tǒng)的實現平臺…………172.52開發(fā)工具的選擇…………172.53VB概述……………………173系統(tǒng)實現…………213.1登陸界面………………………213.2首頁頁面介紹…………………223.3菜單功能說明…………………233.3.1基本信息管理……………233.3.2客戶信息管理……………233.3.3客戶信息查詢……………3.3.4系統(tǒng)設置…………………293.3.5數據管理…………………334結論……………36致謝……………37參考文獻………………………381緒論

當今企事業(yè)單位面對電子商務大潮和日益激烈的市場競爭環(huán)境，要想獲得持久的市場競爭力，就必須發(fā)展電子商務，企事業(yè)單位迫切希望通過進一步強化企事業(yè)單位信息基礎建設，實現企事業(yè)單位經營管理效率的有效提高。無論是電子商務還是知識經濟，對企事業(yè)單位的競爭實力都提出了越來越高的要求。作為提高企事業(yè)單位機構辦公管理效率的基礎平臺，近年來，家政服務信息系統(tǒng)得到廣大企事業(yè)單位機構的高度重視，紛紛構建起適合于自身應用特色的家政服務信息系統(tǒng)（OA），通過家政服務信息系統(tǒng)的成功推廣，逐步提高中小企事業(yè)單位的工作效率，提升管理質量，更好地向國際接軌。據此我們定制了本套智能化信息管理系統(tǒng)上家政服務信息系統(tǒng)。管理信息系統(tǒng)（ManagementInformationSystems簡稱MIS）在現代社會已深入到各行各業(yè)，由于計算機技術的迅速發(fā)展和普及，MIS事實上已成為計算機MIS。目前，由于開發(fā)高質量MIS的能力大大落后計算機硬件日新月異的進展，加上社會對MIS發(fā)展和完善需求的增加以及對MIS開發(fā)過程中出現的錯誤認識和行為而導致MIS開發(fā)的失敗,這些情況已嚴重妨礙了計算機技術的進步。因此對MIS有關的內容進行深入研究，提高工作效率，提高MIS開發(fā)成功率已變得十分重要。我國企業(yè)MIS建設隨著國民經濟信息化的進展，進入了一個新的階段。一些中大型企業(yè)搞MIS已有五到十年的經驗，不少新建企業(yè)正打算高起點地建立高水平的MIS。實際上，企業(yè)的信息系統(tǒng)集成化建設，也是國民經濟信息化的有機組成部分。國際上，信息設備不斷降價，信息技術更加成熟，一大批企業(yè)在搞信息系統(tǒng)集成或重建；研究開發(fā)機構適應這種需要投入了很大力量，致力于解決信息系統(tǒng)集成的策略、方法和工具等問題；一些大的信息服務公司紛紛成立或加快發(fā)展，正在由設備供應商變?yōu)樾畔⒓夹g和企業(yè)信息系統(tǒng)建設整體方案的咨詢服務者。這些都是我們可以借鑒、引進和運用的。實現"兩個根本轉變"為企業(yè)MIS建設帶來了新的壓力、新的動力和真正的機會。站在新一輪起飛點上的企業(yè)，要想用好新的機遇和新的環(huán)境條件搞好MIS建設，就要求業(yè)務領導和信息負責人、管理人員和開發(fā)人員進一步提高信息化的認識，轉變傳統(tǒng)的信息系統(tǒng)建設的思維，總結經驗與學習先進理論相結合，發(fā)揮自身主動性與運用技術市場相結合，明確提出企業(yè)信息化的概念和任務，搞好高層的構思和總體規(guī)劃，并把它作為"九五"企業(yè)發(fā)展規(guī)劃的重要組成部分，組織有計劃、有步驟的開發(fā)實現。系統(tǒng)分析2.1開發(fā)背景隨著我國市場經濟的快速發(fā)展和信息化水平的不斷提高，如何利用先進的管理手段，提高企業(yè)員工信息管理的水平，是當今社會所面臨的一個課題。提高企業(yè)管理水平，必須全方位地提高企業(yè)管理意識。只有高標準、高質量的管理才能滿足企業(yè)的發(fā)展需求。面對信息時代的挑戰(zhàn)，利用高科技手段來提高企業(yè)員工信息管理無疑是一條行之有效的途徑。在某種意義上，信息與科技在企業(yè)管理與現代化建設中顯現出越來越重要的地位。員工管理方面的信息化與科學化，已成為現代化生活水平步入高臺階的重要標志。2.2MIS概述2.21MIS的概念及解釋MIS是一個不斷發(fā)展的新型學科，MIS的定義隨著計算機技術和通訊技術的進步也在不斷更新，在現階段普遍認為MIS是由人和計算機設備或其他信息處理手段組成并用于管理信息的系統(tǒng)。MIS的對象就是信息。信息是經過加工的數據，信息是對決策者有價值的數據。信息的主要特征是來源分散，數量龐大。信息來源于生產第一線，來源于社會環(huán)境，來源于市場，來源于行政管理等部門。信息具有時間性。信息的加工方式有多種形式。管理過程是信息流的過程，且具有信息反饋的特征。系統(tǒng)的組成：系統(tǒng)是由相互聯系、相互作用的若干要素按一定的法則組成并具有一定功能的整體。系統(tǒng)有兩個以上要素，各要素和整體之間，整體和環(huán)境之間存在一定的有機聯系。系統(tǒng)由輸入、處理、輸出、反饋、控制五個基本要素組成。信息系統(tǒng)是輸入的數據，經過處理，輸出的是信息的系統(tǒng)。圖1MIS系統(tǒng)平臺管理信息的要素：管理信息由信息的采集、信息的傳遞、信息的儲存、信息的加工、信息的維護和信息的使用五個方面組成。任何地方只要有管理就必然有信息，如果形成系統(tǒng)就形成MIS。計算機設備使MIS更有效，尤其是現代社會，MIS已和計算機設備不可分離，因此一般來說MIS就是計算機MIS。MIS包括計算機、網絡通訊設備等硬件成份，包括操作系統(tǒng)、應用軟件包等軟件成份。并隨著計算機技術和通訊技術的迅速發(fā)展還會出現更多的內容。計算機設備并不是MIS的必要條件。2.22MIS的結構特征MIS的結構：MIS由信源、信宿、信息處理、信息用戶和信息管理者五個組成部分。MIS的特性：完善的MIS具有以下四個標準：確定的信息需求、信息的可采集與可加工、可以通過程序為管理人員提供信息、可以對信息進行管理。具有統(tǒng)一規(guī)劃的數據庫是MIS成熟的重要標志，它象征著MIS是軟件工程的產物。通過MIS實現信息增值，用數學模型統(tǒng)計分析數據，實現輔助決策。MIS是發(fā)展變化的，MIS有生命周期。MIS的開發(fā)必須具有一定的科學管理工作基礎。只有在合理的管理體制、完善的規(guī)章制度、穩(wěn)定的生產秩序、科學的管理方法和準確的原始數據的基礎上，才能進行MIS的開發(fā)。因此，為適應MIS的開發(fā)需求，企業(yè)管理工作必須逐步完善以下工作：管理工作的程序化，各部門都有相應的作業(yè)流程。管理業(yè)務的標準化，各部門都有相應的作業(yè)規(guī)范。報表文件的統(tǒng)一化，固定的內容、周期、格式。數據資料的完善化和代碼化。MIS是一個交叉性綜合性學科，組成部分有：計算機學科（網絡通訊、數據庫、計算機語言等）、數學（統(tǒng)計學、運籌學、線性規(guī)劃等）、管理學、仿真等多學科。隨著科學技術的高速發(fā)展，MIS涉及的范圍還要擴大。MIS按組織職能可以劃分為辦公系統(tǒng)、決策系統(tǒng)、生產系統(tǒng)和信息系統(tǒng)。MIS基于信息處理層次進行劃分為面向數量的執(zhí)行系統(tǒng)、面向價值的核算系統(tǒng)、報告監(jiān)控系統(tǒng)，分析信息系統(tǒng)、規(guī)劃決策系統(tǒng)，自底向上形成信息金字塔。第一代MIS是由手工操作，使用工具是文件柜、筆記本等。第二代MIS增加了機械輔助辦公設備，如打字機、收款機、自動記賬機等。第三代MIS使用計算機、電傳、電話、打印機等電子設備。隨著電信技術和計算機技術的飛速發(fā)展，現代MIS從地域上劃分已逐漸由局域范圍走向廣域范圍。MIS可以劃分為橫向綜合結構和縱向綜合結構，橫向綜合結構指同一管理層次各種職能部門的綜合，如勞資、人事部門?？v向綜合結構指具有某種職能的各管理層的業(yè)務組織在一起，如上下級的對口部門。2.23MIS的開發(fā)創(chuàng)新原則，體現先進性。計算機技術的發(fā)展十分迅速，要及時了解新技術，使用新技術，使目標系統(tǒng)較原系統(tǒng)有質的飛躍。整體原則，體現完整性。企業(yè)管理可以理解為一個合理的‘閉環(huán)’系統(tǒng)。目標系統(tǒng)應當是這個‘閉環(huán)’系統(tǒng)的完善。企業(yè)完整的實現計算機管理不一定必須在企業(yè)的各個方面同時實現，但必須完整的設計系統(tǒng)的各個方面。不斷發(fā)展原則，體現超前性。為了提高使用率，有效的發(fā)揮MIS的作用，應當注意技術的發(fā)展和環(huán)境的變化。MIS在開發(fā)過程中應注重不斷發(fā)展和超前意識。經濟原則，體現實用性。大而全和高精尖并不是成功MIS的衡量標準。事實上許多失敗的MIS正是由于盲目追求高新技術而忽視了其實用性。盲目追求完善的MIS而忽視了本單位的技術水平、管理水平和人員素質。MIS的開發(fā)方式有自行開發(fā)、委托開發(fā)、聯合開發(fā)、購買現成軟件包進行二次開發(fā)幾種形式。一般來說根據企業(yè)的技術力量、資源及外部環(huán)境而定。MIS的開發(fā)策略不可行的開發(fā)方法：組織結構法，機械的按照現有組織機構劃分系統(tǒng)，不考慮MIS的開發(fā)原則。數據庫法，開發(fā)人員從數據庫設計開始對現有系統(tǒng)進行開發(fā)。想象系統(tǒng)發(fā)，開發(fā)人員基于對現有系統(tǒng)進行想象為基礎進行開發(fā)?？尚械拈_發(fā)方法：自上而下（Top—Down）,從企業(yè)管理的整體進行設計,逐漸從抽象到具體,從概要設計到詳細設計,體現結構化的設計思想。自下而上（Bottom—Up）,設計系統(tǒng)的構件,采用搭積木的方式組成整個系統(tǒng),缺點在于忽視系統(tǒng)部件的有機聯系。兩者結合是實際開發(fā)過程中常用的方法。通過對系統(tǒng)進行分析得到系統(tǒng)的邏輯模型,進而從邏輯模型求得最優(yōu)的物理模型。邏輯模型和物理模型的這種螺旋式循環(huán)優(yōu)化的設計模式體現了自上而下、自下而上結合的設計思想。MIS的開發(fā)方法：完整實用的文檔資料是成功MIS的標致。科學的開發(fā)過程從可行性研究開始，經過系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實施等主要階段。每一個階段都應有文檔資料，并且在開發(fā)過程中不斷完善和充實。目前使用的開發(fā)方法有以下兩種：瀑布模型（生命周期方法學）結構分析、結構設計，結構程序設計（簡稱SA—SD—SP方法）用瀑布模型來模擬。各階段的工作自頂向下從抽象到具體順序進行。瀑布模型意味著在生命周期各階段間存在著嚴格的順序且相互依存。瀑布模型是早期MIS設計的主要手段?？焖僭头ǎ嫦驅ο蠓椒ǎ┛焖僭头ㄒ卜Q為面向對象方法是近年來針對（SA—SD—SP）的缺陷提出的設計新途徑，是適應當前計算機技術的進步及對軟件需求的極大增長而出現的。是一種快速、靈活、交互式的軟件開發(fā)方法學。其核心是用交互的、快速建立起來的原型取代了形式的、僵硬的（不易修改的）大快的規(guī)格說明，用戶通過在計算機上實際運行和試用原型而向開發(fā)者提供真實的反饋意見?？焖僭头ǖ膶崿F基礎之一是可視化的第四代語言的出現。兩種方法的結合。使用面向對象方法開發(fā)MIS時，工作重點在生命周期中的分析階段。分析階段得到的各種對象模型也適用于設計階段和實現階段。實踐證明兩種方法的結合是一種切實可行的有效方法。2.3系統(tǒng)功能設計系統(tǒng)流程信息錄入信息修改信息刪除公司內部辦公信息管理系統(tǒng)主界面客戶信息管理基本信息管理系統(tǒng)登陸界面系統(tǒng)設置信息錄入信息修改信息刪除公司內部辦公信息管理系統(tǒng)主界面客戶信息管理基本信息管理系統(tǒng)登陸界面系統(tǒng)設置信息查詢系統(tǒng)編號查詢名稱查詢信息查詢系統(tǒng)編號查詢名稱查詢地址查詢操作員設置操作員設置口令設置權限設置數據備份數據恢復數據備份數據恢復注銷退出數據管理圖2系統(tǒng)流程圖2.4數據庫設計2.41SQL2000數據庫簡介數據庫管理系統(tǒng)（DBMS）是指數據庫系統(tǒng)中管理數據的軟件系統(tǒng)。DBMS是數據庫系統(tǒng)的核心組成部分。對數據庫的一切操作，包括定義、更新及各種控制,都是通過DBMS進行的。DBMS總是基于某種數據模型，可以把DBMS看成是某種數據模型在計算機系統(tǒng)上的具體實現。根據數據模型的不同，DBMS可以分成層次型、網狀型、關系型、面向對象型等。MSSQLServer2000就是一種關系型數據庫管理系統(tǒng)。關系模型。關系模型主要是用二維表格結構表達實體集，用外鍵表示實體間聯系。關系模型是由若干個關系模式組成的集合。關系模式相當于前面提到的記錄類型，它的實例稱為關系，每個關系實際上是一張二維表格。關系模型和層次、網狀模型的最大判別是用關鍵碼而不是用指針導航數據，表格簡單用戶易懂，編程時并不涉及存儲結構，訪問技術等細節(jié)。關系模型是數學化模型。SQL語言是關系數據庫的標準化語言，已得到了廣泛的應用。DBMS的特點和功能可以分為三個子系統(tǒng)：設計工具子系統(tǒng)、運行子系統(tǒng)和DBMS引擎。設計子系統(tǒng)有一個方便數據庫及其應用創(chuàng)建的工具集。它典型地包含產生表、窗體、查詢和的工具。DBMS產品還提供編程語言和對編程語言的接口。運行子系統(tǒng)處理用設計子系統(tǒng)開發(fā)的應用組件。它所包含的運行處理器用來處理窗體和數據庫的數據交互，以及回答查詢和打印等。DBMS引擎從其他兩個組件接受請求，并把它們翻譯成對操作系統(tǒng)的命令，以便讀寫物理介質上的數據。DBMS引擎還涉及事務管理、鎖、備份和恢復。2.42創(chuàng)建數據庫數據庫模式定義了數據庫的結構、表、關系、域和問題規(guī)則。數據庫模式是一種設計，數據庫和應用正是建立在此基礎上的。域是一列可能擁有的值的集合。必須為每一個表的每一列確定域。除了數據的物理格式外，還需要確定是否有些域對表來說是唯一的。數據庫模式的最后一個要素是問題規(guī)則，它是對需要反映在數據庫和數據庫應用程序中的問題活動的約束。問題規(guī)則是模式的一個重要部分，因為他們指定了無論什么數據變化到達DBMS引擎，允許的數據值必須滿足的約束。不管無效的數據變化請求是來自窗體的用戶、查詢/修改請求還是應用程序，DBMS都應該拒絕。遺憾的是，不同的DBMS產品用不同的方法實施問題規(guī)則。在某些情況下，DBMS產品不具備實施必要問題規(guī)則的能力，必須以代碼形式把它們編入應用程序。1．數據精確度由于采用數據庫技術并且用戶的應用領域對數據精確度的要求不是太高，所以這點在系統(tǒng)中表現得比較少，但是用戶數據的安全性與正確性是完全保證的，所以對用戶的使用沒有多大的障礙。2．時間特性本產品用SQLServer2000網絡數據庫技術作為程序開發(fā)的底層數據庫，采用C/S數據庫結構，對數據進行合理有效的處理，所以程序在響應時間，數據更新處理時間上性能是比較突出的3．適應性該軟件是使用SQLserver和VB在windowsxp系統(tǒng)下完成的所以只要是兼容windows的軟件或是操作系統(tǒng)，該軟件都可以正確地運行，有較好的適應能力與兼容性。而且應用戶的特殊需求軟件在完成后的維護階段可以保持一個與其他類軟件接口，隨時滿足用戶的使用要求。4．數據庫設計介紹如何設計本系統(tǒng)的數據庫，以及如何在計算機中實現。根據需求說明書，分析數據的特征，綜合考慮系統(tǒng)各個方面的功能需求，確定數據庫的概念結構，邏輯結構和物理結構。數據流程圖如下：家政服務管理人員家政服務管理系統(tǒng)家政服務管理人員家政服務管理系統(tǒng)家政服務管理人員基本信息家政服務管理人員客戶信息信息報表服務信息圖3數據流程圖（2）數據庫概念結構設計在數據庫設計中，先要對系統(tǒng)分析所得的數據字典中的數據存儲進行分析，然后得出系統(tǒng)的關系模式，可以采用實體——聯系圖（簡稱E——R圖）的方法進行數據結構的描述。E——R圖由實體、屬性、聯系三部分組成。E——R圖的有關符號說明如下：實體屬性根據數據字典的內容，得到本系統(tǒng)的實體——聯系圖如下：客戶客戶合同編號合同編號編號編號住宅電話住宅電話服務項目姓名服務項目姓名付款方式地址付款方式地址圖4實體聯系圖用戶用戶用戶名密碼用戶名密碼圖5用戶信息實體客戶客戶服務日期服務日期開始時間開始時間服務記錄

服務安排服務記錄

服務安排結束時間結束時間員工員工圖6系統(tǒng)內主要實體間聯系根據系統(tǒng)需求分析和系統(tǒng)功能模塊結構圖來看，該系統(tǒng)應具備如下基本功能：客戶信息添加、修改和刪除功能服務反饋信息添加、修改和刪除功能客戶信息的查詢功能系統(tǒng)設置功能本系統(tǒng)涉及到的信息主要有5類：客戶信息、服務信息、系統(tǒng)使用信息。按以上分析，將系統(tǒng)的數據庫設計為三個：表1客戶信息：表1客戶信息表結構:編號字段名字段類型字段寬度是否為空1客戶編號Character12No2客戶姓名Character8No3證件名稱Character12No4證件編號Character18No5客戶地址Character30No6郵政編碼Character6No7客戶電話Character12No8傳真Character15No9業(yè)務聯系人Character8No10聯系人電話Character12No表2服務信息表2服務信息表結構編號字段名字段類型字段寬度是否為空1服務項目Character30No2合同編號Character15No3生效日期Date8No4終止日期Date8No5服務地點Character30No6服務次數Character4No7記錄日期Character8No表3用戶使用信息表3用戶表結構：字段編號字段名字段類型字段寬度是否為空1操作員Character12No2密碼Character8No3基本信息管理Character12No4客戶信息管理Character18No5系統(tǒng)設置Character30No6數據維護Character6No7客戶信息查詢Character12No2.5開發(fā)平臺2.51系統(tǒng)的實現平臺計算機的硬件建議最低配置如下：CPU300MHZ內存32M硬盤8G操作系統(tǒng)win9x操作系統(tǒng)或更高2.52開發(fā)工具的選擇MicrosoftVisualBasic6.0作為前臺的開發(fā)工具，用SQL2000作為后臺支持數據庫，通過VB6.0的數據庫控件來連接SQL2000中并對其編程來實現各種功能。，因為SQL與VisualBasic用的同為MicrosoftJet數據庫引擎，有著最好的兼容性。2.53VB概述VisualBasic（以下簡稱VB）的前身是QBASIC，語言基礎是BASIC。自從微軟推出VB后，便成為了程序開發(fā)人員的首選工具。據統(tǒng)計，僅在數據庫系統(tǒng)開發(fā)領域，VB就占了90％的份額。VB是基于對象的可視化程序開發(fā)工具，它的優(yōu)點在于能夠快捷、簡易地建立Windows應用程序。1998年8月，微軟推出了VB6.0的版本，進一步加強了部件開發(fā)的功能。以適用人員來分，可有以下三個版本：1.標準版針對一般程序設計人員,適合普通應用系統(tǒng)的開發(fā)。2.專業(yè)版針對專業(yè)程序開發(fā)人員，它在標準版的基礎上提供了對數據庫和Internet的支持。3.開發(fā)者版適用于專為開發(fā)者設計應用軟件的程序開發(fā)人員。VisualBasic系統(tǒng)除了一般高級語言所具有的一些名詞術語外，還有幾個系統(tǒng)常用的名詞。其基本含義如下：視窗（Form）：視窗是進行人機交互的界面或接口，也叫窗體。VB系統(tǒng)的人機交互界面或接口，無論是在設計時或是在運行時，都是Windows系統(tǒng)的標準視窗。對象(Object)：對象是VB系統(tǒng)內部提供給設計者可以直接使用的處理輸出的控制工具。本程序所應用到的對象類型有標簽框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，網格(DataGrid)，ADO控件(Adodc1)等。當把這些工具放置到用戶界面對應的窗體上時，被稱為對象或控件。用戶可以通過設置對象的“屬性”和“方法”，便于對象適應自己所設計應用程序的輸入輸出內容，對象的生成過程及結構都被封裝起來。正確使用對象可以減少程序和開發(fā)時間，提高程序設計者的工作效率。屬性(Properties)：屬性是VB系統(tǒng)提供的有關對象的參數或數據接口。用戶通過適當地設置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數據內容及數據的表現格式等。事件(Events)：事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導計算機執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標事件有Click（單擊鼠標）事件，DbDlicd（雙擊鼠標）。方法(Method)：方法主要是指對一個對象使用某種作用的過程。它是在程序執(zhí)行的過程中要計算機執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。過程(Procedure)：過程是指經過定義或說明的，或基于某一對象對應的事件所引發(fā)的程序段。模塊(Module)：模塊是指一些運算量或過程進行聲明或定義的一個集合。系統(tǒng)程序大體可分成四個模塊：數據輸入、根據查詢、數據打印和通訊。使用VB不需要追求完美的算法和精密的邏輯，而只要充分發(fā)揮你的想象力和創(chuàng)造力，就能利用VB開發(fā)出各種實用的軟件了，不論是小游戲還是大型的游戲端/服務器端應用程序，都變得非常簡單?？梢暬幊痰囊粋€突出特點就是其開發(fā)環(huán)境就像一個百寶箱，很多功能都集成在其之中，這就是IDE（IntegratedDevelopmentEnvironment），即集成開發(fā)環(huán)境。IDE是指在相應的開發(fā)平臺中集成了編輯器、編譯連接工具、控件器箱輔助工具。例如在VB的集成開發(fā)環(huán)境中就包括了以下一些主要元素：工具欄、工具箱、工程管理器窗口、屬性窗口、窗體設計器、代碼編輯器窗口等；和VB類似，Delphi的IDE中具有主控制窗體、對象查看窗口和窗體設計器。同時IDE的設置是很靈活的，開發(fā)人員可以按照自己的編程習慣來配置IDE。從簡單的文本文件到各種復雜的關系型數據庫，數據庫應用程序需要面對各種各樣的數據源。Visualbasic6.0提供ADO(ActiveDataObjects)作為應用程序和OLE-DB連接的橋梁ADO,即Active數據對象（ActiveDataObjects）：實際是一種提供訪問各種數據類型的連接機制。ADO設計為一種極簡單的格式，通過ODBC的方法同數據庫接口相連。用戶可以使用任何一種ODBC數據源，即不僅適合于SQLServer、Oracle、SQL等數據庫應用程序，也適合于Excel表格、文本文件、圖形文件和無格式的數據文件。ADO是基于OLE-DB之上的技術，因此ADO通過其內部的屬性和方法提供統(tǒng)一的數據訪問接口方法。Microsoft在VisualBasic6.0以后的版本都集成了ADO。它與以前VisualBasic的DAO、RDO相比有了很大的提高。DAO(DataSQLObjects)即數據訪問對象，是一種面向對象的界面接口。通過DAO/Jet功能可以訪問ISAM數據庫，使用DAO/ODBCDirect功能可以實現遠程RDO功能。RDO(RemoteDataObjects)即遠程數據對象，為使用代碼來創(chuàng)建和操作一個遠程ODBC數據庫系統(tǒng)的各個部件提供了一個框架。RDO是ODBCAPI的一個淺層界面接口，是專為訪問遠程ODBC關系數據源而設計的。ADO集中了DAO和RDO的優(yōu)點，可以通過簡單的編程實現和各種數據結構進行連接。使用ADO的目的是進入數據源，使得修改、更新數據成為可能。ADO提供一系列的類和對象來完成各種操作。系統(tǒng)實現3.1登陸界面登陸本系統(tǒng)的方法是打開client應用程序文件，系統(tǒng)便會自動打開登錄頁面。在頁面中間部分的區(qū)域是供用戶進入系統(tǒng)的窗口，當用戶在輸入框擊活的狀態(tài)下輸入用戶名及密碼，點擊"確定"按扭后，您便可以進入信息管理系統(tǒng)上家政服務信息系統(tǒng)了，我們使用的是初始的管理員帳號、密碼。圖7系統(tǒng)登陸界面確定按鈕代碼如下：PrivateSubcmd1_Click()DimMESSAGEAsStringAdodc1.RecordSource="select*frommawhere(ma.操作員like"+Chr(34)+Combo1.Text+Chr(34)+")"Adodc1.RefreshAdodc1.RecordSource="select*frommawhere操作員='"+Combo1.Text+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenIfCombo1.Text<>""AndTrim(Text2.Text)=Trim(Text1.Text)Thenfrm_main.StatusBar1.Panels(2).Text="當前系統(tǒng)用戶："&Trim(Combo1.Text)Name1=Trim(Combo1.Text)frm_main.Check1.Value=Adodc1.Recordset.Fields("基本信息管理")frm_main.Check2.Value=Adodc1.Recordset.Fields("客戶信息管理")frm_main.Check3.Value=Adodc1.Recordset.Fields("客戶信息查詢")frm_main.Check5.Value=Adodc1.Recordset.Fields("系統(tǒng)設置")Loadfrm_mainfrm_main.ShowUnloadMeElseMsgBox"沒有此操作員的信息或者輸入的密碼錯誤,請您確認后重新輸入"Text2.Text=""Text2.SetFocusEndIfElseMsgBox"沒有此操作員的信息或者輸入的密碼錯誤,請您確認后重新輸入"Combo1.Text=""Text2.Text="'"Combo1.SetFocusEndIfEndSub3.2首頁頁面介紹用戶在進入首頁后會看到整個頁面分成了五個區(qū)域，分別是：基本信息管理、客戶信息管理、信息查詢、系統(tǒng)設置、數據管理。圖8家政服務信息系統(tǒng)主界面基本信息管理——省份、城市信息的錄入、存儲。客戶信息管理——客戶信息的錄入、修改、刪除?？蛻艋拘畔⒎譃椋嚎蛻裘Q、地址、證件名稱、編號、電話、郵編、傳真、業(yè)務員、業(yè)務員電話；客戶服務信息為：服務項目、合同編號、付款方式、生效日期、終止日期、服務地址、服務次數。信息查詢——分為地址、編號、名稱查詢。系統(tǒng)設置——分為操作員設置、口令設置、權限設置。數據管理——數據恢復、數據備份、注銷、退出。3.3菜單功能說明3.3.1基本信息管理（1）省份信息設置：對省份信息的錄入，將信息加入到數據庫中。（2）城市信息設置：對城市信息的錄入，將信息加入到數據庫中。3.3.2客戶信息管理（1）客戶數據錄入該菜單主要為用戶提供單位和個人常用的電話號碼，用戶可以隨時增加新號碼或撤除原有號碼，可以分類查詢各所屬單位人員電話號碼，還可以編輯自己的號碼簿加快工作效率。該項菜單可以實現常用電話號碼的添加，還可以實現顯示已成功添加的電話號碼。（如下圖所示）圖9客戶信息錄入增加按鈕代碼如下：PrivateSubComAdd_Click()Fori=0To16kh(i).Enabled=Truekh(i).Text=""Adodc1.RecordSource="select*fromkhorderby客戶編號"Adodc1.RefreshIfAdodc1.Recordset.RecordCount=0Thenkh(0).Text="00001"ElseIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveLastkh(0).Text=Format(Adodc1.Recordset.Fields("客戶編號")+1,"00000")ElseEndIfEndIfNextiComSave.Visible=TrueComCancel.Enabled=TrueComAdd.Enabled=FalseComSave.Enabled=TrueSSTab1.Tab=0kh(1).SetFocusEndSub保存按鈕代碼如下：PrivateSubComSave_Click()OnErrorResumeNextkh(4).Text=Combo1.Text&Combo2.TextIfkh(0).Text<>""Andkh(1).Text<>""ThenCallMainDimDWMC,YZBMAsStringAdodc4.RecordSource="select*frombdwxx"Adodc4.RefreshIfAdodc4.Recordset.RecordCount>0ThenDWMC=Adodc4.Recordset.Fields("單位名稱")YZBM=Adodc4.Recordset.Fields("郵政編碼")ElseEndIfSetadoRs=adoCon.Execute("insertintokhvalues("&kh(0)&",'"&kh(1)&"','"&kh(2)&"','"&kh(3)&"','"&kh(4)&"','"&kh(5)&"','"&kh(6)&"','"&kh(7)&"','"&kh(8)&"','"&kh(9)&"','"&kh(10)&"','"&kh(11)&"','"&kh(12)&"','"&kh(13)&"','"&kh(14)&"','"&kh(15)&"','"&kh(16)&"','"&Str(DTPicker1)&"','"&DWMC&"','"&YZBM&"')")adoCon.CloseMsgBox"數據保存成功!",,"保存信息提示"ComSave.Enabled=FalseComCancel.Enabled=FalseComAdd.Enabled=TrueElseMsgBox("必須輸入客戶全稱")SSTab1.Tab=0kh(1).SetFocusEndIfEndSub（2）客戶數據修改該菜單主要為個人提供用戶經常使用的信息管理系統(tǒng)址，便于用戶及時修改使用。用戶可以隨時增加新號碼或撤除原有信息管理系統(tǒng)址，還可以編輯自己的信息管理系統(tǒng)址簿加快工作效率。該項菜單可以實現常用信息管理系統(tǒng)址的添加，還可以實現顯示已成功添加的信息管理系統(tǒng)址。（3）客戶數據刪除該菜單主要是對客戶信息的查找、刪除，加快了工作效率。功能是：輸入編號、全稱，可以直接對該客戶信息的刪除。加快了工作效率（如下圖所示）。圖10數據刪除刪除按鈕代碼如下：PrivateSubCommand2_Click()DimmyvalAsStringIfAdodc1.Recordset.RecordCount<>0Thenmyval=MsgBox("確實要刪除該客戶嗎？",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.DeleteCombo1.Text=""Text1.Text=""Text2.Text=""EndIfElseMsgBox"查無此數據！"EndIfEndSub3.3.3（1）地址查詢：直接輸入客戶地址，可以查詢到客戶的信息數據。（2）編號查詢：直接輸入客戶編號，可以查詢到客戶的信息數據。（3）全稱查詢：直接輸入客戶編號，可以查詢到客戶的信息數據。功能是：輸入客戶地址、編號、全稱，可以直接對該客戶信息的查詢。加快了工作效率（如下圖所示）。圖11編號查詢查詢按鈕代碼如下：PrivateSubCommand1_Click()DimiAsIntegerIfText1.Text<>""Thenmain_khcxjg.Adodc1.RecordSource="select*fromkhwhere(kh.客戶全稱LIKE'%"+Text1.Text+"%')"main_khcxjg.Adodc1.RefreshIfmain_khcxjg.Adodc1.Recordset.RecordCount>0ThenFori=0To16Ifmain_khcxjg.Adodc1.Recordset.Fields(i)<>""Thenmain_khcxjg.kh(i).Text=main_khcxjg.Adodc1.Recordset.Fields(i)NextiUnloadMeLoadmain_khcxjgmain_khcxjg.Show1ElseMsgBox"無記錄！"EndIfElseMsgBox"請輸入相應信息！"EndIfEndSub3.3.4系統(tǒng)設置（1）操作員設置：添加、刪除操作此系統(tǒng)的操作員，更快的瀏覽到客戶信息。圖12操作員設置保存按鈕代碼：PrivateSubComSave_Click()OnErrorResumeNextData1.RecordSource="select*frommawhere操作員='"+Combo1.Text+"'"Data1.RefreshIfData1.Recordset.RecordCount>0ThenMsgBox"用戶名已經存在,注冊不成功!",,"信息提示"Combo1.Text=""Combo1.SetFocusElseSetmydb=Workspaces(0).OpenDatabase(App.Path&"\khgl.mdb")Setmyrs1=mydb.OpenRecordset("ma",dbOpenTable)myrs1.AddNewIfCombo1.Text<>""Thenmyrs1.Fields(0)=Combo1.TextIfText1(1).Text<>""Thenmyrs1.Fields(1)=Text1(1).Textmyrs1.Fields(2)="0"myrs1.Fields(3)="0"myrs1.Fields(4)="0"myrs1.Fields(5)="0"myrs1.Fields(6)="0"ElseEndIfmyrs1.Updatemyrs1.Closemydb.CloseData1.RefreshComSave.Enabled=FalseComAdd.Enabled=TrueEndIfEndSub（2）口令設置：對操作人員的密碼的修改，提高系統(tǒng)的安全性、保密性。圖13密碼設置確定按鈕代碼：PrivateSubCommand1_Click()CallMainDimMESSAGEAsStringData1.RecordSource="select*frommawhere(ma.操作員='"+Text1.Text+"'andma.密碼='"+Text2.Text+"')"Data1.RefreshIfData1.Recordset.RecordCount>0ThenSetadoRs=adoCon.Execute("updatemaset密碼='"+Text3.Text+"'where操作員='"+Text1.Text+"'")MsgBox"密碼修改成功!",,"信息提示"ElseMsgBox"沒有要修改的相關信息!",,"信息提示"EndIfadoCon.CloseEndSub（3）權限設置：對操作人員的權限的管理，各個操作人員設置系統(tǒng)的各自權限，權限由系統(tǒng)管理員來設定。圖14操作員設置代碼如下：PrivateSubForm_Load()OnErrorResumeNextfrm_main.StatusBar1.Panels(1)=Me.CaptionMe.Left=(Screen.Width-Me.Width)/2Me.Top=(Screen.Height-Me.Height)/2rs.Open"select*fromma",cnn,adOpenStatic,adLockOptimisticAdodc1.RecordSource="select*fromma"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenListView1.Enabled=TrueListView1.ListItems.ClearAdodc1.Recordset.MoveFirstDoWhileAdodc1.Recordset.EOF=Falsekey=Text1.TextSetitmX=ListView1.ListItems.Add(,,key,1)Adodc1.Recordset.MoveNextLooprs.Open"select*frommawhere操作員='"+ListView1.SelectedItem+"'",cnn,adOpenStatic,adLockOptimisticAdodc1.RecordSource="select*frommawhere操作員='"+ListView1.SelectedItem+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenCheck1.Value=Adodc1.Recordset.Fields("基本信息管理")Check2.Value=Adodc1.Recordset.Fields("客戶信息管理")Check3.Value=Adodc1.Recordset.Fields("系統(tǒng)設置")Check5.Value=Adodc1.Recordset.Fields("客戶信息查詢")ElseEndIfElseListView1.Enabled=FalseEndIfEndSub3.3.5數據管理（1）數據備份 數據備份這一功能是將系統(tǒng)的數據進行一個必要的備份，防止計算機因其他原因產生數據丟失。該項菜單為用戶提供在該系統(tǒng)的數據備份，包括服務器名，管理員，密碼，數據庫名，備份至（備份名）。代碼如下：PrivateSubCommand1_Click()'確認數據備份YesNo=MsgBox("準備好了嗎？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11MkDir(Text1.Text&":\客戶管理系統(tǒng)數據備份")FileCopyApp.Path&"\khgl.mdb",Text1.Text&":\客戶管理系統(tǒng)數據備份\khgl_back.mdb"Me.MousePointer=0MsgBox"數據已備份完畢。"errprompt:Me.MousePointer=0SelectCaseErr.NumberCase57MsgBox"磁盤已滿！",vbCriticalCase70MsgBox"磁盤寫保護！",vbCriticalEndSelectEndSub（2）數據恢復當發(fā)生數據丟失或數據錯誤時，我們使用此功能對數據進行恢復。該項菜單為用戶提供該系統(tǒng)的數據恢復，包括服務器名，管理員，密碼，數據庫名，備份至（服務器路徑）。代碼如下：PrivateSubCommand1_Click()'確認數據恢復YesNo=MsgBox("準備好了嗎？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11FileCopyText1.Text&":\客戶管理系統(tǒng)數據備份\khgl_back.mdb"