hotel_tool.cls

学生信息管理系统(VB+sql)+毕业论文2万字 (338 回复) 排课管理系统vb (278 回复) 求vb+acess做的超市销售管理...毕业设计(酒店管理系统+报告(分析==)) (306 回

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "HOTEL_TOOLS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Sub PUB_LYCX(T_DATA As Database, T_ID As Integer, T_LXN As Integer, T_LXC As Variant, T_YL As Variant, t_code As String)
    Call fm_lycx.MAIN(T_DATA, T_ID, T_LXN, T_LXC, T_YL, t_code)
    fm_lycx.Show (1)
End Sub


Public Sub PUB_SYKF(T_DATA As Database, T_start As Date, T_End As Date, T_fl As Variant, T_LXN As Integer, T_LXC As Variant, T_YL As Variant, t_code As String)
    Call FM_SYKF.MAIN(T_DATA, T_start, T_End, T_fl, T_LXN, T_LXC, T_YL, t_code)
    FM_SYKF.Show (1)
End Sub


'**************************************************************************************************
'*  功    能 : 对帐号进行判断
'*  作 成 者 : 梁卫
'*  作成日期 : 1999.03.18
'*  修改日期 : 1999.03.18
'*  参数说明 : pub_zhpd  --  确认, 返回 True; 否则, 返回 False
'**************************************************************************************************
Public Function pub_zhpd(T_DATA As Database, t_gwdm As String, t_gwzw As String, t_tzysk As String, t_sk As String, t_td As String, t_tbname As String, t_dfzh As String)
    Dim temp_ft As Boolean
    fm_zhpd.ZHPD_FT = t_ft
    Call fm_zhpd.MAIN(T_DATA, t_gwdm, t_gwzw, t_tzysk, t_sk, t_td, t_tbname, t_dfzh)
    Call fm_zhpd.Show(1)
    pub_zhpd = fm_zhpd.ZHPD_FT

End Function

Public Function pub_msg(t_xx As String)
    Call fm_msg.MAIN(t_xx)
    Call fm_msg.Show(1)

End Function

Public Function PUB_ClkXH(T_DATA As Database) As Integer
    dt_cklb.XH = 0
    Call dt_cklb.MAIN(T_DATA)
    dt_cklb.Show (1)
    PUB_ClkXH = dt_cklb.XH
End Function