【文章內(nèi)容簡介】 流程圖注：增加：刷新表格數(shù)據(jù)，調(diào)整到等待輸入狀態(tài) 保存：執(zhí)行增加操作后，并輸入了必要的數(shù)據(jù)后執(zhí)行，保存用戶輸入的數(shù)據(jù) 修改：對原有數(shù)據(jù)進行修改，車輛編號為唯一值不可修改 刪除：刪除表格中所選目標行 退出：退出課程管理接口，返回到主接口視圖實現(xiàn)功能: 　支持客戶信息,加油信息的所有查詢,需要用戶自己組織語句,加大了查詢的范圍,任何該表的參數(shù)都可以查詢到.：確定了本系統(tǒng)的實用價值后，選用了目前最常用也最簡便的access數(shù)據(jù)庫作為后臺，鑒于ADO在很多程序里的廣泛應用，使用ADO來連接數(shù)據(jù)庫將是最為適用的，并且在定義了ADO的連接模塊后，對于將來的升級也會很方便，只要修改一下連接源，就可以輕松的更換后臺，access適用于單機版，當想轉(zhuǎn)換為網(wǎng)絡版的SQL數(shù)據(jù)庫時，就很容易做到為了減少系統(tǒng)的數(shù)據(jù)資源，選用了目前最方便的將數(shù)據(jù)交給后臺處理的方法，即使用SQL的語句將數(shù)據(jù)庫交給ACCESS后臺，由后臺來處理，這樣系統(tǒng)的執(zhí)行會加快，也使用程序本身變得簡單（1） 本程序使用了新型控件flexcell，此控件的雙色表格與單元格的特殊賦值功能不但能帶給用戶最好的視覺感受，同時在操作時大大減少了手動輸入操作，因此也為非計算機人員的可操作性帶來很大的方便。（2） 編寫了菜單程序：增強了非計算機人員的可操作性，使整個窗體布局更加直觀化。（3） 支持全方位查詢，可以通過計算機人員的自寫語句實現(xiàn)定位查詢，只要語句正確，都能找到所要找的記錄。（4） 使用了透明API函數(shù)，在調(diào)用用戶管理與客戶管理等窗體的時候，對該窗體進行透明化處理。第4章 部分程序功能的講解在這里我設置了三種類型的權限：第一種為經(jīng)理(超級管理員)；第二種為管理員；第三種為客戶。在此我設置了錯誤陷阱，當輸入的用戶名和密碼是錯誤的時候，將會出現(xiàn)用戶名和密碼錯誤的提示。當輸入的是正確的用戶名和密碼時，將會進入系統(tǒng)主接口。并在窗體下面的狀態(tài)區(qū)里顯示出當前的日期、歡迎詞、當前操作的用戶和它的權限。 系統(tǒng)操作 用戶管理 用戶管理界面在這里我們可以修改用用戶的信息，可以添加、保存、修改和刪除用戶的信息。但超級用戶的信息不能修改。當我們以超級管理員的身份登陸時，可以對所有用戶進行以添加、保存、修改。當我們以管理員用戶身份登陸時，只能對自身和客戶信息進行以添加、保存、修改。當以客戶身份登陸時，他只能對自身的信息進行以修改和保存。 修改密碼 修改密碼界面在這里我們可以快捷的修改自身的密碼。當修改時必須先輸入當前正在使用戶的密碼，然后再輸入想要更改后的新密碼，點擊“確定”，修改成功。在下次進入系統(tǒng)時將會啟用新的密碼。 客戶信息管理 客戶信息管理在這里我們可以對客戶的基本信息進行添加、保存、充值、修改、刪除和退出操作。具體操作時，用戶的編號是自動生成的，不需要手動添加，為管理人員方便了不少，也節(jié)省了時間。單位名稱為關鍵詞，為必須輸入的信息，不能為空。因為它是最重要的關鍵詞段，將來在查詢時會用到。我將來以后的章節(jié)里講解。在這里我也加入了錯誤陷阱，并而輸入的信息為文本。負責人也為關鍵詞段，也不能為空，并且同樣設置了錯誤陷阱。地址和聯(lián)系方式同理，輸入的信息也一樣為文本的形式。而傳真號碼、郵箱地址和郵編為可填選項。既用戶添不添加信息都可以。預存款余額為必填字段，必須有內(nèi)容，為數(shù)字類型。當?shù)谝淮翁砑涌蛻舯匦杼砑樱唧w添加方法為點擊“充值”。其為客戶加油時預存的現(xiàn)金，它的單位為(人民幣/元)，它在加油和統(tǒng)計時會用到。所以，非常的重要。 當用戶需要修改信息時，直接在客戶信息管理接口里修改，當修改完畢后，點擊保存，信息將更新為新的內(nèi)容。 用戶信息查詢在這里我們可以查詢到已有客戶有基本信息，以方式及時和客戶保持聯(lián)系。在這里我只設為精確查詢。因為考慮到用戶信息的保密性，所以只設置了精確查詢，以防有其它人去查詢該單位的數(shù)據(jù)。 油價管理 油價管理 油價管理界面在此可以對油品的種類、油品型號和油品價格進進行設置。單位為(元/升)。在這里只有權限為經(jīng)理和超級管理員的用戶才可以設置。這樣對加油的管理起到了規(guī)范的作用。修改方法同理 油價查詢 油價信息查詢界面 在這里可以對油品的種類。油品型號和價格進行查詢，這樣設計可以對當前的信息一目了然，達到方便的作用。 加油信息管理 車輛管理 車輛管理界面 在這里可以對客戶單位的車輛進行登記和管理。在已經(jīng)的客戶信息里添加車輛，記錄車牌號，以車號為準，根據(jù)已經(jīng)存的信息進行對號加油。 加油 加油界面 在這里進行加沒的信息添加，對應車輛，對應單位，然后輸入要加入多少油，就會顯示出需要多少錢，然后選擇月份，點保存。以方便日后統(tǒng)計。 加油查詢 油價信息查詢界面 在這里可以對加過油的車輛和單位進行信息查詢。在這里也被設定為精確查詢，也是考慮到用戶信息的安全性。 加油信息統(tǒng)計 加油信息統(tǒng)計界面 在這里可以對已經(jīng)有客戶的加油量進行統(tǒng)計，可以按月份統(tǒng)計也可以按年統(tǒng)計。在下拉列表框里選擇已有單位的名稱和車輛等要查信息，然后點統(tǒng)計，將會生成新表，顯示加油的信息，并在最后有小計，以方便觀看一共加了多少油，還剩余多少錢。 關于 系統(tǒng)關于界面 關于本系統(tǒng)的名稱和版本結(jié)束語　　加油站客戶信息管理系統(tǒng)基本符合中小型加油站的需求。能夠完成對客戶信息和加油信息的管理和操作。系統(tǒng)設計完成后總結(jié)出一些本系統(tǒng)的優(yōu)點和缺點。本信息管理系統(tǒng)的優(yōu)點是：對客戶的信息可以規(guī)范統(tǒng)一管理；查詢信息方便，一目了然；操作簡便；信息內(nèi)容豐富等。尤其是在信息安全性和數(shù)據(jù)統(tǒng)計方面進行了人性化的設計。例如，其一、客戶在查詢信息時必須使用精確查詢，這樣可以使它人很難能夠查詢到客戶自己的信息，而查詢的內(nèi)容必須是客戶自己設立的，這樣就增強了信息的安全性。其二、對客戶已有的信息進行統(tǒng)計，使其可以進行按月統(tǒng)計和按年統(tǒng)計，使客戶更為方便的了解到自己的信息，做到心中有數(shù)，在統(tǒng)計后還能夠顯示出自己預存款的余額，這樣可以使自己的帳目很清楚，以免繁瑣的計算而出現(xiàn)錯誤的可能性大大減小，在查詢統(tǒng)計后，如需要留有存根還可以打印出來，方便保留數(shù)據(jù)，以備后用。本信息管理系統(tǒng)有也一些不足之處。如界面設計過于單調(diào)，應該加入一些按鍵圖標，使其更生動；必須讓具有一定計算機操作基礎的人員使用，以免操作錯誤；設計代碼有些復雜等不足之處。有待于本人加強。因此，我要在以后的工作學習不斷的完善自我，豐富自己的專業(yè)知識，使本系統(tǒng)功能更加完善。 第5章　主要程序接口與部分代碼 連接數(shù)據(jù)庫的模塊代碼Public n As New 39。新建一個資料源Public qy1 As New 39。數(shù)據(jù)一個記錄集Public qy2 As New 39。數(shù)據(jù)一個記錄集Sub Main()tkOpenAccessDB amp。 \ 39。連接數(shù)據(jù)庫If = adStateOpen Then 39。表狀態(tài)End If select * from 登陸, n, adOpenStatic, adLockReadOnly, adCmdText 39。查詢表內(nèi)是否有數(shù)據(jù)If = 0 ThenSet qy1 = (insert into 登陸 values(39。admin39。,39。admin39。,39。超級管理員39。)) 39。表內(nèi)無數(shù)據(jù)執(zhí)行此語句新建用戶End IfEnd SubPrivate Sub tkOpenAccessDB( _ tkFileName As String, _ Optional tkUserID As String, _ Optional tkPassword As String _ ) 39。連接數(shù)據(jù)庫參數(shù) On Error GoTo tkFinish Provider=。 amp。 _ Data Source= amp。 tkFileName amp。 。 amp。 _ Mode=Share Deny None。 amp。 _ Extended Properties=。 amp。 _ Jet OLEDB:System database=。 amp。 _ Jet OLEDB:Registry Path=。 amp。 _ Jet OLEDB:Database Password=。 amp。 _ Jet OLEDB:Engine Type=5。 amp。 _ Jet OLEDB:Database Locking Mode=1。 amp。 _ Jet OLEDB:Global Partial Bulk Ops=2。 amp。 _ Jet OLEDB:Global Bulk Transactions=1。 amp。 _ Jet OLEDB:New Database Password=。 amp。 _ Jet OLEDB:Create System Database=False。 amp。 _ Jet OLEDB:Encrypt Database=False。 amp。 _ Jet OLEDB:Don39。t Copy Locale on Compact=False。 amp。 _ Jet OLEDB:Compact Without Replica Repair=False。 amp。 _ Jet OLEDB:SFP=False。 amp。 _ tkUserID, _ tkPassword Exit SubtkFinish: MsgBox End End Sub 主窗體接口與代碼　系統(tǒng)主窗體Private Sub MDIForm_Load() = 今天是 amp。 Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 , 歡迎您使用加油站客戶信息管理系統(tǒng) ! amp。 當前操作者: amp。 user111 amp。 權限: amp。 supEnd SubPrivate Sub mdipass_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！Else39。Unload MeEnd IfEnd SubPrivate Sub relog_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！ElseUnload MeEnd IfEnd SubPrivate Sub sturea_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！Else39。Unload MeEnd IfEnd SubPrivate Sub stureg_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！ElseIf chair = True Or workman = True Then39。unload MeElseMsgBox 你是客戶,沒有使用此功能的權限!End IfEnd IfEnd SubPrivate Sub stuxuan_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！Else39。unload MeIf chair = False And workman = False ThenMsgBox 你沒有管理此功能的權限!ElseEnd IfEnd IfEnd SubPrivate Sub user_Click()If chair = False And workman = False Then MsgBox 你沒有管理此功能的權限! Exit SubEnd If If mdi = True And chair = True Then Else If mdi = True And workman = True Then Else MsgBox 每次只能打開一個窗口，請關閉正在打開的窗口！, vbInformation, 不允許當前操作！ End If End IfEnd SubPrivate Sub xuankecha_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！Else39。Unload MeEnd IfEnd SubPrivate Sub zhuxiu_Click()If mdi = False