汽车销售系统实训报告(3)

Exit Sub End If

If Combo1.Text = \请选择车辆名称\

MsgBox \请选择账目名！\ Combo1.SetFocus Exit Sub End If

If Comboy.Text = \

MsgBox \请选择年份！\ Comboy.SetFocus Exit Sub End If

If Combom.Text = \

MsgBox \请选择月份！\ Combom.SetFocus Exit Sub End If

If Combod.Text = \

MsgBox \请选择日期！\ Combod.SetFocus Exit Sub End If

If MSFlexGrid1.Col <> 0 Then

MsgBox \请输入完整的物品信息！\ Text5.SetFocus Exit Sub End If

sql = \入库单 where 入库单号='\rs_save.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_save.EOF Then rs_save.AddNew

rs_save.Fields(0) = Trim(Text1.Text)

rs_save.Fields(1) = CDate(Trim(Comboy.Text) & \ rs_save.Fields(2) = Trim(Combo1.Text) rs_save.Fields(3) = Trim(Text2.Text) rs_save.Fields(4) = Trim(Text3.Text) rs_save.Fields(5) = Trim(Text4.Text) rs_save.Update rs_save.Close Else

MsgBox \入库单号重复！\ Text1.SetFocus Text1.Text = \ rs_save.Close Exit Sub End If

sql = \车辆资料\

rs_save.Open sql, conn, adOpenKeyset, adLockPessimistic For i = 1 To MSFlexGrid1.Row - 1 rs_save.AddNew

rs_save.Fields(0) = Trim(Text1.Text)

rs_save.Fields(1) = CDate(Trim(Comboy.Text) & \& Trim(Combom.Text) & \& Trim(Combod.Text)) rs_save.Fields(2) = Trim(Combo1.Text) MSFlexGrid1.Row = i MSFlexGrid1.Col = 0

rs_save.Fields(3) = Trim(MSFlexGrid1.Text) MSFlexGrid1.Col = 1

If incheck1.Caption = \出库\ s = \ rs_save.Fields(4) = CDbl(s) Else

rs_save.Fields(4) = CDbl(Trim(MSFlexGrid1.Text)) End If

MSFlexGrid1.Col = 2

rs_save.Fields(5) = Trim(MSFlexGrid1.Text) MSFlexGrid1.Col = 3

rs_save.Fields(6) = Trim(MSFlexGrid1.Text) MSFlexGrid1.Col = 4

If incheck1.Caption = \出库\ s = \ rs_save.Fields(7) = CDbl(s) Else

rs_save.Fields(7) = CDbl(Trim(MSFlexGrid1.Text)) End If

MSFlexGrid1.Col = 5

rs_save.Fields(8) = Trim(MSFlexGrid1.Text) Next i

rs_save.Update rs_save.Close

MsgBox \添加成功！\

Exit Sub saveerror:

MsgBox Err.Description End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() Dim sql As String Dim i As Integer On Error GoTo loaderror sql = \车辆名称\

rs_checkname.CursorLocation = adUseClient

rs_checkname.Open sql, conn, adOpenKeyset, adLockPessimistic sql = \供应商名称\rs_custom.CursorLocation = adUseClient

rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic While Not rs_custom.EOF

Comboy.AddItem rs_custom.Fields(0) rs_custom.MoveNext Wend

If Not rs_checkname.EOF Then rs_checkname.MoveFirst

While Not rs_checkname.EOF '添加可选择的车辆名称 Combo1.AddItem rs_checkname.Fields(0) rs_checkname.MoveNext Wend End If

Comboy.AddItem 2000 '添加年份 Comboy.AddItem 2001 Comboy.AddItem 2002 Comboy.AddItem 2003

For i = 1 To 12 '添加月份 Combom.AddItem i Next i

For i = 1 To 31 '添加日期 Combod.AddItem i Next i setgrid

Text5.Visible = False clear_grid Exit Sub loaderror:

MsgBox Err.Description End Sub

Private Sub Form_Unload(Cancel As Integer) '关闭数据对象 rs_checkname.Close rs_custom.Close End Sub

Public Sub setgrid() '设置表格子程序 Dim i As Integer On Error GoTo seterror

MSFlexGrid1.ScrollBars = flexScrollBarBoth MSFlexGrid1.FixedCols = 0 MSFlexGrid1.Rows = row_num MSFlexGrid1.Cols = col_num

MSFlexGrid1.SelectionMode = flexSelectionByRow For i = 0 To row_num - 1

MSFlexGrid1.RowHeight(i) = 315 Next

For i = 0 To col_num - 1

MSFlexGrid1.ColWidth(i) = 1300 Next i Exit Sub seterror:

MsgBox Err.Description End Sub

Public Sub setgrid_head() On Error GoTo setheaderror MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0

MSFlexGrid1.Text = \车辆名称\MSFlexGrid1.Col = 1

MSFlexGrid1.Text = \单价\MSFlexGrid1.Col = 2 MSFlexGrid1.Text = \数量\MSFlexGrid1.Col = 3

单位\

MSFlexGrid1.Col = 4

MSFlexGrid1.Text = \金额\MSFlexGrid1.Col = 5

MSFlexGrid1.Text = \供应商名称\Exit Sub setheaderror:

MsgBox Err.Description End Sub

Public Sub clear_grid() Dim i As Integer, j As Integer For i = 1 To row_num - 1 MSFlexGrid1.Row = i For j = 0 To col_num - 1 MSFlexGrid1.Col = j MSFlexGrid1.Text = \ Next j Next i End Sub

Public Sub nextposition(ByVal r As Integer, ByVal c As Integer) On Error GoTo nexterror

Text5.Width = MSFlexGrid1.CellWidth Text5.Height = MSFlexGrid1.CellHeight

Text5.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c) Text5.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r) Text5.Text = MSFlexGrid1.Text Text5.Visible = True Text5.SetFocus Exit Sub nexterror:

MsgBox Err.Description End Sub

Private Sub MSFlexGrid1_Click() If Combo2.Visible = True Then Exit Sub End If

nextposition MSFlexGrid1.Row, MSFlexGrid1.Col End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) Dim i As Integer, j As Integer