frmzcfinddd.frm

小型超市进销存系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmZCfindDD 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "订单查询"
   ClientHeight    =   3420
   ClientLeft      =   3540
   ClientTop       =   3780
   ClientWidth     =   6690
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3420
   ScaleWidth      =   6690
   ShowInTaskbar   =   0   'False
   Begin MSComCtl2.DTPicker dtDdate2 
      Height          =   375
      Left            =   4680
      TabIndex        =   15
      Top             =   1680
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      _Version        =   393216
      Format          =   27066369
      CurrentDate     =   38555
   End
   Begin MSComCtl2.DTPicker dtDdate1 
      Height          =   375
      Left            =   2880
      TabIndex        =   14
      Top             =   1680
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      _Version        =   393216
      Format          =   27066369
      CurrentDate     =   38555
   End
   Begin MSComCtl2.DTPicker dtTdate 
      Height          =   375
      Left            =   2880
      TabIndex        =   13
      Top             =   1200
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      _Version        =   393216
      Format          =   27066369
      CurrentDate     =   38555
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出查找"
      Height          =   375
      Left            =   3840
      TabIndex        =   12
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "开始查找"
      Height          =   375
      Left            =   1440
      TabIndex        =   11
      Top             =   2520
      Width           =   1095
   End
   Begin VB.CheckBox chkID 
      Caption         =   "Check4"
      Height          =   255
      Left            =   360
      TabIndex        =   10
      Top             =   360
      Width           =   255
   End
   Begin VB.CheckBox chkTdate 
      Caption         =   "Check3"
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   1320
      Width           =   255
   End
   Begin VB.CheckBox chkName 
      Caption         =   "Check2"
      Height          =   255
      Left            =   360
      TabIndex        =   8
      Top             =   840
      Width           =   255
   End
   Begin VB.CheckBox chkDdate 
      Caption         =   "Check1"
      Height          =   255
      Left            =   360
      TabIndex        =   7
      Top             =   1800
      Width           =   255
   End
   Begin VB.TextBox txtName 
      Height          =   375
      Left            =   2880
      TabIndex        =   3
      Top             =   720
      Width           =   1335
   End
   Begin VB.TextBox txtID 
      Height          =   375
      Left            =   2880
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label Label5 
      Caption         =   "到"
      Height          =   255
      Left            =   4320
      TabIndex        =   6
      Top             =   1800
      Width           =   255
   End
   Begin VB.Label Label4 
      Caption         =   "按提货日期查询："
      Height          =   375
      Left            =   960
      TabIndex        =   5
      Top             =   1320
      Width           =   1575
   End
   Begin VB.Label Label3 
      Caption         =   "按订购时间段查询：从"
      Height          =   375
      Left            =   960
      TabIndex        =   4
      Top             =   1800
      Width           =   1815
   End
   Begin VB.Label Label2 
      Caption         =   "按顾客姓名查询："
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   840
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "按订单号查询："
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Top             =   360
      Width           =   1575
   End
End
Attribute VB_Name = "frmZCfindDD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chkID_Click()
 If chkID.Value = 1 Then
  chkName.Enabled = False
  chkTdate.Enabled = False
  chkDdate.Enabled = False
 Else
   chkName.Enabled = True
   chkTdate.Enabled = True
   chkDdate.Enabled = True
 End If
End Sub
Private Sub cmdExit_Click()
 Unload Me
End Sub
Private Sub cmdOk_Click()
 Stra = "select * from t_corder where "
       If chkID.Value = 1 And txtId.Text <> "" Then
         Stra = Stra & "corderid=" & Trim(txtId.Text)
         Else
            If chkName.Value = 1 Then
             Stra = Stra & "cname like '%" & Trim(txtName.Text) & "%'"
               If chkTdate.Value = 1 Then
               Stra = Stra & " and cetime='" & dtTdate.Value & "'"
               End If
               If chkDdate.Value = 1 Then
               Stra = Stra & " and cstime between '" & dtDdate1.Value & "' and '" & dtDdate2.Value & "'"
               End If
            Else
            If chkTdate.Value = 1 Then
             Stra = Stra & "cetime='" & dtTdate.Value & "'"
              If chkDdate.Value = 1 Then
              Stra = Stra & " and cstime between '" & dtDdate1.Value & "' and '" & dtDdate2.Value & "'"
              End If
            Else
                If chkDdate.Value = 1 Then
                 Stra = Stra & "cstime between '" & dtDdate1.Value & "' and '" & dtDdate2.Value & "'"
                 Else
                 MsgBox "请输入查询条件"
                 Exit Sub
           End If
          End If
         End If
        End If
  Set Dblink.rs = Dblink.executeSQL(Stra)
  If Dblink.rs.RecordCount = 0 Then
   MsgBox "未找到记录，请重新查询"
   Else
   strB = Stra
   Set frmZCddMore.MHF.DataSource = Dblink.executeSQL(Stra)
    frmZCddMore.MHF.Rows = Dblink.rs.PageSize + 1
   frmZCddMore.Show
  End If
End Sub
Private Sub Form_Load()
Stra = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=supermarket;Data Source=."
Dblink.linkDB Stra
 dtTdate.Value = Date
 dtDdate1.Value = Date
 dtDdate2.Value = Date
End Sub
Private Sub txtID_KeyPress(KeyAscii As Integer)
 Cmd KeyAscii
End Sub
Private Sub txtName_KeyPress(KeyAscii As Integer)
 Cmd1 KeyAscii
End Sub