kf_yddh.frm

该系统为酒店日常管理提供了很大的方便

VERSION 5.00
Begin VB.Form kf_yddh 
   Caption         =   "Form1"
   ClientHeight    =   1725
   ClientLeft      =   3330
   ClientTop       =   3825
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1725
   ScaleWidth      =   4680
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   1680
      MaxLength       =   12
      TabIndex        =   0
      Top             =   240
      Width           =   2535
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认"
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   1200
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      Height          =   375
      Left            =   3120
      TabIndex        =   2
      Top             =   1215
      Width           =   1095
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请输入预定单号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   0
      TabIndex        =   3
      Top             =   255
      Width           =   1575
   End
End
Attribute VB_Name = "kf_yddh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
'Dim T_REC As Recordset

Private Sub Command1_Click()
    If Not t_rec.BOF Then
        t_rec.MoveLast
        t_rec.MoveFirst
    
        t_rec.FindFirst SQL()
         If t_rec.NoMatch Then
            
            T_STR = Trim(Text1.Text)
            
            'frm_kfyd.t_win1.DataSource = T_REC
            Unload Me
            frm_ydtj.Show
            frm_ydtj.Caption = Space(2) + "预定单" + CStr(T_STR)
            
         Else
            MsgBox "此预定单号已存在,请确认重输!", 16
           'Me.Refresh
            frm_yddh.Text1.SetFocus
            frm_yddh.Text1.SelStart = 0
            frm_yddh.Text1.SelLength = Len(Trim(Text1.Text))
         End If
    Else
        If Not (Left(Trim(Text1.Text), 2) = "SK" Or Left(Trim(Text1.Text), 2) = "sk" Or Left(Trim(Text1.Text), 2) = "TD" Or Left(Trim(Text1.Text), 2) = "td") Then
            MsgBox "散客预定单号以 SK 开头,团队以 TD 开头,请确认重输!", 16
            frm_yddh.Text1.SetFocus
            frm_yddh.Text1.SelStart = 0
            frm_yddh.Text1.SelLength = Len(Trim(Text1.Text))
        Else
            T_STR = Trim(Text1.Text)
            Unload Me
            frm_ydtj.Show
            frm_ydtj.Caption = Space(2) + "预定单" + CStr(T_STR)
        End If
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
    yx_kfyd.Refresh
End Sub

Private Sub Form_Load()
    Dim sys_uid As String, sys_pwd As String
    sys_uid = "db2user"
    sys_pwd = "db2user"
    Set yx_data = wrk.OpenDatabase("public", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
    Set t_rec = yx_data.OpenRecordset("select * from YD_YDDK", 2, 0, 2)
   
End Sub


Private Function SQL() As String
    SQL = "YDD_H='" & Trim(Text1.Text) & "'"
End Function