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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

38、知識，使本 系統(tǒng)功能更加完善。 附錄 連接數(shù)據(jù)庫的模塊代碼 public cnn as new adodb.connection 新建一個資料源 public qy1 as new adodb.recordset 數(shù)據(jù)一個記錄集 public qy2 as new adodb.recordset 數(shù)據(jù)一個記錄集 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) & 日 , 歡迎您使用加油站客戶信息管理系統(tǒng) ! & 當(dāng)前操作者: & user111 & 權(quán)限: & sup end sub private sub mdipass_click() if mdi = false then msgbox 請關(guān)閉打開的窗口！, vbinformation, 不允許當(dāng)前操作！ else unload me form11.show end if end sub private s

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

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

42、n msgbox 你沒有管理此功能的權(quán)限! else form8.show end if end if end sub private sub user_click() if chair = false and workman = false then msgbox 你沒有管理此功能的權(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 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！,

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

44、 then form5.show else msgbox 你沒有管理此功能的權(quán)限! end if end if end sub 客戶信息管理接口與代碼 圖 5.2客戶信息管理 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)行注冊 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 客戶信息) 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 單位名稱不可以是空格！, vbinformation, 錯誤提示 exit sub end if if grid1.cell(1, 3).text = then msgbox 負(fù)責(zé)人不可以是空格！, vbinformation, 錯誤提示 exit sub end if if grid1.cell(1, 4).t

51、ext = then msgbox 請?zhí)顚憜挝坏刂罚? vbinformation, 錯誤提示 exit sub end if if grid1.cell(1, 5).text = then msgbox 請?zhí)顚懧?lián)系方式！, vbinformation, 錯誤提示 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 客戶信息 where 單位名稱= & grid1.cell(1, 2). text & ) if mdbrs.eof = true then set mdbrs = mdbconn.execute(insert into 客戶信息(單位名稱,負(fù)責(zé)人,地址,聯(lián)系方式,傳真 號碼,郵件地址,郵編,預(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, 非使用對象 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 客戶信息 set 單位名稱= & 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 & ,傳真號碼= & s6 & ,郵件地址= & s7 & ,郵編= & s8 & ,預(yù)存款余 額=val( & grid1.cell(i, 9).text & ) where 客戶編號=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, 非使用對象 exit sub end if if hang = 0 then msgbox 沒有選擇客戶或者沒有客戶可以刪除!, vbinformation, 非使用對象 exit sub end if set mdbrs = mdbconn.execute(delete from 客戶信息 where 客戶編號=val( & grid1.cell(hang, 1).text & ) msgbox 目標(biāo)己刪除,請刷新數(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 客戶信息) 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