【正文】 amp。 amp。 amp。 39。) Next MsgBox 修改的數據己經完成, vbInformation, 完成操作 Call callmainExit Subfinish:MsgBox End SubPrivate Sub XPButton4_Click()On Error GoTo finishIf griddelete = False ThenMsgBox 當前刪除操作不被允許!, vbInformation, 非使用對象Exit SubEnd IfIf chair = False Then MsgBox 對不起，只有經理有權利刪除??！ Exit SubEnd IfIf hang = 0 ThenMsgBox 沒有選擇用戶或者沒有用戶可以刪除!, vbInformation, 非使用對象 Exit SubEnd IfSet mdbrs = (delete from 登陸 where 用戶名=39。 If chair = False Then39。 (1, 1).Text amp。 Year(Date) amp。是從User表中查到到用戶名與密碼，看與用戶輸入的是否一致。我們可以用許多不同的方法來調用一個過程。如果一個過程只被同一模塊中的另一個過程調用，那么請將它創(chuàng)建成專用過程。給過程正確地命名，可使程序工程的調試和維護工作大大改觀。3. 字段的個數越少越好該圖書管理系統用ACCESS數據庫來進行數據庫的邏輯設計。合理的數據庫結構也將有利于程序的實現。 系統結構ER圖車牌號加油統計單位名稱油型號油單價單次加油金額加油量月份 加油信息管理ER圖客戶客戶編號郵件地址單位名稱地址負責人聯系方式郵編傳真號碼 客戶信息管理ER圖油油品種油編號油單價油型號 油信息管理ER圖車輛車輛編號單位名稱車牌號加油型號 車輛信息管理ER圖 系統邏輯結構設計由于概念設計的結果是ER圖，DBMS一般采用關系型（本人所使用的SQL2000就是關系型的DBMS），因此數據庫的邏輯設計過程就是把ER圖轉化為關系模式的過程。加油“實體的其他屬性有：客戶編號、單位名稱、性別、身份證、聯系電話、地址。車輛加油記錄查看功能可以查看所有的車輛加油記錄 ,也可以只查看目前車輛加油記錄。數據流圖和數據字典共同構成系統的邏輯模型，沒有數據字典數據流圖就不嚴格，然而沒有數據流圖數據字典也難于發(fā)揮作用。使Web協作成為可能，用Access 2000中的新工具提高生產力。Visual Basic自動產生界面設計代碼，程序設計人員只需要編寫實現程序功能的那部分代碼，從而可以大大提高程序設計的效率?？傮w上，加油站可以分為三大陣營，一是中國石化、中國石油、中國海洋石油為主的國有控股加油站，二是由社會資本組建的地方石油企業(yè)所屬加油站；三是大型企業(yè)（如交通運輸企業(yè)）的內部加油站，三種類型的加油站在數量上成三足鼎立之勢。可以查詢班報明細帳、日報明細賬、月報明細賬、客戶加油情況、付款情況、客戶車輛余額、油品匯總統計等。例如:檢索迅速、查找方便、可靠性高、存儲量大、壽命長、成本低等。通過對加油站內部的各種機構的劃分和管理，以及各種業(yè)務的處理過程的分析，設計出一個行之有效的能夠在實際中幫助加油站實施管理現代化、業(yè)務信息化，從而大大提高工作效率運行于已有的硬件平臺上的加油站客戶管理系統。2. 在實際應用中，由于加油站的客戶非常多，客戶信息管理系統就成了加油站信息化管理系統中不可缺少的部分，它的內容對于加油站的管理者說都至關重要。 開發(fā)工具和數據庫的選擇本套管理系統是采用Visusal Basic ,考慮數據庫的規(guī)模及數據庫的普遍性，采用Access 數據庫構建后臺數據庫。只要你準確的錄入記錄，統計，報表輸出的結果就能快速、準確顯示出來，變的一點問題都不會出現的。而加油站客戶信息管理系統的開發(fā)使其實現了與客戶相關的各種信息的系統化、規(guī)范化和自動化。 Raised the management level, strengthened the enterprise in the same profession petitive power。例如:檢索迅速、查找方便、可靠性高、存儲量大、壽命長、成本低等。Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。2. 能夠對客戶的基本信息進行管理。VB是以可視化工具為界面設計以結構化BASIC語言為基礎，以事件驅動為運行機制的編程語言，它適合于多種數據庫結構，從客戶/服務機模式到多層數據結構模式；高效率的數據庫管理系統和新一代更先進的數據庫引擎?，F代化的加油站管理，從油站的布點，精細化管理，到經營信息的傳遞，都離不開完備快速的網絡，對加油站網絡化管理的要求將愈加迫切。且有過應用程序開發(fā)的經驗，因此非常適合本系統的開發(fā)。內存：最低配置32MB，建議使用64MB以上內存，如果使用Windows 2000或Windows XP建議使用128MB以上內存。同時，Visual Basic還能直接編輯和訪問其他外部數據庫，如DBASE，FoxPro，Paradox等，這些數據庫格式都可以用Visual Basic編輯和處理。 數據流圖描繪系統的邏輯模型，圖中沒有任何物理元素，只是描繪信息在系統中流動和處理情況。每張卡片上包含的信息有：名字，別名，描述，定義，位置。 系統概念設計在概念設計階段中，應該從用戶的角度看待數據及處理要求和約束，產生一個反映用戶觀點的概念模式。若有聯系，進一步確定是1:N，M:N，還是1:1等。在關系模型中，無論是實體還是實體之間的聯系均由單一的結構類型即關系來表示。 設計一個數據庫應用系統時，主要是進行如下幾方面的工作。利用VB6．0開發(fā)的管理應用軟件具有實用性和通用性強的特點，并具有很強的生命力和實用價值。過程可以定義為擁有模塊級作用域、全局作用域或友元作用域。一般來說，變量的作用域越小越好。請看下面這個函數：Public Function DisplayContact(lngContactNumber As Long) As Boolean…End Function 我們可以使用下面的任何一個語句來調用該函數：all ShowRep(lngRepNumber)ShowRep lngRepNumberblnResult=ShowRep(lngRepNumber) 為了使代碼盡可能直觀明了，必須將調用Sub過程與調用Function過程區(qū)分開來。 amp。 日 , 歡迎您使用加油站客戶信息管理系統 ! amp。 39。 amp。主要代碼如下:Private Sub XPButton2_Click()On Error GoTo finishIf gridsave = False ThenMsgBox 不支持保存操作！, vbInformation, 當前不支持Exit SubEnd IfIf (1, 3).Text = 經理 Then If chair = False Then MsgBox 對不起，您不是經理，不能添加經理!! Exit Sub End IfEnd IfIf (1, 3).Text = 管理員 Then If chair = False Then MsgBox 對不起，只有經理可以添加管理員,管理員只能添加客戶!! Exit Sub End IfEnd IfIf (1, 1).Text And (1, 2).Text ThenSet mdbrs = (select * from 登陸 where 用戶名=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 當前修改操作不被允許!, vbInformation, 非使用對象Exit SubEnd If39。 (i, 1).Text amp。 (1, 4).Text amp。 (i, 1).Text amp。,油型號=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, 當前不支持Exit SubEnd IfIf (1, 2).Text And (1, 3).Text And (1, 4).Text Then Set mdbrs = (insert into 油價表(油品種,油型號,價格) values(39。End IfFor i = 1 To 1 Set mdbrs = (update 登陸 set 密碼=39。 (1, 1).Text amp。 39。 amp。Unload MeEnd IfEnd SubPrivate Sub stureg_Click()If mdi = False ThenMsgBox 請關閉打開的窗口！, vbInformation, 不允許當前操作！ElseIf chair = True Or workman = True Then39。 39。客戶的信息的添加、修改、刪除、查詢等。如果我們想創(chuàng)建Variant參數，請使用As Variant進行顯式創(chuàng)建。雖然不使用Public Private或Friend將無法定義一個過程，但是我們應該避免這樣進行操作。我們要認真對待過程命名的工作，不要為了減少鍵入操作量而降低過程的可理解度。數據庫創(chuàng)建的過程是數據庫邏輯設計的物理實現的過程，如果能根據ERA模型并結合企業(yè)的實際情況創(chuàng)建一個性能優(yōu)異、結構合理并具有良好擴展性能的數據庫，將會為日后在數據庫基礎上開發(fā)各種應用程序奠定堅實的基礎，這是數據庫管理最核心的工作。原則4：一對一的聯系不再轉換為一個單獨的關系，而是把其中一側的實體集的關鍵字加入到另一側的實體集轉換成關系的屬性集中。在這一步中我們僅根據實體類型名和鍵來認定公共實體類型。經過本系統分析，在本系統中存在如下實體：加油、客戶、用戶、車輛。單擊“命令按鈕工具欄”中的按鈕可以對 “用戶信息”頁框中的記