📄 form1.frm
字号:
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "用户添加"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 15
Left = 120
TabIndex = 27
Top = 120
Width = 1035
End
End
Begin VB.Frame Frame6
BackColor = &H00E0E0E0&
Height = 2655
Left = 6000
TabIndex = 6
Top = 2760
Width = 1335
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "系统介绍"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 20
Left = 120
TabIndex = 32
Top = 840
Width = 1035
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "版权信息"
BeginProperty Font
Name = "仿宋_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Index = 19
Left = 120
TabIndex = 31
Top = 360
Width = 1035
End
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "房客管理"
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Index = 0
Left = 0
MaskColor = &H00400000&
Style = 1 'Graphical
TabIndex = 5
Top = 0
UseMaskColor = -1 'True
Width = 1785
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "客房管理"
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Index = 1
Left = 0
MaskColor = &H00400000&
Style = 1 'Graphical
TabIndex = 4
Top = 480
UseMaskColor = -1 'True
Width = 1785
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "消费管理"
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Index = 2
Left = 0
MaskColor = &H00400000&
Style = 1 'Graphical
TabIndex = 3
Top = 960
UseMaskColor = -1 'True
Width = 1785
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "报表管理"
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Index = 3
Left = 0
MaskColor = &H00400000&
Style = 1 'Graphical
TabIndex = 2
Top = 1440
UseMaskColor = -1 'True
Width = 1785
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "系统维护"
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Index = 4
Left = 0
MaskColor = &H00400000&
Style = 1 'Graphical
TabIndex = 1
Top = 1920
UseMaskColor = -1 'True
Width = 1785
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "系统信息"
CausesValidation= 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 500
Index = 5
Left = 0
MaskColor = &H00400000&
Style = 1 'Graphical
TabIndex = 0
Top = 2400
UseMaskColor = -1 'True
Width = 1785
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
Dim snd_filename As Integer
Dim snd_sync As Integer
Dim X As String
X = sndPlaySound("start.wav", snd_filename + snd_sync)
If Index = 0 Then
Command1(5).Top = Form1.ScaleTop + ScaleHeight - Command1(5).Height + 100
Command1(4).Top = Command1(5).Top - Command1(4).Height
Command1(3).Top = Command1(4).Top - Command1(3).Height
Command1(2).Top = Command1(3).Top - Command1(2).Height
Command1(1).Top = Command1(2).Top - Command1(1).Height
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
Frame1.Top = Command1(0).Top + Command1(0).Height - 150
Frame1.Height = Form1.ScaleHeight - Command1(0).Height * 6 + 160
Frame1.Left = Command1(0).Left
Frame1.Width = Command1(0).Width
Dim i As Integer
Dim comm As Integer
comm = Form1.ScaleTop + Command1(0).Height - 340
For i = 0 To 7
Label1(i).Top = comm
Label1(i).Left = Frame1.Left + 40
Label1(i).Width = Frame1.Width - 30
Label1(i).Height = 400
comm = comm + 400
Next
End If
If Index = 1 Then
Command1(5).Top = Form1.ScaleTop + ScaleHeight - Command1(5).Height + 30
Command1(4).Top = Command1(5).Top - Command1(4).Height
Command1(3).Top = Command1(4).Top - Command1(3).Height
Command1(2).Top = Command1(3).Top - Command1(2).Height
Command1(1).Top = Command1(0).Top + Command1(0).Height
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
Frame2.Top = Command1(1).Top + Command1(1).Height - 150
Frame2.Height = Form1.ScaleHeight - Command1(1).Height * 6 + 160
Frame2.Left = Command1(1).Left
Frame2.Width = Command1(1).Width
Dim comm2 As Integer
Dim i2 As Integer
comm2 = Frame2.Top - 720
For i2 = 8 To 9
Label1(i2).Top = comm2
Label1(i2).Left = Frame2.Left + 40
Label1(i2).Width = Frame2.Width - 30
Label1(i2).Height = 400
comm2 = comm2 + 400
Next
End If
If Index = 2 Then
Command1(5).Top = Form1.ScaleTop + ScaleHeight - Command1(5).Height + 30
Command1(4).Top = Command1(5).Top - Command1(4).Height
Command1(3).Top = Command1(4).Top - Command1(3).Height
Command1(2).Top = Command1(3).Top - Command1(3).Height
Command1(1).Top = Command1(0).Top + Command1(0).Height
Command1(2).Top = Command1(1).Top + Command1(1).Height
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
Frame3.Top = Command1(2).Top + Command1(2).Height - 150
Frame3.Height = Form1.ScaleHeight - Command1(2).Height * 6 + 160
Frame3.Left = Command1(2).Left
Frame3.Width = Command1(2).Width
Dim comm3 As Integer
Dim i3 As Integer
comm3 = Frame3.Top - 1200
For i3 = 10 To 12
Label1(i3).Top = comm3
Label1(i3).Left = Frame3.Left + 40
Label1(i3).Width = Frame3.Width - 30
Label1(i3).Height = 400
comm3 = comm3 + 400
Next
End If
If Index = 3 Then
Command1(5).Top = Form1.ScaleTop + ScaleHeight - Command1(5).Height + 30
Command1(4).Top = Command1(5).Top - Command1(4).Height
Command1(2).Top = Command1(3).Top - Command1(3).Height
Command1(1).Top = Command1(0).Top + Command1(0).Height
Command1(2).Top = Command1(1).Top + Command1(1).Height
Command1(3).Top = Command1(2).Top + Command1(2).Height
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = True
Frame5.Visible = False
Frame6.Visible = False
Frame4.Top = Command1(3).Top + Command1(3).Height - 150
Frame4.Height = Form1.ScaleHeight - Command1(3).Height * 6 + 160
Frame4.Left = Command1(3).Left
Frame4.Width = Command1(3).Width
Dim comm1 As Integer
Dim i1 As Integer
comm1 = Frame4.Top - 1700
For i1 = 13 To 14
Label1(i1).Top = comm1
Label1(i1).Left = Frame4.Left + 40
Label1(i1).Width = Frame4.Width - 30
Label1(i1).Height = 400
comm1 = comm1 + 400
Next
End If
If Index = 4 Then
Command1(5).Top = Form1.ScaleTop + ScaleHeight - Command1(5).Height + 30
Command1(3).Top = Command1(4).Top - Command1(4).Height
Command1(2).Top = Command1(3).Top - Command1(3).Height
Command1(1).Top = Command1(0).Top + Command1(0).Height
Command1(2).Top = Command1(1).Top + Command1(1).Height
Command1(3).Top = Command1(2).Top + Command1(2).Height
Command1(4).Top = Command1(3).Top + Command1(3).Height
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = True
Frame6.Visible = False
Frame5.Top = Command1(4).Top + Command1(4).Height - 150
Frame5.Height = Form1.ScaleHeight - Command1(4).Height * 6 + 160
Frame5.Left = Command1(4).Left
Frame5.Width = Command1(4).Width
Dim comm4 As Integer
Dim i4 As Integer
comm4 = Frame5.Top - 2200
For i4 = 15 To 18
Label1(i4).Top = comm4
Label1(i4).Left = Frame5.Left + 40
Label1(i4).Width = Frame5.Width - 30
Label1(i4).Height = 400
comm4 = comm4 + 400
Next
End If
If Index = 5 Then
Command1(4).Top = Command1(5).Top - Command1(5).Height
Command1(3).Top = Command1(4).Top - Command1(4).Height
Command1(2).Top = Command1(3).Top - Command1(3).Height
Command1(1).Top = Command1(0).Top + Command1(0).Height
Command1(2).Top = Command1(1).Top + Command1(1).Height
Command1(3).Top = Command1(2).Top + Command1(2).Height
Command1(4).Top = Command1(3).Top + Command1(3).Height
Command1(5).Top = Command1(4).Top + Command1(4).Height
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = True
Frame6.Top = Command1(5).Top + Command1(5).Height - 150
Frame6.Height = Form1.ScaleHeight - Command1(5).Height * 6 + 160
Frame6.Left = Command1(5).Left
Frame6.Width = Command1(5).Width
Dim comm5 As Integer
Dim i5 As Integer
comm4 = Frame6.Top - 2700
For i5 = 19 To 20
Label1(i5).Top = comm5
Label1(i5).Left = Frame6.Left + 40
Label1(i5).Width = Frame6.Width - 30
Label1(i5).Height = 400
comm5 = comm5 + 400
Next
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 11
Form1.Label1.Item(i).Tag = "0"
Next
End Sub
Private Sub Form_Resize()
Form1.Top = 0
Form1.Left = 0
Form1.Height = MDIForm1.ScaleHeight
Form1.Width = MDIForm1.Width / 8
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1(Index).BackColor = QBColor(8)
Dim i As Integer
For i = 0 To 20
If i <> Index Then
Label1(i).BackColor = &HFFC0FF
End If
Next
End Sub
Private Sub label1_Click(Index As Integer)
Dim i As Integer
Dim X As String
X = sndPlaySound("start.wav", snd_filename + snd_sync)
Select Case Index
Case 0
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
Case 1
Form2.Show
bjyjj.Hide
bqxxx.Hide
cfrzz.Hide
hfrzz.Hide
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -