dt_tdgl.frm

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

         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2400
      TabIndex        =   16
      Top             =   3420
      Width           =   2715
   End
   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   180
      TabIndex        =   7
      Top             =   120
      Width           =   11475
   End
End
Attribute VB_Name = "dt_tdgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim key_index As Integer  '表示当前功能键的代码
Dim tdgl_rec As Recordset
Dim t_funcNo As String   '0:增加记录  1:修改记录

Dim t_bt As String       '存储列表显示的表头
Dim t_fields As Variant  '存储列表显示的字段名
Dim t_fdxs As Variant    '表示显示列是否由代码转换成文字
Dim t_fdcounts As Integer   '表示列表所显示的字段的个数

Dim n_lockno As String   '存储当前记录号
Dim t_rec As Recordset

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
    cmd_func(4).Enabled = t_ft
    cmd_func(2).Enabled = t_ft
    cmd_func(3).Enabled = t_ft
    
    If tdgl_rec.RecordCount <> 0 Then
        cmd_func(0).Enabled = t_ft
        cmd_func(1).Enabled = t_ft
    Else
        cmd_func(0).Enabled = False
        cmd_func(1).Enabled = False
    End If
    
    dt_tdgl.KeyPreview = t_ft
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub flex_refresh()
    Call Flex_full(gd1, t_bt, tdgl_rec, t_fields, t_fdcounts - 1, t_fdxs)
    lb_jls.Caption = gd1.Rows - 1
    gd1.Refresh
    
    Call button_refresh(True)

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Sub MAIN(t_gnmc As String)
   Label1.Caption = t_gnmc
   JZ_USER = SYS_USER + Space(1) + SYS_NAME
   JZ_JRSJ2 = Time()
   JZ_DQSJ2 = Time()
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
    Unload Me
End Sub




'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
    Dim temp_zh As String
    Dim temp_dffls() As Integer
    
    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    ReDim temp_dffls(SYS_LXN + 1)
    For i = 1 To SYS_LXN
        temp_dffls(i) = 0
    Next i
    
    Select Case Index
    Case 0      '明细显示
        If gd1.Rows - 1 <> 0 Then
            pub_code = Left(Pub_getcode(PUB_data, "DT_TDXS"), 5)
            
            Call dt_tddj.MAIN(Trim(gd1.TextArray(gd1.Row * t_fdcounts)), pub_code)
            dt_tddj.Show (1)
        Else
            frm_msg.Visible = True
            frm_msg.Caption = "没有满足条件的记录"
        End If
    
    Case 1      '修改
        If gd1.Rows - 1 <> 0 Then
            pub_code = Left(Pub_getcode(PUB_data, "DT_TDXG"), 5)
            Call dt_tddj.MAIN(Trim(gd1.TextArray(gd1.Row * t_fdcounts)), pub_code)
            dt_tddj.Show (1)
            flex_refresh
        Else
            frm_msg.Visible = True
            frm_msg.Caption = "没有满足条件的记录"
        End If
    
    Case 2      '有预订登记
        pub_code = Left(Pub_getcode(PUB_data, "DT_TYDJ"), 5)
'        Call DT_TYDJ(frm_msg, pub_code)
        flex_refresh
    
    Case 3      '无预订登记
        pub_code = Left(Pub_getcode(PUB_data, "DT_TFDJ"), 5)
        dt_tfdj.Show (1)
        flex_refresh
    
    Case 4      '刷新
        Call flex_refresh
    
    End Select
    
    gd1.SetFocus
    
End Sub




Private Sub Form_Activate()
'    gd1.SetFocus
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    key_index = 100
    frm_msg.Caption = ""
    frm_msg.Visible = False
    Select Case KeyCode
           Case vbKeySpace
                key_index = 0   '明细显示
           Case vbKeyF3
                key_index = 1   '修改
           Case vbKeyF7
                key_index = 2   '有预订
           Case vbKeyF8
                key_index = 3   '无预订
           Case vbKeyF9
                key_index = 4   '刷新
           Case vbKeyEscape
                key_index = 101 '退出
    End Select
    If key_index = 101 Then
       Call CMD_EXIT_Click
    Else
       Call cmd_func_Click(key_index)
    End If
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Load()

    tx_bjRT.Text = 0
    
    dt_tdgl.KeyPreview = True
    
    Set tdgl_rec = PUB_data.OpenRecordset("SELECT * FROM DT_TDQD ORDER BY ZH", 4, 0, 2)
    If Not tdgl_rec.BOF Then
        tdgl_rec.MoveLast
        tdgl_rec.MoveFirst
    End If
    
    t_fields = Array("ZH", "TDMC", "RZRQ", "LDRQ", "VIP_MC", "KR_DJ", "ZXFE", "YE") '设置显示字段
    t_fdxs = Array(0, 0, 0, 0, 0, 2, 2, 2) '设置显示字段
    t_bt = "<帐 号 |<团队名称                 |^入住日期  |^离店日期  |^VIP     |>   定  金        |>  总消费额       |>   余  额        "   '设置显示表头格式
    t_fdcounts = 8
    Call flex_refresh

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        cmd_func(0).SetFocus
    End If
End Sub




'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub XT_Timer_Timer()
    JZ_DQSJ2.Caption = Time()
End Sub