mdiform1.frm

这是一个酒店客房管理系统

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 cfrz_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.Show
        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.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 csh_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.Show
        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 + 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 hfrz_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.Show
        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.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 kfbj_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 = 8 To 9
 
   Form1.Label1.Item(8).Tag = "1"
       Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Show
        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.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

End Sub

Private Sub kfdj_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.Hide
        kfdjj.Show
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 kfjzhzb_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 = 13 To 14
 
   Form1.Label1.Item(13).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.Hide
        kfdjj.Hide
        DataReport2.Show
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(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.Frame1.Visible = False
Form1.Frame2.Visible = False
Form1.Frame3.Visible = False
Form1.Frame4.Visible = True
Form1.Frame5.Visible = False
Form1.Frame6.Visible = False
Form1.Frame4.Top = Form1.Command1(3).Top + Form1.Command1(3).Height - 150
Form1.Frame4.Height = Form1.ScaleHeight - Form1.Command1(3).Height * 6 + 160
Form1.Frame4.Left = Form1.Command1(3).Left
Form1.Frame4.Width = Form1.Command1(3).Width
Dim comm1 As Integer
Dim i1 As Integer
comm1 = Form1.Frame4.Top - 1700
For i1 = 13 To 14
Form1.Label1(i1).Top = comm1
Form1.Label1(i1).Left = Form1.Frame4.Left + 40
Form1.Label1(i1).Width = Form1.Frame4.Width - 30
Form1.Label1(i1).Height = 400
comm1 = comm1 + 400
Next
Next
End Sub

Private Sub kfrzbb_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 = 13 To 14
 
   Form1.Label1.Item(13).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.Hide
        kfdjj.Hide
        DataReport1.Show
Form1.Command1(5).Top = Form1.ScaleTop + ScaleHeight - Form1.Command1(5).Height + 30
Form1.Command1(4).Top = Form1.Command1(5).Top - Form1.Command1(4).Height