yx_main.frm

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

         Caption         =   "8.订房员业绩统计"
      End
      Begin VB.Menu D09 
         Caption         =   "9.常来客管理"
      End
      Begin VB.Menu D0A 
         Caption         =   "A.订房方式设置"
      End
      Begin VB.Menu D0B 
         Caption         =   "B.抵达方式"
      End
      Begin VB.Menu D0C 
         Caption         =   "C.特殊服务设置"
      End
      Begin VB.Menu D0D 
         Caption         =   "D.客房预留数"
      End
      Begin VB.Menu D0F 
         Caption         =   "F.帐页打印"
      End
   End
   Begin VB.Menu X 
      Caption         =   "&X退出"
   End
End
Attribute VB_Name = "yx_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
Dim rec As Recordset
Dim rec1 As Recordset

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

Private Sub A01_Click()
    XT_Timer.Enabled = False
    yx_kfyd.MAIN (A01.Caption)
    Me.Hide
    pub_code = Left(Pub_getcode(PUB_data, "PUB_YDGL"), 5)
    yx_kfyd.Show (1)
End Sub

Private Sub A02_Click()
    XT_Timer.Enabled = False
    yx_hyyd.MAIN (A02.Caption)
    Me.Hide
    pub_code = Left(Pub_getcode(PUB_data, "PUB_HYYD"), 5)
    yx_hyyd.Show (1)
End Sub

Private Sub A03_Click()
    XT_Timer.Enabled = False
    yd_wait.MAIN (A03.Caption)
    Me.Hide
    pub_code = Left(Pub_getcode(PUB_data, "PUB_WAIT"), 5)
    yd_wait.Show (1)
End Sub

Private Sub B01_Click()
    XT_Timer.Enabled = False
    ht_zfgl.MAIN (B01.Caption)
    Me.Hide
    pub_code = Left(Pub_getcode(PUB_data, "YX_ZFHT"), 5)
    ht_zfgl.Show (1)
End Sub
Private Sub B02_Click()
    XT_Timer.Enabled = False
    ht_dfgl.MAIN (B02.Caption)
    Me.Hide
    pub_code = Left(Pub_getcode(PUB_data, "YX_DFHT"), 5)
    ht_dfgl.Show (1)
End Sub

Private Sub B03_Click()
    XT_Timer.Enabled = False
    ht_hyxy.MAIN (B03.Caption)
    Me.Hide
    pub_code = Left(Pub_getcode(PUB_data, "YX_HYXY"), 5)
    ht_hyxy.Show (1)
End Sub

Private Sub B04_Click()
    XT_Timer.Enabled = False
    ht_htgl.MAIN (B04.Caption)
    Me.Hide
    ht_htgl.Show (1)
End Sub

Private Sub B05_Click()
    XT_Timer.Enabled = False
    ht_htjb.MAIN (B05.Caption)
    Me.Hide
    ht_htjb.Show (1)
End Sub

Private Sub C01_Click()
    pub_code = Left(Pub_getcode(PUB_data, "PUB_YDLL"), 5)
    XT_Timer.Enabled = False
    cx_yddk.MAIN (C01.Caption)
    Me.Hide
    cx_yddk.Show (1)
End Sub

Private Sub C02_Click()
    pub_code = Left(Pub_getcode(PUB_data, "PUB_YDDA"), 5)
    XT_Timer.Enabled = False
    cx_ydda.MAIN (C02.Caption)
    Me.Hide
    cx_ydda.Show (1)
End Sub

Private Sub C05_Click()
    XT_Timer.Enabled = False
    cx_zdkr.MAIN (C05.Caption)
    Me.Hide
    cx_zdkr.Show (1)
End Sub

Private Sub C0E_Click() '客房利用情况查询
    XT_Timer.Enabled = False
    Me.Hide
    cx_kfly.Show (1)
End Sub

Private Sub C0J_Click()
    '***table:  dt_srftj
End Sub

Private Sub CMD_EXIT_Click()
    Unload Me
    sys_main.Show (1)
End Sub

Private Sub D01_Click()
    pub_code = Left(Pub_getcode(PUB_data, "YX_KHDA"), 5)
    XT_Timer.Enabled = False
    scgl_ywdw.MAIN (D01.Caption)
    Me.Hide
    scgl_ywdw.Show (1)
End Sub

Private Sub D02_Click()
    pub_code = Left(Pub_getcode(PUB_data, "YX_OTHER"), 5)
    XT_Timer.Enabled = False
    scgl_bdth.MAIN (D02.Caption)
    Me.Hide
    scgl_bdth.Show (1)
End Sub

Private Sub D03_Click()
    Me.Hide
    scgl_psw.Show (1)
End Sub

Private Sub D05_Click()
    XT_Timer.Enabled = False
    'Me.Hide
    scgl_ldkr_ldrq.Show (1)
    If scgl_ldkr_ldrq.t_or_f Then
        scgl_ldkr.MAIN (D05.Caption)
        scgl_ldkr.Show (1)
    End If
End Sub

Private Sub D06_Click()
     '******   @_@
    XT_Timer.Enabled = False
    scgL_dfdw.MAIN (D06.Caption)
    Me.Hide
    scgL_dfdw.Show (1)
End Sub

Private Sub D07_Click()
    '******   @_@
End Sub

Private Sub D08_Click()
    '******   @_@
End Sub
Private Sub D09_Click()
    XT_Timer.Enabled = False
    scgl_clk.MAIN (D09.Caption)
    Me.Hide
    scgl_clk.Show (1)
End Sub

Private Sub D0A_Click()
    XT_Timer.Enabled = False
    'Me.Hide
    scgl_dffs.Show (1)
End Sub

Private Sub D0B_Click()
    XT_Timer.Enabled = False
    'Me.Hide
    scgl_ddfs.Show (1)
End Sub

Private Sub D0C_Click()
    XT_Timer.Enabled = False
    scgl_tsfw.Show (1)
End Sub

Private Sub D0D_Click()
    XT_Timer.Enabled = False
    scgl_kfyl.MAIN (D0D.Caption)
    Me.Hide
    scgl_kfyl.Show (1)
End Sub

Private Sub D0F_Click()
    dy_zylx.Show (1)
    If dy_zylx.tf Then
        dy_zyzh.Show (1)
        If dy_zyzh.tf Then
            Dim zy As String    '现有帐页表名
            Dim zs As String    '帐首表名
            Dim gd_zy As String '归档帐页表名
            Dim ZHXZ As String
            Call ZW_SJK(dy_zyzh.zh, zs, gd_zy, Date, ZHXZ)
            If Not zs = "" Then
                Set rec = PUB_data.OpenRecordset("SELECT ZH FROM " & zs & " WHERE TRIM(ZH)='" & dy_zyzh.zh & "'", 4)
                If Not rec.BOF Then
                    rec.MoveLast
                    zy = "W" & dy_zyzh.zh
                    'gd_zy = "KZ" & year(Format(Date, "yyyy-mm-dd"))
                    Select Case dy_zylx.ZY_LX
                    Case "0"    '现有帐页
                        Set rec1 = PUB_data.OpenRecordset("SELECT FSRQ,PZH,ZY,JFFSE,DFFSE,JZY,SPR FROM  " & zy & " WHERE TRIM(ZH)='" & dy_zyzh.zh & "'", 4)
                        If Not rec1.BOF Then
                            rec1.MoveLast
                            rec1.MoveFirst
                        Else
                            Exit Sub
                        End If
                        Call print_tabler(rec1, "帐页" & dy_zyzh.zh, Array("日   期", "凭证号", "摘要", "借方发生额", "贷方发生额", "记帐员", "审批人"), Array(21, 15, 15, 15, 18, 10, 10), 40, Array(11, 11, 11, 21, 21, 21, 21))
                    Case "1"    '归档帐页
                        Set rec1 = PUB_data.OpenRecordset("SELECT FSRQ,PZH,ZY,JFFSE,DFFSE,JZY,CZBJ,JSRQ,JS_MC,FK_MC,ZDH,DFZH,XM,BZ FROM  " & gd_zy & " WHERE TRIM(ZH)='" & dy_zyzh.zh & "'", 4)
                        If Not rec1.BOF Then
                            rec1.MoveLast
                        Else
                            Exit Sub
                        End If
                        Call print_tabler(rec1, "帐页" & dy_zyzh.zh, Array("日   期", "凭证号", "摘要", "借方发生额", "贷方发生额", "记帐员", "审批人"), Array(21, 15, 15, 15, 15, 10, 10), 40, Array(11, 11, 11, 21, 21, 21, 21))
                    End Select
                Else
                    MsgBox "帐号不存在!", vbCritical
                    Exit Sub
                End If
            Else
                MsgBox "帐号不存在!", vbCritical
                Exit Sub
            End If
        End If
    End If
End Sub

Private Sub Form_Activate()
    XT_Timer.Enabled = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Call X_Click
    End If
End Sub

Private Sub Timer1_Timer()
    JZ_DQSJ2 = Time()
End Sub

Private Sub Form_Load()
    Dim sys_uid As String, sys_pwd As String
    sys_uid = "db2user"
    sys_pwd = "db2user"
    CENTER Me
    Set PUB_data = WRK.OpenDatabase("PUBLIC", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
    Set YX_data = WRK.OpenDatabase("YX", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
    Set ZW_data = WRK.OpenDatabase("ZW", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
    Call Sys_get
    yx_main.Caption = "营销部业务"
    XT_IMAGE.Visible = True
    JZ_USER = SYS_USER + Space(1) + SYS_NAME
    JZ_JRSJ2 = Time()
    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)
    '清单号表中小于当前日期的记录
    YX_data.Execute "DELETE FROM NO WHERE CSTR(RQ)<'" & Date & "'"
    '置当前日期记录
    Set rec = YX_data.OpenRecordset("SELECT RQ,SK_NO,TD_NO,CB_NO,HY_NO,DFHT_NO,ZFHT_NO,HYXY_NO,LOCK_NO FROM NO WHERE CSTR(RQ)='" & Date & "'", 2, 0, 2)
    If Not rec.BOF Then
        rec.MoveLast
    Else
        With rec
            .AddNew
                !rq = Format(Date, "yyyy-mm-dd")
                !SK_NO = 0
                !TD_NO = 0
                !CB_NO = 0
                !HY_NO = 0
                !ZFHT_NO = 0
                !DFHT_NO = 0
                !HYXY_NO = 0
                !lock_no = 0
            .Update
        End With
    End If
    rec.Close
End Sub

Private Sub X_Click()
    Unload Me
    sys_main.Show (1)
End Sub

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