searchgoods10.frm

一个关于电脑管理汽车的软件

            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   495
         Index           =   5
         Left            =   240
         TabIndex        =   9
         Top             =   2520
         Width           =   1455
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Index           =   1
         Left            =   4320
         TabIndex        =   17
         Top             =   3120
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   20119553
         CurrentDate     =   38281
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Index           =   0
         Left            =   1920
         TabIndex        =   18
         Top             =   3120
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   20119553
         CurrentDate     =   38281
      End
      Begin VB.Label Label2 
         Caption         =   "自"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   3
         Left            =   1680
         TabIndex        =   20
         Top             =   3240
         Width           =   375
      End
      Begin VB.Label Label2 
         Caption         =   "到"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   2
         Left            =   3960
         TabIndex        =   19
         Top             =   3240
         Width           =   375
      End
      Begin VB.Label Label1 
         Caption         =   "请输入货品资料的条件："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   15
         Top             =   360
         Width           =   2535
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   1
      Top             =   4200
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "放 弃"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3360
      TabIndex        =   0
      Top             =   4200
      Width           =   1095
   End
   Begin BSE_Engine.BSE BSE1 
      Left            =   1680
      Top             =   4080
      _ExtentX        =   6588
      _ExtentY        =   1085
   End
End
Attribute VB_Name = "SearchGoods10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 Combo1(Index).Text = ""
End Sub

Private Sub Combo1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
 Combo1(Index).Text = ""
End Sub

Private Sub Command1_Click()
 Dim Filters As String
 Dim TempSQL As String
    If Check1(0).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "goodscoding = " & Quote(Text1(0).Text)
    End If
        
   If Check1(1).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "goodsname = " & Quote(Text1(1).Text)
   End If
   If Check1(2).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "goodsstandard = " & Quote(Text1(2).Text)
   End If
   If Check1(3).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "goodssort = " & Quote(Combo1(0).Text)
   End If
   If Check1(4).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "brand = " & Quote(Combo1(1).Text)
   End If
   If Check1(5).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "producehere = " & Quote(Combo1(2).Text)
   End If
   If Check1(6).Value = 1 Then
        'Filter by name
        If Filters <> "" Then Filters = Filters & " and " Else Filters = Filters & " Where "
        Filters = Filters & "lastdate >= " & Quote(DTPicker1(0).Value) & " and lastdate <= " & Quote(DTPicker1(1).Value)
   End If
   TempSQL = VarInitData.DisplaySQLVal(10)
   TempSQL = TempSQL & Filters
   VarInitData.LoadData StoreGoods.lstBillDocu, TempSQL
   Unload Me
   VarInitData.DealListView StoreGoods.lstBillDocu, StoreGoods.lstBillDocuIndex

End Sub

Private Sub Command2_Click()
 Unload Me
End Sub

Private Sub Form_Load()
 Dim i As Integer
 Dim TempSQL As String
 VarInitData.InitBSE BSE1, 0
 For i = 0 To 1
  DTPicker1(i).Value = Date
 Next i
 For i = 2 To 4
  TempSQL = VarInitData.DisplayDynSQLVal(VarInitData.SureNameFrIndex(i))
  VarInitData.LoadData Combo1(i - 2), TempSQL, 1
 Next i

End Sub

Private Sub Form_Unload(Cancel As Integer)
 If BSE1.EngineStarted Then BSE1.EndSubClassing

End Sub