hotel_tool.cls

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

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) As Boolean
    fm_zhpd.ZHPD_FT = False
    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

'**************************************************************************************************
'*  功    能 : 选择结算方式
'*  作 成 者 : 梁卫
'*  作成日期 : 1999.03.18
'*  修改日期 : 1999.03.18
'*  参数说明 : ZW_JSFS  --  选择结算方式代码
'*             T_DATA   --  库名
'*             T_R4     --  结算代码(第4位)
'*             T_CODE   --  功能代码
'**************************************************************************************************
Public Function ZW_JSFS(ByVal t_data As Database, ByVal t_r4 As String, ByVal t_code As String) As String
    fm_jsfs.JS_FS = ""
    Call fm_jsfs.MAIN(t_data, t_r4, t_code)
    fm_jsfs.Show (1)
    ZW_JSFS = Trim(fm_jsfs.JS_FS)
End Function
'**************************************************************************************************
'*  功    能 : 选择结算方式
'*  作 成 者 : 梁卫
'*  作成日期 : 1999.03.18
'*  修改日期 : 1999.03.18
'*  参数说明 : ZW_JSFS  --  选择结算方式代码
'*             T_DATA   --  库名
'*             T_R4     --  结算代码(第4位)
'*             T_CODE   --  功能代码
'**************************************************************************************************
Public Function ZW_FKFS(ByVal t_data As Database, t_r4 As String, ByVal t_code As String) As String
    fm_fkfs.FK_FS = ""
    Call fm_fkfs.MAIN(t_data, t_r4, t_code)
    fm_fkfs.Show (1)
    ZW_FKFS = fm_fkfs.FK_FS
End Function