ct_zck.frm

vb不酒店管理系统

'**************************************************************************************************
Public Property Let ZCKBZ(temp_zckbz As Double)
    Rt_zckbz = temp_zckbz
End Property

'**************************************************************************************************
'*  功    能 : 免费早餐卡的 客房分担额*数量 返回值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZCKKF() As Double
    ZCKKF = Rt_zckkf
End Property

'**************************************************************************************************
'*  功    能 : 免费早餐卡的 客房分担额*数量 赋初始值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Let ZCKKF(temp_zckkf As Double)
    Rt_zckkf = temp_zckkf
End Property

'**************************************************************************************************
'*  功    能 : 免费早餐卡的 餐厅分担额*数量 返回值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZCKCT() As Double
    ZCKCT = Rt_zckct
End Property

'**************************************************************************************************
'*  功    能 : 免费早餐卡的 餐厅分担额*数量 赋初始值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Let ZCKCT(temp_zckct As Double)
    Rt_zckct = temp_zckct
End Property

'**************************************************************************************************
'*  功    能 : 早餐卡数量 返回值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZCKSL() As Integer
    ZCKSL = Rt_zcksl
End Property

'**************************************************************************************************
'*  功    能 : 给早餐卡数量 赋初始值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Let ZCKSL(temp_sl As Integer)
    Rt_zcksl = temp_sl
End Property

'**************************************************************************************************
'*  功    能 : 帐号 返回值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZH() As String
    ZH = Rt_zh
End Property

'**************************************************************************************************
'*  功    能 : 给帐号 赋初始值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.17
'*  修改日期 : 1999.03.17
'**************************************************************************************************
Public Property Let ZH(temp_zhin As String)
    Rt_zh = temp_zhin
End Property


'**************************************************************************************************
'*  功    能 : 用来设置各种控件 .edabled 的设置
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'*  参数说明 : temp_zck_id  --  表示 发放, 回收, 领用  等各种功能
'*             temp_ft      --  表示 控件的 .Enabled 的状态
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_zck_id As String, temp_ft As Boolean)     '控件.enabled 的设置
    m_zck_bz.Enabled = False
    m_fssl.Enabled = temp_ft
    m_fsbz.Enabled = temp_ft
End Sub


'**************************************************************************************************
'*  功    能 : 用来设置各种控件赋值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'*  参数说明 : temp_rec  --  显示的记录集名称
'*             trmp_bszt --  表示字段按何方式显示  0 - 把字段清空  1 - 按记录集显示字段  2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As Recordset, temp_bszt As String)

    Select Case temp_bszt
    Case 0            '把字段清空
        m_zck_bz.Text = ""
        m_fssl.Text = ""
        m_fsbz.Text = ""
        
    Case 2            '把字段初始化
        m_zck_bz.Text = ""
        m_fssl.Text = 0
        m_fsbz.Text = ""
        
    Case 1                '按记录集给字段赋值
        m_zck_bz.Text = Format(temp_rec.Fields("ZCK_BZ"), "#,##0.00")
        m_fssl.Text = Format(temp_rec.Fields("FSSL"), "#,##0")
        m_fsbz.Text = Trim(temp_rec.Fields("FSBZ"))
    End Select
End Sub


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
    cmd_ok(0).Enabled = Not t_ft
    cmd_ok(1).Enabled = Not t_ft
    
    ct_zck.KeyPreview = t_ft
End Sub
'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub flex_refresh()
    Call Flex_full(gd1, t_bt, zck_rec, t_fields, t_fdcounts - 1, t_fdxs)
    
    gd1.Refresh
    
    Call button_refresh(True)
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.15
'*  修改日期 : 1999.03.15
'**************************************************************************************************
Sub MAIN(temp_zck_id As String, temp_zdh_in As String)
    CS_zck_id = Trim(temp_zck_id)
    CS_zdh_in = Trim(temp_zdh_in)
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
    Rt_zcksl = 0
    Rt_zh = ""
    Rt_zckbz = 0
    Rt_zckkf = 0
    Rt_zckct = 0
    
    LOCAL_data.Execute "UPDATE DT_ZCK SET FSSL=0"
    
    Unload Me
End Sub


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub CMD_FUNC_Click()
    Dim temp_mfckft As Boolean
    
    Rt_zcksl = 0
    Rt_zckbz = 0
    Rt_zckkf = 0
    Rt_zckct = 0
    
    temp_mfckft = False

    zck_rec.Requery
    If Not zck_rec.BOF Then
        zck_rec.MoveLast
        zck_rec.MoveFirst
    
        Dim zckbz_rec As Recordset
        Set zckbz_rec = PUB_data.OpenRecordset("SELECT * FROM DT_ZCKBZ", 4, 0, 2)
        If Not zckbz_rec.BOF Then
            zckbz_rec.MoveLast
            zckbz_rec.MoveFirst
        End If
        
        Do While Not zck_rec.EOF
            If Not zck_rec.Fields("FSSL") = 0 Then
                Rt_zcksl = Rt_zcksl + zck_rec.Fields("FSSL")
                temp_mfckft = True
            
                '计算 早餐卡标准, 客房分担额, 餐厅分担额 的金额
                zckbz_rec.FindFirst "ZCK_BZ=" & zck_rec!ZCK_BZ
                If Not zckbz_rec.NoMatch Then
                    zckbz_rec.MoveLast
                    Rt_zckbz = Rt_zckbz + zckbz_rec!ZCK_BZ * zck_rec!FSSL
                    Rt_zckct = Rt_zckct + zckbz_rec!FD_CT * zck_rec!FSSL
                    Rt_zckkf = Rt_zckkf + zckbz_rec!FD_KF * zck_rec!FSSL
                End If
            End If
            zck_rec.MoveNext
        Loop
        zckbz_rec.Close
    
    End If
    zck_rec.Close
    
    Unload Me
    
End Sub



'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub cmd_ok_Click(Index As Integer)
    Dim temp_ft As Boolean

    frm_msg.Visible = False
    frm_msg.Caption = ""


    Select Case Index
    Case 0    '按"确定"键
            
            Set t_rec = LOCAL_data.OpenRecordset("SELECT * FROM DT_ZCK WHERE ZCK_BZ=" & Format(m_zck_bz.Text), 2, 0, 2)
            If Not t_rec.BOF Then
                t_rec.MoveLast
                
                t_rec.Edit
                t_rec.Fields("ZCK_BZ") = CDec(Trim(m_zck_bz.Text))
                t_rec.Fields("FSSL") = Int(Trim(m_fssl.Text))
                t_rec.Fields("FSBZ") = IIf(Trim(m_fsbz.Text) = "", "*", Trim(m_fsbz.Text))
                t_rec.Update
            End If
            t_rec.Close
            
            Call flex_refresh
    
    Case 1  '按"退出"键
            Call button_refresh(True)
    End Select
    
    tPkjEnabledFT CS_zck_id, False    '设置控件是否可用
    
    gd1.Enabled = True
    gd1.SetFocus

End Sub




Private Sub Form_Activate()
    If m_dfzh.Visible Then
        m_dfzh.SetFocus
    Else
        gd1.SetFocus
    End If
End Sub


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    frm_msg.Caption = ""
    frm_msg.Visible = False
    
    Select Case KeyCode
    Case vbKeyEscape
        Call CMD_EXIT_Click
    Case vbKeyF2
        Call CMD_FUNC_Click
    End Select

End Sub


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************