【正文】 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。)MsgBox 目標(biāo)己刪除,請(qǐng)刷新數(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 客戶信息管理的實(shí)現(xiàn) 客戶信息添加界面圖客戶查詢對(duì)話框查詢方式復(fù)選框：用于選擇查詢所需滿足的條件(客戶號(hào)、單位名稱、負(fù)責(zé)人、地址)；客戶編號(hào)字段：用于顯示客戶的編號(hào)；單位字段：用于顯示用戶所在的公司；負(fù)責(zé)人字段：用于顯示加油站的負(fù)責(zé)人；地址字段：用于輸入客戶的所在地址；聯(lián)系方式字段：用于輸入和客戶的聯(lián)系方式；傳真號(hào)碼字段：用于輸入客戶的傳真號(hào)碼；郵件地址字段：用于輸入客戶的郵件；郵編字段：用于輸入客戶的郵編；“添加”按紐：用于添加新客戶；“保存”按紐：用于保存當(dāng)前客戶相關(guān)信息；“充值”按紐：用于給用戶充值加油的金額數(shù)；“修改”按鈕：用于修改客戶的信息；“退出”按紐：用于退出當(dāng)前頁(yè)面；“刪除”按鈕：用于刪除客戶的信息。 where 用戶名=39。End IfFor i = 1 To 1 Set mdbrs = (update 登陸 set 密碼=39。 (1, 3).Text amp。 (1, 1).Text amp。unload MeElseMsgBox 你是客戶,沒有使用此功能的權(quán)限!End IfEnd IfEnd SubPrivate Sub xuankecha_Click()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。 Day(Date) amp。)If = True Then = = MsgBox 用戶名和密碼不正確！！Elseuser111 = (0)sup = (2)If (2) = 經(jīng)理 Then chair = TrueEnd IfIf (2) = 管理員 Then workman = TrueEnd IfIf (2) = 客戶 Then cust = TrueEnd If Unload Me End IfExit Subfinish:MsgBox End SubPrivate Sub XPButton2_Click()EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall XPButton1_ClickEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall XPButton1_ClickEnd IfEnd Sub 主界面功能的實(shí)現(xiàn) 系統(tǒng)主界面圖按Windows應(yīng)用軟件用戶界面的規(guī)范來設(shè)計(jì)，使用以對(duì)話框?yàn)橹鞯挠脩艚缑?，便于用戶使用。主要代碼如下:Private Sub XPButton1_Click()On Error GoTo finishuser = Set mdbrs = (select * from 登陸 where 用戶名=39。 客戶信息管理 地址聯(lián)系方式客戶姓名客戶編號(hào) 客戶信息管理模塊3. 油價(jià)信息管理：主要是通過客戶加油的型號(hào)、單價(jià)、數(shù)量、單次加油金額，方便的對(duì)其油價(jià)管理信息進(jìn)行添加，修改，刪除，使得散亂的客店檔案能夠具體化，直觀化、合理化。VB允許我們以完全相同的方法來調(diào)用Sub過程和Function過程。不正確：Private Sub CreateStockRecord(ItemID, Repair, Quantity) 正確：Private Sub CreateStockRecord(strItemID As String, blnRepair _As Boolean, sngQuantity As Single) 3）使用統(tǒng)一和直觀明了的方式來調(diào)用過程VB提供了許多快捷操作方式，可供在編寫代碼時(shí)使用。3）用參數(shù)在過程之間傳遞數(shù)據(jù)雖然模塊級(jí)變量的問題不像全局變量那么多，但是我們也應(yīng)該盡量避免使用模塊級(jí)變量。在許多情況下，我們不用Public、Private或Friend說明的過程實(shí)際上將作為模塊級(jí)（專用）過程來使用。下面是一些例子：不正確：Private Function InvoicePost()As BooleanPrivate Function PrintIt()As BooleanPublic Sub SaveItem()Public Sub DeleteRecord() 正確：Private Function PostInvoice()As BooleanPrivate Function PrintSpreadsheet()As BooleanPublic Sub SavePicture()Public Sub DeleteContact() 2）為每個(gè)過程賦予明確定義的作用域作用域是指工程中的變量或過程的可視性。給過程命名時(shí)應(yīng)該大小寫字母混合使用，定義過程名時(shí)不要使用縮寫。 登入信息表字段名稱數(shù)據(jù)類型用戶名稱文本密碼文本權(quán)限文本 （2）車輛表 用于存放車輛信息的表： 車輛基本信息表字段名稱數(shù)據(jù)類型編號(hào)自動(dòng)編號(hào)單位名稱文本車牌號(hào)文本加油型號(hào)文本（3）加油信息表 用于存放加油信息的數(shù)據(jù)表： 加油信息表字段名稱數(shù)據(jù)類型單位名稱文本車牌號(hào)文本油型號(hào)數(shù)字油單價(jià)數(shù)字加油量 數(shù)字單次加油金額數(shù)字月份數(shù)字（4）客戶信息表 用于存放客戶信息的數(shù)據(jù)表： 客戶信息表字段類型數(shù)據(jù)類型客戶編號(hào)自動(dòng)編號(hào)單位名稱文本負(fù)責(zé)人文本地址文本聯(lián)系方式文本傳真號(hào)碼文本郵件地址文本郵編文本預(yù)存款余額數(shù)字（5）油價(jià)信息表 用于存放油價(jià)基本信息的數(shù)據(jù)表： 油價(jià)基本信息表字段名稱數(shù)據(jù)類型油編號(hào)自動(dòng)編號(hào)油品種文本油型號(hào)文本油價(jià)格數(shù)字第5章 系統(tǒng)應(yīng)用程序設(shè)計(jì)與實(shí)現(xiàn) 系統(tǒng)功能模塊設(shè)計(jì)過程VB6．0是面向?qū)ο蟮拈_發(fā)語言。數(shù)據(jù)庫(kù)的創(chuàng)建只要包括數(shù)據(jù)庫(kù)及其表、索引、視圖、存儲(chǔ)過程等各種數(shù)據(jù)庫(kù)對(duì)象的創(chuàng)建。對(duì)開發(fā)數(shù)據(jù)庫(kù)的基本概念應(yīng)當(dāng)了解，對(duì)數(shù)據(jù)庫(kù)的結(jié)構(gòu)、開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的步驟、開發(fā)體系及方法都應(yīng)當(dāng)有相當(dāng)清晰的了解和認(rèn)識(shí)。以下是是所得到的關(guān)系模型。由于關(guān)系模型所具有的優(yōu)點(diǎn)，邏輯設(shè)計(jì)可以充分運(yùn)用關(guān)系數(shù)據(jù)庫(kù)規(guī)范化理論，使設(shè)計(jì)過程形式化地進(jìn)行。一般把同名實(shí)體類型作為公共實(shí)體類型的一類候選，把具有相同鍵的實(shí)體類型作為公共實(shí)體類型的另一類候選。一種完整的方式是對(duì)局部結(jié)構(gòu)中任意兩個(gè)實(shí)體類型，依據(jù)需求分析的結(jié)果，考察局部結(jié)構(gòu)中任意兩個(gè)實(shí)體類型之間是否存在聯(lián)系。實(shí)體和屬性的定義： “加油“實(shí)體用語存儲(chǔ)、維護(hù)每個(gè)單位加油的信息，并且統(tǒng)計(jì)出每單位的加油金額。在“加油金額統(tǒng)計(jì)”表單中 ,輸入單位名稱、車輛編號(hào)、加油月份或加油年份，然后 單擊“統(tǒng)計(jì)”按鈕 , 可以查看本單位月份加油總金額，或年終加油總金額。2. “客戶信息管理”模塊“客戶信息管理”模塊主要實(shí)現(xiàn)讀者信息的分條瀏覽、添加、修改、刪除、查詢和打印功能。這種做法較好的實(shí)現(xiàn)了上述要求，特別是更新修改起來很方便，能夠單獨(dú)處理每個(gè)數(shù)據(jù)元素的信息。一些調(diào)查表明，如果一張數(shù)據(jù)流圖包含的處理多于5~9個(gè)，人們就難于領(lǐng)會(huì)它的含義了。使用內(nèi)置Microsoft SQL Server 集成來創(chuàng)建可以隨您的商務(wù)升級(jí)的數(shù)據(jù)庫(kù)。但是，由于Microsoft Access本身是微軟公司Office系列中的一個(gè)部分，它的程序設(shè)計(jì)是采用VBA進(jìn)行開發(fā)的，其開發(fā)代碼不能脫離Office環(huán)境而獨(dú)立運(yùn)行，所以一般開發(fā)人員并不直接在Microsoft Access環(huán)境下進(jìn)行數(shù)據(jù)庫(kù)信息管理系統(tǒng)的開發(fā)，而是利用其他的應(yīng)用程序語言，如Visual Basic、C++等與Access數(shù)據(jù)庫(kù)連接并進(jìn)行信息管理系統(tǒng)的前端界面開發(fā)。在設(shè)計(jì)Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行 (3)．訪問數(shù)據(jù)庫(kù)　 Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。如果對(duì)界面的效果不滿意，還要回到程序中修改。當(dāng)然，CPU的處理速度越快，運(yùn)行的效率越高。 應(yīng)用需求分析隨著社會(huì)經(jīng)濟(jì)的穩(wěn)步發(fā)展和人民生活水平的不斷提高，石油成為與人們生活息息相關(guān)的一種戰(zhàn)略資源。最后就個(gè)人能力來說，雖然是第一次進(jìn)行數(shù)據(jù)庫(kù)實(shí)際開發(fā)，但是具備年輕有朝氣、有創(chuàng)造力、熱愛學(xué)習(xí)等優(yōu)勢(shì)。這樣油站與管理部門聯(lián)系更方便。 系統(tǒng)開發(fā)的初步調(diào)查　隨著石油市場(chǎng)的全面開放，競(jìng)爭(zhēng)將更加激烈。信息系統(tǒng)的建設(shè)是一項(xiàng)投資大，時(shí)間長(zhǎng)的復(fù)雜工程，可行性研究更為必要，也更復(fù)雜，更困難。本系統(tǒng)后臺(tái)使用 Access作為后臺(tái)的數(shù)據(jù)管理系統(tǒng)，而在前臺(tái)使用VB中的MSFlexGrid控件來訪問實(shí)際的數(shù)據(jù)庫(kù)。它具有功能強(qiáng)大、易于學(xué)習(xí)和使用、編程效率高、易于調(diào)試等特點(diǎn)。系統(tǒng)將要達(dá)到的功能如下：1. 能夠?yàn)g覽客戶的所有信息。通過對(duì)客戶信息管理、油價(jià)管理、加油和、系統(tǒng)查詢四個(gè)模塊基本功能的實(shí)現(xiàn)，對(duì)客戶的各種信息進(jìn)行增加、刪除、查找、修改等操作，完成對(duì)客戶的信息管理。 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)Access2000 就是關(guān)系數(shù)據(jù)庫(kù)開發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。通過本系統(tǒng)軟件，能幫助工作人員利用計(jì)算機(jī)，快速方便的對(duì)加油站的客戶信息和客戶加油信息進(jìn)行管理、輸入、輸出、查找的所需操作，使散亂的客店檔案能夠具體化，直觀化、合理化。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)客戶信息檔案進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點(diǎn)。加油站的信息量也非常的大，資料可能經(jīng)常性的發(fā)生更換，原來手工的管理模式就體現(xiàn)出不為合適了。 Reduces the cost, saves the expenditure。不僅僅浪費(fèi)了大量的人力物力，而且由于人工管理存在著大量的不可預(yù)見的因素，造成了加油站對(duì)客戶信息管理的某些不規(guī)范，使得加油站客戶信息管理陷入管理繁瑣，信息混亂的地步。通過對(duì)客戶信息管理、油價(jià)管理、加油和、系統(tǒng)查詢四個(gè)模塊基本功能的實(shí)現(xiàn)，對(duì)客戶的各種信息進(jìn)行增加、刪除、查找、修改等操作，完成對(duì)客戶的信息管理。越來越多的管理人員意識(shí)到信息管理的重要性。 課題來源及意義客戶信息作為加油站信息管理中最主要的管理對(duì)象，客戶信息管理系統(tǒng)就成了加油站信息化管理系統(tǒng)中不可缺少的部分，它的內(nèi)容對(duì)于加油站的管理者說都至關(guān)重要。加油站的信息量也非常的大，手工的數(shù)據(jù)是存放在多處的，沒有使用統(tǒng)一管理的模式，數(shù)據(jù)整理非常的麻煩，統(tǒng)計(jì)也困難。編程環(huán)境的選擇微軟公司的Visual Basic ，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。3. 通過客戶加油的型號(hào)、單價(jià)、數(shù)量、單次加油金額，方便的對(duì)其油價(jià)管理信息進(jìn)行添加，修改，刪除，使得散亂的客店檔案能夠具體化，直觀化、合理化。9. 加油信息的添加、刪除和修改,包括加油的型號(hào)、單價(jià)、數(shù)量、單次加油金額10. 加油信息查詢，查詢條件為單位名稱、車牌號(hào)等信息的綜合查詢。本系統(tǒng)前臺(tái)運(yùn)用的是Vb，后臺(tái)運(yùn)用的是 Access。我們應(yīng)該承認(rèn)，誰掌握的知識(shí)多，信息量大，信息處理速度快，批量大，誰的效率就高，誰就能夠在各種競(jìng)爭(zhēng)中立于不敗之地。這些優(yōu)點(diǎn)能夠極大地提高加油站客戶信息管理的效率。以前一份文件要傳達(dá)到每一個(gè)員工，需要全部打印出來，再一份一份地分發(fā)下去，這樣速度慢效率又不高，經(jīng)常誤事。同時(shí)也具有強(qiáng)大的打印系統(tǒng)，可以方便的對(duì)客戶資料、客戶加油清單、油價(jià)表、公司名片等資料進(jìn)行打印。而且開發(fā)完善之后的系統(tǒng)具有操作簡(jiǎn)單，方便靈活等優(yōu)點(diǎn)，管理人員及用戶一定會(huì)在短時(shí)間內(nèi)掌握并熟練使用。在國(guó)有控股加油站中，中國(guó)石化構(gòu)建好了IC卡管理系統(tǒng)網(wǎng)絡(luò)并開始大規(guī)模發(fā)卡，中石油也在積極籌備中。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。面向?qū)ο蟮某绦蛟O(shè)計(jì) (2)．結(jié)構(gòu)化程序設(shè)計(jì)語言　　Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(pound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。使數(shù)據(jù)對(duì)任何協(xié)作者都可直接利用。分析員把他對(duì)現(xiàn)有系統(tǒng)的認(rèn)識(shí)或?qū)δ繕?biāo)系統(tǒng)的設(shè)想用數(shù)據(jù)流圖描繪出來，供有關(guān)人員審查確認(rèn)。只有數(shù)據(jù)流圖和對(duì)數(shù)據(jù)