📄 mdiform1.frm
字号:
VERSION 5.00
Begin VB.MDIForm frmmain
BackColor = &H80000010&
Caption = "销售管理系统"
ClientHeight = 8820
ClientLeft = 2955
ClientTop = 3540
ClientWidth = 14040
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 1095
Left = 0
ScaleHeight = 1035
ScaleWidth = 13980
TabIndex = 0
Top = 0
Width = 14040
Begin VB.Label Label7
Caption = "注意事项"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8880
TabIndex = 7
Top = 600
Width = 975
End
Begin VB.Image Image7
Height = 480
Left = 9000
Picture = "MDIForm1.frx":030A
Top = 0
Width = 480
End
Begin VB.Label Label6
Caption = "报表管理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7440
TabIndex = 6
Top = 600
Width = 855
End
Begin VB.Image Image6
Height = 480
Left = 7560
Picture = "MDIForm1.frx":074C
Top = 0
Width = 480
End
Begin VB.Label Label5
Caption = "信息速查"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
TabIndex = 5
Top = 600
Width = 975
End
Begin VB.Image Image5
Height = 480
Left = 6000
Picture = "MDIForm1.frx":0B8E
Top = 0
Width = 480
End
Begin VB.Label Label4
Caption = "帐务管理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 4
Top = 600
Width = 855
End
Begin VB.Image Image4
Height = 480
Left = 4560
Picture = "MDIForm1.frx":19D0
Top = 0
Width = 480
End
Begin VB.Label Label3
Caption = "出货管理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3000
TabIndex = 3
Top = 600
Width = 975
End
Begin VB.Image Image3
Height = 480
Left = 3120
Picture = "MDIForm1.frx":1E12
Top = 0
Width = 480
End
Begin VB.Label Label2
Caption = "库存管理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 2
Top = 600
Width = 1095
End
Begin VB.Image Image2
Height = 480
Left = 1800
Picture = "MDIForm1.frx":2254
Top = 0
Width = 480
End
Begin VB.Label Label1
Caption = "进货管理"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 1
Top = 600
Width = 1095
End
Begin VB.Image Image1
Height = 480
Left = 480
Picture = "MDIForm1.frx":2696
Top = 0
Width = 480
End
End
Begin VB.Menu sys
Caption = "系统(&S)"
Begin VB.Menu restart
Caption = "重新登录"
End
Begin VB.Menu zhuce
Caption = "用户注册"
End
Begin VB.Menu end
Caption = "退出系统"
End
End
Begin VB.Menu ingoods
Caption = "进货管理(&I)"
Begin VB.Menu sanpingruku
Caption = "商品设置"
End
Begin VB.Menu gongyings
Caption = "供应商设置"
End
End
Begin VB.Menu kucun
Caption = "库存管理(&C)"
Begin VB.Menu baojia
Caption = "商品信息设置"
End
Begin VB.Menu kucunchaxun
Caption = "库存信息查看"
End
End
Begin VB.Menu rukuqingkuan
Caption = "出库管理"
Begin VB.Menu kehujiquyu
Caption = "客户设置"
End
Begin VB.Menu chuku
Caption = "出库单设置"
End
End
Begin VB.Menu sale
Caption = "帐务管理(&O)"
Begin VB.Menu fukuanguanli
Caption = "付款管理"
End
Begin VB.Menu huikuanguanli
Caption = "回款管理"
End
End
Begin VB.Menu table
Caption = "报表管理(&B)"
Begin VB.Menu shouru
Caption = "收入情况查询"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub altermima__Click()
altermima.Show
End Sub
Private Sub Command1_Click()
chanshushez.Show
End Sub
Private Sub end_Click()
End
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Image1_Click()
Unload Me
jinhuoguanli.Show
End Sub
Private Sub Image2_Click()
Unload Me
kucunguanli.Show
End Sub
Private Sub Image3_Click()
Unload Me
chuhuoguanli.Show
End Sub
Private Sub Image4_Click()
Unload Me
zhangwuguanli.Show
End Sub
Private Sub Image5_Click()
Unload Me
xinxishucha.Show
End Sub
Private Sub Image6_Click()
Unload Me
baobiaoguanli.Show
End Sub
Private Sub Label1_Click()
Unload Me
jinhuoguanli.Show
End Sub
Private Sub Label2_Click()
Unload Me
kucunguanli.Show
End Sub
Private Sub Label3_Click()
Unload Me
chuhuoguanli.Show
End Sub
Private Sub Label4_Click()
Unload Me
zhangwuguanli.Show
End Sub
Private Sub Label5_Click()
Unload Me
xinxishucha.Show
End Sub
Private Sub Label6_Click()
Unload Me
baobiaoguanli.Show
End Sub
Private Sub restart_Click()
Load frmlogin
frmlogin.Show vbModal
End Sub
Private Sub sign_Click()
sign.sho
End Sub
Private Sub zhuce_Click()
sign.Show vbModal
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -