scgl_tsfw.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form scgl_tsfw 
   ClientHeight    =   4695
   ClientLeft      =   4380
   ClientTop       =   2580
   ClientWidth     =   4275
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4695
   ScaleWidth      =   4275
   Begin VB.Frame Frame1 
      Height          =   4695
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   4215
      Begin VB.TextBox m_tsfw 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1560
         TabIndex        =   4
         Top             =   3240
         Width           =   1815
      End
      Begin VB.CommandButton Cmd1 
         Caption         =   "增加(INS)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   0
         Left            =   480
         TabIndex        =   1
         Top             =   3960
         Width           =   1335
      End
      Begin VB.CommandButton Cmd1 
         Caption         =   "删除(DEL)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Index           =   1
         Left            =   2040
         TabIndex        =   2
         Top             =   3960
         Width           =   1335
      End
      Begin MSFlexGridLib.MSFlexGrid FLEX1 
         Height          =   2535
         Left            =   360
         TabIndex        =   0
         Top             =   480
         Width           =   3525
         _ExtentX        =   6218
         _ExtentY        =   4471
         _Version        =   327680
         Rows            =   3
         Cols            =   10
         FixedCols       =   0
         BackColor       =   -2147483624
         FocusRect       =   0
         SelectionMode   =   1
         AllowUserResizing=   3
      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            =   360
         TabIndex        =   7
         Top             =   3240
         Width           =   945
      End
      Begin VB.Label name1 
         AutoSize        =   -1  'True
         Caption         =   "特殊服务设置"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   360
         TabIndex        =   6
         Top             =   240
         Width           =   1365
      End
      Begin VB.Label rec_no 
         AutoSize        =   -1  'True
         Caption         =   "当前记录数:"
         Height          =   180
         Left            =   2880
         TabIndex        =   5
         Top             =   240
         Width           =   990
      End
   End
End
Attribute VB_Name = "scgl_tsfw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rec As Recordset
Dim t_bt As String
Dim T_FIELD As Variant
Dim key_index As Integer

Private Sub Form_Load()
    KeyPreview = True
    Call first
    Set rec = PUB_data.OpenRecordset("SELECT TSFW,LOCK_NO FROM YD_TSFW", 4)
    If Not rec.BOF Then
        rec.MoveLast
    End If
    t_bt = "            特殊服务      |^      锁号   "
    T_FIELD = Array(0, 1)
    Call pub_memo.Flex_full(flex1, t_bt, rec, T_FIELD, 1, Array(0, 0))
    rec_no.Caption = "记录数:" + CStr(flex1.Rows - 1)
End Sub

Private Sub CMD1_Click(Index As Integer)
    Select Case Index
    Case 0
        flex1.Enabled = False
        m_tsfw.Enabled = True
        m_tsfw.Text = ""
        m_tsfw.SetFocus
    Case 1
        flex1.Enabled = False
        Set rec = PUB_data.OpenRecordset("SELECT TSFW,LOCK_NO FROM YD_TSFW WHERE TSFW='" & UCase(Trim(m_tsfw.Text)) & "'", 2, 0, 2)
        If Not rec.BOF Then
            rec.MoveLast
            '加锁
            Do
            Select Case Pub_lock("PUBLIC", "YD_TSFW", rec)
            Case "1"
                Exit Do
            Case "2"
                Call Pub_UNlock("YD_TSFW", rec)
                Exit Sub
            End Select
            Loop
            With rec
                .Delete
            End With
            Call Pub_UNlock("YD_TSFW", rec)
            Call flex1_ref
            Call first
        End If
    End Select
End Sub
Private Sub flex1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        CMD1(0).SetFocus
    End If
End Sub

Private Sub FLEX1_GotFocus()
    On Error GoTo error1:
    m_tsfw.Text = flex1.TextArray(flex1.Row * 2)
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub


Private Sub FLEX1_RowColChange()
 On Error GoTo error1:
    m_tsfw.Text = flex1.TextArray(flex1.Row * 2)
    Exit Sub
error1:
    If Err() = 383 Then
        Resume Next
    End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    key_index = 100
    Select Case KeyCode
    Case vbKeyInsert
        key_index = 0
    Case vbKeyDelete
        key_index = 1
    Case vbKeyEscape
        key_index = 99
    End Select
    
    Select Case key_index
    Case 0, 1
        If m_tsfw.Enabled = False Then
            Call CMD1_Click(key_index)
        End If
    Case 99
        If m_tsfw.Enabled = False Then
            Unload Me
            yx_main.Show (1)
        Else
            Call first
        End If
    End Select
End Sub

Private Sub first()
    m_tsfw.Enabled = False
    If flex1.Enabled = False Then
        flex1.Enabled = True
        flex1.SetFocus
    End If
End Sub

Private Sub flex1_ref()
    Set rec = PUB_data.OpenRecordset("SELECT TSFW,LOCK_NO FROM YD_TSFW", 4)
    If Not rec.BOF Then
        rec.MoveLast
    End If
    Call pub_memo.Flex_full(flex1, t_bt, rec, T_FIELD, 1, Array(0, 0))
    rec_no.Caption = "记录数:" + CStr(flex1.Rows - 1)
End Sub

Private Sub m_tsfw_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        If Not Trim(m_tsfw.Text) = "" Then
            Set rec = PUB_data.OpenRecordset("SELECT TSFW,LOCK_NO FROM YD_TSFW WHERE TSFW='" & UCase(Trim(m_tsfw.Text)) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                MsgBox "该特殊服务已存在!", 16
                m_tsfw.SelStart = 0
                m_tsfw.SelLength = Len(Trim(m_tsfw.Text))
            Else
                With rec
                .AddNew
                    !tsfw = UCase(Trim(m_tsfw.Text))
                    !lock_no = 0
                .Update
                End With
                Call flex1_ref
                Call first
            End If
        Else
            Call first
        End If
    End If
End Sub