ydrz.frm

酒店管理系统

VERSION 5.00
Begin VB.Form YDRZ 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "请选择预订单"
   ClientHeight    =   3030
   ClientLeft      =   690
   ClientTop       =   1740
   ClientWidth     =   4125
   Icon            =   "YDRZ.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3030
   ScaleWidth      =   4125
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "(&C)取消"
      Height          =   375
      Left            =   3000
      TabIndex        =   3
      Top             =   2520
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "(&O)确认"
      Height          =   375
      Left            =   1920
      TabIndex        =   2
      Top             =   2520
      Width           =   975
   End
   Begin VB.ListBox List1 
      Height          =   2040
      Left            =   0
      TabIndex        =   0
      Top             =   360
      Width           =   4095
   End
   Begin VB.Label Label1 
      Caption         =   "定房卡号    姓名（或团会名称）"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   3255
   End
End
Attribute VB_Name = "YDRZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim RECYD As Recordset
Public STRYD1 As String, STRYD2 As String, STRYD3 As String, STRYD4 As String, STRYD5 As String, STRYD6 As String, CURYD As Currency

Private Sub Command1_Click()
    If List1.Text = "" Then Exit Sub
    STRYD1 = RECYD("定房卡号")
    STRYD2 = IIf(RECYD("姓名") <> "", RECYD("姓名"), "")
    STRYD4 = IIf(RECYD("国籍") <> "", RECYD("国籍"), "")
    STRYD5 = IIf(RECYD("地址") <> "", RECYD("地址"), "")
    STRYD6 = IIf(RECYD("附注") <> "", RECYD("附注"), "")
    CURYD = IIf(RECYD("预付款") <> 0, RECYD("预付款"), 0)
    Unload Me
    
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Activate()
    If RECYD.RecordCount = 0 Then
       MsgBox "系统中无可选预定单!", vbCritical, "提示信息"
       Unload Me
    End If

End Sub

Private Sub Form_Load()
    STRYD1 = " "
    STRYD2 = " "
    STRYD3 = " "
    STRYD4 = " "
    STRYD5 = " "
    STRYD6 = " "
    CURYD = 0
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECYD = DATJDGL.OpenRecordset("预订单", dbOpenDynaset)
    If RECYD.RecordCount > 0 Then RECYD.MoveFirst
    List1.Clear
    Do While Not RECYD.EOF
       List1.AddItem (RECYD("定房卡号") + "  " + IIf(RECYD("姓名") <> "", RECYD("姓名"), ""))
       RECYD.MoveNext
    Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
    
End Sub

Private Sub List1_Click()
    If List1.Text = "" Then
       Exit Sub
       Else
         RECYD.FindFirst ("定房卡号='" & left(List1.Text, 12) & "'")
    End If
End Sub

Private Sub List1_DblClick()
    Command1_Click

End Sub