frmmembersearch.frm

星级酒店管理系统（附带系统自写控件源码）

         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   195
         Index           =   9
         Left            =   3675
         TabIndex        =   17
         Top             =   1725
         Width           =   585
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "地址："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   5
         Left            =   3675
         TabIndex        =   15
         Top             =   1305
         Width           =   585
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "邮件："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   4
         Left            =   3675
         TabIndex        =   14
         Top             =   855
         Width           =   585
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "传真："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   3
         Left            =   3675
         TabIndex        =   13
         Top             =   420
         Width           =   585
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "联系电话："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   2
         Left            =   600
         TabIndex        =   12
         Top             =   1305
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "会员名称："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   0
         Left            =   600
         TabIndex        =   11
         Top             =   855
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "编号或卡号："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   1
         Left            =   420
         TabIndex        =   10
         Top             =   420
         Width           =   1170
      End
   End
End
Attribute VB_Name = "frmMemberSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub cmdCancel_Click()

  sFindString = ""
  Unload Me
  
End Sub

Private Sub cmdSearch_Click()

 Dim sTmp As String
 Dim sAnd As String
     sAnd = " Where "
      
 sTmp = ""
 sFindString = ""
 If Trim(ftID.Text) <> "" Then
    If chkSearch.Value = vbChecked Then
        sTmp = sTmp & sAnd & " ID Like '%" & Trim(ftID.Text) & "%'"
       Else
        sTmp = sTmp & sAnd & " ID='" & Trim(ftID.Text) & "'"
    End If
    sAnd = " And "
 End If
 
 If Trim(ftCName.Text) <> "" Then
    If chkSearch.Value = vbChecked Then
       sTmp = sTmp & sAnd & " Name Like '%" & Trim(ftCName.Text) & "%'"
      Else
       sTmp = sTmp & sAnd & " Name='" & Trim(ftCName.Text) & "'"
    End If
    sAnd = " And "
 End If
 
 If Trim(ftTel.Text) <> "" Then
    If chkSearch.Value = vbChecked Then
       sTmp = sTmp & sAnd & " Tel Like '%" & Trim(ftTel.Text) & "%'"
      Else
       sTmp = sTmp & sAnd & " Tel='" & Trim(ftTel.Text) & "'"
    End If
    sAnd = " And "
 End If

 If Trim(ftFax.Text) <> "" Then
     If chkSearch.Value = vbChecked Then
        sTmp = sTmp & sAnd & " Fax Like '%" & Trim(ftFax.Text) & "%'"
       Else
        sTmp = sTmp & sAnd & " Fax='" & Trim(ftFax.Text) & "'"
     End If
    sAnd = " And "
 End If

 If Trim(ftEmail.Text) <> "" Then
    If chkSearch.Value = vbChecked Then
      sTmp = sTmp & sAnd & " Email Like '%" & Trim(ftEmail.Text) & "%'"
      Else
      sTmp = sTmp & sAnd & " Email='" & Trim(ftEmail.Text) & "'"
    End If
    sAnd = " And "
 End If

 If Trim(ftAddress.Text) <> "" Then
    If chkSearch.Value = vbChecked Then
       sTmp = sTmp & sAnd & " Address Like '%" & Trim(ftAddress.Text) & "%'"
      Else
       sTmp = sTmp & sAnd & " Address='" & Trim(ftAddress.Text) & "'"
    End If
    sAnd = " And "
 End If

 If cmbLevel.Text <> "" Then
    sTmp = sTmp & sAnd & " DLevel=" & cmbLevel.ListIndex - 1
 End If
 
 sFindString = sTmp
 Unload Me
 
End Sub

Private Sub Form_Load()

  GetFormSet Me, frmMember
  sFindString = ""             '搜索字符串为空
  
End Sub

Private Sub Form_Unload(Cancel As Integer)

  SaveFormSet Me
  
End Sub