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

📄 mdiform1.frm

📁 这是一个酒店客房管理系统
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Show
        ydrzz.Hide
        yhckk.Hide
        zdfdjj.Hide
        zdkrb.Hide
        kfdjj.Hide
      
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(5).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(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.Command1(5).Top = Form1.Command1(4).Top + Form1.Command1(4).Height
Form1.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = False
Form1.Frame5.Visible = False
Form1.Frame6.Visible = True
Form1.Frame6.Top = Form1.Command1(5).Top + Form1.Command1(5).Height - 150
Form1.Frame6.Height = Form1.ScaleHeight - Form1.Command1(5).Height * 6 + 160
Form1.Frame6.Left = Form1.Command1(5).Left
Form1.Frame6.Width = Form1.Command1(5).Width
Dim comm5 As Integer
Dim i5 As Integer
comm5 = Form1.Frame6.Top - 2700
For i5 = 19 To 20
Form1.Label1(i5).Top = comm5
Form1.Label1(i5).Left = Form1.Frame6.Left + 40
Form1.Label1(i5).Width = Form1.Frame6.Width - 30
Form1.Label1(i5).Height = 400
comm5 = comm5 + 400
Next

Next
End Sub

Private Sub ydfj_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 = 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.Show
        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.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 i As Integer
Dim comm As Integer
comm = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i = 0 To 7
Form1.Label1(i).Top = comm
Form1.Label1(i).Left = Form1.Frame1.Left + 40
Form1.Label1(i).Width = Form1.Frame1.Width - 30
Form1.Label1(i).Height = 400
comm = comm + 400
Next
End Sub

Private Sub ydrz_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 = 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.Show
        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 i As Integer
Dim comm As Integer
comm = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i = 0 To 7
Form1.Label1(i).Top = comm
Form1.Label1(i).Left = Form1.Frame1.Left + 40
Form1.Label1(i).Width = Form1.Frame1.Width - 30
Form1.Label1(i).Height = 400
comm = comm + 400
Next
End Sub

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

Exit Sub
End If
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 = 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.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Show
        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 comm4 As Integer
Dim i4 As Integer
comm4 = Form1.Frame5.Top - 2200
For i4 = 15 To 18
Form1.Label1(i4).Top = comm4
Form1.Label1(i4).Left = Form1.Frame5.Left + 40
Form1.Label1(i4).Width = Form1.Frame5.Width - 30
Form1.Label1(i4).Height = 400
comm4 = comm4 + 400
Next
Next

End Sub

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

Exit Sub
End If
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 = 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 comm4 As Integer
Dim i4 As Integer
comm4 = Form1.Frame5.Top - 2200
For i4 = 15 To 18
Form1.Label1(i4).Top = comm4
Form1.Label1(i4).Left = Form1.Frame5.Left + 40
Form1.Label1(i4).Width = Form1.Frame5.Width - 30
Form1.Label1(i4).Height = 400
comm4 = comm4 + 400
Next
Next

End Sub

Private Sub zdfdj_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 = 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.Show
        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 i As Integer
Dim comm As Integer
comm = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i = 0 To 7
Form1.Label1(i).Top = comm
Form1.Label1(i).Left = Form1.Frame1.Left + 40
Form1.Label1(i).Width = Form1.Frame1.Width - 30
Form1.Label1(i).Height = 400
comm = comm + 400
Next
End Sub

Private Sub zfkrb_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 = 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 i As Integer
Dim comm As Integer
comm = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i = 0 To 7
Form1.Label1(i).Top = comm
Form1.Label1(i).Left = Form1.Frame1.Left + 40
Form1.Label1(i).Width = Form1.Frame1.Width - 30
Form1.Label1(i).Height = 400
comm = comm + 400
Next
End Sub
12345

⌨️ 快捷键说明

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