【正文】 t = 管理員 Then If chair = False Then MsgBox 對不起，只有經(jīng)理可以添加管理員,管理員只能添加客戶!! Exit Sub End IfEnd IfIf (1, 1).Text And (1, 2).Text ThenSet mdbrs = (select * from 登陸 where 用戶名=39。 amp。 (1, 1).Text amp。 39。) If = True Then Set mdbrs = (insert into 登陸 values(39。 amp。 (1, 1).Text amp。 39。,39。 amp。 (1, 2).Text amp。 39。,39。 amp。 (1, 3).Text amp。 39。)) MsgBox 提交成功！, vbInformation, Call callmain Else MsgBox 該管理員己存在！, vbInformation, 不可重名 Exit Sub End IfElseMsgBox 用戶名和密碼都不可以是空格！, vbInformation, 錯誤提示End IfExit Subfinish:MsgBox End SubPrivate Sub XPButton3_Click()On Error GoTo finishIf gridedit = False ThenMsgBox 當(dāng)前修改操作不被允許!, vbInformation, 非使用對象Exit SubEnd If39。If (hang, 3).Text = 經(jīng)理 Then39。 If chair = False Then39。 MsgBox 你不是經(jīng)理，不能修改經(jīng)理的數(shù)據(jù)!!39。 Exit Sub39。 End If39。End IfFor i = 1 To 1 Set mdbrs = (update 登陸 set 密碼=39。 amp。 (i, 2).Text amp。 39。,權(quán)限=39。 amp。 (i, 3).Text amp。 39。 where 用戶名=39。 amp。 (i, 1).Text amp。 39。) Next MsgBox 修改的數(shù)據(jù)己經(jīng)完成, vbInformation, 完成操作 Call callmainExit Subfinish:MsgBox End SubPrivate Sub XPButton4_Click()On Error GoTo finishIf griddelete = False ThenMsgBox 當(dāng)前刪除操作不被允許!, vbInformation, 非使用對象Exit SubEnd IfIf chair = False Then MsgBox 對不起，只有經(jīng)理有權(quán)利刪除??！ Exit SubEnd IfIf hang = 0 ThenMsgBox 沒有選擇用戶或者沒有用戶可以刪除!, vbInformation, 非使用對象 Exit SubEnd IfSet mdbrs = (delete from 登陸 where 用戶名=39。 amp。 (hang, 1).Text amp。 39。)MsgBox 目標己刪除,請刷新數(shù)據(jù)!, vbInformation, 刪除成功Call callmainExit Subfinish:MsgBox End SubPrivate Sub XPButton5_Click()Unload MeEnd SubPrivate Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long)hang = RowEnd Sub 客戶信息管理的實現(xiàn) 客戶信息添加界面圖客戶查詢對話框查詢方式復(fù)選框：用于選擇查詢所需滿足的條件(客戶號、單位名稱、負責(zé)人、地址)；客戶編號字段：用于顯示客戶的編號；單位字段：用于顯示用戶所在的公司；負責(zé)人字段：用于顯示加油站的負責(zé)人；地址字段：用于輸入客戶的所在地址；聯(lián)系方式字段：用于輸入和客戶的聯(lián)系方式；傳真號碼字段：用于輸入客戶的傳真號碼；郵件地址字段：用于輸入客戶的郵件；郵編字段：用于輸入客戶的郵編；“添加”按紐：用于添加新客戶；“保存”按紐：用于保存當(dāng)前客戶相關(guān)信息；“充值”按紐：用于給用戶充值加油的金額數(shù)；“修改”按鈕：用于修改客戶的信息；“退出”按紐：用于退出當(dāng)前頁面；“刪除”按鈕：用于刪除客戶的信息。主要代碼如下:Private Sub XPButton2_Click()On Error GoTo finishIf gridsave = False ThenMsgBox 不支持保存操作！, vbInformation, 當(dāng)前不支持Exit SubEnd IfIf (1, 3).Text = 經(jīng)理 Then If chair = False Then MsgBox 對不起，您不是經(jīng)理，不能添加經(jīng)理!! Exit Sub End IfEnd IfIf (1, 3).Text = 管理員 Then If chair = False Then MsgBox 對不起，只有經(jīng)理可以添加管理員,管理員只能添加客戶!! Exit Sub End IfEnd IfIf (1, 1).Text And (1, 2).Text ThenSet mdbrs = (select * from 登陸 where 用戶名=39。 amp。 (1, 1).Text amp。 39。) If = True Then Set mdbrs = (insert into 登陸 values(39。 amp。 (1, 1).Text amp。 39。,39。 amp。 (1, 2).Text amp。 39。,39。 amp。 (1, 3).Text amp。 39。)) MsgBox 提交成功！, vbInformation, Call callmain Else MsgBox 該管理員己存在！, vbInformation, 不可重名 Exit Sub End IfElseMsgBox 用戶名和密碼都不可以是空格！, vbInformation, 錯誤提示End IfExit Subfinish:MsgBox End SubPrivate Sub XPButton3_Click()On Error GoTo finishIf gridedit = False ThenMsgBox 當(dāng)前修改操作不被允許!, vbInformation, 非使用對象Exit SubEnd If39。If (hang, 3).Text = 經(jīng)理 Then39。 If chair = False Then39。 MsgBox 你不是經(jīng)理，不能修改經(jīng)理的數(shù)據(jù)!!39。 Exit Sub39。 End If39。End IfFor i = 1 To 1 Set mdbrs = (update 登陸 set 密碼=39。 amp。 (i, 2).Text amp。 39。,權(quán)限=39。 amp。 (i, 3).Text amp。 39。 where 用戶名=39。 amp。 (i, 1).Text amp。 39。) Next MsgBox 修改的數(shù)據(jù)己經(jīng)完成, vbInformation, 完成操作 Call callmainExit Subfinish:MsgBox End Sub 油價信息管理的實現(xiàn)當(dāng)用戶正確登錄到系統(tǒng)后，跟據(jù)客戶所加油編號可以查詢出油的種類、油的型號、油的單價。實現(xiàn)的查詢功能有多種，如按油編號、油的品種等字段進行加油信息的添加、刪除和修改,包括加油的型號、單價、數(shù)量、單次加油金額。 油價信息添加界面圖油價對話框油編號字段：用于顯示所要加油的編號信息；油品種字段：根據(jù)油的編號顯示油的品種信息；油型號字段：根據(jù)油的編號顯示油的型號；價格字段：根據(jù)油的編號顯示出油的價格；“添加”按鈕：用于添加新的油的種類等信息；“保存“按鈕：用于保存當(dāng)前頁面信息；“修改“按紐：用于修改當(dāng)前油價的信息；“刪除“按紐：用于刪除沒有相關(guān)油的油價；“退出“按紐：用于退出當(dāng)前頁面。主要代碼如下:Private Sub Form_Load()mdi = FalseOn Error GoTo finishSet mdbrs1 = (select * from 油價表) CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。進行注冊With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(90, 158, 214) .BackColorFixedSel = RGB(110, 180, 230) .BackColorBkg = RGB(90, 158, 214) .BackColorScrollBar = 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, 190, 231) . = Tahoma . = 8 .Column(0).Width = 0 .Column(1).Width = 40 .Column(2).Width = 100 .Column(3).Width = 100 .Column(4).Width = 100 .Column(1).CellType = cellComboBox .ComboBox(1).Clear .ComboBox(1).AddItem 汽油 .ComboBox(1).AddItem 柴油End WithCall callmain(1).Locked = Truegridsave = Falsegridedit = Truegriddelete = Truemdi = FalseExit Subfinish:MsgBox End SubPrivate Sub XPButton2_Click()On Error GoTo finishIf gridsave = False ThenMsgBox 不支持保存操作！, vbInformation, 當(dāng)前不支持Exit SubEnd IfIf (1, 2).Text And (1, 3).Text And (1, 4).Text Then Set mdbrs = (insert into 油價表(油品種,油型號,價格) values(39。 amp。 (1, 2).Text amp。 39。,39。 amp。 (1, 3).Text amp。 39。,39。 amp。 (1, 4).Text amp。 39。)) MsgBox 提交成功！, vbInformation, Call callmainElseMsgBox 油品種，油型號，單價都不可以是空格！, vbInformation, 錯誤提示End IfExit Subfinish:MsgBox End SubPrivate Sub XPButton3_Click()On Error GoTo finishIf gridedit = False ThenMsgBox 當(dāng)前修改操作不被允許!, vbInformation, 非使用對象Exit SubEnd IfFor i = 1 To 1 Set mdbrs = (update 油價表 set 油品種=39。 amp。 (i, 2).Text amp。 39。,油型號=39。 amp。 (i, 3).Text amp。 39。,價格=39。 amp。 (i, 4).Text amp。 39。 where 油編號=val(39。 amp。 (i, 1).Text amp。 39。)) Next MsgBox 修改的數(shù)據(jù)己經(jīng)