【文章內(nèi)容簡介】 保存客戶信息的內(nèi)容還是加油信息的內(nèi)容 ,判斷表格中是否為空 ,為空提示并退出操作 驗(yàn)證用戶輸入的數(shù)據(jù)中是否有必填的字段未填的 ,如果有 ,提示并退出操作 ,等待用戶補(bǔ)齊 以上順利完成 ,對每行進(jìn)行組織語句 (插入語句 ),然后執(zhí)行該語句 ,語句成功提示并退出操作 ,否則通過防錯提示并退出操作 車輛管 理 執(zhí)行保存 保存狀態(tài) 載入表 名 客戶信息 加油信息 數(shù)據(jù)完整性 是否有重復(fù) 插入資料 退出 13 圖 車輛 管理流程 圖 注：增加：刷新表格數(shù)據(jù)，調(diào)整到等待輸入狀態(tài) 保存：執(zhí)行增加操作后，并輸入了必要的數(shù)據(jù)后執(zhí)行，保存用戶輸入的數(shù)據(jù) 修改：對原有數(shù)據(jù)進(jìn)行修改，車輛編號為唯一值不可修改 刪除：刪除表格中所選目標(biāo)行 退出：退出課程管理接口，返回到主接口視圖 實(shí)現(xiàn)功能 : 支持客戶信息 ,加油信息的所有查詢 ,需要用戶自己組織語句 ,加大了查詢的范圍 ,任何該表的參數(shù)都可以查詢到 . 確定了本系統(tǒng)的實(shí)用價(jià)值 后，選用了目前最常用也最簡便的 access 數(shù)據(jù)庫作為后臺，鑒于ADO在很多程序里的廣泛應(yīng)用，使用 ADO來連接數(shù)據(jù)庫將是最為適用的，并且在定義了 ADO 的連接模塊后，對于將來的升級也會很方便，只要修改一下連接源，就可以輕松的更換后臺， access適用于單機(jī)版，當(dāng)想轉(zhuǎn)換為網(wǎng)絡(luò)版的 SQL數(shù)據(jù)庫時(shí)，就很容易做到 為了減少系統(tǒng)的數(shù)據(jù)資源，選用了目前最方便的將數(shù)據(jù)交給后臺處理的方法，即使用 SQL的語句將數(shù)據(jù)庫交給 ACCESS 后臺，由后臺來處理，這樣系統(tǒng)的執(zhí)行會加快，也使用程序本身變得簡單 本程序使用了新型控件 flexcell，此控件的雙色表格與單元格的特殊賦值功能不但能帶給用戶最好的視覺感受，同時(shí)在操作時(shí)大大減少了手動輸入操作，因此也為非計(jì)算機(jī)人員的可操作性帶來很大的方便。 編寫了菜單程序：增強(qiáng)了非計(jì)算機(jī)人員的可操作性，使整個(gè)窗體布局更加直觀化。 支持全方位查詢，可以通過計(jì)算機(jī)人員的自寫語句實(shí)現(xiàn)定位查詢，只要語句正確，都能找到所要找的記錄。 使用了透 明 API 函數(shù)，在調(diào)用用戶管理與客戶管理等窗體的時(shí)候，對該窗體進(jìn)行透明化處理。 車輛管理 增加 保存 修改 刪除 退出 14 第 4 章 部分程序功能的講解 圖 陸對話框 在這里我設(shè)置了三種類型的權(quán) 限：第一種為經(jīng)理 (超級管理員 )；第二種為管理員；第三種為客戶。 在此我設(shè)置了錯誤陷阱，當(dāng)輸入的用戶名和密碼是錯誤的時(shí)候，將會出現(xiàn)用戶名和密碼錯誤的提示。當(dāng)輸入的是正確的用戶名和密碼時(shí)，將會進(jìn)入系統(tǒng)主接口。并在窗體下面的狀態(tài)區(qū)里顯示出當(dāng)前的日期、歡迎詞、當(dāng)前操作的用戶和它的權(quán)限。 圖 統(tǒng) 主界面 系統(tǒng)操作 用戶管理 15 圖 用 戶 管理界面 在 這 里 我們 可以修改用用 戶 的信息，可以添加、保存、修改和 刪 除用 戶 的信息。但超 級 用 戶的信息不能修改。 當(dāng)我們 以超 級 管理 員 的身份登 陸時(shí) ，可 以對 所 有用 戶進(jìn) 行以添加、保存、修改。 當(dāng)我們 以管理 員 用 戶 身份登 陸時(shí) ，只 能對 自身和客 戶 信 息進(jìn) 行以添加、保存、修改。 當(dāng) 以客 戶 身份登 陸時(shí) ，他只 能對 自身的信 息進(jìn) 行以修改和保存。 修改密 碼 圖 修改密 碼 界面 在 這 里 我們 可以快捷的修改自身的密 碼 。 當(dāng)修 改 時(shí) 必 須先輸 入 當(dāng) 前正在使用 戶 的密 碼， 然后再 輸 入想要更改后的新密 碼，點(diǎn)擊 “確定”，修改成功。在下次 進(jìn) 入系 統(tǒng)時(shí)將會啟 用新的密 碼 。 客 戶 信息管理 客 戶 信息管理 16 圖 戶 信息管理界面 在 這 里 我們 可 以對 客 戶 的基本信 息進(jìn) 行添加、保存、充值、修改 、 刪 除和退出操作。 具體操作 時(shí) ，用 戶 的 編號是 自 動 生成的，不需要手 動 添加， 為 管理人 員方 便了不少，也 節(jié) 省了 時(shí)間 。 單 位名 稱為關(guān)鍵詞 ， 為 必 須輸 入的信息，不能 為空。 因 為 它是最重要 的關(guān)鍵詞 段， 將來在查 詢時(shí)會 用到。我 將來 以后的 章節(jié) 里 講解 。在 這 里我也加入了 錯誤 陷阱，并而 輸 入的信 息為 文本。 負(fù)責(zé) 人也 為關(guān)鍵詞 段，也不能 為空 ，并且同 樣設(shè) 置了 錯誤 陷阱。地址和 聯(lián) 系方式同理， 輸 入的信息也一 樣為 文本的形式。而 傳真號碼 、 郵 箱地址和 郵編為 可填 選項(xiàng) 。既用 戶 添不添加信息都可以。 預(yù)存 款余 額為 必填字段，必 須 有 內(nèi) 容， 為數(shù) 字 類 型。 當(dāng) 第一次添加客 戶 必需添加 ，具體添加方法 為點(diǎn)擊 “充值”。其 為客戶 加油 時(shí)預(yù)存 的 現(xiàn) 金，它的 單 位 為 (人民 幣 /元 )，它在加油和 統(tǒng)計(jì)時(shí)會 用到。所以，非常的重要。 當(dāng) 用 戶 需要修改信 息時(shí) ，直接在客 戶 信息管理接口里修改， 當(dāng)修 改完 畢 后， 點(diǎn)擊 保存，信息 將 更新 為 新的 內(nèi) 容。 用 戶 信息查 詢 17 圖 戶 信息查 詢 界面 在 這 里 我們 可以查 詢 到已有客 戶 有基本信息，以方式 及時(shí) 和客 戶 保持 聯(lián) 系。 在 這 里我只 設(shè)為 精確查 詢。 因 為 考 慮 到用 戶 信息的保密性，所以只 設(shè) 置了精 確 查 詢 ，以防有其它人去查 詢該單 位的 數(shù) 據(jù)。 油價(jià)管理 油價(jià)管理 圖 油價(jià)管理界面 在此可以 對 油品的 種類 、油品型 號 和油品價(jià)格 進(jìn)進(jìn) 行 設(shè) 置。 單 位 為 (元 /升 )。在 這 里只有 權(quán)限 為經(jīng) 理和超 級 管理 員 的用 戶 才可以 設(shè) 置。 這樣對 加油的管理起到了 規(guī) 范的作用。 修改方法同理 油價(jià)查 詢 18 圖 油價(jià)信息查詢界面 在這里可以對油品的種類。油品型號和價(jià)格進(jìn)行查詢，這樣設(shè)計(jì)可以對當(dāng)前的信息一目了然，達(dá)到方便的作用。 加油信息管理 車輛 管理 圖 車輛管理界面 在這里可以對客戶單位的車輛進(jìn)行登記和管理。在已經(jīng)的客戶信息里添加車輛，記錄車牌號，以車 號為準(zhǔn)，根據(jù)已經(jīng)存的信息進(jìn)行對號加油。 19 加油 圖 加油界面 在這里進(jìn)行加沒的信息添加，對應(yīng)車輛，對應(yīng)單位，然后輸入要加入多少油，就會顯示出需要多少錢，然后選擇月份，點(diǎn)保存。以方便日后統(tǒng)計(jì)。 加油查 詢 圖 油價(jià)信息查詢界面 20 在這里可以對加過油的車輛和單位進(jìn)行信息查詢。在這里也被設(shè)定為精確查詢，也是考慮到用戶信息的安全性。 加油信息 統(tǒng)計(jì) 圖 加油信息統(tǒng)計(jì)界面 在這里可以對已經(jīng)有客戶的加油量進(jìn)行統(tǒng)計(jì)，可以按月份統(tǒng)計(jì)也可以按年統(tǒng)計(jì)。在下拉列表框里選 擇已有單位的名稱和車輛等要查信息，然后點(diǎn)統(tǒng)計(jì)，將會生成新表，顯示加油的信息，并在最后有小計(jì)，以方便觀看一共加了多少油，還剩余多少錢。 關(guān) 于 圖 系統(tǒng)關(guān)于界面 關(guān)于本系統(tǒng)的名稱和版本 21 結(jié)束語 加油站客戶信息管理系統(tǒng)基本符合中小型加油站的需求。能夠完成對客戶信息和加油信息的管理和操作。系統(tǒng)設(shè)計(jì)完成后總結(jié)出一些本系統(tǒng)的優(yōu)點(diǎn)和缺點(diǎn)。本信息管理系統(tǒng)的優(yōu)點(diǎn)是：對客戶的信息可以規(guī)范統(tǒng)一管理；查詢信息方便，一目了然；操作簡便；信息內(nèi)容豐富等。尤其是在信息安全性和數(shù)據(jù)統(tǒng)計(jì)方面進(jìn)行了人性化的設(shè)計(jì)。例如，其一 、客戶在查詢信息時(shí)必須使用精確查詢，這樣可以使它人很難能夠查詢到客戶自己的信息，而查詢的內(nèi)容必須是客戶自己設(shè)立的，這樣就增強(qiáng)了信息的安全性。其二、對客戶已有的信息進(jìn)行統(tǒng)計(jì)，使其可以進(jìn)行按月統(tǒng)計(jì)和按年統(tǒng)計(jì)，使客戶更為方便的了解到自己的信息，做到心中有數(shù)，在統(tǒng)計(jì)后還能夠顯示出自己預(yù)存款的余額，這樣可以使自己的帳目很清楚，以免繁瑣的計(jì)算而出現(xiàn)錯誤的可能性大大減小，在查詢統(tǒng)計(jì)后，如需要留有存根還可以打印出來，方便保留數(shù)據(jù)，以備后用。本信息管理系統(tǒng)有也一些不足之處。如界面設(shè)計(jì)過于單調(diào)，應(yīng)該加入一些按鍵圖標(biāo)，使其更生動 ；必須讓具有一定計(jì)算機(jī)操作基礎(chǔ)的人員使用，以免操作錯誤；設(shè)計(jì)代碼有些復(fù)雜等不足之處。有待于本人加強(qiáng)。因此，我要在以后的工作學(xué)習(xí)不斷的完善自我，豐富自己的專業(yè)知識，使本系統(tǒng)功能更加完善。 22 附錄 連接數(shù)據(jù)庫的模塊代碼 Public n As New 39。新建一個(gè)資料源 Public qy1 As New 39。數(shù)據(jù)一個(gè)記錄集 Public qy2 As New 39。數(shù)據(jù)一個(gè)記錄集 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 Then Set qy1 = (insert into 登陸 values(39。admin39。,39。admin39。,39。超級管理員 39。)) 39。表內(nèi)無數(shù)據(jù)執(zhí)行此語句新建用戶 End If End Sub Private 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。 _ 23 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 Sub tkFinish: 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。 當(dāng)前操作者 : amp。 user111 amp。 權(quán)限 : amp。 sup End Sub 24 Private Sub mdipass_Click() If mdi = False Then MsgBox 請關(guān)閉打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ Else 39。Unload Me End If End Sub Private Sub relog_Click() If mdi = False Then MsgBox 請關(guān)閉打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ Else Unload Me End If End Sub Private Sub sturea_Click() If mdi = False Then MsgBox 請關(guān)閉打開的窗口！ , vbInformation, 不允許當(dāng)前操作！