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

📄 mdiform1.frm

📁 这是一个酒店客房管理系统
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
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 kfzt_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.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
End Sub

Private Sub krhf_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.Show
        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 MDIForm_Load()
MDIForm1.Width = Screen.Width
MDIForm1.Height = Screen.Height
Form1.Top = 0
Form1.Left = 0
Form1.Height = MDIForm1.ScaleHeight
Form1.Width = MDIForm1.Width / 8
Form2.Left = Form1.Width
Form2.Top = Form1.ScaleTop
Form2.Width = MDIForm1.ScaleWidth - Form1.Width
Form2.Height = MDIForm1.ScaleHeight
Data1.DatabaseName = App.Path & "\Kfgl.MDB"     '自动识别数据库路径
End Sub





Private Sub mmsz_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 = 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 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 qxsz_Click()
main_qxsz.Show
End Sub

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

Private Sub tfdj_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.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 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 Timer1_Timer()
Dim ss As String
Dim ss1 As String
ss1 = Time$
ss = Date$
StatusBar1.Panels(1).Text = drm
StatusBar1.Panels(2).Text = "系统日期：" + ss
StatusBar1.Panels(3).Text = "时间：" + ss1
End Sub







Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Dim i6 As Integer
Dim snd_filename As Integer
Dim snd_sync As Integer
Dim X As String
 X = sndPlaySound("start.wav", snd_filename + snd_sync)
Select Case Button.Key
        Case "a"
         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
Case "b"
  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 i9 As Integer
Dim comm9 As Integer
comm9 = Form1.ScaleTop + Form1.Command1(0).Height - 340
For i9 = 0 To 7
Form1.Label1(i9).Top = comm9
Form1.Label1(i9).Left = Form1.Frame1.Left + 40
12345

⌨️ 快捷键说明

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