📄 start.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Begin VB.Form start
BackColor = &H00000000&
ClientHeight = 6510
ClientLeft = 165
ClientTop = 735
ClientWidth = 9480
Icon = "start.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6510
ScaleWidth = 9480
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin ComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 330
Left = 0
TabIndex = 0
Top = 6180
Width = 9480
_ExtentX = 16722
_ExtentY = 582
SimpleText = ""
_Version = 327680
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4480
MinWidth = 4480
Picture = "start.frx":0442
Text = "作者：俞思龙 林秀丽"
TextSave = "作者：俞思龙 林秀丽"
Object.Tag = ""
Object.ToolTipText = "作者声明"
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 6422
MinWidth = 6422
Picture = "start.frx":075C
Text = "科盛自动化工程公司"
TextSave = "科盛自动化工程公司"
Object.Tag = ""
Object.ToolTipText = "研制公司"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3245
MinWidth = 3245
TextSave = ""
Object.Tag = ""
Object.ToolTipText = "系统操作员"
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
TextSave = ""
Object.Tag = ""
Object.ToolTipText = "当前日期"
EndProperty
EndProperty
MousePointer = 99
MouseIcon = "start.frx":0A76
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "科盛自动化工程公司"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 840
Index = 0
Left = 945
TabIndex = 4
Top = 2670
Width = 7710
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "科盛自动化工程公司"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 840
Index = 1
Left = 975
TabIndex = 3
Top = 2655
Width = 7710
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "科盛自动化工程公司"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 840
Index = 2
Left = 960
TabIndex = 2
Top = 2670
Width = 7710
End
Begin VB.Shape Shape1
FillColor = &H000080FF&
FillStyle = 0 'Solid
Height = 1485
Index = 0
Left = 3570
Shape = 3 'Circle
Top = 0
Width = 2385
End
Begin VB.Shape Shape1
BorderColor = &H000000FF&
FillColor = &H0000FF00&
FillStyle = 3 'Vertical Line
Height = 375
Index = 1
Left = 3495
Shape = 2 'Oval
Top = 1215
Width = 2385
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "KS"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 840
Left = 4335
TabIndex = 1
Top = 285
Width = 885
End
Begin VB.Menu menukaishi
Caption = "开始销售(&K)"
Begin VB.Menu menuXiaoshou
Caption = "开始销售 新发票"
Shortcut = {F5}
End
End
Begin VB.Menu menutj
Caption = "统计处(&T)"
Begin VB.Menu menutjxiaoshou
Caption = "统计销售情况"
Shortcut = ^T
End
Begin VB.Menu cba
Caption = "-"
End
Begin VB.Menu menuMonth
Caption = "统计资金情况"
Shortcut = ^M
End
End
Begin VB.Menu menufind
Caption = "购货查询(&F)"
Begin VB.Menu menuGuestsys
Caption = "客户查询"
Shortcut = {F6}
End
Begin VB.Menu abc
Caption = "-"
End
Begin VB.Menu menuFPsys
Caption = "发票查询"
Shortcut = {F7}
End
End
Begin VB.Menu menusys
Caption = "项目配置(&S)"
Begin VB.Menu menucp
Caption = "产品管理"
Shortcut = {F8}
End
Begin VB.Menu fff
Caption = "-"
End
Begin VB.Menu menuGuest
Caption = "客户管理"
Shortcut = {F9}
End
Begin VB.Menu ggg
Caption = "-"
End
Begin VB.Menu menujsr
Caption = "经手人管理"
Shortcut = {F11}
End
End
Begin VB.Menu menusystem
Caption = "系统(&X)"
Begin VB.Menu menuhelp
Caption = "帮助"
Shortcut = {F1}
End
Begin VB.Menu menuabout
Caption = "关于"
Shortcut = ^A
End
Begin VB.Menu hhh
Caption = "-"
End
Begin VB.Menu menutools
Caption = "工具"
Shortcut = {F12}
End
Begin VB.Menu aaaa
Caption = "-"
End
Begin VB.Menu menuexit
Caption = "退出"
Shortcut = ^X
End
End
End
Attribute VB_Name = "start"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
End Sub
Private Sub menuXiaoshou_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -