【導(dǎo)讀】面對龐大的汽車銷售和庫存信息，就需要有汽車管理系統(tǒng)來提高管理工作的效率。通過建立這樣的系統(tǒng)，可以做到汽車信息的規(guī)范管理、快速查詢和科學(xué)統(tǒng)計，從而減少管理方面的工作量。本系統(tǒng)的設(shè)計模擬一般醫(yī)院的汽車銷售管理系統(tǒng)內(nèi)容，經(jīng)過充分的系統(tǒng)分析和調(diào)研，本系統(tǒng)主要包括的信息有3類：汽車商品信息、汽車進(jìn)貨信息以及汽車銷售信息。在傳統(tǒng)的銷售管理工作中，往往是用人工清點的方式來掌握倉庫中的汽車商品、使用手工記賬的方式來掌握商品的進(jìn)貨和銷售情況。系統(tǒng)需要能夠?qū)ζ囆畔⑦M(jìn)行添加、修改和刪除，也可以以圖形的方式顯示出現(xiàn)汽車的庫存數(shù)量的比較。汽車的銷售信息包括順序號、汽車名稱、顧客名稱、購買數(shù)量、售出價格、銷售日期、備注等。登錄窗體的作用就是確定當(dāng)前使用系統(tǒng)的用戶類型。

　　

【正文】 = vbModalUnload MeLoad MeIf Trim() Then = select * from sell where amp。 End IfUnload frmFindEnd SubPrivate Sub cmdShowAll_Click()Unload MeLoad Me = select * from sellEnd SubPrivate Sub Form_Load()Dim i As IntegerWith grdList .Cols = 8 .TextMatrix(0, 1) = .TextMatrix(0, 2) = 汽車名稱 .TextMatrix(0, 3) = 顧客名稱 .TextMatrix(0, 4) = 購買數(shù)量 .TextMatrix(0, 5) = 售出價格 .TextMatrix(0, 6) = 銷售日期 .TextMatrix(0, 7) = 備注 .FixedRows = 1 For i = 0 To .Cols 1 .ColAlignment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 100 .ColWidth(1) = 0 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .Row = 1End WithSet mRs = New End SubPrivate Sub Form_Resize() = ( ) / 2 = 200 = 200 = 200 = + 100End SubPrivate Sub Form_Unload(Cancel As Integer)If adStateClosed Then End Sub （2）銷售信息編輯窗體代碼 Private Sub cmdCancel_Click()If mbChange Then If MsgBox(保存當(dāng)前記錄的變化嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then Call cmdOK_Click End IfEnd IfUnload MeUnload frmSellListLoad frmSellList = select * from sellEnd SubPrivate Sub cmdOK_Click()On Error GoTo errHandlerIf txtIntem(3).Text = Then MsgBox 字段不能為空，而且只能輸入數(shù)字, vbCritical, 錯誤End IfIf txtIntem(4).Text = Then MsgBox 字段不能為空，而且只能輸入數(shù)字, vbCritical, 錯誤End IfIf Trim(cboItem) = Then MsgBox 必須選擇汽車名稱, vbCritical, 錯誤 Exit SubEnd IfIf Not IsDate(Trim(txtIntem(5))) Then MsgBox 請輸入正確的日期格式！, vbOKOnly + vbExclamation, 警告 txtIntem(5).SetFocus Exit SubEnd IfIf Not mbAddMode Then delete from sell where 順序號=39。 amp。 mnSerial amp。 39。End IfDim rs As New select * from sell, gConn, adOpenDynamic, adLockOptimisticrs(汽車名稱) = Dim i As IntegerFor i = To (i).Value = txtIntem(i)Next imnQuantity = CInt(txtIntem(3)) mnQuantity update products set 庫存數(shù)量=庫存數(shù)量 amp。 mnQuantity amp。 where 汽車名稱=39。 amp。 amp。 39。If mbAddMode Then mbChange = False MsgBox 添加進(jìn)貨信息成功！繼續(xù)添加下一條進(jìn)貨信息, vbOKOnly + vbExclamation, 添加進(jìn)貨信息 Unload Me vbModalElse Unload Me = select * from sell End IfExit SuberrHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub Form_Load()On Error GoTo errHandlerDim rs As New select distinct 汽車名稱 from products, gConn, adOpenKeysetIf Not Then Do While Not rs(汽車名稱) LoopElse MsgBox 當(dāng)前數(shù)據(jù)庫不包含任何的汽車信息。請先設(shè)置汽車信息！, vbOKOnly + vbExclamation, 警告 Exit SubEnd IfIf mbAddMode Then = amp。 添加 txtIntem(5) = Format(Date, yyyymmdd) txtIntem(3) = 0 txtIntem(4) = 10 mnQuantity = 0Else = amp。 修改 select * from sell where 順序號= amp。 mnSerial If Not Then = rs(汽車名稱) Dim i As Integer For i = To txtIntem(i) = (i).Value Next i End If mnQuantity = rs(銷售數(shù)量) End IfmbChange = FalseExit SuberrHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub txtIntem_Change(Index As Integer)mbChange = TrueEnd SubPrivate Sub txtIntem_GotFocus(Index As Integer)txtIntem(Index).SelStart = 0txtIntem(Index).SelLength = Len(txtIntem(Index))End Sub11. 創(chuàng)建查找窗體模塊 窗體模塊的功能 由于查找功能在3個模塊中都要被使用，所以必須在編寫查找窗體時，需要注意窗體的通用性，而且查找窗體需要提供對于任何字段進(jìn)行查找的功能。 窗體界面設(shè)計 查找功能模塊窗體時一個公用的窗體，查找“阿莫西林”的界面如圖27所示。 部分代碼設(shè)計 查找功能的代碼如下所示。 圖26 查找“寶馬” Private Sub cboOperators_Click() = Len() 0 And Len() 0 And Len() 0End SubPrivate Sub cmdCancel_Click()msResultSQL = End SubPrivate Sub cmdOK_Click() = vbHourglassDim sField As StringDim sExpr As StringDim sOperator As StringsField = sExpr = sOperator = Dim sTemp As StringIf LCase(sOperator) = Like Then sTemp = sField amp。 amp。 sOperator amp。 39。% amp。 sExpr amp。 % 39。Else sTemp = sField amp。 amp。 sOperator amp。 39。 amp。 sExpr amp。 39。End IfmsResultSQL = sTemp = vbDefaultEnd SubPrivate Sub Form_Load() = = = Like = 0msResultSQL = End SubPrivate Sub lstFields_Click() = Len() 0 And Len() 0 And Len() 0End SubPrivate Sub txtValue_Change() = Len() 0 And Len() 0 And Len() 0End Sub12. 小結(jié)自己在實踐了數(shù)據(jù)庫的開發(fā)過程后，領(lǐng)略到了一下幾點：1）數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)設(shè)計師一個規(guī)范化的過程，需要遵循一定方式方法與開發(fā)步驟；2）數(shù)據(jù)庫關(guān)系模式設(shè)計非常重要，是整個系統(tǒng)設(shè)計的中心，其設(shè)計合理與否，將全面影響整個系統(tǒng)的成功實現(xiàn)；3）應(yīng)用系統(tǒng)中數(shù)據(jù)庫操作的實質(zhì)是設(shè)計、組織、遞交SQL命令，并根據(jù)SQL命令的執(zhí)行狀態(tài)，決定后序的數(shù)據(jù)處理與操作。