mdiform1.frm

来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 2,028 行 · 第 1/5 页

  X = myform.MS1.TextMatrix(myform.MS1.FixedRows, myform.MS1.Col)
  Y = myform.MS1.TextMatrix(myform.MS1.Row, 0)
  p = myform.MS1.TextMatrix(myform.MS1.Row, myform.MS1.Col)
  myform.Text1.Text = myform.MS1.Text
  myform.Text1.SelStart = 0
  myform.Text1.SelLength = Len(myform.Text1.Text)
 End If
End Sub
Public Sub moveright()     '定义text1向右移动函数
 If Text1.Text = "1" Then Set myform = main_htgl_jhgl
 If Text1.Text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.Text = "3" Then Set myform = main_qtgl_ktgl_jcfw
  If myform.Text1.Text <> "" Then
     myform.Text1.SelStart = 0
     myform.Text1.SelLength = Len(myform.Text1.Text)
  End If
  If myform.MS1.Col + 1 <= myform.MS1.Cols - 1 Then
     myform.MS1.Col = myform.MS1.Col + 1
    Else
     If myform.MS1.Row + 1 <= myform.MS1.Rows - 1 Then
        myform.MS1.Row = myform.MS1.Row + 1
        myform.MS1.Col = 1
     End If
  End If
End Sub
Public Sub moveleft()     '定义text1向左移动函数
 If Text1.Text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.Text = "3" Then Set myform = main_qtgl_ktgl_jcfw
 If myform.Text1.Text <> "" Then
    myform.Text1.SelStart = 0
    myform.Text1.SelLength = Len(myform.Text1.Text)
 End If
 If myform.MS1.Col - 8 <= myform.MS1.Cols + 1 Then
    myform.MS1.Col = myform.MS1.Col - 1
    If myform.MS1.Col = 0 Then myform.MS1.Col = 1
   Else
    If myform.MS1.Row + 1 <= myform.MS1.Row - 1 Then
       myform.MS1.Row = myform.MS1.Row + 1
       myform.MS1.Col = 1
    End If
 End If
End Sub
Public Sub movereturn()     '定义text1回车移动函数
 If Text1.Text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.Text = "3" Then Set myform = main_qtgl_ktgl_jcfw
 If myform.MS1.Col = 8 Then
    myform.MS1.Row = myform.MS1.Row + 1
    myform.MS1.Col = 1
  Else
    If myform.MS1.Col + 1 <= myform.MS1.Cols - 1 Then
       myform.MS1.Col = myform.MS1.Col + 1
     Else
       If myform.MS1.Row + 1 <= myform.MS1.Rows - 1 Then
          myform.MS1.Row = myform.MS1.Row + 1
          myform.MS1.Col = 1
       End If
    End If
 End If
End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If MDIForm1.住宿登记.Enabled = True Then 住宿登记_Click
Case 1
 If MDIForm1.预订登记.Enabled = True Then 预订登记_Click
Case 2
PopupMenu jl
Case 3
PopupMenu zw
Case 4
End
Case 5
快速入住_Click
End Select
End Sub

Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
PopupMenu CX
Case 1
PopupMenu BB
End Select
End Sub

Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0
PopupMenu setting
End Select
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case Is = 1

Case Is = 17
End
End Select

End Sub

Private Sub bdwdy_Click()     '调入本单位定义
  Load main_bdwdy
  main_bdwdy.Show
  MDIForm1.Enabled = False
End Sub

Private Sub qxsz_Click()     '调入权限管理
  Load main_xtgl_qxgl
  main_xtgl_qxgl.Show
  MDIForm1.Enabled = False
End Sub

Private Sub Command4_Click(Index As Integer)
Select Case Index
Case Is = 0
权限设置_Click
Case Is = 1
杂项设置_Click
Case Is = 2
备份本地数据_Click
Case Is = 3
恢复本地数据_Click
Case Is = 4
帐务登记_Click
Case Is = 5
客房帐务提醒_Click
Case Is = 6
房态图_Click
Case Is = 7
客人资料管理_Click
Case Is = 8
黑名单人员登记_Click
Case Is = 9
火车时刻表_Click
Case Is = 10
Case Is = 11
Case Is = 12
Case Is = 13
End
End Select
End Sub

'---------------------------------------

Private Sub Picture1_Resize()
Picture2.Move Picture1.ScaleWidth - 255, 0, 255, Picture1.ScaleHeight
End Sub

Private Sub Picture2_Click()
If Picture1.Width = 2430 Then
    Picture1.Width = 255
    'Picture3.Visible = False
    Label1.Caption = ">>"
Else
    Picture1.Width = 2430
    'Picture3.Visible = True
    Label1.Caption = "<<"
End If
End Sub

Private Sub Picture3_Click()
frmAbout.Show 1
End Sub

Private Sub quit_Click()
PASSed1 = False
End
End Sub

Private Sub tip_Click()
frmTip.Show
End Sub

Public Sub czyqx_click()
If MDIForm1.权限设置.Enabled = True Then 权限设置_Click
End Sub
Public Sub jdddkrbb_click()
If MDIForm1.当日抵店客人报表.Enabled = True Then 当日抵店客人报表_Click
End Sub
Public Sub jdldkrbb_click()
If MDIForm1.当日离店客人报表.Enabled = True Then 当日离店客人报表_Click
End Sub

Public Sub ybddkrbb_click()
If MDIForm1.次日来店客人预报.Enabled = True Then 次日来店客人预报_Click
End Sub
Public Sub yblddkrbb_click()
If MDIForm1.次日离店客人报表.Enabled = True Then 次日离店客人报表_Click
End Sub
Public Sub ryysr_click()
If MDIForm1.日营业收入报表.Enabled = True Then 日营业收入报表_Click
End Sub
Public Sub kfyysr_click()
If MDIForm1.客房营业收入表.Enabled = True Then 客房营业收入表_Click
End Sub
Public Sub zzkr_click()
If MDIForm1.在住客人.Enabled = True Then 在住客人_Click
End Sub
Public Sub ydkr_click()
If MDIForm1.预订客人.Enabled = True Then 预订客人_Click
End Sub
Public Sub krda_click()
If MDIForm1.客人档案.Enabled = True Then 客人档案_Click
End Sub
Public Sub hyjl_click()
If MDIForm1.会议接待.Enabled = True Then 会议接待_Click
End Sub
Public Sub bmjgrdh_click()
If MDIForm1.部门及个人电话.Enabled = True Then 部门及个人电话_Click
End Sub
Public Sub ttjl_click()
If MDIForm1.团体接待.Enabled = True Then 团体接待_Click
End Sub
Public Sub szjz_click()
If MDIForm1.帐务登记.Enabled = True Then 帐务登记_Click
End Sub

Public Sub kfgryyb_click()
If MDIForm1.当日客房个人营业表.Enabled = True Then 当日客房个人营业表_Click
End Sub
Public Sub syhzb_click()
If MDIForm1.当日收银汇总表.Enabled = True Then 当日收银汇总表_Click
End Sub
Public Sub yfkbb_click()
If MDIForm1.当日预付款报表.Enabled = True Then 当日预付款报表_Click
End Sub
Public Sub qrfzbb_click()
If MDIForm1.当日全日房租报表.Enabled = True Then 当日全日房租报表_Click
End Sub
Public Sub brfzbb_click()
If MDIForm1.当日半日房租报表.Enabled = True Then 当日半日房租报表_Click
End Sub
Public Sub kfzwtx_click()
If MDIForm1.客房帐务提醒.Enabled = True Then 客房帐务提醒_Click
End Sub

Private Sub aboutus_Click()
frmAbout.Show 1
End Sub

Private Sub MDIForm_Activate()
  If PASSed1 Then
    StatusBar1.Panels(2) = "操作员：" & CzyName
    StatusBar1.Panels(3) = "系统状态：" & System_Statu
    StatusBar1.Panels(6) = "日期：" & Date
    StatusBar1.Panels(1) = "授权使用单位：【" & DWMC & "】"
    StatusBar1.Panels(5) = "Server: " & DATA_SERVER
    Me.Caption = "【" & DWMC & "】　客房管理系统"
    Else
        Unload Me
        End
    End If
SSTab1.Height = Picture1.Height
SSTab1.Width = Picture1.Width
Me.Picture1.Visible = True
    If QuickMenu = True Then
    Registration_Type = "快速入住"
    Load_Statu = "使用"
    main_kfgl_ft.Show 1
    Else
    End If
QuickMenu = False
End Sub

Private Sub MDIForm_Load()
'取掉窗口关闭按钮-------------------
    Dim hwndMenu As Long
    Dim c As Long
    'qucikmenu = False
    hwndMenu = GetSystemMenu(Me.hwnd, 0)
    c = GetMenuItemCount(hwndMenu)
    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
    c = GetMenuItemCount(hwndMenu)
    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
'---------------------------------------------
    main_mima.Show
    Picture1.Width = 2430
    SSTab1.Height = Picture1.Height

End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu 其他
    End If
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("您确认要退出系统吗？", 17, "退出系统提示") = vbOK Then
        Cancel = 0
    Else
        Cancel = 1
    End If
End Sub

Private Sub Timer1_Timer()
    Adodc20.ConnectionString = My_PROVIDER
    Adodc20.CommandType = adCmdText
    Adodc20.RecordSource = "select * from 参数"
    Adodc20.Refresh
    System_Statu = Trim(Adodc20.Recordset.Fields("系统状态"))
    Adodc20.Recordset.Close
    StatusBar1.Panels(3) = "系统状态：" & System_Statu
    If System_Statu <> "正常" Then
        MsgBox "请稍候：系统现在正处于  [" & System_Statu & "] 状态！", 64, "提示"
        Unload Me
    End If
End Sub

Private Sub Timer2_Timer()
StatusBar1.Panels(4) = "系统时间：【" & Time & "】"
Label2.Caption = "STSTEM：" & Time
End Sub

Private Sub 备份本地数据_Click()
 Load frmDatabackup
  frmDatabackup.Show
  MDIForm1.Enabled = False
End Sub

Private Sub 本单位定义_Click()
FrmHoName.Show 1
End Sub

Private Sub 币种设置_Click()
    Table_SetType = "BZ"
    main_kfgl_kjkm.Show 1
End Sub

Private Sub 部门及电话设置_Click()
    Table_SetType = "部门"
    main_kfgl_kjkm.Show 1
End Sub

Private Sub 操作员菜单权限设置_Click()
    setmenu.Show 1
End Sub

Private Sub MenuReLoad()
    Dim menuName
    menudata.ConnectionString = My_PROVIDER
    menudata.CommandType = adCmdText
    menudata.RecordSource = "select * from 权限信息表 where 操作员名称='" & CzyName & "'"
    menudata.Refresh
    For i = 5 To checkCount
    menuName = Trim(menudata.Recordset.Fields(i).Name)
     menuName .Enabled = True
    Next
    menudata.Recordset.Close
    menuload = False
    StatusBar1.Panels(1) = "操作员：" & CzyName

End Sub

Private Sub 次日来店客人预报_Click()
    Query_Type = "次日来店客人预报"
    main_kfgl_krcx.Show 1
End Sub

Private Sub 次日离店客人报表_Click()
    Query_Type = "次日离店客人报表"
    main_kfgl_krcx.Show 1
End Sub

Private Sub 次日发放餐券客人报表_Click()
    Query_Type = "次日发放餐券客人报表"
    main_kfgl_krcx.Show 1
End Sub

Private Sub 次日客人生日预报表_Click()
    Query_Type = "次日客人生日预报表"
    main_kfgl_krcx.Show 1
End Sub
Private Sub 当日半日房租报表_Click()
    Query_Type = "当日半日房租报表"
    main_kfgl_tjbb.Show 1
End Sub

Private Sub 当日单位帐户帐务报表_Click()
    Query_Type = "当日单位帐户帐务报表"
    main_kfgl_yybb.Show 1
End Sub

Private Sub 当日抵店客人报表A_Click()
    Query_Type = "当日抵店客人报表"
    main_kfgl_krcx.Show 1
End Sub

Private Sub 当日抵店客人发放IC卡报表_Click()
    Query_Type = "当日抵店客人发放IC卡报表"
    main_kfgl_krcx.Show 1
End Sub

Private Sub 当日抵店客人发放餐券报表_Click()
    Query_Type = "当日抵店客人发放餐券报表"
    main_kfgl_krcx.Show 1
End Sub

Private Sub 当日房价变更报表_Click()
    Query_Type = "当日房价变更报表"
    main_kfgl_krcx.Show 1
End Sub