【文章內(nèi)容簡(jiǎn)介】 。并在窗體下面的狀態(tài)區(qū)里顯示出當(dāng)前的日期、歡迎詞、當(dāng)前操作的用戶和它的權(quán)限。圖 系統(tǒng)操作 用戶管理圖 用戶管理界面在這里我們可以修改用用戶的信息，可以添加、保存、修改和刪除用戶的信息。但超級(jí)用戶的信息不能修改。當(dāng)我們以超級(jí)管理員的身份登陸時(shí)，可以對(duì)所有用戶進(jìn)行以添加、保存、修改。當(dāng)我們以管理員用戶身份登陸時(shí)，只能對(duì)自身和客戶信息進(jìn)行以添加、保存、修改。當(dāng)以客戶身份登陸時(shí)，他只能對(duì)自身的信息進(jìn)行以修改和保存。 修改密碼圖 修改密碼界面在這里我們可以快捷的修改自身的密碼。當(dāng)修改時(shí)必須先輸入當(dāng)前正在使用戶的密碼，然后再輸入想要更改后的新密碼，點(diǎn)擊“確定” ，修改成功。在下次進(jìn)入系統(tǒng)時(shí)將會(huì)啟用新的密碼。 客戶信息管理 客戶信息管理圖 在這里我們可以對(duì)客戶的基本信息進(jìn)行添加、保存、充值、修改、刪除和退出操作。具體操作時(shí)，用戶的編號(hào)是自動(dòng)生成的，不需要手動(dòng)添加，為管理人員方便了不少，也節(jié)省了時(shí)間。單位名稱為關(guān)鍵詞，為必須輸入的信息，不能為空。因?yàn)樗亲钪匾年P(guān)鍵詞段，將來(lái)在查詢時(shí)會(huì)用到。我將來(lái)以后的章節(jié)里講解。在這里我也加入了錯(cuò)誤陷阱，并而輸入的信息為文本。負(fù)責(zé)人也為關(guān)鍵詞段，也不能為空，并且同樣設(shè)置了錯(cuò)誤陷阱。地址和聯(lián)系方式同理，輸入的信息也一樣為文本的形式。而傳真號(hào)碼、郵箱地址和郵編為可填選項(xiàng)。既用戶添不添加信息都可以。預(yù)存款余額為必填字段，必須有內(nèi)容，為數(shù)字類型。當(dāng)?shù)谝淮翁砑涌蛻舯匦杼砑樱唧w添加方法為點(diǎn)擊“充值” 。其為客戶加油時(shí)預(yù)存的現(xiàn)金，它的單位為(人民幣/元)，它在加油和統(tǒng)計(jì)時(shí)會(huì)用到。所以，非常的重要。 當(dāng)用戶需要修改信息時(shí)，直接在客戶信息管理接口里修改，當(dāng)修改完畢后，點(diǎn)擊保存，信息將更新為新的內(nèi)容。 用戶信息查詢圖 在這里我們可以查詢到已有客戶有基本信息，以方式及時(shí)和客戶保持聯(lián)系。在這里我只設(shè)為精確查詢。因?yàn)榭紤]到用戶信息的保密性，所以只設(shè)置了精確查詢，以防有其它人去查詢?cè)搯挝坏臄?shù)據(jù)。 油價(jià)管理 油價(jià)管理圖 油價(jià)管理界面在此可以對(duì)油品的種類、油品型號(hào)和油品價(jià)格進(jìn)進(jìn)行設(shè)置。單位為(元/升)。在這里只有權(quán)限為經(jīng)理和超級(jí)管理員的用戶才可以設(shè)置。這樣對(duì)加油的管理起到了規(guī)范的作用。修改方法同理 油價(jià)查詢圖 油價(jià)信息查詢界面在這里可以對(duì)油品的種類。油品型號(hào)和價(jià)格進(jìn)行查詢，這樣設(shè)計(jì)可以對(duì)當(dāng)前的信息一目了然，達(dá)到方便的作用。 加油信息管理 車輛管理圖 車輛管理界面在這里可以對(duì)客戶單位的車輛進(jìn)行登記和管理。在已經(jīng)的客戶信息里添加車輛，記錄車牌號(hào)，以車號(hào)為準(zhǔn)，根據(jù)已經(jīng)存的信息進(jìn)行對(duì)號(hào)加油。 加油圖 加油界面在這里進(jìn)行加沒(méi)的信息添加，對(duì)應(yīng)車輛，對(duì)應(yīng)單位，然后輸入要加入多少油，就會(huì)顯示出需要多少錢，然后選擇月份，點(diǎn)保存。以方便日后統(tǒng)計(jì)。 加油查詢圖 油價(jià)信息查詢界面在這里可以對(duì)加過(guò)油的車輛和單位進(jìn)行信息查詢。在這里也被設(shè)定為精確查詢，也是考慮到用戶信息的安全性。 加油信息統(tǒng)計(jì)圖 加油信息統(tǒng)計(jì)界面在這里可以對(duì)已經(jīng)有客戶的加油量進(jìn)行統(tǒng)計(jì)，可以按月份統(tǒng)計(jì)也可以按年統(tǒng)計(jì)。在下拉列表框里選擇已有單位的名稱和車輛等要查信息，然后點(diǎn)統(tǒng)計(jì)，將會(huì)生成新表，顯示加油的信息，并在最后有小計(jì)，以方便觀看一共加了多少油，還剩余多少錢。 關(guān)于圖 系統(tǒng)關(guān)于界面關(guān)于本系統(tǒng)的名稱和版本結(jié)束語(yǔ)加油站客戶信息管理系統(tǒng)基本符合中小型加油站的需求。能夠完成對(duì)客戶信息和加油信息的管理和操作。系統(tǒng)設(shè)計(jì)完成后總結(jié)出一些本系統(tǒng)的優(yōu)點(diǎn)和缺點(diǎn)。本信息管理系統(tǒng)的優(yōu)點(diǎn)是：對(duì)客戶的信息可以規(guī)范統(tǒng)一管理；查詢信息方便，一目了然；操作簡(jiǎn)便；信息內(nèi)容豐富等。尤其是在信息安全性和數(shù)據(jù)統(tǒng)計(jì)方面進(jìn)行了人性化的設(shè)計(jì)。例如，其一、客戶在查詢信息時(shí)必須使用精確查詢，這樣可以使它人很難能夠查詢到客戶自己的信息，而查詢的內(nèi)容必須是客戶自己設(shè)立的，這樣就增強(qiáng)了信息的安全性。其二、對(duì)客戶已有的信息進(jìn)行統(tǒng)計(jì)，使其可以進(jìn)行按月統(tǒng)計(jì)和按年統(tǒng)計(jì)，使客戶更為方便的了解到自己的信息，做到心中有數(shù)，在統(tǒng)計(jì)后還能夠顯示出自己預(yù)存款的余額，這樣可以使自己的帳目很清楚，以免繁瑣的計(jì)算而出現(xiàn)錯(cuò)誤的可能性大大減小，在查詢統(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í)不斷的完善自我，豐富自己的專業(yè)知識(shí)，使本系統(tǒng)功能更加完善。附錄連接數(shù)據(jù)庫(kù)的模塊代碼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ù)庫(kù)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。超級(jí)管理員39。)) 39。表內(nèi)無(wú)數(shù)據(jù)執(zhí)行此語(yǔ)句新建用戶End IfEnd SubPrivate Sub tkOpenAccessDB( _ tkFileName As String, _ Optional tkUserID As String, _ Optional tkPassword As String _ ) 39。連接數(shù)據(jù)庫(kù)參數(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。 當(dāng)前操作者: amp。 user111 amp。 權(quán)限: amp。 supEnd SubPrivate Sub mdipass_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。Unload MeEnd IfEnd SubPrivate Sub relog_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！ElseUnload MeEnd IfEnd SubPrivate Sub sturea_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。Unload MeEnd IfEnd SubPrivate Sub stureg_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！ElseIf chair = True Or workman = True Then39。unload MeElseMsgBox 你是客戶 ,沒(méi)有使用此功能的權(quán)限!End IfEnd IfEnd SubPrivate Sub stuxuan_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。unload MeIf chair = False And workman = False ThenMsgBox 你沒(méi)有管理此功能的權(quán)限!ElseEnd IfEnd IfEnd SubPrivate Sub user_Click()If chair = False And workman = False Then MsgBox 你沒(méi)有管理此功能的權(quán)限! Exit SubEnd If If mdi = True And chair = True Then Else If mdi = True And workman = True Then Else MsgBox 每次只能打開一個(gè)窗口，請(qǐng)關(guān)閉正在打開的窗口！, vbInformation, 不允許當(dāng)前操作！ End If End IfEnd SubPrivate Sub xuankecha_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。Unload MeEnd IfEnd SubPrivate Sub zhuxiu_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。Unload Me If chair = True Then Else MsgBox 你沒(méi)有管理此功能的權(quán)限!! End IfEnd IfEnd Sub客戶信息管理接口與代碼圖 　客戶信息管理Dim girdsav2 As BooleanDim gridedi2 As BooleanDim griddel2 As BooleanPrivate Sub Form_Load()On Error GoTo finish CNwin