📄 frmmain.frm
字号:
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
Begin VB.Label Labelshengwah
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "盛华ERP管理糸统"
BeginProperty Font
Name = "华文彩云"
Size = 48
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 990
Left = 2400
TabIndex = 2
Top = 3480
Width = 7515
End
Begin VB.Menu MnuShju
Caption = "基本数据"
End
Begin VB.Menu MnuGongying
Caption = "供销应商管理"
End
Begin VB.Menu MnuBumen
Caption = "部门管理"
End
Begin VB.Menu MnuPrint
Caption = "报表打印"
End
Begin VB.Menu MnuQuery
Caption = "糸统查询"
End
Begin VB.Menu MnuUser
Caption = "用户设置"
End
Begin VB.Menu Mnuinout
Caption = "数据处理"
End
Begin VB.Menu MnuHelp
Caption = "帮助"
Begin VB.Menu Mnuabout
Caption = "关于本软件"
End
Begin VB.Menu MnuBanquan
Caption = "版权"
End
End
Begin VB.Menu MnuExit
Caption = "退出"
Begin VB.Menu mnuchonxin
Caption = "重新登陆"
End
Begin VB.Menu Mnuend
Caption = "退出糸统"
End
End
End
Attribute VB_Name = "frmmain"
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_Click(Index As Integer)
Select Case Index
Case 0
frmGongyingshang.Show
Case 1
frmlinliaobumen.Show
Case 2
frmlinliaoman.Show
Case 3
frmleibie.Show
Case 4
frmWuliaomulu.Show
Case 5
frmwuliaoRC.Show
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 MnuBanquan_Click()
frmAbout.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
frmbackup.Show
Case 12
If frajxchun.Visible = False Then
frajxchun.Visible = True
Else
frajxchun.Visible = False
End If
Labelshengwah.Visible = False
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -