畢業(yè)設(shè)計(jì)（論文）VB6.0加油站客戶(hù)管理系統(tǒng)

1、目 錄 摘 要 .1 第 1 章 緒論 .2 1.1 選題背景 .2 1.2 課題主要研究的內(nèi)容： .2 1.3 課題研究的意義 .2 1.4 課題研究的現(xiàn)狀： .2 1.5 課題難點(diǎn)和需要解決的關(guān)鍵問(wèn)題： .3 第 2 章 開(kāi)發(fā)工具簡(jiǎn)介 .4 2.1 開(kāi)發(fā)環(huán)境 .4 2.2visual basic 6.0 簡(jiǎn)介.4 2.3microsoft access簡(jiǎn)介 .4 第 3 章 加油站客戶(hù)管理系統(tǒng)的設(shè)計(jì) .6 3.1 方案論證 .6 3.2設(shè)計(jì)過(guò)程.6 3.3 設(shè)計(jì)過(guò)程論述 .9 3.4 結(jié)論和總結(jié) .13 第 4 章 部分程序功能的講解 .14 4.1 登陸界面 .14 4.2 系統(tǒng)操作 .

2、14 4.3 客戶(hù)信息管理 .15 4.4 油價(jià)管理 .17 4.5 加油信息管理 .18 4.6 加油信息統(tǒng)計(jì) .20 4.7 關(guān)于 .20 結(jié)束語(yǔ) .21 附錄 .22 參考文獻(xiàn) .41 致 謝 .42 摘 要 長(zhǎng)久以來(lái)，加油站的客戶(hù)信息管理都是依賴(lài)加油站工作人員手工進(jìn)行的，面對(duì)如此眾多的 客戶(hù)信息，其工作量可想而知。不僅僅浪費(fèi)了大量的人力物力，而且由于人工管理存在著大量 的不可預(yù)見(jiàn)的因素，造成了加油站對(duì)客戶(hù)信息管理的某些不規(guī)范，使得加油站客戶(hù)信息管理陷 入管理繁瑣，信息混亂的地步。為有效降低運(yùn)營(yíng)成本，杜絕管理漏洞，針對(duì)現(xiàn)在加油站客戶(hù)信 息管理的弊端，根據(jù)加油站客戶(hù)信息管理的基本流程，使加

3、油站有一套完善的管理系統(tǒng)是非常 必要的。從而使其加油站的客戶(hù)量日漸增加?？蛻?hù)量的上升，不僅帶動(dòng)了銷(xiāo)售，也從另一個(gè)側(cè) 面反映出，在加油站客戶(hù)信息管理信息系統(tǒng)的協(xié)助下，加油站正在以其專(zhuān)業(yè)的服務(wù)精神、嚴(yán)謹(jǐn) 的管理風(fēng)格逐步贏得客戶(hù)的信賴(lài)，從而在市場(chǎng)競(jìng)爭(zhēng)中確立戰(zhàn)略?xún)?yōu)勢(shì)。 而加油站客戶(hù)信息管理系統(tǒng)的開(kāi)發(fā)使其實(shí)現(xiàn)了與客戶(hù)相關(guān)的各種信息的系統(tǒng)化、規(guī)范化和 自動(dòng)化。通過(guò)對(duì)客戶(hù)信息管理、油價(jià)管理、加油和、系統(tǒng)查詢(xún)四個(gè)模塊基本功能的實(shí)現(xiàn)，對(duì)客 戶(hù)的各種信息進(jìn)行增加、刪除、查找、修改等操作，完成對(duì)客戶(hù)的信息管理。這些功能基本可 以滿(mǎn)足一般加油站對(duì)客戶(hù)管理的需求，使企業(yè)節(jié)省人力物力，減輕勞動(dòng)強(qiáng)度；降低成本，節(jié)省 開(kāi)支；

4、提高了管理水平，增強(qiáng)了企業(yè)在同行業(yè)中的競(jìng)爭(zhēng)力；同時(shí)提高了客戶(hù)信息處理的及時(shí)性 和準(zhǔn)確性。 該系統(tǒng)采用 vb6.0 進(jìn)行開(kāi)發(fā)、設(shè)計(jì)，后臺(tái)采用 access 提供強(qiáng)有力的支持。系統(tǒng)的實(shí)施將 為企業(yè)獲得更多的客戶(hù)，留住更好的客戶(hù)，創(chuàng)造更大的客戶(hù)價(jià)值，留給客戶(hù)永久的信譽(yù)度，建 立一對(duì)一市場(chǎng)營(yíng)銷(xiāo)，從而為企業(yè)帶來(lái)更豐厚的利潤(rùn)和持續(xù)發(fā)展的競(jìng)爭(zhēng)優(yōu)勢(shì)。 關(guān)鍵詞：客戶(hù)信息管理，vb6.0，數(shù)據(jù)庫(kù) 第 1 章 緒論 1.1 選題背景 現(xiàn)在的社會(huì)日新月異，發(fā)展的非?？?。加油站的發(fā)展也是非常的快了，而且每年都有不同 的要求。加油站的信息量也非常的大，數(shù)據(jù)可能經(jīng)常性的發(fā)生更換，原來(lái)手工的管理模式就體 現(xiàn)出不為合適了。而且

5、手工的數(shù)據(jù)是存放在多處的，沒(méi)有使用統(tǒng)一管理的模式，數(shù)據(jù)整理非常 的麻煩，統(tǒng)計(jì)也困難,很多的情況下，工作人員都是在重復(fù)一些相同的工作。做一些相似的報(bào)表， 這樣不但降低了工作效率，而且非常的容易出錯(cuò)。在這種條件下，使用計(jì)算機(jī)管理就體現(xiàn)出非 常的適合了。只要你準(zhǔn)確的錄入記錄，統(tǒng)計(jì)，報(bào)表輸出的結(jié)果就能快速、準(zhǔn)確顯示出來(lái)，變的 一點(diǎn)問(wèn)題都不會(huì)出現(xiàn)的。 1.2 課題主要研究的內(nèi)容： 客戶(hù)信息作為加油站信息管理中最主要的管理對(duì)象，客戶(hù)信息管理系統(tǒng)就成了加油站信息 化管理系統(tǒng)中不可缺少的部分，它的內(nèi)容對(duì)于加油站的管理者說(shuō)都至關(guān)重要。但一直以來(lái)人們 使用傳統(tǒng)人工的方式進(jìn)行客戶(hù)數(shù)據(jù)的檔案管理，這種管理方式存在著許

6、多缺點(diǎn),如:效率低,成本 高，容易出錯(cuò)，格式不規(guī)范，計(jì)算統(tǒng)計(jì)時(shí)間長(zhǎng)，不容易進(jìn)行統(tǒng)計(jì)和分析。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn) 入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì) 客戶(hù)信息檔案進(jìn)行管理，具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例如:檢索迅速、查找方便、可靠性 高、存儲(chǔ)量大、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高加油站客戶(hù)信息管理的效率。因 此，開(kāi)發(fā)出這套系統(tǒng)成為很有必要的事情。而且只要軟件的設(shè)計(jì)合理，可以為加油站提供合理 的管理模式、降底運(yùn)營(yíng)成本。 1.3 課題研究的意義 通過(guò)本系統(tǒng)軟件，能幫助工作人員利用計(jì)

7、算機(jī)，快速方便的對(duì)加油站的客戶(hù)信息和客戶(hù)加 油信息進(jìn)行管理、輸入、輸出、查找的所需操作，使散亂的客店檔案能夠具體化，直觀化、合 理化。 本軟件適用于一般的加油站，對(duì)客戶(hù)信息和客戶(hù)加油的信息可以隨時(shí)輸入、輸出、查找、 修改、匯總。 1.4 課題研究的現(xiàn)狀： 1.4.1 系統(tǒng)開(kāi)發(fā)采用的特點(diǎn) （1）隨著計(jì)算機(jī)技術(shù)的發(fā)展和普及，各行各業(yè)的管理機(jī)構(gòu)需要由計(jì)算機(jī)處理大量的信息。 選擇一個(gè)優(yōu)秀的面向?qū)ο蟮墓芾硐到y(tǒng)作為開(kāi)發(fā)平臺(tái)，將給日后的信息處理帶來(lái)極大的方便?？?戶(hù)信息的管理工作是企事業(yè)單位不可缺少一部分，也是企業(yè)管理的重要組成部分。它的內(nèi)容對(duì) 于企業(yè)的管理者來(lái)說(shuō)都至關(guān)重要，所以客戶(hù)信息管理系統(tǒng)應(yīng)該能夠?yàn)槠?/p>

8、業(yè)管理者提供完整,正確 和靈活的客戶(hù)信息和快捷的查詢(xún)手段。 （2）visual basic 是為面向?qū)ο髴?yīng)用程序開(kāi)發(fā)而設(shè)計(jì)的功能強(qiáng)大的編程工具。利用 visual basic 設(shè)計(jì)程序，不但可以設(shè)計(jì)出非常豐富的用戶(hù)接口，而且?guī)缀醪恍枰帉?xiě)多少程序， 就能開(kāi)發(fā)出功能非常強(qiáng)大的應(yīng)用程序。這也就是選用 visual basic 來(lái)開(kāi)發(fā)加油站客戶(hù)信息管理 系統(tǒng)的所在。 1.4.2 系統(tǒng)開(kāi)發(fā)必要性 本系統(tǒng)是為了更好的管理加油站龐大的數(shù)據(jù)而開(kāi)發(fā)的。它能夠給加油站的工作人員減輕很 多的負(fù)擔(dān)，能夠把繁瑣的工作簡(jiǎn)單化?，F(xiàn)在，在國(guó)外大多數(shù)的加油站都有著自己的客戶(hù)信息管 理系統(tǒng)，使得在管理方面非常方便，以至于一個(gè)大

9、型加油站只有少數(shù)的工作人員。即減少了開(kāi) 資，又充分利用了資源。正是因?yàn)檫@些優(yōu)點(diǎn)，所以開(kāi)發(fā)出一套加油站客戶(hù)信息管理系統(tǒng)也是非 常有必要的。 1.5 課題難點(diǎn)和需要解決的關(guān)鍵問(wèn)題： 用 visual basic 開(kāi)發(fā)的加油站客戶(hù)信息管理系統(tǒng)需要與 access 數(shù)據(jù)庫(kù)相連接。因此，它 們之間的兼容性最為關(guān)鍵。如果處理好兩個(gè)軟件之類(lèi)的數(shù)據(jù)關(guān)聯(lián)將成為這次開(kāi)發(fā)的難點(diǎn)。管理 系統(tǒng)的調(diào)試運(yùn)行的穩(wěn)定性也將成為此次系統(tǒng)開(kāi)發(fā)的難點(diǎn)。所以要保證數(shù)據(jù)庫(kù)和系統(tǒng)能夠可靠的 連接。系統(tǒng)為數(shù)據(jù)提供自動(dòng)更新功能，并實(shí)現(xiàn)數(shù)據(jù)的更新，刪除功能。要求數(shù)據(jù)庫(kù)之間建立關(guān) 系，并確定關(guān)鍵詞等關(guān)鍵環(huán)節(jié)。開(kāi)發(fā)一個(gè)優(yōu)良的系統(tǒng)，必須需要前期的策劃

10、和大量的投入。因 此，需要投入非常大的精力和工作量來(lái)搜集必要的數(shù)據(jù)和信息。 第 2 章 開(kāi)發(fā)工具簡(jiǎn)介 2.1 開(kāi)發(fā)環(huán)境 配置：cpu type:pentium cpu clock:800mhz 內(nèi)存:396m 硬盤(pán):120g 操作系統(tǒng):microsoft windows xp 2.2visual basic 6.0 簡(jiǎn)介 visual basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可 用于開(kāi)發(fā) windows 環(huán)境下的種類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與 windows 的專(zhuān)業(yè)開(kāi)發(fā)工具 sdk 相媲美，而且程序開(kāi)發(fā)人員不必具有 c/c+編程基礎(chǔ)。在

11、 visual basic 環(huán) 境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 windows 內(nèi)部的應(yīng)用程序 接口(api)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(dll)、動(dòng)態(tài)數(shù)據(jù)交換(dde)、對(duì)象的鏈接與嵌入(ole)、開(kāi)放 式數(shù)據(jù)訪問(wèn)(odbc)等技術(shù)，可以高效、快速地開(kāi)發(fā)出 windows 環(huán)境下功能強(qiáng)大、圖形接口豐富 的應(yīng)用軟件系統(tǒng)。 2.3microsoft access 簡(jiǎn)介 microsoft access 使您容易得到所需信息，并提供強(qiáng)大工具，可以幫助您組織和共享您的 數(shù)據(jù)庫(kù)，以便您和您的工作組能做出更好的決策?？焖僬业娇煽看鸢?，通過(guò) intranet 共享信息， 建立更快更

12、有效的商業(yè)解決方案。 2.3.1 microsoft access 具有以下特點(diǎn) 更易建立強(qiáng)大的商業(yè)解決方案，更快找到答案 使 web 協(xié)作成為可能，用 access 2000 中的新工具提高生產(chǎn)力。使數(shù)據(jù)對(duì)任何協(xié)作者都可 直接利用。更新銷(xiāo)售數(shù)據(jù)或快速查看顧客細(xì)節(jié)信息。定制您自己的圖形格式，以便準(zhǔn)確地顯示 您所需的信息。使用內(nèi)置 microsoft sql server 集成來(lái)創(chuàng)建可以隨您的商務(wù)升級(jí)的數(shù)據(jù)庫(kù)。 在 web 上管理和共享信息 將您的數(shù)據(jù)來(lái)源與交互式 web 頁(yè)面無(wú)縫集成，使創(chuàng)建和共享 microsoft access 數(shù)據(jù)庫(kù)比以 前更容易。使用 web 技術(shù)快速獲取信息，并把它按

13、您的特殊用途裁剪。加入 office 2000 web 組件以便在 web 瀏覽器中可視化分析數(shù)據(jù)。 在瀏覽器窗口查看，編輯，和分析數(shù)據(jù) 新的，交互式的 data access pages 是為 web 設(shè)計(jì) access 表。它們能使任何職員在瀏覽器 內(nèi)輕易地打開(kāi)，查看，和更新動(dòng)態(tài)數(shù)據(jù)。用交互式圖表舉例說(shuō)明 data access page，然后郵寄 或作為 e-mail 的附件發(fā)出。您和您的合作者就永遠(yuǎn)擁有最新信息-在辦公室或任何地方. 把交互式報(bào)告加入到 intranet 中 把多個(gè)表格鏈接成單個(gè)的，相關(guān)的視圖被稱(chēng)為 grouped data access page。用這種方法， 可以創(chuàng)

14、建分層結(jié)構(gòu)，將記錄從一般類(lèi)別到具體細(xì)節(jié)分類(lèi)。例如，按區(qū)字段分析雇員銷(xiāo)售情況。 首先把目光集中在一個(gè)地區(qū)所有的銷(xiāo)售上。然后，把目光關(guān)注到該地區(qū)銷(xiāo)售幾種紡織品的結(jié)果 和基本輸入輸出上。您可以交互式地查看，過(guò)濾，分類(lèi)所有的信息-在同一頁(yè)面內(nèi)。 把動(dòng)態(tài)數(shù)據(jù)拖到網(wǎng)頁(yè)上 很容易把字段列表的內(nèi)容拖動(dòng)，加入到 data access page 中。表格字段直接連結(jié)到數(shù)據(jù)庫(kù)， 所以信息總是最新的。 使工作方式流程化 好的信息有助于做出英明的決策和提高生產(chǎn)力。microsoft access 使信息更容易獲得和使 用?？焖俜治黾?xì)節(jié)內(nèi)容并找出重要聯(lián)系。利用新工具來(lái)定制窗體和報(bào)表。把數(shù)字轉(zhuǎn)化成答案- 趕快。 利用改進(jìn)

15、接口的優(yōu)點(diǎn) access 數(shù)據(jù)庫(kù)窗口使數(shù)據(jù)庫(kù)組件操作更容易。使用垂直 objects 工具條在窗體，表格，和 報(bào)表之間切換。把數(shù)據(jù)庫(kù)對(duì)象組織成組，并對(duì)常用的內(nèi)容創(chuàng)建快捷方式。 在數(shù)據(jù)表視圖中瀏覽相關(guān)記錄 access 在一個(gè)窗口中可使您以圖中圖方式查看所有相關(guān)數(shù)據(jù)-不必進(jìn)行查詢(xún)。實(shí)時(shí)查看表 格間的聯(lián)系以便快速做出相應(yīng)決策。顯示深層信息，以使記錄之間關(guān)系可視化。而您只需用鼠 標(biāo)選取您感興趣的記錄。 對(duì)所選記錄作特殊的格式化 在字段內(nèi)容的基礎(chǔ)上改變它們的版面，使用戶(hù)能夠做到例如立即在表格或報(bào)表內(nèi)發(fā)現(xiàn)高 銷(xiāo)售的消費(fèi)者或低庫(kù)存項(xiàng)目。根據(jù)您定義的數(shù)值或習(xí)慣標(biāo)準(zhǔn)設(shè)置字體，風(fēng)格，顏色，和標(biāo)題。 窗體擴(kuò)展功能

16、允許您在一張窗體上簡(jiǎn)單地選擇一個(gè)字段，并改變它的背景顏色，大小， 和邊界。不必切換到設(shè)計(jì)視圖就可以立即看到這一結(jié)果。 與 sql server 無(wú)縫集成 microsoft access 包含了內(nèi)置的 microsoft sql server，這使它能夠?qū)κ煜さ?access 環(huán) 境進(jìn)行高端管理。需要時(shí)可以利用可調(diào)整大小的 sql server 技術(shù)創(chuàng)建企業(yè)級(jí)數(shù)據(jù)庫(kù)。這樣，使 用一個(gè)可按需調(diào)整大小的數(shù)據(jù)庫(kù)，系統(tǒng)就可以隨業(yè)務(wù)擴(kuò)展了。 隨業(yè)務(wù)擴(kuò)展數(shù)據(jù)庫(kù) 通過(guò)在 access 內(nèi)創(chuàng)建 sql server 數(shù)據(jù)庫(kù)，來(lái)擴(kuò)展您在客戶(hù)/服務(wù)器世界的技能。新的 access 數(shù)據(jù)庫(kù)項(xiàng)目允許 access 用

17、戶(hù)用熟悉的 access 接口創(chuàng)建真正的客戶(hù)/服務(wù)器應(yīng)用程序。 第 3 章 加油站客戶(hù)管理系統(tǒng)的設(shè)計(jì) 3.1 方案論證 加油站客戶(hù)管理系統(tǒng)是典型的信息管理系統(tǒng)(mis),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維 護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全 性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 本系統(tǒng)主要完成對(duì)加油站客戶(hù)管理和加油信息的管理，包括數(shù)據(jù)庫(kù)中表的添加、修改、刪 除等。系統(tǒng)還可以完成對(duì)各類(lèi)信息的瀏覽、查詢(xún)、添加、刪除、修改、報(bào)表等功能。 系統(tǒng)的核心是數(shù)據(jù)庫(kù)中各個(gè)表聯(lián)系，每一個(gè)表的修改都將聯(lián)動(dòng)的影響其它的表，當(dāng)完成對(duì) 數(shù)據(jù)的操作時(shí)系

18、統(tǒng)會(huì)自動(dòng)地完成數(shù)據(jù)庫(kù)的修改。查詢(xún)功能也是系統(tǒng)的核心之一，在系統(tǒng)中即有 單條件查詢(xún)和多條件查詢(xún)，也有精確查詢(xún)和模糊查詢(xún)，系統(tǒng)不僅有靜態(tài)的條件查詢(xún)，也有動(dòng)態(tài) 生成的條件查詢(xún)，其目的都是為了方便用戶(hù)使用。系統(tǒng)有完整的用戶(hù)添加、刪除和密碼修改功 能，并具備報(bào)表打印功能。 經(jīng)過(guò)分析,我們使用 microsoft 公司的 visual basic 開(kāi)發(fā)工具,利用其提供的各種面向?qū)?象的開(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口,這能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立 系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶(hù)滿(mǎn)意的可行 系統(tǒng)。 在操作系統(tǒng)方面，雖然現(xiàn)在 linux 的發(fā)展

19、速度非常的快，但是對(duì)于大多數(shù)的使用者來(lái)說(shuō)， 操作顯然沒(méi)有微軟的 windows 那么的流行和傻瓜化。而且現(xiàn)在計(jì)算機(jī)的運(yùn)算速度已經(jīng)不能和以 前相提并論了，而且硬件的價(jià)格也一天天的在下降了，所以也不用為了節(jié)省整體的造價(jià)而改用 硬件要求很低的 dos 系統(tǒng)了。所以我們決定該加油站客戶(hù)管理系統(tǒng)將運(yùn)行在普遍使用的 windows 操作系統(tǒng)上來(lái)協(xié)助管理人員輕松地進(jìn)行與數(shù)據(jù)庫(kù)的連接和管理。 在這么多的訪問(wèn)接口里面微軟對(duì)于 ado 非常的推崇，并且下一代的數(shù)據(jù)訪問(wèn)技術(shù)也將是采 取這樣的思路，而且本身來(lái)說(shuō) ado 模型簡(jiǎn)單，但是功能強(qiáng)大，使實(shí)現(xiàn)人員無(wú)須關(guān)心一些底層的 操作，而把更多的經(jīng)歷放在業(yè)務(wù)邏輯的設(shè)計(jì)上面。

20、 綜上所述，我們選擇了 visual basic+ado+access 來(lái)開(kāi)發(fā)整個(gè)系統(tǒng)。 3.2設(shè)計(jì)過(guò)程 3.2.1 實(shí)現(xiàn)功能 （1） 能夠?yàn)g覽客戶(hù)的所有信息 （2） 能夠?qū)蛻?hù)的基本信息進(jìn)行管理 （3） 客戶(hù)加油信息數(shù)據(jù)的數(shù)據(jù)庫(kù)建立和管理 （4） 能夠通過(guò)客戶(hù)的單位名稱(chēng)信息找到其對(duì)應(yīng)的車(chē)輛加油的相關(guān)信息 （5） 通過(guò)一條信息找到與之匹配的信息(例如：查詢(xún)同一單位的所有加油信息) （6） 管理人員能對(duì)已有單位的客戶(hù)的信息進(jìn)行管理 （7） 多用戶(hù)數(shù)據(jù)安全管理，保證各部門(mén)的數(shù)據(jù)安全、完整，對(duì)每個(gè)使用本系統(tǒng)用戶(hù)進(jìn)行 權(quán)限的設(shè)置 （8） 簡(jiǎn)易操作，不需要非常專(zhuān)業(yè)的計(jì)算機(jī)操作人員。 （9） 加油信息的添

21、加、刪除和修改,包括加油的型號(hào)、單價(jià)、數(shù)量、單次加油金額 （10）加油信息查詢(xún)，查詢(xún)條件為單位名稱(chēng)、車(chē)牌號(hào)等信息的綜合查詢(xún)。為增加各單位之 間的數(shù)據(jù)保密性，不允許模糊查詢(xún)，查詢(xún)結(jié)果以圖表形式列出 （11）加油信息的統(tǒng)計(jì)，按照單位名稱(chēng)、車(chē)牌號(hào)、月份分別進(jìn)行統(tǒng)計(jì) 按用戶(hù)輸入的單位名稱(chēng)，統(tǒng)計(jì)本單位的加油信息，并排序 按輸入的單位名稱(chēng)和車(chē)牌號(hào)，統(tǒng)計(jì)該車(chē)的加油信息 （12）用戶(hù)管理：設(shè)置三個(gè)級(jí)別用戶(hù)：經(jīng)理、管理員和客戶(hù)，經(jīng)理有權(quán)限使用所有的功能； 管理員除了不能使用用戶(hù)管理和油價(jià)管理外，其它都能使用；普通用戶(hù)只能使用查詢(xún)功能，用 戶(hù)使用本系統(tǒng)之前必須先通過(guò)身份認(rèn)證（用戶(hù)級(jí)別、用戶(hù)名和密碼，密碼輸入有次數(shù)

22、限制，連 續(xù)三次輸入錯(cuò)誤密碼則鎖定該用戶(hù)） 3.2.2 功能與模塊設(shè)計(jì) 包括加油站客戶(hù)的客戶(hù)信息管理系統(tǒng)、油價(jià)管理系統(tǒng)、加油信息管理系統(tǒng)、加油信息統(tǒng)計(jì) 系統(tǒng)等，四個(gè)方面都是必須要滿(mǎn)足: （1）基本情況錄入：輸入本系統(tǒng)所需的基本數(shù)據(jù)。輸入客戶(hù)的基本情況，采用客戶(hù)編號(hào) 來(lái)區(qū)分客戶(hù)。 （2）客戶(hù)基本信息變動(dòng)情況。 （3）加油信息查詢(xún)：提供查詢(xún)本單位的基本情況功能。 圖 3.1程序結(jié)構(gòu)框圖 3.2.3 數(shù)據(jù)庫(kù)設(shè)計(jì) 創(chuàng)建“加油站客戶(hù)管理系統(tǒng)”數(shù)據(jù)庫(kù)系統(tǒng)中需要使用的數(shù)據(jù)表。 系統(tǒng)啟動(dòng)畫(huà)面 權(quán)限認(rèn)證畫(huà)面 加油站客戶(hù)信息管理系統(tǒng)主畫(huà)面 系統(tǒng)管理客戶(hù)信息管理油價(jià)管理加油信息管理加油信息統(tǒng)計(jì) 表 3.1數(shù)據(jù)表 加

23、油站客戶(hù)管理系統(tǒng) 登陸表 車(chē)輛表 加油信息表 客戶(hù)信息表 油價(jià)表 （1） 登陸 用于存放用戶(hù)名、密碼和權(quán)限信息的數(shù)據(jù)表。 表 3.2登陸信息表 （2） 車(chē)輛表 用于存放車(chē)輛信息的數(shù)據(jù)表 表 3.3車(chē)輛信息表 （3） 加油信息表 用于存放加油信息的數(shù)據(jù)表 表 3.4加油信息表 （4） 客戶(hù)信息表 用于存放客戶(hù)信息的數(shù)據(jù)表 表 3.5客戶(hù)信息表 （5） 油價(jià)表 用于存放油品價(jià)格信息的數(shù)據(jù)表 表 3.6油價(jià)信息表 3.3 設(shè)計(jì)過(guò)程論述 執(zhí)行流程圖與解說(shuō) 3.3.1 登陸流程圖 n y n y 圖 3.2登陸流程圖 設(shè)計(jì)說(shuō)明:進(jìn)入主接口后,提示輸入用戶(hù)名和密碼,在輸入之后按確定進(jìn)入,驗(yàn)證用戶(hù)名和密 登

24、陸主界面 驗(yàn)證賬號(hào) 驗(yàn)證密碼 進(jìn)入主界面 碼,實(shí)現(xiàn)流程: (1) 檢測(cè)數(shù)據(jù)庫(kù)中有無(wú)管理員的賬號(hào)。如果有,則等待用戶(hù)輸入用戶(hù)名和密碼,否則按程序 本身自動(dòng)執(zhí)行插入命令,新建一個(gè)管理員用戶(hù),并等待用戶(hù)輸入. (2)驗(yàn)證用戶(hù)名和密碼是否正確,錯(cuò)誤次數(shù)不能超過(guò)三次,超過(guò)三次則退出系統(tǒng)登陸接口 (3)當(dāng)驗(yàn)證通過(guò)后,檢測(cè)該登陸用戶(hù)的管理權(quán)限,并設(shè)置變量傳值給主窗體. 3.3.2 主接口操作圖 圖 3.3系統(tǒng)結(jié)構(gòu)框圖 設(shè)計(jì)說(shuō)明:此窗體為主窗體操作接口,為配合數(shù)據(jù)執(zhí)行模式,采用 vb 的下拉式菜單,使眾多功 能都能整齊而有序的排列. 實(shí)現(xiàn)功能: (1)獲得登陸接口傳遞的權(quán)限信息,設(shè)置用戶(hù)是否可以使用(用戶(hù)管理

25、，客戶(hù)信息管理，油價(jià) 管理，車(chē)輛管理,保存,修改,刪除)這些操作. (2)登陸后進(jìn)入加油站管理主接口,設(shè)置等待操作狀態(tài) 3.3.3 所有客戶(hù)與增加客戶(hù)數(shù)據(jù)圖 主界面 系統(tǒng)操作客戶(hù)信息管理油價(jià)管理加油信息管理加油信息統(tǒng)計(jì) 用 戶(hù) 管 理 修 改 密 碼 增 加 學(xué) 生 客 戶(hù) 信 息 管 理 客 戶(hù) 信 息 查 詢(xún) 油 價(jià) 管 理 車(chē) 輛 管 理 統(tǒng) 計(jì) 加 油 油 價(jià) 查 詢(xún) 加 油 查 詢(xún) 圖 3.4所有客戶(hù)流程圖 圖 3.5增加客戶(hù)流程圖 注：數(shù)據(jù)初始化是對(duì)程序中所使用的表格進(jìn)行顏色和表格間距的處理，并綁定資料源為進(jìn) 行到下一步操作做準(zhǔn)備 實(shí)現(xiàn)功能: (1)執(zhí)行客戶(hù)信息表的全查詢(xún),獲得所有

26、字段名稱(chēng),通過(guò)字段名稱(chēng)來(lái)分配數(shù)據(jù)列表的列數(shù). (2)執(zhí)行數(shù)據(jù)初始化,因使用的圖表控件附帶下拉列表框,日期選擇框等功能,可以很方便的 進(jìn)行實(shí)時(shí)操作,所以資料的初始化是針對(duì)數(shù)據(jù)來(lái)確定哪一列的寬度與文本框的屬性. (3)給圖表控件的第一列賦值,賦值對(duì)象是客戶(hù)信息表的各字段名稱(chēng). (4)統(tǒng)計(jì)所有表內(nèi)信息,得出行數(shù)，把所有數(shù)據(jù)顯示在表格內(nèi) (5).開(kāi)始根據(jù)分頁(yè)內(nèi)容給圖表控件賦值,同時(shí)設(shè)置狀態(tài),即不可保存,可修改,可刪除.(因?yàn)?在查詢(xún)資料的同時(shí)無(wú)需執(zhí)行保存數(shù)據(jù),而可以進(jìn)行數(shù)據(jù)的修改和刪除) 3.3.4 油價(jià)管理數(shù)據(jù)處理圖 圖 3.6所有型號(hào)油價(jià)流程圖 圖 3.7增加油型號(hào)流程圖 所有客戶(hù) 數(shù)據(jù)初始化 讀

27、取數(shù)據(jù)行數(shù) 顯示數(shù)據(jù) 增加客戶(hù) 數(shù)據(jù)初始化 讀取數(shù)據(jù)字段 初始化表格 等待輸入數(shù)據(jù) 所有油價(jià)表 數(shù)據(jù)初始化 讀取數(shù)據(jù)行數(shù) 顯示數(shù)據(jù) 增加油型號(hào) 數(shù)據(jù)初始化 讀取數(shù)據(jù)字段 初始化表格 等待輸入數(shù)據(jù) 3.3.5 資料保存流程圖 n n y 圖 3.8資料保存流程圖 （1）在點(diǎn)擊上列按鈕后,系統(tǒng)屬于可保存狀態(tài),不可修改狀態(tài),不可刪除狀態(tài). （2）點(diǎn)擊保存功能實(shí)現(xiàn): 驗(yàn)證輸入對(duì)象:即是保存客戶(hù)信息的內(nèi)容還是加油信息的內(nèi)容,判斷表格中是否為空,為空提 示并退出操作 驗(yàn)證用戶(hù)輸入的數(shù)據(jù)中是否有必填的字段未填的,如果有,提示并退出操作,等待用戶(hù)補(bǔ)齊 以上順利完成,對(duì)每行進(jìn)行組織語(yǔ)句(插入語(yǔ)句),然后執(zhí)行該語(yǔ)

28、句,語(yǔ)句成功提示并退出操作,否 則通過(guò)防錯(cuò)提示并退出操作 3.3.6 車(chē)輛管理 執(zhí)行保存 保存狀態(tài) 載入表名 客戶(hù)信息加油信息 數(shù)據(jù)完整性 是否有重復(fù) 插入資料 退出 圖 3.9車(chē)輛管理流程圖 注：增加：刷新表格數(shù)據(jù)，調(diào)整到等待輸入狀態(tài) 保存：執(zhí)行增加操作后，并輸入了必要的數(shù)據(jù)后執(zhí)行，保存用戶(hù)輸入的數(shù)據(jù) 修改：對(duì)原有數(shù)據(jù)進(jìn)行修改，車(chē)輛編號(hào)為唯一值不可修改 刪除：刪除表格中所選目標(biāo)行 退出：退出課程管理接口，返回到主接口視圖 3.3.7 查詢(xún) 實(shí)現(xiàn)功能: 支持客戶(hù)信息,加油信息的所有查詢(xún),需要用戶(hù)自己組織語(yǔ)句,加大了查詢(xún)的范圍,任何該表 的參數(shù)都可以查詢(xún)到. 3.4 結(jié)論和總結(jié) 確定了本系統(tǒng)的實(shí)

29、用價(jià)值后，選用了目前最常用也最簡(jiǎn)便的 access 數(shù)據(jù)庫(kù)作為后臺(tái)，鑒于 ado 在很多程序里的廣泛應(yīng)用，使用 ado 來(lái)連接數(shù)據(jù)庫(kù)將是最為適用的，并且在定義了 ado 的連 接模塊后，對(duì)于將來(lái)的升級(jí)也會(huì)很方便，只要修改一下連接源，就可以輕松的更換后臺(tái)， access 適用于單機(jī)版，當(dāng)想轉(zhuǎn)換為網(wǎng)絡(luò)版的 sql 數(shù)據(jù)庫(kù)時(shí)，就很容易做到 為了減少系統(tǒng)的數(shù)據(jù)資源，選用了目前最方便的將數(shù)據(jù)交給后臺(tái)處理的方法，即使用 sql 的語(yǔ)句將數(shù)據(jù)庫(kù)交給 access 后臺(tái)，由后臺(tái)來(lái)處理，這樣系統(tǒng)的執(zhí)行會(huì)加快，也使用程序本身變 得簡(jiǎn)單 本程序使用了新型控件 flexcell，此控件的雙色表格與單元格的特殊賦值功能

30、不但能帶給 用戶(hù)最好的視覺(jué)感受，同時(shí)在操作時(shí)大大減少了手動(dòng)輸入操作，因此也為非計(jì)算機(jī)人員的可操 作性帶來(lái)很大的方便。 編寫(xiě)了菜單程序：增強(qiáng)了非計(jì)算機(jī)人員的可操作性，使整個(gè)窗體布局更加直觀化。 支持全方位查詢(xún)，可以通過(guò)計(jì)算機(jī)人員的自寫(xiě)語(yǔ)句實(shí)現(xiàn)定位查詢(xún)，只要語(yǔ)句正確，都能找 到所要找的記錄。 使用了透明 api 函數(shù)，在調(diào)用用戶(hù)管理與客戶(hù)管理等窗體的時(shí)候，對(duì)該窗體進(jìn)行透明化處 理。 車(chē)輛管理 增加保存修改刪除退出 第 4 章 部分程序功能的講解 4.1 登陸界面 圖 4.1 登陸對(duì)話框 在這里我設(shè)置了三種類(lèi)型的權(quán)限：第一種為經(jīng)理(超級(jí)管理員)；第二種為管理員；第三種 為客戶(hù)。 在此我設(shè)置了錯(cuò)誤陷阱

31、，當(dāng)輸入的用戶(hù)名和密碼是錯(cuò)誤的時(shí)候，將會(huì)出現(xiàn)用戶(hù)名和密碼錯(cuò) 誤的提示。當(dāng)輸入的是正確的用戶(hù)名和密碼時(shí)，將會(huì)進(jìn)入系統(tǒng)主接口。并在窗體下面的狀態(tài)區(qū) 里顯示出當(dāng)前的日期、歡迎詞、當(dāng)前操作的用戶(hù)和它的權(quán)限。 圖 4.2 系統(tǒng)主界面 4.2 系統(tǒng)操作 4.2.1 用戶(hù)管理 圖 4.3 用戶(hù)管理界面 在這里我們可以修改用用戶(hù)的信息，可以添加、保存、修改和刪除用戶(hù)的信息。但超級(jí)用 戶(hù)的信息不能修改。 當(dāng)我們以超級(jí)管理員的身份登陸時(shí)，可以對(duì)所有用戶(hù)進(jìn)行以添加、保存、修改。當(dāng)我們以 管理員用戶(hù)身份登陸時(shí)，只能對(duì)自身和客戶(hù)信息進(jìn)行以添加、保存、修改。當(dāng)以客戶(hù)身份登陸 時(shí)，他只能對(duì)自身的信息進(jìn)行以修改和保存。 4.

32、2.2 修改密碼 圖 4.4 修改密碼界面 在這里我們可以快捷的修改自身的密碼。當(dāng)修改時(shí)必須先輸入當(dāng)前正在使用戶(hù)的密碼，然 后再輸入想要更改后的新密碼，點(diǎn)擊“確定” ，修改成功。在下次進(jìn)入系統(tǒng)時(shí)將會(huì)啟用新的密碼。 4.3 客戶(hù)信息管理 4.3.1 客戶(hù)信息管理 圖 4.5 客戶(hù)信息管理界面 在這里我們可以對(duì)客戶(hù)的基本信息進(jìn)行添加、保存、充值、修改、刪除和退出操作。 具體操作時(shí)，用戶(hù)的編號(hào)是自動(dòng)生成的，不需要手動(dòng)添加，為管理人員方便了不少，也節(jié) 省了時(shí)間。單位名稱(chēng)為關(guān)鍵詞，為必須輸入的信息，不能為空。因?yàn)樗亲钪匾年P(guān)鍵詞段， 將來(lái)在查詢(xún)時(shí)會(huì)用到。我將來(lái)以后的章節(jié)里講解。在這里我也加入了錯(cuò)誤陷阱

33、，并而輸入的信 息為文本。負(fù)責(zé)人也為關(guān)鍵詞段，也不能為空，并且同樣設(shè)置了錯(cuò)誤陷阱。地址和聯(lián)系方式同 理，輸入的信息也一樣為文本的形式。而傳真號(hào)碼、郵箱地址和郵編為可填選項(xiàng)。既用戶(hù)添不 添加信息都可以。預(yù)存款余額為必填字段，必須有內(nèi)容，為數(shù)字類(lèi)型。當(dāng)?shù)谝淮翁砑涌蛻?hù)必需 添加，具體添加方法為點(diǎn)擊“充值” 。其為客戶(hù)加油時(shí)預(yù)存的現(xiàn)金，它的單位為(人民幣/元)， 它在加油和統(tǒng)計(jì)時(shí)會(huì)用到。所以，非常的重要。 當(dāng)用戶(hù)需要修改信息時(shí)，直接在客戶(hù)信息管理接口里修改，當(dāng)修改完畢后，點(diǎn)擊保存， 信息將更新為新的內(nèi)容。 4.3.2 用戶(hù)信息查詢(xún) 圖 4.6 用戶(hù)信息查詢(xún)界面 在這里我們可以查詢(xún)到已有客戶(hù)有基本信息，

34、以方式及時(shí)和客戶(hù)保持聯(lián)系。 在這里我只設(shè)為精確查詢(xún)。因?yàn)榭紤]到用戶(hù)信息的保密性，所以只設(shè)置了精確查詢(xún)，以防 有其它人去查詢(xún)?cè)搯挝坏臄?shù)據(jù)。 4.4 油價(jià)管理 4.4.1 油價(jià)管理 圖 4.7 油價(jià)管理界面 在此可以對(duì)油品的種類(lèi)、油品型號(hào)和油品價(jià)格進(jìn)進(jìn)行設(shè)置。單位為(元/升)。在這里只有權(quán) 限為經(jīng)理和超級(jí)管理員的用戶(hù)才可以設(shè)置。這樣對(duì)加油的管理起到了規(guī)范的作用。 修改方法同理 4.4.2 油價(jià)查詢(xún) 圖 4.8 油價(jià)信息查詢(xún)界面 在這里可以對(duì)油品的種類(lèi)。油品型號(hào)和價(jià)格進(jìn)行查詢(xún)，這樣設(shè)計(jì)可以對(duì)當(dāng)前的信息一目了 然，達(dá)到方便的作用。 4.5 加油信息管理 4.5.1 車(chē)輛管理 圖 4.9 車(chē)輛管理界面

35、在這里可以對(duì)客戶(hù)單位的車(chē)輛進(jìn)行登記和管理。在已經(jīng)的客戶(hù)信息里添加車(chē)輛，記錄車(chē)牌 號(hào)，以車(chē)號(hào)為準(zhǔn)，根據(jù)已經(jīng)存的信息進(jìn)行對(duì)號(hào)加油。 4.5.2 加油 圖 4.10 加油界面 在這里進(jìn)行加沒(méi)的信息添加，對(duì)應(yīng)車(chē)輛，對(duì)應(yīng)單位，然后輸入要加入多少油，就會(huì)顯示出 需要多少錢(qián)，然后選擇月份，點(diǎn)保存。以方便日后統(tǒng)計(jì)。 4.5.3 加油查詢(xún) 圖 4.11 油價(jià)信息查詢(xún)界面 在這里可以對(duì)加過(guò)油的車(chē)輛和單位進(jìn)行信息查詢(xún)。在這里也被設(shè)定為精確查詢(xún)，也是考慮 到用戶(hù)信息的安全性。 4.6 加油信息統(tǒng)計(jì) 圖 4.12 加油信息統(tǒng)計(jì)界面 在這里可以對(duì)已經(jīng)有客戶(hù)的加油量進(jìn)行統(tǒng)計(jì)，可以按月份統(tǒng)計(jì)也可以按年統(tǒng)計(jì)。在下拉列 表框里選

36、擇已有單位的名稱(chēng)和車(chē)輛等要查信息，然后點(diǎn)統(tǒng)計(jì)，將會(huì)生成新表，顯示加油的信息， 并在最后有小計(jì)，以方便觀看一共加了多少油，還剩余多少錢(qián)。 4.7 關(guān)于 圖 4.7 系統(tǒng)關(guān)于界面 關(guān)于本系統(tǒng)的名稱(chēng)和版本 結(jié)束語(yǔ) 加油站客戶(hù)信息管理系統(tǒng)基本符合中小型加油站的需求。能夠完成對(duì)客戶(hù)信息和加油信息 的管理和操作。系統(tǒng)設(shè)計(jì)完成后總結(jié)出一些本系統(tǒng)的優(yōu)點(diǎn)和缺點(diǎn)。本信息管理系統(tǒng)的優(yōu)點(diǎn)是： 對(duì)客戶(hù)的信息可以規(guī)范統(tǒng)一管理；查詢(xún)信息方便，一目了然；操作簡(jiǎn)便；信息內(nèi)容豐富等。尤 其是在信息安全性和數(shù)據(jù)統(tǒng)計(jì)方面進(jìn)行了人性化的設(shè)計(jì)。例如，其一、客戶(hù)在查詢(xún)信息時(shí)必須 使用精確查詢(xún)，這樣可以使它人很難能夠查詢(xún)到客戶(hù)自己的信息，而

37、查詢(xún)的內(nèi)容必須是客戶(hù)自 己設(shè)立的，這樣就增強(qiáng)了信息的安全性。其二、對(duì)客戶(hù)已有的信息進(jìn)行統(tǒng)計(jì)，使其可以進(jìn)行按 月統(tǒng)計(jì)和按年統(tǒng)計(jì)，使客戶(hù)更為方便的了解到自己的信息，做到心中有數(shù)，在統(tǒng)計(jì)后還能夠顯 示出自己預(yù)存款的余額，這樣可以使自己的帳目很清楚，以免繁瑣的計(jì)算而出現(xiàn)錯(cuò)誤的可能性 大大減小，在查詢(xún)統(tǒng)計(jì)后，如需要留有存根還可以打印出來(lái)，方便保留數(shù)據(jù)，以備后用。本信 息管理系統(tǒng)有也一些不足之處。如界面設(shè)計(jì)過(guò)于單調(diào)，應(yīng)該加入一些按鍵圖標(biāo)，使其更生動(dòng)； 必須讓具有一定計(jì)算機(jī)操作基礎(chǔ)的人員使用，以免操作錯(cuò)誤；設(shè)計(jì)代碼有些復(fù)雜等不足之處。 有待于本人加強(qiáng)。因此，我要在以后的工作學(xué)習(xí)不斷的完善自我，豐富自己的專(zhuān)業(yè)

38、知識(shí)，使本 系統(tǒng)功能更加完善。 附錄 連接數(shù)據(jù)庫(kù)的模塊代碼 public cnn as new adodb.connection 新建一個(gè)資料源 public qy1 as new adodb.recordset 數(shù)據(jù)一個(gè)記錄集 public qy2 as new adodb.recordset 數(shù)據(jù)一個(gè)記錄集 sub main() tkopenaccessdb app.path & _ tkuserid, _ tkpassword exit sub tkfinish: msgbox err.description end end sub 主窗體接口與代碼 圖 5.1系統(tǒng)主窗體 private

39、 sub mdiform_load() statusbar1.simpletext = 今天是 & year(date) & 年 & month(date) & 月 & day(date) & 日 , 歡迎您使用加油站客戶(hù)信息管理系統(tǒng) ! & 當(dāng)前操作者: & user111 & 權(quán)限: & sup end sub private sub mdipass_click() if mdi = false then msgbox 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me form11.show end if end sub private s

40、ub relog_click() if mdi = false then msgbox 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me form1.show end if end sub private sub sturea_click() if mdi = false then msgbox 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me form4.show end if end sub private sub stureg_click() if mdi = false then msg

41、box 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else if chair = true or workman = true then unload me form3.show else msgbox 你是客戶(hù),沒(méi)有使用此功能的權(quán)限! end if end if end sub private sub stuxuan_click() if mdi = false then msgbox 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me if chair = false and workman = false the

42、n msgbox 你沒(méi)有管理此功能的權(quán)限! else form8.show end if end if end sub private sub user_click() if chair = false and workman = false then msgbox 你沒(méi)有管理此功能的權(quán)限! exit sub end if if mdi = true and chair = true then form2.show else if mdi = true and workman = true then form12.show else msgbox 每次只能打開(kāi)一個(gè)窗口，請(qǐng)關(guān)閉正在打開(kāi)的窗口！,

43、 vbinformation, 不允許 當(dāng)前操作！ end if end if end sub private sub xuankecha_click() if mdi = false then msgbox 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me form9.show end if end sub private sub zhuxiu_click() if mdi = false then msgbox 請(qǐng)關(guān)閉打開(kāi)的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me if chair = true

44、 then form5.show else msgbox 你沒(méi)有管理此功能的權(quán)限! end if end if end sub 客戶(hù)信息管理接口與代碼 圖 5.2客戶(hù)信息管理 dim girdsav2 as boolean dim gridedi2 as boolean dim griddel2 as boolean private sub form_load() on error goto finish grid1.setregisterinformation cnwinndy, wvyy-nonvk-unty-zbl_e-hms 進(jìn)行注冊(cè) with grid1 .allowuserresi

45、zing = true .displayfocusrect = false .extendlastcol = true .appearance = flat .fixedrowcolstyle = flat .scrollbarstyle = flat .cols = 12 .defaultfont.name = tahoma .defaultfont.size = 8 .backcolorfixed = rgb(90, 158, 214) .backcolorfixedsel = rgb(110, 180, 230) .backcolorbkg = rgb(90, 158, 214) .ba

46、ckcolorscrollbar = rgb(231, 235, 247) .backcolor1 = rgb(231, 235, 247) .backcolor2 = rgb(239, 243, 255) .gridcolor = rgb(148, 190, 231) .allowuserresizing = true .displayfocusrect = false .extendlastcol = true .appearance = flat .fixedrowcolstyle = flat .scrollbarstyle = flat .gridcolor = rgb(148, 1

47、90, 231) .defaultfont.name = tahoma .defaultfont.size = 8 .column(0).width = 0 .column(1).width = 30 .column(2).width = 100 .column(3).width = 50 .column(4).width = 100 .column(5).width = 100 .column(6).width = 100 .column(7).width = 80 .column(8).width = 80 .column(9).width = 80 end with call callm

48、ain grid1.column(1).locked = true grid1.column(9).locked = true gridsav2 = false gridedi2 = true griddel2 = true mdi = false exit sub finish: msgbox err.description end sub private sub form_unload(cancel as integer) mdi = true end sub private sub xpbutton1_click() on error goto finish grid1.column(9

49、).locked = false set mdbrs = mdbconn.execute(select * from 客戶(hù)信息) grid1.rows = 1 grid1.rows = 2 grid1.column(1).locked = true grid1.cell(1, 2).setfocus gridsav2 = true gridedi2 = false griddel2 = false exit sub finish: msgbox err.description end sub private sub xpbutton2_click() on error goto finish

50、if gridsav2 = false then msgbox 不支持保存操作！, vbinformation, 當(dāng)前不支持 exit sub end if dim s6, s7, s8 as string if grid1.cell(1, 2).text = then msgbox 單位名稱(chēng)不可以是空格！, vbinformation, 錯(cuò)誤提示 exit sub end if if grid1.cell(1, 3).text = then msgbox 負(fù)責(zé)人不可以是空格！, vbinformation, 錯(cuò)誤提示 exit sub end if if grid1.cell(1, 4).t

51、ext = then msgbox 請(qǐng)?zhí)顚?xiě)單位地址！, vbinformation, 錯(cuò)誤提示 exit sub end if if grid1.cell(1, 5).text = then msgbox 請(qǐng)?zhí)顚?xiě)聯(lián)系方式！, vbinformation, 錯(cuò)誤提示 exit sub end if if grid1.cell(1, 6).text = then s6 = - else s6 = grid1.cell(1, 6).text end if if grid1.cell(1, 7).text = then s7 = - else s7 = grid1.cell(1, 7).text en

52、d if if grid1.cell(1, 8).text = then s8 = - else s8 = grid1.cell(1, 8).text end if set mdbrs = mdbconn.execute(select * from 客戶(hù)信息 where 單位名稱(chēng)= & grid1.cell(1, 2). text & ) if mdbrs.eof = true then set mdbrs = mdbconn.execute(insert into 客戶(hù)信息(單位名稱(chēng),負(fù)責(zé)人,地址,聯(lián)系方式,傳真 號(hào)碼,郵件地址,郵編,預(yù)存款余額) values( & grid1.cell(

53、1, 2).text & , & grid1.cell(1, 3).text & , & grid1.cell(1, 4).text & , & grid1.cell(1, 5).text & , & s6 & , & s7 & , & s8 & ,val( & grid1.cell(1, 9).text & ) msgbox 提交成功！, vbinformation, call callmain else msgbox 該單位己存在！, vbinformation, 不可重名 exit sub end if grid1.column(9).locked = true exit sub fin

54、ish: msgbox err.description end sub private sub xpbutton3_click() on error goto finish dim s6, s7, s8 as string if gridedi2 = false then msgbox 當(dāng)前修改操作不被允許!, vbinformation, 非使用對(duì)象 exit sub end if for i = 1 to grid1.rows - 1 if grid1.cell(i, 6).text = then s6 = - else s6 = grid1.cell(i, 6).text end if

55、if grid1.cell(i, 7).text = then s7 = - else s7 = grid1.cell(i, 7).text end if if grid1.cell(i, 8).text = then s8 = - else s8 = grid1.cell(i, 8).text end if set mdbrs = mdbconn.execute(update 客戶(hù)信息 set 單位名稱(chēng)= & grid1.cell(i, 2). text & ,負(fù)責(zé)人= & grid1.cell(i, 3).text & ,地址= & grid1.cell(i, 4).text & ,聯(lián)系方

56、式= & grid1.cell(i, 5).text & ,傳真號(hào)碼= & s6 & ,郵件地址= & s7 & ,郵編= & s8 & ,預(yù)存款余 額=val( & grid1.cell(i, 9).text & ) where 客戶(hù)編號(hào)=val( & grid1.cell(i, 1).text & ) next msgbox 修改的數(shù)據(jù)己經(jīng)完成, vbinformation, 完成操作 call callmain exit sub finish: msgbox err.description end sub private sub xpbutton4_click() on error go

57、to finish if griddel2 = false then msgbox 當(dāng)前刪除操作不被允許!, vbinformation, 非使用對(duì)象 exit sub end if if hang = 0 then msgbox 沒(méi)有選擇客戶(hù)或者沒(méi)有客戶(hù)可以刪除!, vbinformation, 非使用對(duì)象 exit sub end if set mdbrs = mdbconn.execute(delete from 客戶(hù)信息 where 客戶(hù)編號(hào)=val( & grid1.cell(hang, 1).text & ) msgbox 目標(biāo)己刪除,請(qǐng)刷新數(shù)據(jù)!, vbinformation,

58、刪除成功 call callmain exit sub finish: msgbox err.description end sub private sub xpbutton5_click() unload me end sub private sub callmain() on error goto finish gridsav2 = false gridedi2 = true griddel2 = true set mdbrs = mdbconn.execute(select * from 客戶(hù)信息) grid1.rows = 1 i = 9 grid1.cols = i + 1 for

59、i = 0 to 8 if i = 8 then grid1.cell(0, i + 1).text = mdbrs.fields(i).name & (元) else grid1.cell(0, i + 1).text = mdbrs.fields(i).name end if next i = 1 do while not mdbrs.eof grid1.rows = grid1.rows + 1 for j = 1 to 9 設(shè)定讀取列 if mdbrs.fields(j - 1).value = - then 空值的處理 grid1.cell(i, j).text = else gri

60、d1.cell(i, j).text = mdbrs.fields(j - 1).value end if next i = i + 1 mdbrs.movenext 讀取下一記錄 loop grid1.column(1).locked = true exit sub finish: msgbox err.description end sub private sub grid1_rowcolchange(byval row as long, byval col as long) hang = row end sub private sub xpbutton6_click() on error