frmbookfind.frm

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

         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         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            =   3660
         TabIndex        =   17
         Top             =   1335
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         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            =   345
         TabIndex        =   16
         Top             =   1335
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         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            =   3855
         TabIndex        =   15
         Top             =   930
         Width           =   780
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         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            =   345
         TabIndex        =   14
         Top             =   930
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         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            =   3495
         TabIndex        =   13
         Top             =   510
         Width           =   1170
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         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            =   345
         TabIndex        =   12
         Top             =   510
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmBookFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmbDatePart_KeyDown(KeyCode As Integer, Shift As Integer)

  On Error Resume Next
  If KeyCode = 13 Then
     cmdFind.SetFocus
  End If
  
End Sub

Private Sub cmdClose_Click()

  QueryStr = ""
  Unload Me
  
End Sub

Private Sub cmdFind_Click()

  QueryStr = ""
  Dim sOR As String
  Dim sTemp As String
      sOR = " Where "
      
  If Trim(ftNO.Text) <> "" Then
     sTmp = sTmp & sOR & " ID Like '%" & Trim(ftNO.Text) & "%'"
     sOR = " AND "
  End If
  
  If Trim(ftClass.Text) <> "" Then
     sTmp = sTmp & sOR & " Class Like '%" & Trim(ftClass.Text) & "%'"
     sOR = " AND "
  End If
  
  If Trim(ftCID.Text) <> "" Then
     sTmp = sTmp & sOR & " CID Like '%" & Trim(ftCID.Text) & "%'"
     sOR = " AND "
  End If
  
  If Trim(ftCName.Text) <> "" Then
     sTmp = sTmp & sOR & " CName Like '%" & Trim(ftCName.Text) & "%'"
     sOR = " AND "
  End If
  
  If Trim(ftTel.Text) <> "" Then
     sTmp = sTmp & sOR & " Tel Like '%" & Trim(ftTel.Text) & "%'"
     sOR = " AND "
  End If
  If cmbDatePart.Text <> "" Then
     Select Case cmbDatePart.Text
        Case "中午"
          sTmp = sTmp & sOR & " Datepart=1"
          sOR = " AND "
        Case "下午"
          sTmp = sTmp & sOR & " Datepart=2"
          sOR = " AND "
        Case "晚上"
          sTmp = sTmp & sOR & " Datepart=3"
          sOR = " AND "
     End Select
  End If
  
 '日期限制
  If IsSqlDat = True Then
     sTmp = sTmp & sOR & " (ExpireDate>='" & dtpExpireDate.Value & "' And ExpireDate<='" & dtpExpireDate2.Value & "')"
   Else
     sTmp = sTmp & sOR & " (ExpireDate>=#" & dtpExpireDate.Value & "# And ExpireDate<=#" & dtpExpireDate2.Value & "#)"
  End If
  
  QueryStr = sTmp
  
  Unload Me
  
End Sub

Private Sub cmdSelectMember_Click()

    sGuestID = "": sGuestName = "": sGuestTel = ""
  
    frmMemberSelect.Show 1
  
    If sGuestID = "" Then
        ftCID.SetFocus
        Exit Sub
      Else
        BookChange = True
        ftCID.Text = sGuestID
        ftCName.Text = sGuestName
        ftTel.Text = sGuestTel
        cmdFind.SetFocus
    End If

End Sub

Private Sub dtpExpireDate_Change()

  On Error Resume Next
  If dtpExpireDate2.Value < dtpExpireDate.Value Then
     dtpExpireDate2.Value = dtpExpireDate.Value
  End If
  
End Sub

Private Sub dtpExpireDate_KeyDown(KeyCode As Integer, Shift As Integer)

  On Error Resume Next
  If KeyCode = 13 Then
     dtpExpireDate2.SetFocus
  End If
  
End Sub

Private Sub dtpExpireDate2_Change()

  On Error Resume Next
  If dtpExpireDate2.Value < dtpExpireDate.Value Then
     dtpExpireDate.Value = dtpExpireDate2.Value
  End If
  
End Sub

Private Sub dtpExpireDate2_KeyDown(KeyCode As Integer, Shift As Integer)

  On Error Resume Next
  If KeyCode = 13 Then
     cmbDatePart.SetFocus
  End If
  
End Sub

Private Sub Form_Load()

  QueryStr = ""
  GetFormSet Me, Screen
  dtpExpireDate.Value = Date
  dtpExpireDate2.Value = Date + 3
  
End Sub

Private Sub Form_Unload(Cancel As Integer)

  SaveFormSet Me
  
End Sub

Private Sub ftCID_DblClick()
 
  Call cmdSelectMember_Click
 
End Sub