scgl_khdm.frm

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

VERSION 5.00
Begin VB.Form scgl_khdm 
   ClientHeight    =   1440
   ClientLeft      =   3420
   ClientTop       =   3690
   ClientWidth     =   3975
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   1440
   ScaleWidth      =   3975
   Begin VB.TextBox m_khdm 
      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            =   2280
      MaxLength       =   5
      TabIndex        =   0
      Top             =   360
      Width           =   615
   End
   Begin VB.Label MSG 
      AutoSize        =   -1  'True
      BackColor       =   &H80000018&
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   2400
      TabIndex        =   1
      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            =   240
      TabIndex        =   2
      Top             =   360
      Width           =   1710
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000018&
      Height          =   1455
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   3975
   End
End
Attribute VB_Name = "scgl_khdm"
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 kh As String  '客户编号

Private Sub Form_Load()
    KeyPreview = True
    If STY = "0" Then
        m_khdm.Text = ""
    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 kh_h() As String
    kh_h = kh
End Property

Public Property Let kh_h(kkh As String)
    kkh = kh_h
End Property

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

Private Sub m_khdm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call m_khdm_LostFocus
    End If
End Sub

Private Sub m_khdm_LostFocus()
    '*** L:旅行社  ; X:协议单位  ; Z:走访单位    ; J: 酒店代表
    If Not Trim(m_khdm.Text) = "" Then
        If Mid(UCase(Trim(m_khdm.Text)), 1, 1) = "L" Or Mid(UCase(Trim(m_khdm.Text)), 1, 1) = "X" Or Mid(UCase(Trim(m_khdm.Text)), 1, 1) = "Z" Or Mid(UCase(Trim(m_khdm.Text)), 1, 1) = "J" Then
            If Len(Trim(m_khdm.Text)) = 5 Then
                Set t_rec = PUB_data.OpenRecordset("SELECT KHDM FROM YX_DWQK Where Trim(KHDM)='" & UCase(Trim(m_khdm.Text)) & "'", 4)
                If STY = "0" Then  '如果增加,判断编号是否存在
                    If Not t_rec.BOF Then
                        t_rec.MoveLast
                        MSG.Caption = "无效客户编号!"
                        m_khdm.SetFocus
                        m_khdm.SelStart = 0
                        m_khdm.SelLength = Len(Trim(m_khdm.Text))
                    Else
                        kh = UCase(Trim(m_khdm.Text))
                        t_f = True
                        Unload Me
                    End If
                    t_rec.Close
                Else
                    If STY = "1" Or STY = "2" Then '修改,解除
                        If Not t_rec.BOF Then
                            t_rec.MoveLast
                            kh = UCase(Trim(m_khdm.Text))
                            t_f = True
                            Unload Me
                        Else
                            MSG.Caption = "无效客户单号!"
                            m_khdm.SetFocus
                            m_khdm.SelStart = 0
                            m_khdm.SelLength = Len(Trim(m_khdm.Text))
                        End If
                    'PATH
                    Else
                        If STY = "5" Then
                            If Not t_rec.BOF Then
                                t_rec.MoveLast
                                kh = UCase(Trim(m_khdm.Text))
                                t_f = True
                                Unload Me
                            Else
                                MSG.Caption = "无效客户单号!"
                                m_khdm.SetFocus
                                m_khdm.SelStart = 0
                                m_khdm.SelLength = Len(Trim(m_khdm.Text))
                            End If
                        End If
                    End If
                End If
            Else
                MSG.Caption = "无效客户单号!"
                m_khdm.SetFocus
                m_khdm.SelStart = 0
                m_khdm.SelLength = Len(Trim(m_khdm.Text))
            End If
            
        Else
            MSG.Caption = "无效客户单号!"
            m_khdm.SetFocus
            m_khdm.SelStart = 0
            m_khdm.SelLength = Len(Trim(m_khdm.Text))
        End If
    Else
        t_f = False
        Unload Me
    End If
End Sub