📄 mdimain.frm
字号:
Caption = "成本核算"
ImageIndex = 14
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "数据还原"
ImageIndex = 11
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "数据备份"
ImageIndex = 13
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "进销存"
ImageIndex = 16
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 15
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 1
EndProperty
EndProperty
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 15
Left = 0
TabIndex = 40
Top = 840
Width = 2415
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 41
Top = 8145
Width = 11880
_ExtentX = 20955
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 6174
MinWidth = 6174
Text = "盛华工艺厂ERP管理糸统 200605013 1.0版"
TextSave = "盛华工艺厂ERP管理糸统 200605013 1.0版"
Object.ToolTipText = "本软件由许典秋开发,请尊重个人版权联糸电话6328031"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4939
MinWidth = 4939
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Text = "xudianqiu728@sohu.com"
TextSave = "xudianqiu728@sohu.com"
EndProperty
EndProperty
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim movestate As Integer
Private Sub buttonchild_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1(Index).BorderStyle = 0
End Sub
Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
frajxchun.Width = 1935
frmmain.BackColor = RGB(77, 116, 244)
Dim i As Integer
movestate = 0
frajxchun.Left = 10
frajxchun.Width = Botton1(0).Width + 60
For i = 0 To 4
Botton1(i).Left = frajxchun.Left
Next i
botton_state 0
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Form_Resize()
Select Case movestate
Case 0
botton_state 0
Case 1
botton_state 1
Case 2
botton_state 2
Case 3
botton_state 3
Case 4
botton_state 4
End Select
frajxchun.Refresh
End Sub
Private Sub botton_state(flag As Integer)
Select Case flag
Case 0
Botton1(0).Top = frajxchun.Top - 830
Botton1(1).Top = frajxchun.Height - 4 * Botton1(0).Height - 60
Botton1(2).Top = frajxchun.Height - 3 * Botton1(0).Height - 50
Botton1(3).Top = frajxchun.Height - 2 * Botton1(0).Height - 30
Botton1(4).Top = frajxchun.Height - 1 * Botton1(0).Height - 20
bottonChild_state 0
Case 1
Botton1(0).Top = frajxchun.Top - 830
Botton1(1).Top = frajxchun.Top - 830 + Botton1(1).Height + 20
Botton1(2).Top = frajxchun.Height - 3 * Botton1(0).Height - 50
Botton1(3).Top = frajxchun.Height - 2 * Botton1(0).Height - 30
Botton1(4).Top = frajxchun.Height - 1 * Botton1(0).Height - 20
bottonChild_state 1
Case 2
Botton1(0).Top = frajxchun.Top - 830
Botton1(1).Top = frajxchun.Top - 830 + Botton1(1).Height + 20
Botton1(2).Top = frajxchun.Top - 830 + 2 * Botton1(1).Height + 30
Botton1(3).Top = frajxchun.Height - 2 * Botton1(0).Height - 30
Botton1(4).Top = frajxchun.Height - 1 * Botton1(0).Height - 20
bottonChild_state 2
Case 3
Botton1(0).Top = frajxchun.Top - 830
Botton1(1).Top = Botton1(0).Height + 30
Botton1(2).Top = 2 * Botton1(0).Height + 40
Botton1(3).Top = 3 * Botton1(0).Height + 60
Botton1(4).Top = frajxchun.Height - 1 * Botton1(0).Height - 20
bottonChild_state 3
Case 4
Botton1(0).Top = frajxchun.Top - 830
Botton1(1).Top = Botton1(0).Height + 30
Botton1(2).Top = 2 * Botton1(0).Height + 40
Botton1(3).Top = 3 * Botton1(0).Height + 60
Botton1(4).Top = 4 * Botton1(0).Height + 70
bottonChild_state 4
End Select
End Sub
Private Sub bottonChild_state(who As Integer)
Dim i As Integer
Select Case who
Case 0
For i = 0 To 2
buttonchild(i).Visible = True
Next
For i = 3 To 13
buttonchild(i).Visible = False
Next
For i = 0 To 2
buttonchild(i).Left = (frajxchun.Width - buttonchild(0).Width) / 2
Next
buttonchild(0).Top = Botton1(0).Height + 200
buttonchild(1).Top = Botton1(0).Height + 200 + buttonchild(0).Height + 100
buttonchild(2).Top = Botton1(0).Height + 200 + 2 * buttonchild(0).Height + 200
Case 1
For i = 0 To 2
buttonchild(i).Visible = False
Next
For i = 5 To 13
buttonchild(i).Visible = False
Next
For i = 3 To 4
buttonchild(i).Visible = True
Next
For i = 3 To 4
buttonchild(i).Left = (frajxchun.Width - buttonchild(0).Width) / 2
Next
buttonchild(3).Top = 2 * Botton1(0).Height + 200
buttonchild(4).Top = 2 * Botton1(0).Height + 200 + buttonchild(0).Height + 100
Case 2
For i = 0 To 4
buttonchild(i).Visible = False
Next
For i = 9 To 13
buttonchild(i).Visible = False
Next
For i = 5 To 8
buttonchild(i).Visible = True
Next
For i = 5 To 8
buttonchild(i).Left = (frajxchun.Width - buttonchild(0).Width) / 2
Next
buttonchild(5).Top = 3 * Botton1(0).Height + 200
buttonchild(6).Top = 3 * Botton1(0).Height + 200 + buttonchild(0).Height + 100
buttonchild(7).Top = 3 * Botton1(0).Height + 200 + 2 * buttonchild(0).Height + 200
buttonchild(8).Top = 3 * Botton1(0).Height + 200 + 3 * buttonchild(0).Height + 300
Case 3
For i = 0 To 8
buttonchild(i).Visible = False
Next
For i = 12 To 13
buttonchild(i).Visible = False
Next
For i = 9 To 11
buttonchild(i).Visible = True
Next
For i = 9 To 11
buttonchild(i).Left = (frajxchun.Width - buttonchild(0).Width) / 2
Next
buttonchild(9).Top = 4 * Botton1(0).Height + 200
buttonchild(10).Top = 4 * Botton1(0).Height + 200 + buttonchild(0).Height + 100
buttonchild(11).Top = 4 * Botton1(0).Height + 200 + 2 * buttonchild(0).Height + 200
Case 4
For i = 0 To 11
buttonchild(i).Visible = False
Next
For i = 12 To 13
buttonchild(i).Visible = True
Next
For i = 12 To 13
buttonchild(i).Left = (frajxchun.Width - buttonchild(0).Width) / 2
Next
buttonchild(12).Top = 5 * Botton1(0).Height + 200
buttonchild(13).Top = 5 * Botton1(0).Height + 200 + buttonchild(0).Height + 100
End Select
End Sub
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1(Index).BorderStyle = 1
End Sub
Private Sub Label1_Click(Index As Integer)
Select Case Index
Case 0
botton_state 0
movestate = 0
Case 1
botton_state 1
movestate = 1
Case 2
botton_state 2
movestate = 2
Case 3
botton_state 3
movestate = 3
Case 4
botton_state 4
movestate = 4
End Select
End Sub
Private Sub Mnuabout_Click()
frmGradCredits.Show
End Sub
Private Sub mnuchonxin_Click()
Unload Me
frmusers.Show
End Sub
Private Sub Mnuend_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels.Item(4).Text = Format(Now, "yyyy-mm-dd") & Time()
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 7
frmmanageuse.Show
'Unload Me
Case 10
FrmDataRestore.Show
Case 11
frmdatabackup.Show
Case 12
If frajxchun.Visible = False Then
frajxchun.Visible = True
Else
frajxchun.Visible = False
End If
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -