【文章內(nèi)容簡(jiǎn)介】 了能夠真正的吸引操作人員的眼球，讓他們感到舒服，美觀也是很重要的，所以對(duì)登陸界面進(jìn)行美觀設(shè)置。1. 圖案設(shè)置：為了美化登陸界面，首先在工具箱中選擇Image控件，把它拖到窗口上，然后Image的屬性欄上使用Picture屬性。 2. 控件分布：主要包括5個(gè)Label控件，它們的Caption屬性分別為用戶名、密碼、指導(dǎo)老師、制作人、時(shí)間顯示，其他屬性為默認(rèn)值；一個(gè)Textbox控件。一個(gè)Combo控件。 一個(gè)Adodc控件,兩個(gè)CommandButton控件,它們的屬性分別為確定、取消。 ：【確定】命令按鈕，首先它是判斷用戶名和密碼是否一致，如果不一致則出現(xiàn)用戶提示信息“您的密碼錯(cuò)誤，請(qǐng)重新輸入！”，如果用戶名和密碼一致，操作人員則可以打開主界面，進(jìn)入系統(tǒng)進(jìn)行以后的相關(guān)操作?！救∠棵畎粹o則是退出登陸系統(tǒng)。 轎車銷售界面系統(tǒng)主界面包括了整個(gè)應(yīng)用程序的概況，其上面顯示的所有功能也就是該系統(tǒng)的所有功能，也是操作人員可以操作的所有顯示，它是該系統(tǒng)的母體。在系統(tǒng)主界面上，有五個(gè)功能鍵，分別為車輛銷售、汽車零配件、維修服務(wù)、信息反饋和退出，意識(shí)先各自的功能。：美化界面，在工具箱上選擇Image控件，把它拖到窗口上，然后在在工具箱上選擇Image屬性欄中使用Picture屬性導(dǎo)入圖片。2. 控件分布：主要包括一個(gè)Label控件，它的Caption屬性為歡迎您到汽車4S界面，5個(gè)CommandButton控件,它們的屬性分別為車輛銷售，汽車零配件，維修服務(wù)，信息反饋和返回。單擊轎車銷售按鈕，會(huì)顯示出轎車銷售界面，在轎車銷售界面上有六個(gè)功能鍵，一個(gè)Label控件，它的Caption屬性為歡迎您到汽車銷售系統(tǒng)，5個(gè)CommandButton控件, 它們的Caption屬性分別為進(jìn)貨，銷售，查詢，網(wǎng)絡(luò)連接和退出。 所示。程序代碼：Private Sub Command1_Click()End SubPrivate Sub Command5_Click()End Sub 進(jìn)貨界面在汽車銷售系統(tǒng)中，單擊進(jìn)貨按鈕，您就可以進(jìn)入到進(jìn)貨界面，該界面有多個(gè)Label控件和所對(duì)應(yīng)的多個(gè)Text控件，兩個(gè)CommandButton控件，它們的Caption屬性分別為進(jìn)貨和取消，還有1個(gè)DataGrid控件。程序代碼：Private Sub jinhuo_Click() (車輛序號(hào)).Value = (車輛品牌).Value = (進(jìn)貨數(shù)量).Value = (車輛型號(hào)).Value = (進(jìn)價(jià)（萬(wàn)元/輛）).Value = (進(jìn)貨日期).Value = (備注).Value = (車輛生產(chǎn)商).Value = (查看此車輛信息).Value = End SubPrivate Sub Command2_Click()End SubPrivate Sub Command1_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command5_Click()End Sub 轎車進(jìn)貨界面1） 首先，進(jìn)貨人員填寫進(jìn)貨清單，它包括車輛序號(hào)、汽車生產(chǎn)商、車輛品牌、車輛型號(hào)、進(jìn)貨數(shù)量、進(jìn)價(jià)（萬(wàn)元/輛）、進(jìn)貨日期、備注、查看此車輛信息，然后單擊“進(jìn)貨”按鈕，就可以完成該次進(jìn)貨操作，并且自動(dòng)添加到庫(kù)存清單中。同時(shí)，庫(kù)存清單也會(huì)作相應(yīng)的變動(dòng)。 點(diǎn)擊進(jìn)貨按鈕之后，庫(kù)存清單也做相應(yīng)的變化。 添加進(jìn)貨界面 庫(kù)存變化界面 銷售系統(tǒng)界面 銷售界面在汽車銷售系統(tǒng)中，單擊銷售按鈕，您就可以進(jìn)入到銷售界面，該界面有多Label控件和所對(duì)應(yīng)的多個(gè)Text控件，4個(gè)CommandButton控件，它們的Caption屬性分別為確認(rèn)售出，結(jié)算，清空和返回，還有3個(gè)DataGrid控件。程序代碼：Private Sub Command1_Click()Dim i As Integer, j As Integer, K As IntegerDim SUM As Integer: Dim temp As Boolean If Text1 = Or Text2 = Then MsgBox 請(qǐng)輸入車輛序號(hào)！, vbOKOnly + vbExclamation, 警告 End If If Len() 4 Then MsgBox 車輛序號(hào)為4位！, vbOKOnly + vbExclamation, 警告 End If 39。改變庫(kù)存 Print For i = 1 To Step 1 = i 39。i1 i If Trim((車輛序號(hào)).Value) = Trim() Then (進(jìn)貨數(shù)量).Value = Val((進(jìn)貨數(shù)量).Value) Val() 39。若無(wú)此句，則不會(huì)馬上改變數(shù)量，即關(guān)閉后再打開才有效 End If Next i 39。進(jìn)入顧客銷售庫(kù)If Then For K = 1 To = K If Trim((車輛序號(hào)).Value) = Trim() Then (出售數(shù)量).Value = Val((出售數(shù)量).Value) + Val()Else (車輛序號(hào)).Value = (車輛品牌).Value = (車輛型號(hào)).Value = (出售數(shù)量).Value = (售價(jià)（萬(wàn)元/輛）).Value = (銷售日期).Value = Date End IfNext K Else (車輛序號(hào)).Value = (車輛品牌).Value = (車輛型號(hào)).Value = (出售數(shù)量).Value = (售價(jià)（萬(wàn)元/輛）).Value = (銷售日期).Value = Date End If39。進(jìn)入總銷售庫(kù) temp = False For j = 1 To = j If Trim((車輛序號(hào)).Value) = Trim() And _ Trim((銷售日期).Value) = Trim() Then (出售數(shù)量).Value = Val((出售數(shù)量).Value) + Val() temp = True = = = = = = = = = End IfNext j If Not temp Then (車輛序號(hào)).Value = (車輛生產(chǎn)商).Value = (車輛品牌).Value = (車輛型號(hào)).Value = (出售數(shù)量).Value = (售價(jià)（萬(wàn)元/輛）).Value = (銷售日期).Value = Date (備注).Value = (查看此車輛信息).Value = End If = = = = = = = = = End SubPrivate Sub Command2_Click() Dim i As Integer,Dim SUM As Single For i = 1 To = i SUM = SUM + Val((售價(jià)（萬(wàn)元/輛）)) * Val((出售數(shù)量))Next i = 共需金額 amp。 SUM amp。 萬(wàn)元人民幣End SubPrivate Sub Command4_Click()Dim j As Integer, b As Integer, i As IntegerFor j = 1 To Next j = End SubPrivate Sub Command5_Click()End SubPrivate Sub Command3_Click()End Sub 銷售界面1） 首先銷售人員在車輛序號(hào)文本框內(nèi)輸入所要出售的車輛序號(hào)，則系統(tǒng)會(huì)自動(dòng)顯示