📄 formmain.frm
字号:
VERSION 5.00
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Formmain
BorderStyle = 1 'Fixed Single
Caption = "枫叶硬件库管"
ClientHeight = 10245
ClientLeft = 60
ClientTop = 750
ClientWidth = 15240
Icon = "Formmain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MouseIcon = "Formmain.frx":F84A
MousePointer = 99 'Custom
Moveable = 0 'False
Picture = "Formmain.frx":F99C
ScaleHeight = 10245
ScaleWidth = 15240
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 9870
Width = 15240
_ExtentX = 26882
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4057
MinWidth = 4057
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3175
MinWidth = 3175
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 12347
MinWidth = 12347
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3528
MinWidth = 3528
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 9960
Top = 5880
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":3C6B8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":3F3C2
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":420CC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":4385E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":46568
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":49272
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":4A3BC
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":4ADCE
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formmain.frx":4DAD8
Key = ""
EndProperty
EndProperty
End
Begin MSACAL.Calendar Calendar1
Height = 2295
Left = 10920
TabIndex = 0
TabStop = 0 'False
Top = 7560
Width = 4335
_Version = 524288
_ExtentX = 7646
_ExtentY = 4048
_StockProps = 1
BackColor = -2147483633
Year = 2007
Month = 3
Day = 26
DayLength = 1
MonthLength = 1
DayFontColor = 0
FirstDay = 7
GridCellEffect = 1
GridFontColor = 10485760
GridLinesColor = -2147483632
ShowDateSelectors= -1 'True
ShowDays = -1 'True
ShowHorizontalGrid= -1 'True
ShowTitle = -1 'True
ShowVerticalGrid= -1 'True
TitleFontColor = 10485760
ValueIsNull = 0 'False
BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 2
Top = 0
Width = 15240
_ExtentX = 26882
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "密码修改"
Object.ToolTipText = "密码修改"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "用户管理"
Object.ToolTipText = "用户管理"
ImageIndex = 7
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "进库管理"
Object.ToolTipText = "进库管理"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "出库管理"
Object.ToolTipText = "出库管理"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "库存查看"
Object.ToolTipText = "库存查看"
ImageIndex = 2
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "报表打印"
Object.ToolTipText = "报表打印"
ImageIndex = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "计算器"
Object.ToolTipText = "计算器"
ImageIndex = 6
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "退出"
Object.ToolTipText = "退出"
ImageIndex = 9
EndProperty
EndProperty
End
Begin VB.Menu files
Caption = "文件(&F)"
Begin VB.Menu pass
Caption = "密码修改(&C)"
Shortcut = {F2}
End
Begin VB.Menu user
Caption = "用户管理(&U)"
Shortcut = {F3}
End
Begin VB.Menu fg0
Caption = "-"
End
Begin VB.Menu beifen
Caption = "备份数据(&D)"
Shortcut = ^D
End
Begin VB.Menu huanyuan
Caption = "还原数据(&R)"
Shortcut = ^R
End
Begin VB.Menu fg1
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出(&X)"
End
End
Begin VB.Menu windows
Caption = "视图(&W)"
Begin VB.Menu zt
Caption = "状态栏"
End
Begin VB.Menu tool
Caption = "工具栏"
End
End
Begin VB.Menu bb
Caption = "查看报表(&B)"
Begin VB.Menu kcbb
Caption = "库存报表"
End
End
Begin VB.Menu gl
Caption = "管理(&G)"
Begin VB.Menu jin
Caption = "产品入库(&J)"
End
Begin VB.Menu chu
Caption = "产品出库(&C)"
End
Begin VB.Menu kucun
Caption = "库存管理(&K)"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu helpme
Caption = "帮助"
Shortcut = {F1}
End
Begin VB.Menu about
Caption = "关于"
Shortcut = ^G
End
Begin VB.Menu fg2
Caption = "-"
End
Begin VB.Menu zhuce
Caption = "注册"
Shortcut = {F12}
End
End
End
Attribute VB_Name = "Formmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
frmAbout.Show
End Sub
Private Sub chu_Click()
FormCK.Show 1
End Sub
Private Sub exit_Click()
Call com_exit
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Call com_exit
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的要退出系统吗？", vbInformation + vbOKCancel + vbDefaultButton2, "退出系统") = vbOK Then
Cancel = 0
Else
Cancel = 1
End If
End Sub
Private Sub Form_Load()
With StatusBar1.Panels
.Item(1) = "F1：帮助； ESC：退出"
.Item(2) = "用户帐号：" & userName
.Item(3) = "用户类型：" & userPurview
.Item(5) = (Now)
End With
End Sub
Private Sub jin_Click()
FormRK.Show 1
End Sub
Private Sub kucun_Click()
FormKCGL.Show 1
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Formuser.Show 1
Case 2
Formuser.Show 1
Case 4
FormRK.Show 1
Case 5
FormCK.Show 1
Case 7
FormKCGL.Show 1
Case 8
MsgBox "还没有开发 ", vbOKOnly, "浩天网络"
Case 10
Shell "calc.exe", vbNormalFocus
Case 15
Call com_exit
End Select
End Sub
Private Sub com_exit()
If MsgBox("真的要退出系统吗？", vbInformation + vbOKCancel + vbDefaultButton2, "退出系统") = vbOK Then
End
End If
End Sub
Private Sub user_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -