【正文】 t .Cols = 7 .TextMatrix(0, 1) = .TextMatrix(0, 2) = 汽車名稱 .TextMatrix(0, 3) = 汽車規(guī)格 .TextMatrix(0, 4) = 汽車單位 .TextMatrix(0, 5) = 備注信息 .TextMatrix(0, 6) = 庫存數(shù)量 .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 .Row = 1End WithEnd Sub （2）汽車信息編輯窗體代碼 Private Sub cmdCancel_Click()If mbChange And Then If MsgBox(保存當(dāng)前記錄的變化嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then Call cmdOK_Click End IfEnd IfUnload MeUnload frmProductListLoad frmProductList = select * from productsEnd SubPrivate Sub cmdOK_Click()Dim strMsg As StringDim rs As Dim strSQL As StringDim i As IntegerFor i = 0 To 2 If Trim(txtIntem(i) amp。 Trim(txtIntem(i)) amp。 strSQL, gConn, adOpenKeyset If = False Then With rs mnSerial = .Fields(0) For i = 0 To . 2 If Not IsNull(.Fields(i + 1)) Then txtIntem(i) = .Fields(i + 1) End If Next i End With End If = amp。 mnSerial amp。If mbAddMode Then mbChange = True MsgBox 添加進(jìn)貨信息成功！繼續(xù)添加下一條進(jìn)貨信息, vbOKOnly + vbExclamation, 添加進(jìn)貨信息 Unload Me vbModalElse Unload Me = select * from stock End IfExit SuberrHandler: MsgBox , vbCritical, 錯(cuò)誤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ù)庫不包含任何的汽車信息。 lUnload MeLoad Me = select * from sellExit SuberrHandler: MsgBox , vbCritical, 錯(cuò)誤End SubPrivate Sub cmdEdit_Click() = CLng((, 1)) = True vbModalEnd SubPrivate Sub cmdFind_Click() = vbModalUnload MeLoad MeIf Trim() Then = select * from sell where amp。 amp。 窗體界面設(shè)計(jì) 查找功能模塊窗體時(shí)一個(gè)公用的窗體，查找“阿莫西林”的界面如圖27所示。 % 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í)踐了數(shù)據(jù)庫的開發(fā)過程后，領(lǐng)略到了一下幾點(diǎn)：1）數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)設(shè)計(jì)師一個(gè)規(guī)范化的過程，需要遵循一定方式方法與開發(fā)步驟；2）數(shù)據(jù)庫關(guān)系模式設(shè)計(jì)非常重要，是整個(gè)系統(tǒng)設(shè)計(jì)的中心，其設(shè)計(jì)合理與否，將全面影響整個(gè)系統(tǒng)的成功實(shí)現(xiàn)；3）應(yīng)用系統(tǒng)中數(shù)據(jù)庫操作的實(shí)質(zhì)是設(shè)計(jì)、組織、遞交SQL命令，并根據(jù)SQL命令的執(zhí)行狀態(tài)，決定后序的數(shù)據(jù)處理與操作。 amp。 圖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。 39。 amp。 添加 txtIntem(5) = Format(Date, yyyymmdd) txtIntem(3) = 0 txtIntem(4) = 10 mnQuantity = 0Else = amp。End IfDim rs As New select * from stock, 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。進(jìn)貨信息列表窗體以表格形式列出當(dāng)前系統(tǒng)中的進(jìn)貨信息，并且提供了進(jìn)行各種操作的接口；進(jìn)貨信息編輯窗體用于顯示某一次進(jìn)貨的信息，借助該窗體可以對(duì)某次進(jìn)貨的信息進(jìn)行編輯，也可以向數(shù)據(jù)庫增加進(jìn)貨信息。 strSQL, gConn, adOpenStatic If Not Then MsgBox 已經(jīng)存在相同內(nèi)容的記錄！, vbOKOnly + vbExclamation, 警告 txtIntem(0).SetFocus Exit Sub End If Else strSQL = delete from products where 順序號(hào)= amp。 不能為空！ MsgBox strMsg, vbOKOnly + vbExclamation, 警告 txtIntem(i).SetFocus Exit Sub End IfNext iSet rs = New If mbAddMode Then strSQL = select * from products where 汽車名稱=39。 Exit SuberrHandler: MsgBox , vbCritical, 錯(cuò)誤End Subb 密碼窗體代碼 c 用戶身份選擇窗體代碼 Private Sub cmdCancel_Click()mnUserType = 1End SubPrivate Sub cmdOK_Click()End SubPrivate Sub Form_Load()optUserType(0).Value = TruemnUserType = 1End SubPrivate Sub optUserType_Click(Index As Integer)mnUserType = IndexEnd Sub8. 創(chuàng)建汽車信息管理模塊 窗體模塊的功能 在汽車信息管理模塊中，包含3個(gè)窗體：汽車信息列表窗體、汽車信息編輯窗體和顯示庫存數(shù)量的窗體。 where 用戶名=39。 (0).Text amp。,39。 Case Else: str = select * from userlistEnd SelectDim rs As New str, gConn, adOpenStaticWhile Not rs(用戶名