splaygrid1
Unload Me cmderror:
If Err.Number <> 0 Then
MsgBox \请输入正确的查询条件！\警告\ End If End Sub
Private Sub Command2_Click() Unload Me MDIForm1.Show End Sub
Private Sub Form_Load() Dim i As Integer Dim sql As String Option1.Value = True If findok = True Then rs_data1.Close End If
sql = \销售单 order by 提货单号 desc\rs_find.CursorLocation = adUseClient
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_find.EOF = False Then '添加编号 With rs_find
Do While Not .EOF
Combo1(0).AddItem .Fields(0) Combo1(1).AddItem .Fields(0) .MoveNext Loop End With End If
For i = 2001 To 2005 '添加年 Comboy(0).AddItem i Comboy(1).AddItem i Next i
For i = 1 To 12 '添加月 Combom(0).AddItem i Combom(1).AddItem i Next i
For i = 1 To 31 '添加日
Combod(0).AddItem i Combod(1).AddItem i Next i End Sub
Private Sub Form_Unload(Cancel As Integer) rs_find.Close End Sub
库存资料代码如下：
Option Explicit
Dim rs_data2 As New ADODB.Recordset Dim select_row As String Dim showgrid2 As Boolean
Dim rs_custom As New ADODB.Recordset
Dim jinchu As String '进出库标志 Dim modify As Boolean '修改状态标志
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_Load() On Error GoTo loaderror Dim sql As String
displaygrid1 '调用显示displaygrid1子程序 loaderror:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
'显示msflexgrid1子程序 Public Sub displaygrid1() Dim i As Integer
On Error GoTo displayerror setgrid setgridhead
MSFlexGrid1.Row = 0 If Not rs_data1.EOF Then rs_data1.MoveFirst Do While Not rs_data1.EOF
MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0
If Not IsNull(rs_data1.Fields(0)) Then MSFlexGrid1.Text = rs_data1.Fields(0) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 1
If Not IsNull(rs_data1.Fields(1)) Then MSFlexGrid1.Text = rs_data1.Fields(1) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 2
If Not IsNull(rs_data1.Fields(2)) Then MSFlexGrid1.Text = rs_data1.Fields(2) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 3
If Not IsNull(rs_data1.Fields(3)) Then MSFlexGrid1.Text = rs_data1.Fields(3) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 4
If Not IsNull(rs_data1.Fields(4)) Then MSFlexGrid1.Text = rs_data1.Fields(4) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 5
If Not IsNull(rs_data1.Fields(5)) Then MSFlexGrid1.Text = rs_data1.Fields(5) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 6
If rs_data1.Fields(6) = True Then MSFlexGrid1.Text = \进库\出库\
rs_data1.MoveNext
Loop End If displayerror:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
Public Sub setgrid() Dim i As Integer On Error GoTo seterror With MSFlexGrid1
.ScrollBars = flexScrollBarBoth .FixedCols = 0
.Rows = rs_data1.RecordCount + 1 .Cols = 7
.SelectionMode = flexSelectionByRow For i = 0 To .Rows - 1 .RowHeight(i) = 315 Next
For i = 0 To .Cols - 1 .ColWidth(i) = 1300 Next i End With Exit Sub seterror:
MsgBox Err.Description End Sub
Public Sub setgridhead() 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.Text = \库存位号\
MSFlexGrid1.Text = \入库数量\MSFlexGrid1.Col = 5
MSFlexGrid1.Text = \经手人\MSFlexGrid1.Col = 6
MSFlexGrid1.Text = \进出库\Exit Sub setheaderror:
MsgBox Err.Description End Sub
Private Sub Form_Unload(Cancel As Integer) findok = False rs_data1.Close
If showgrid2 = True Then rs_data2.Close End If End Sub
销售信息代码如下：
Option Explicit
Dim rs_data2 As New ADODB.Recordset Dim select_row As String Dim showgrid2 As Boolean
Dim rs_custom As New ADODB.Recordset
Dim jinchu As String '进出库标志