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