dt_zckbz.frm

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

                    t_rec.MoveLast
        
                    '编辑字段初始化
                    lbzck_bz.Enabled = True
                    m_zck_bz.Enabled = True
                    Select Case Index
                    Case 1
                            t_funcNo = "1"
                            lb_xxxx.Caption = "详细信息(修改)"
                            lbfd_kf.Enabled = True
                            m_fd_kf.Enabled = True
                    Case 2
                            t_funcNo = "2"
                            lb_xxxx.Caption = "详细信息(删除)"
                            lbfd_kf.Enabled = False
                            m_fd_kf.Enabled = False
                    End Select
                    
                    m_zck_bz.Text = Format(t_rec!zck_bz, "#,##0")
                    m_fd_kf.Text = Format(t_rec!fd_kf, "#,##0.00")
                    m_fd_ct.Text = Format(t_rec!fd_ct, "#,##0.00")
            
                    '界面BUTTON初始化
                    Call button_refresh(False)
                    gd1.Enabled = False
                    m_zck_bz.SetFocus
                Else
                    frm_msg.Visible = True
                    frm_msg.Caption = "没有满足条件的记录"
                End If
                t_rec.Close
            Else
                frm_msg.Visible = True
                frm_msg.Caption = "没有满足条件的记录"
            End If


    Case 3  '打印

    Case 4  '筛选
            fm_cx.Enabled = True
            lbtzck_bz.Enabled = True
            tx_zck_bz.Enabled = True
            cmd_func(0).Enabled = False
            cmd_func(1).Enabled = False
            cmd_func(2).Enabled = False
            cmd_func(3).Enabled = False
            cmd_func(4).Enabled = False
            tx_zck_bz.Text = ""
            tx_zck_bz.SetFocus
    

    Case 5  '刷新
            Call flex_refresh
            gd1.SetFocus

    End Select

End Sub


Private Sub Form_Activate()
    gd1.SetFocus
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    key_index = 100
    frm_msg.Caption = ""
    frm_msg.Visible = False
    
    Select Case KeyCode
    Case vbKeyF2
            key_index = 0   '增加
    Case vbKeyF3
            key_index = 1   '修改
    Case vbKeyF4
            key_index = 2   '删除
    Case vbKeyF5
            key_index = 3   '打印
    Case vbKeyF6
            key_index = 4   '筛选
    Case vbKeyF9
            key_index = 5   '筛选
    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.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_Load()
    
    frm_msg.Visible = False
    frm_msg.Caption = ""

    fm_cx.Enabled = False
    lbtzck_bz.Enabled = False
    tx_zck_bz.Enabled = False

    lbzck_bz.Enabled = False
    m_zck_bz.Enabled = False
    m_zck_bz.Text = ""

    lbfd_kf.Enabled = False
    m_fd_kf.Enabled = False
    m_fd_kf.Text = ""

    'lbfd_ct.Enabled = False
    'm_fd_ct.Enabled = False
    m_fd_ct.Text = ""

    dt_zckbz.KeyPreview = True

    Set zckbz_rec = PUB_data.OpenRecordset("SELECT ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ order by ZCK_BZ", 4, 0, 2)
    If Not zckbz_rec.BOF Then
        zckbz_rec.MoveLast
        zckbz_rec.MoveFirst
    End If

    t_fields = Array("ZCK_BZ", "FD_KF", "FD_CT")  '设置显示字段
    t_fdxs = Array(2, 2, 2) '设置显示字段
    t_fdcounts = 3
    t_bt = ">早餐卡标准              |>客房分担额            |>餐厅分担额            "   '设置显示表头格式

    Call flex_refresh
    
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_GotFocus()
    If zckbz_rec.RecordCount <> 0 Then
        m_zck_bz.Text = gd1.TextArray(gd1.Row * t_fdcounts)
        m_fd_kf.Text = gd1.TextArray(gd1.Row * t_fdcounts + 1)
        m_fd_ct.Text = gd1.TextArray(gd1.Row * t_fdcounts + 2)
    Else
        m_zck_bz.Text = ""
        m_fd_kf.Text = ""
        m_fd_ct.Text = ""
    End If
End Sub

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

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_RowColChange()
    If zckbz_rec.RecordCount <> 0 Then
        m_zck_bz.Text = gd1.TextArray(gd1.Row * t_fdcounts)
        m_fd_kf.Text = gd1.TextArray(gd1.Row * t_fdcounts + 1)
        m_fd_ct.Text = gd1.TextArray(gd1.Row * t_fdcounts + 2)
    Else
        m_zck_bz.Text = ""
        m_fd_kf.Text = ""
        m_fd_ct.Text = ""
    End If
End Sub

Private Sub m_fd_kf_GotFocus()
    If t_funcNo = "0" Then
        If Trim(m_zck_bz.Text) = "" Then
            m_zck_bz.Text = 0
        End If
    End If
    If Trim(m_fd_kf.Text) = "" Then
        m_fd_kf.Text = 0
    Else
        m_fd_kf.Text = Format(m_fd_kf.Text)
    End If
End Sub


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub m_fd_kf_LostFocus()
    
    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    If Trim(m_fd_kf.Text = "") Then
        If Trim(m_zck_bz.Text) = "" Then
            Exit Sub
        Else
            m_fd_kf.Text = 0
        End If
    End If
    If Not (IsNumeric(m_fd_kf.Text)) Then
        m_fd_kf.BackColor = RGB(255, 0, 0)
        frm_msg.Visible = True
        frm_msg.Caption = "客房分担额输入错误"
        m_fd_kf.SetFocus
    Else
        If m_fd_kf.Text >= 0 Then
            If CDec(m_fd_kf.Text) > CDec(m_zck_bz.Text) Then
                m_fd_kf.BackColor = RGB(255, 0, 0)
                frm_msg.Visible = True
                frm_msg.Caption = "客房分担额不能大于早餐卡标准"
                m_fd_kf.SetFocus
            Else
                m_fd_kf.Text = Format(m_fd_kf.Text, "#,##.00")
                m_fd_ct.Text = Format(Format(m_zck_bz.Text) - Format(m_fd_kf.Text), "#,##0.00")
                m_fd_kf.BackColor = RGB(255, 255, 255)
            End If
        Else
            m_fd_kf.BackColor = RGB(255, 0, 0)
            frm_msg.Visible = True
            frm_msg.Caption = "客房分担额输入错误"
            m_fd_kf.SetFocus
        End If
    End If

End Sub


Private Sub m_zck_bz_GotFocus()
    If Trim(m_zck_bz.Text) = "" Then
        m_zck_bz.Text = 0
    Else
        m_zck_bz.Text = Format(m_zck_bz.Text)
    End If
    m_zck_bz.SelStart = 1
    m_zck_bz.SelLength = Len(Trim(m_zck_bz.Text))
End Sub


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub m_zck_bz_LostFocus()
    
    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    If Trim(m_zck_bz.Text) = "" Then
        m_fd_kf.Text = ""
        m_fd_ct.Text = ""
        cmd_ok(1).SetFocus
    Else
        Select Case t_funcNo
        Case "0"
                If Not (IsNumeric(m_zck_bz.Text) Or CDec(m_zck_bz.Text) >= 0) Then
                    m_zck_bz.BackColor = RGB(255, 0, 0)
                    frm_msg.Visible = True
                    frm_msg.Caption = "早餐卡标准输入错误"
                    m_zck_bz.SetFocus
                Else
                    m_zck_bz.BackColor = RGB(255, 255, 255)
                    m_zck_bz.Text = Format(m_zck_bz.Text, "#,##0.00")
                End If
    
        Case "1", "2"
                Set t_rec = PUB_data.OpenRecordset("SELECT ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ  WHERE ZCK_BZ=" & Format(m_zck_bz.Text, "0.00"), 4, 0, 2)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                    m_zck_bz.Text = Format(t_rec!zck_bz, "#,##0.00")
                    m_fd_kf.Text = Format(t_rec!fd_kf, "#,##0.00")
                    m_fd_ct.Text = Format(t_rec!fd_ct, "#,##0.00")
                    frm_msg.Visible = False
                    frm_msg.Caption = ""
                Else
                    frm_msg.Visible = True
                    frm_msg.Caption = "没有满足条件的记录"
                    m_zck_bz.SetFocus
                    m_zck_bz.Text = ""
                    m_fd_kf.Text = ""
                    m_fd_ct.Text = ""
                End If
                t_rec.Close
        End Select
    End If
End Sub


Private Sub tx_zck_bz_GotFocus()
    If Trim(tx_zck_bz.Text) <> "" Then
        tx_zck_bz.Text = Format(tx_zck_bz.Text)
    End If
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub tx_zck_bz_LostFocus()
    Dim t_ft As Boolean
    
    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    t_ft = False
    If Trim(tx_zck_bz.Text) = "" Then
        t_ft = True
        fm_cx.Enabled = False
        lbtzck_bz.Enabled = False
        tx_zck_bz.Enabled = False
    
        Set zckbz_rec = PUB_data.OpenRecordset("SELECT ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ ORDER BY ZCK_BZ", 4, 0, 2)
        If Not zckbz_rec.BOF Then
            zckbz_rec.MoveLast
        End If
        Call flex_refresh
    Else
        If Not (IsNumeric(tx_zck_bz.Text) Or IsNumeric(tx_zck_bz.Text) > 0) Then
            frm_msg.Visible = True
            frm_msg.Caption = "请重新输入满足条件的值"
            tx_zck_bz.SetFocus
        Else
            t_ft = True
            fm_cx.Enabled = False
            lbtzck_bz.Enabled = False
            tx_zck_bz.Enabled = False
        
            tx_zck_bz.Text = Format(tx_zck_bz.Text, "#,##0.00")
            
            Set zckbz_rec = PUB_data.OpenRecordset("SELECT ZCK_BZ,FD_KF,FD_CT,LOCK_NO FROM DT_ZCKBZ WHERE ZCK_BZ=" & Format(tx_zck_bz.Text) & " ORDER BY ZCK_BZ", 4, 0, 2)
            If Not zckbz_rec.BOF Then
                zckbz_rec.MoveLast
            End If
            Call flex_refresh
        End If
    End If

    If t_ft Then
        frm_msg.Visible = True
        frm_msg.Caption = "筛选出 " & zckbz_rec.RecordCount & " 条满足条件的记录"
    End If
    
    gd1.SetFocus
    
End Sub


Private Sub XT_Timer_Timer()
    JZ_DQSJ2.Caption = Time()
End Sub