kf_ydd_h.frm

一个简单的酒店管理系统 用VB.net+SQL2000实现

VERSION 5.00
Begin VB.Form kf_ydd_h 
   BackColor       =   &H80000018&
   BorderStyle     =   5  'Sizable ToolWindow
   ClientHeight    =   1485
   ClientLeft      =   4545
   ClientTop       =   4005
   ClientWidth     =   3975
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   1485
   ScaleWidth      =   3975
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox m_ydd_h 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   2040
      MaxLength       =   12
      TabIndex        =   0
      Text            =   "123456789012"
      Top             =   360
      Width           =   1395
   End
   Begin VB.Label MSG 
      AutoSize        =   -1  'True
      BackColor       =   &H80000018&
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   2400
      TabIndex        =   2
      Top             =   120
      Width           =   90
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00C0FFFF&
      Caption         =   "请输入预订单号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   210
      Left            =   120
      TabIndex        =   1
      Top             =   360
      Width           =   1710
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000018&
      Height          =   1455
      Left            =   0
      TabIndex        =   3
      ToolTipText     =   "预定单前缀:散客 SK 团队 TD 长包 CB"
      Top             =   0
      Width           =   3975
   End
End
Attribute VB_Name = "kf_ydd_h"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_rec3 As Recordset   'ADDNEW,EDIT,DELETE
Dim t_rec4 As Recordset   'LOCK_NO
Dim t_rec As Recordset    'MSFLEXGRID
Dim t_rec1 As Recordset
Dim t_rq As String
Dim t_f As Boolean
Dim dh As String

Private Sub Form_Load()
    KeyPreview = True
    If STY = "0" Then
        m_ydd_h.Text = ""
    End If
    
End Sub

Private Sub m_ydd_h_Change()
    MSG.Caption = ""
End Sub

Private Sub m_ydd_h_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_ydd_h_LostFocus
    End If
End Sub

Private Sub m_ydd_h_LostFocus()
    If Not m_ydd_h.Text = "" Then
        If Mid(UCase(Trim(m_ydd_h.Text)), 1, 2) = "SK" Or Mid(UCase(Trim(m_ydd_h.Text)), 1, 2) = "TD" Or Mid(UCase(Trim(m_ydd_h.Text)), 1, 2) = "CB" Then
            If Len(Trim(m_ydd_h.Text)) = 12 Then
                Set t_rec = PUB_data.OpenRecordset("SELECT YDD_H FROM YD_YDDK Where Trim(YDD_H)='" & UCase(Trim(m_ydd_h.Text)) & "'", 4)
                Select Case STY
                Case "0"    '建立
                    If Not t_rec.BOF Then
                        t_rec.MoveLast
                        MSG.Caption = "无效预订单号!"
                        m_ydd_h.SetFocus
                        m_ydd_h.SelStart = 0
                        m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
                    Else
                        dh = UCase(Trim(m_ydd_h.Text))
                        t_f = True
                        Unload Me
                    End If
                    t_rec.Close
                Case "1"     '修改
                    If Not t_rec.BOF Then
                        t_rec.MoveLast
                        dh = UCase(Trim(m_ydd_h.Text))
                        t_f = True
                        Unload Me
                    Else
                        MSG.Caption = "无效预订单号!"
                        m_ydd_h.SetFocus
                        m_ydd_h.SelStart = 0
                        m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
                    End If
                Case "5"    '查询
                    If Not t_rec.BOF Then
                        t_rec.MoveLast
                        dh = UCase(Trim(m_ydd_h.Text))
                        t_f = True
                        Unload Me
                    Else
                        MSG.Caption = "无效预订单号!"
                        m_ydd_h.SetFocus
                        m_ydd_h.SelStart = 0
                        m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
                    End If
                End Select
            Else
                MSG.Caption = "无效预订单号!"
                m_ydd_h.SetFocus
                m_ydd_h.SelStart = 0
                m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
            End If
        Else
            MSG.Caption = "无效预订单号!"
            m_ydd_h.SetFocus
            m_ydd_h.SelStart = 0
            m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text))
        End If
    Else
        t_f = False
        Unload Me
    End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        t_f = False
        Unload Me
    End If
End Sub

Public Property Get tf() As Boolean
    tf = t_f
End Property

Public Property Let tf(t As Boolean)
    t = tf
End Property

Public Property Get yd_h() As String
    yd_h = dh
End Property

Public Property Let yd_h(ydd As String)
    ydd = yd_h
End Property