dt_main.frm

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

         Caption         =   "6.早餐卡标准(OK)"
      End
      Begin VB.Menu FILE57 
         Caption         =   "7.预报数据登记(由)"
      End
      Begin VB.Menu FILE58 
         Caption         =   "8.订房方式设置(由)"
      End
      Begin VB.Menu FILE59 
         Caption         =   "9.抵达方式设置(由)"
      End
      Begin VB.Menu FILE5A 
         Caption         =   "A.特殊服务设置(由)"
      End
      Begin VB.Menu FILE5B 
         Caption         =   "B.订房员补记(由)"
      End
      Begin VB.Menu FILE5C 
         Caption         =   "C.外管局数据管理(OK)"
      End
      Begin VB.Menu FILE5D 
         Caption         =   "D.新旧帐号对照表(?)"
      End
   End
   Begin VB.Menu FILE6 
      Caption         =   "&X退出"
   End
End
Attribute VB_Name = "dt_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer, key_index As Integer
Public sj1 As Integer, sj2 As Integer, sj3 As Integer
Public r1 As Integer, g1 As Integer, b1 As Integer
Public t_cs As Currency


'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Sub MAIN(T_GWDM As String, T_GWMC As String, T_USER As String, T_NAME As String, T_RIGHT As String)

SYS_GWDM = T_GWDM
SYS_GWMC = T_GWMC
SYS_USER = T_USER
SYS_NAME = T_NAME
SYS_RIGHT = T_RIGHT

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
MY_RUN = "1"
Unload Me
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub FILE11_Click()
XT_Timer.Enabled = False

End Sub

'**************************************************************************************************
'*  功    能 : 在店散客管理
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub FILE21_Click()
XT_Timer.Enabled = False
dt_krgl.MAIN (FILE21.Caption)
dt_krgl.Show (1)
End Sub


Private Sub FILE22_Click()
XT_Timer.Enabled = False
dt_tdgl.MAIN (FILE22.Caption)
dt_tdgl.Show (1)
End Sub

Private Sub FILE23_Click()
XT_Timer.Enabled = False
pub_code = Left(Pub_getcode(PUB_data, "DT_KFHF"), 5)
dt_kfhf.MAIN (FILE23.Caption)
dt_kfhf.Show (1)
End Sub


Private Sub FILE3E_Click()
XT_Timer.Enabled = False
Dim t_tools As New HOTEL_TOOL.HOTEL_TOOLS
Call t_tools.pub_lycx(PUB_data, 0, SYS_LXN, SYS_LXC, SYS_Yl, "00000")
End Sub

'**************************************************************************************************
'*  功    能 : 免费早餐卡查询
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.18
'*  修改日期 : 1999.03.18
'**************************************************************************************************
Private Sub FILE3G_Click()
XT_Timer.Enabled = False
pub_code = Left(Pub_getcode(PUB_data, "DT_ZCKCX"), 5)
dt_zckcx.MAIN (FILE3G.Caption)
dt_zckcx.Show (1)
End Sub

Private Sub FILE3H_Click()
XT_Timer.Enabled = False
dt_mffcx.Show (1)
End Sub

Private Sub FILE3I_Click()
XT_Timer.Enabled = False
dt_zkfdc.Show (1)
End Sub

Private Sub FILE3J_Click()
XT_Timer.Enabled = False
dt_tsfcx.Show (1)
End Sub

Private Sub FILE3K_Click()
XT_Timer.Enabled = False
dt_srfcx.Show (1)
End Sub

Private Sub FILE4_Click()

End Sub

'**************************************************************************************************
'*  功    能 : 常来客管理
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub FILE51_Click()
XT_Timer.Enabled = False
pub_code = Left(Pub_getcode(PUB_data, "DT_CKGL"), 5)
dt_ckgl.MAIN (FILE51.Caption)
dt_ckgl.Show (1)
End Sub

'**************************************************************************************************
'*  功    能 : 外管局数据管理
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.25
'*  修改日期 : 1999.03.25
'**************************************************************************************************
Private Sub FILE5C_Click()
XT_Timer.Enabled = False
dt_wgcgl.MAIN FILE5C.Caption
dt_wgcgl.Show (1)
End Sub

'**************************************************************************************************
'*  功    能 : 早餐卡领用
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub FILE52_Click()
XT_Timer.Enabled = False
dt_zck.MAIN "领用", ""
dt_zck.Show (1)
End Sub

'**************************************************************************************************
'*  功    能 : 早餐卡发放
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.16
'*  修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub FILE53_Click()
XT_Timer.Enabled = False
dt_zck.ZH = ""
dt_zck.MAIN "发放", ""
dt_zck.Show (1)
End Sub

'**************************************************************************************************
'*  功    能 : 早餐卡标准
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub FILE56_Click()
XT_Timer.Enabled = False
pub_code = Left(Pub_getcode(PUB_data, "DT_ZCKBZ"), 5)
dt_zckbz.MAIN (FILE56.Caption)
dt_zckbz.Show (1)
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Activate()
XT_Timer.Enabled = True
End Sub

'**************************************************************************************************
'*  功    能 : 更新当前时间
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Timer1_Timer()
JZ_DQSJ2 = Time()
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Load()
Dim sys_uid As String, sys_pwd As String
sys_uid = "db2user"
sys_pwd = "db2user"
  
Set PUB_data = WRK.OpenDatabase("PUBLIC", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
Set ZW_data = WRK.OpenDatabase("ZW", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
Set YX_data = WRK.OpenDatabase("YX", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
Set KF_data = WRK.OpenDatabase("KF", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
Set LOCAL_data = OpenDatabase(SYS_LOCALBASE)
dt_main.KeyPreview = False
XT_IMAGE.Visible = True
dt_main.Caption = SYS_GWMC
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()

Call Sys_get

sj1 = -10
sj2 = 5
sj3 = 10
r1 = 0
g1 = 255
b1 = 125
t_cs = 0

XT_BT(0).ForeColor = RGB(r1, g1, b1)
XT_BT(1).ForeColor = RGB(r1, g1, b1)
XT_BT(2).ForeColor = RGB(r1, g1, b1)
XT_BT(3).ForeColor = RGB(r1, g1, b1)

End Sub

'**************************************************************************************************
'*  功    能 : 退出前台接待处系统
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub FILE6_Click()
Call CMD_EXIT_Click
End Sub


'**************************************************************************************************
'*  功    能 : 处理系统每隔60秒重新进行注册
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.24
'*  修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub XT_Timer_Timer()
t_cs = t_cs + 1
If t_cs > 60 Then
      frmLogin.Show (1)
      t_cs = 0
End If
If r1 + sj1 <= 0 Or r1 + sj1 >= 255 Then
   sj1 = -sj1
End If
If g1 + sj2 <= 0 Or g1 + sj2 >= 255 Then
   sj2 = -sj2
End If
If b1 + sj3 <= 0 Or b1 + sj3 >= 255 Then
   sj3 = -sj3
End If
r1 = r1 + sj1
g1 = g1 + sj2
b1 = b1 + sj3
XT_BT(t_cs Mod 4).ForeColor = RGB(r1, g1, b1)
End Sub