汽车销售管理系统的设计实现与汽车4S店销售管理软件的应用

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 = 1 End With

Set mRs = New ADODB.Recordset

.

精选范本

.

End Sub

Private Sub Form_Resize()

fraManage.Left = (Me.ScaleWidth - fraManage.Width) / 2 fraManage.Top = Me.ScaleHeight - 200 - fraManage.Height

grdList.Top = 200

grdList.Width = Me.ScaleWidth - 200 grdList.Left = Me.ScaleLeft + 100

grdList.Height = Me.ScaleHeight - fraManage.Height - grdList.Top - 200 End Sub

Private Sub Form_Unload(Cancel As Integer) If mRs.State <> adStateClosed Then mRs.Close End Sub

B 进货信息编辑窗体代码 Private Sub cmdCancel_Click() If mbChange Then

If MsgBox(\保存当前记录的变化吗？\vbOKCancel + vbExclamation, \警告\= vbOK Then

Call cmdOK_Click End If End If Unload Me

精选范本

.

Unload frmStockList Load frmStockList

frmStockList.SQL = \ frmStockList.Show End Sub

Private Sub cmdOK_Click() On Error GoTo errHandler

If txtIntem(3).Text = \

MsgBox \字段不能为空，而且只能输入数字\错误\ End If

If txtIntem(4).Text = \

MsgBox \字段不能为空，而且只能输入数字\错误\ End If

If Trim(cboItem) = \

MsgBox \必须选择汽车名称\错误\ cboItem.SetFocus Exit Sub End If

If Not IsDate(Trim(txtIntem(5))) Then

MsgBox \请输入正确的日期格式！\警告\

精选范本

.

txtIntem(5).SetFocus Exit Sub End If

If Not mbAddMode Then

gConn.Execute \顺序号='\ End If

Dim rs As New ADODB.Recordset

rs.Open \

rs.AddNew

rs(\汽车名称\ Dim i As Integer

For i = txtIntem.LBound To txtIntem.UBound rs.Fields(i).Value = txtIntem(i) Next i rs.Update rs.Close

mnQuantity = CInt(txtIntem(3)) - mnQuantity

gConn.Execute \库存数量=库存数量+\汽车名称='\

If mbAddMode Then

精选范本