⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mdiform1.frm

📁 这是一个酒店客房管理系统
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
Form1.Label1(i9).Width = Form1.Frame1.Width - 30
Form1.Label1(i9).Height = 400
comm9 = comm9 + 400
Next
Case "c"
 For i6 = 10 To 12
 
   Form1.Label1.Item(10).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Show
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height + 30
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(3).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(0).Top + Form1.Command1(0).Height
Form1.Command1(2).Top = Form1.Command1(1).Top + Form1.Command1(1).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = True
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame3.Top = Form1.Command1(2).Top + Form1.Command1(2).Height - 150
Form1.Frame3.Height = Form1.ScaleHeight - Form1.Command1(2).Height * 6 + 160
Form1.Frame3.Left = Form1.Command1(2).Left
Form1.Frame3.Width = Form1.Command1(2).Width
Dim comm3 As Integer
Dim i3 As Integer
comm3 = Form1.Frame3.Top - 1200
For i3 = 10 To 12
Form1.Label1(i3).Top = comm3
Form1.Label1(i3).Left = Form1.Frame3.Left + 40
Form1.Label1(i3).Width = Form1.Frame3.Width - 30
Form1.Label1(i3).Height = 400
comm3 = comm3 + 400
Next
Next
Case "d"
   For i6 = 0 To 7
   Form1.Label1.Item(i6).Tag = "0"
   Next
   Form1.Label1.Item(0).Tag = "1"
        Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Show
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height - 90
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(4).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(2).Top - Form1.Command1(2).Height
Form1.Frame1.Visible = True
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame1.Top = Form1.Command1(0).Top + Form1.Command1(0).Height - 150
Form1.Frame1.Height = Form1.ScaleHeight - Form1.Command1(0).Height * 6 + 160
Form1.Frame1.Left = Form1.Command1(0).Left
Form1.Frame1.Width = Form1.Command1(0).Width
Dim i8 As Integer
Dim comm8 As Integer
comm8 = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i8 = 0 To 7
Form1.Label1(i8).Top = comm8
Form1.Label1(i8).Left = Form1.Frame1.Left + 40
Form1.Label1(i8).Width = Form1.Frame1.Width - 30
Form1.Label1(i8).Height = 400
comm8 = comm8 + 400
Next
Case "e"
  For i6 = 0 To 7
   Form1.Label1.Item(i6).Tag = "0"
   Next
   Form1.Label1.Item(0).Tag = "1"
        Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Show
        kfdjj.Hide
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height - 90
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(4).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(2).Top - Form1.Command1(2).Height
Form1.Frame1.Visible = True
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame1.Top = Form1.Command1(0).Top + Form1.Command1(0).Height - 150
Form1.Frame1.Height = Form1.ScaleHeight - Form1.Command1(0).Height * 6 + 160
Form1.Frame1.Left = Form1.Command1(0).Left
Form1.Frame1.Width = Form1.Command1(0).Width
Dim i7 As Integer
Dim comm7 As Integer
comm7 = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i7 = 0 To 7
Form1.Label1(i7).Top = comm7
Form1.Label1(i7).Left = Form1.Frame1.Left + 40
Form1.Label1(i7).Width = Form1.Frame1.Width - 30
Form1.Label1(i7).Height = 400
comm7 = comm7 + 400
Next
Case "f"
           For i6 = 8 To 9
 
   Form1.Label1.Item(8).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Show
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height - 90
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(3).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(0).Top + Form1.Command1(0).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = True
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame2.Top = Form1.Command1(1).Top + Form1.Command1(1).Height - 150
Form1.Frame2.Height = Form1.ScaleHeight - Form1.Command1(1).Height * 6 + 160
Form1.Frame2.Left = Form1.Command1(1).Left
Form1.Frame2.Width = Form1.Command1(1).Width
Dim comm4 As Integer
Dim i4 As Integer
comm4 = Form1.Frame2.Top - 720
For i4 = 8 To 9
Form1.Label1(i4).Top = comm4
Form1.Label1(i4).Left = Form1.Frame2.Left + 40
Form1.Label1(i4).Width = Form1.Frame2.Width - 30
Form1.Label1(i4).Height = 400
comm4 = comm4 + 400
Next
Next
Case "g"
' If gly <> "0" Then
'ms = MsgBox("只有管理员才能进行操作，请与管理员联系！", 48, "警告")

'Exit Sub
'End If
      For i6 = 15 To 18
 
   Form1.Label1.Item(15).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Show
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
      
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height + 30
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(4).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(0).Top + Form1.Command1(0).Height
Form1.Command1(2).Top = Form1.Command1(1).Top + Form1.Command1(1).Height
Form1.Command1(3).Top = Form1.Command1(2).Top + Form1.Command1(2).Height
Form1.Command1(4).Top = Form1.Command1(3).Top + Form1.Command1(3).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = True
Form1.Frame6.Visible = False
Form1.Frame5.Top = Form1.Command1(4).Top + Form1.Command1(4).Height - 150
Form1.Frame5.Height = Form1.ScaleHeight - Form1.Command1(4).Height * 6 + 160
Form1.Frame5.Left = Form1.Command1(4).Left
Form1.Frame5.Width = Form1.Command1(4).Width
Dim comm11 As Integer
Dim i11 As Integer
comm11 = Form1.Frame5.Top - 2200
For i11 = 15 To 18
Form1.Label1(i11).Top = comm11
Form1.Label1(i11).Left = Form1.Frame5.Left + 40
Form1.Label1(i11).Width = Form1.Frame5.Width - 30
Form1.Label1(i11).Height = 400
comm11 = comm11 + 400
Next

Next
Case "h"
 If gly <> "0" Then
ms = MsgBox("只有管理员才能进行操作，请与管理员联系！", 48, "警告")

Exit Sub
End If
    For i6 = 15 To 18
 
   Form1.Label1.Item(15).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Show
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
      
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height + 30
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(4).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(0).Top + Form1.Command1(0).Height
Form1.Command1(2).Top = Form1.Command1(1).Top + Form1.Command1(1).Height
Form1.Command1(3).Top = Form1.Command1(2).Top + Form1.Command1(2).Height
Form1.Command1(4).Top = Form1.Command1(3).Top + Form1.Command1(3).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = True
Form1.Frame6.Visible = False
Form1.Frame5.Top = Form1.Command1(4).Top + Form1.Command1(4).Height - 150
Form1.Frame5.Height = Form1.ScaleHeight - Form1.Command1(4).Height * 6 + 160
Form1.Frame5.Left = Form1.Command1(4).Left
Form1.Frame5.Width = Form1.Command1(4).Width
Dim comm12 As Integer
Dim i12 As Integer
comm12 = Form1.Frame5.Top - 2200
For i12 = 15 To 18
Form1.Label1(i12).Top = comm12
Form1.Label1(i12).Left = Form1.Frame5.Left + 40
Form1.Label1(i12).Width = Form1.Frame5.Width - 30
Form1.Label1(i12).Height = 400
comm12 = comm12 + 400
Next

Next
Case "i"

Dim aa As Integer
 aa = MsgBox("你是否真的要退出本系统！", 65, "退出")
  If aa = 1 Then
 X = sndPlaySound("tada.wav", snd_filename + snd_sync)
     End
  End If


End Select
End Sub

Private Sub xfrz_Click()
Dim snd_filename As Integer
Dim snd_sync As Integer
Dim X As String
Dim i6 As Integer
 X = sndPlaySound("start.wav", snd_filename + snd_sync)
              For i6 = 10 To 12
 
   Form1.Label1.Item(10).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Show
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height + 30
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height
Form1.Command1(3).Top = Form1.Command1(4).Top - Form1.Command1(3).Height
Form1.Command1(2).Top = Form1.Command1(3).Top - Form1.Command1(3).Height
Form1.Command1(1).Top = Form1.Command1(0).Top + Form1.Command1(0).Height
Form1.Command1(2).Top = Form1.Command1(1).Top + Form1.Command1(1).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = True
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame3.Top = Form1.Command1(2).Top + Form1.Command1(2).Height - 150
Form1.Frame3.Height = Form1.ScaleHeight - Form1.Command1(2).Height * 6 + 160
Form1.Frame3.Left = Form1.Command1(2).Left
Form1.Frame3.Width = Form1.Command1(2).Width
Dim comm3 As Integer
Dim i3 As Integer
comm3 = Form1.Frame3.Top - 1200
For i3 = 10 To 12
Form1.Label1(i3).Top = comm3
Form1.Label1(i3).Left = Form1.Frame3.Left + 40
Form1.Label1(i3).Width = Form1.Frame3.Width - 30
Form1.Label1(i3).Height = 400
comm3 = comm3 + 400

Next
Next
End Sub

Private Sub xtjs_Click()
Dim snd_filename As Integer
Dim snd_sync As Integer
Dim X As String
Dim i6 As Integer
 X = sndPlaySound("start.wav", snd_filename + snd_sync)
              For i6 = 19 To 20
 
   Form1.Label1.Item(19).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -