汽车销售管理系统软件工程

汽车销售管理系统软件工程内容摘要：

errHandlerDim l As Longl = (, 1) delete from products where 顺序号= amp。 lUnload MeLoad Me = select * from productsExit SuberrHandler: MsgBox , vbCritical, 错误End SubPrivate Sub cmdEdit_Click()On Error GoTo errHandler = CLng((, 1)) = FalseExit SuberrHandler: MsgBox , vbCritical, 错误End SubPrivate Sub cmdFind_Click() = vbModalIf Trim() = Then Exit SubUnload MeLoad Me = select * from products where amp。 Unload frmFindEnd SubPrivate Sub cmdReport_Click()If And Then MsgBox 当前没有任何记录。 , vbExclamation, 错误 Exit SubEnd IfLoad frmChart = 当前汽车的库存状态Dim arr()ReDim arr(1 To , 1 To 2)Dim i As Integeri = 1Dim str As StringWhile Not str = Trim(mRs(汽车名称)) arr(i, 1) = amp。 str amp。 arr(i, 2) = mRs(库存数量) i = i + 1 WendWith .Title = 当前的库存汽车的剩余价值 .ChartData = arrEnd With vbModalEnd SubPrivate Sub cmdShowAll_Click()Unload MeLoad Me = select * from productsEnd SubPrivate Sub Form_Load()Set mRs = New Dim i As IntegerWith grdList .Cols = 7 .TextMatrix(0, 1) = .TextMatrix(0, 2) = 汽车名称 .TextMatrix(0, 3) = 汽车规格 .TextMatrix(0, 4) = 汽车单位 .TextMatrix(0, 5) = 备注信息 .TextMatrix(0, 6) = 库存数量 .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(保存当前记录的变化吗。 , 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。 ) = Then Select Case i Case 0 strMsg = 汽车名称 Case 1 strMsg = 汽车规格 Case 2 strMsg = 计量单位 End Select strMsg = strMsg amp。 不能为空。 MsgBox strMsg, vbOKOnly + vbExclamation, 警告 txtIntem(i).SetFocus Exit Sub End IfNext iSet rs = New If mbAddMode Then strSQL = select * from products where 汽车名称=39。 amp。 Trim(txtIntem(0)) amp。 39。 and 汽车规格=39。 amp。 Trim(txtIntem(i)) amp。 39。 strSQL, gConn, adOpenStatic If Not Then MsgBox 已经存在相同内容的记录。 , vbOKOnly + vbExclamation, 警告 txtIntem(0).SetFocus Exit Sub End If Else strSQL = delete from products where 顺序号= amp。 Trim(mnSerial) strSQLEnd IfstrSQL = select * from products strSQL, gConn, adOpenDynamic, adLockOptimisticFor i = 0 To 2 (i + 1) = txtIntem(i)Next iIf mbAddMode Then mbChange = False MsgBox 添加汽车信息成功。 继续添加下一条汽车信息, vbOKOnly + vbExclamation, 添加汽车信息 Unload Me vbModalElse Unload Me = select * from products End IfEnd SubPrivate Sub Form_Load()Dim strSQL As StringDim i As IntegerDim rs As New If mbAddMode Then = amp。 添加Else strSQL = select * from products where 顺序号=39。 amp。 Trim((, 1)) amp。 39。 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。 修改End IfmbChange = FalseEnd 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 Sub（3）显示库存数量的窗体代码Private Sub Form_Resize() = 0 = 0 = = End Sub9. 创建进货信息管理模块 窗体模块的功能 在该模块中，包含两个窗体：进货信息列表窗体和进货信息编辑窗体。 进货信息列表窗体以表格形式列出当前系统中的进货信息，并且提供了进行各种操作的接口；进货信息编辑窗体用于显示某一次进货的信息，借助该窗体可以对某次进货的信息进行编辑，也可以向数据库增加进货信息。 工作流程 该模块所包含的功能如图21所示。 查找删除进货信息列表编辑添加进货信息编辑窗体 图21 进货信息管理模块的子功能 窗体界面设计 （1）进货信息列表窗体，如图22 图22 （2）进货信息编辑窗体，如图23 图23 部分代码 A 进货信息列表窗体代码 Private Sub cmdAdd_Click() = True vbModal。