发布时间 : 2024/6/26 11:03:54 星期三 文章汽车销售管理系统的设计实现与汽车4S店销售管理软件的应用更新完毕开始阅读abd28040b72acfc789eb172ded630b1c59ee9b04

.

mbChange = True

MsgBox \添加进货信息成功！继续添加下一条进货信息\添加进货信息\ Unload Me Me.Show vbModal Else

Unload Me

frmStockList.SQL = \ frmStockList.Show End If Exit Sub

errHandler:

MsgBox Err.Description, vbCritical, \错误\ End Sub

Private Sub Form_Load() On Error GoTo errHandler

Dim rs As New ADODB.Recordset

rs.Open \汽车名称 from products\ If Not rs.EOF Then cboItem.Clear Do While Not rs.EOF

精选范本

.

cboItem.AddItem rs(\汽车名称\ rs.MoveNext Loop Else

MsgBox \当前数据库不包含任何的汽车信息。请先设置汽车信息！\vbOKOnly + vbExclamation, \警告\ Exit Sub End If rs.Close

If mbAddMode Then

Me.Caption = Me.Caption & \添加\ txtIntem(5) = Format(Date, \ txtIntem(3) = 0 txtIntem(4) = 10

mnQuantity = 0 Else

Me.Caption = Me.Caption & \修改\

rs.Open \顺序号=\ If Not rs.EOF Then

cboItem.Text = rs(\汽车名称\

Dim i As Integer

精选范本

.

For i = txtIntem.LBound To txtIntem.UBound txtIntem(i) = rs.Fields(i).Value Next i End If

mnQuantity = rs(\进货数量\ rs.Close End If

mbChange = False Exit Sub

errHandler:

MsgBox Err.Description, vbCritical, \错误\ End Sub

Private Sub txtIntem_Change(Index As Integer) mbChange = True End Sub

Private Sub txtIntem_GotFocus(Index As Integer) txtIntem(Index).SelStart = 0

txtIntem(Index).SelLength = Len(txtIntem(Index)) End Sub

精选范本