hotel_tool.cls

该系统为酒店日常管理提供了很大的方便

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

'************************************
'* 功    能 : 将口令加密成密文
'* 参数说明:  PASSWORD  :口令
'*            CODE      :密文
'************************************
Public Function encode(password As String) As String  ', code As String)   '加密
encode = ""
For i = 1 To 10
    encode = encode & Chr(3 * (Len(password) + i + 9)) & Chr(Asc(Mid(Mid(password & Space(10), 1, 10), i, 1)) - i)
Next
End Function

'************************************
'* 功    能 : 将密文解译为口令
'* 参数说明:  PASSWORD  :口令
'*            CODE      :密文
'************************************
Public Function decode(code As String) As String      '解密
Dim n As Integer
n = Asc(Mid(code, 1, 1)) / 3 - 10  '口令长
decode = ""
For i = 1 To 10
    decode = decode & Chr(Asc(Mid(code, 2 * i, 1)) + i)
Next
decode = Mid(decode, 1, n)
End Function