frooutfind.frm

vb写得进销存

      _Band(0)._MapCol(6)._Alignment=   7
      _Band(0)._MapCol(7)._Name=   "小计"
      _Band(0)._MapCol(7)._RSIndex=   7
      _Band(0)._MapCol(7)._Alignment=   7
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   8325
      Top             =   885
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   12
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":003C
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":0490
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":08E4
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":0D38
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":118C
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":15E0
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":1A34
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":1E88
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":22DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":3FE6
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":6CF0
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "froOutFind.frx":97FA
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   795
      Left            =   0
      TabIndex        =   9
      Top             =   0
      Width           =   9090
      _ExtentX        =   16034
      _ExtentY        =   1402
      ButtonWidth     =   1032
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全部"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            ImageIndex      =   12
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "确定"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "取消"
            ImageIndex      =   7
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComCtl2.DTPicker DTPicker2 
      Height          =   285
      Left            =   6375
      TabIndex        =   11
      Top             =   1020
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   503
      _Version        =   393216
      Enabled         =   0   'False
      Format          =   24510465
      CurrentDate     =   37509
   End
   Begin VB.Label f 
      AutoSize        =   -1  'True
      Caption         =   "出货性质"
      Height          =   180
      Index           =   3
      Left            =   4110
      TabIndex        =   4
      Top             =   1440
      Width           =   720
   End
   Begin VB.Label f 
      AutoSize        =   -1  'True
      Caption         =   "购货单位"
      Height          =   180
      Index           =   2
      Left            =   615
      TabIndex        =   3
      Top             =   1425
      Width           =   720
   End
   Begin VB.Label f 
      AutoSize        =   -1  'True
      Caption         =   "出货日期"
      Height          =   180
      Index           =   1
      Left            =   4125
      TabIndex        =   2
      Top             =   1050
      Width           =   720
   End
   Begin VB.Label f 
      AutoSize        =   -1  'True
      Caption         =   "出货单编号"
      Height          =   180
      Index           =   0
      Left            =   570
      TabIndex        =   1
      Top             =   1065
      Width           =   900
   End
End
Attribute VB_Name = "frmOutFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'18

Dim s As String

Private Sub Check1_Click()
    If Check1.Value = 1 Then Text1.Enabled = True Else Text1.Enabled = False
End Sub

Private Sub Check2_Click()
    If Check2.Value = 1 Then DataCombo1.Enabled = True Else DataCombo1.Enabled = False
End Sub

Private Sub Check3_Click()
    If Check3.Value = 1 Then
        DTPicker1.Enabled = True
        DTPicker2.Enabled = True
    Else
        DTPicker1.Enabled = False
        DTPicker2.Enabled = False
    End If
    
End Sub

Private Sub Check4_Click()
    If Check4.Value = 1 Then
        DataCombo2.Enabled = True
    Else
        DataCombo2.Enabled = False
    End If
End Sub

Private Sub Form_Load()
On Error GoTo eH
    MFG.MergeCol(0) = True
    MFG.MergeCol(1) = True
    MFG.MergeCol(2) = True
    MFG.MergeCol(3) = True
    
    ADO.ConnectionString = g_cnnStr
    ADO.RecordSource = "select * from 出货单"
    ADO.Refresh
    
    Adodc1.ConnectionString = g_cnnStr
    Adodc1.RecordSource = "select distinct(购货单位) from 出货单"
    Adodc1.Refresh
    
    Adodc2.ConnectionString = g_cnnStr
    Adodc2.RecordSource = "select distinct(销售性质) from 出货单"
    Adodc2.Refresh
Exit Sub
eH:
    MsgBox em & vbNewLine & "错误号:1801" & vbNewLine & "错误描述:" & Err.Description

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo eH
    Select Case Button.Caption
        Case "查询"
            g_SQL = ""
            If Check1.Value = 1 Then
                g_SQL = g_SQL + "出货单编号='" & Text1 & "' and "
            End If
            If Check2.Value = 1 Then
                g_SQL = g_SQL + "购货单位='" & DataCombo1.Text & "' and "
            End If
            If Check3.Value = 1 Then
                g_SQL = g_SQL + "出货时间>=#" & DTPicker1.Value & "# and 出货时间<=#" & DTPicker2.Value & "# and "
            End If
            If Check4.Value = 1 Then
                g_SQL = g_SQL + "销售性质='" & DataCombo2 & "' and "
            End If
            If g_SQL = "" Then Exit Sub
            g_SQL = Mid(g_SQL, 1, Len(g_SQL) - 4)
            s = g_SQL
            g_SQL = "select * from 出货单 where " & g_SQL + " order by 出货单编号 asc"
            ADO.RecordSource = g_SQL
            ADO.Refresh
            
        Case "全部"
            ADO.RecordSource = "select * from 出货单"
            ADO.Refresh
            s = ""
        Case "打印"
            If drOut.Visible = True Then Unload drOut
            DE.rsOut_分组.Filter = s
            If DE.rsOut_分组.State = 1 Then DE.rsOut_分组.Requery
            drOut.Show 1
        Case "退出"
            Unload Me
    End Select
Exit Sub
eH:
    MsgBox em & vbNewLine & "错误号:1802" & vbNewLine & "错误描述:" & Err.Description

End Sub