frmqm.frm
来自「这是一个实际的工程中所用的源程序」· FRM 代码 · 共 1,829 行 · 第 1/5 页
FRM
1,829 行
VERSION 5.00
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
Begin VB.Form frmQM
BackColor = &H00C0C000&
ClientHeight = 8880
ClientLeft = 60
ClientTop = 60
ClientWidth = 11880
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmQM.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 8880
ScaleWidth = 11880
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.PictureBox picTech
Appearance = 0 'Flat
BackColor = &H80000001&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4485
Left = 9690
ScaleHeight = 4485
ScaleWidth = 2085
TabIndex = 121
Top = 840
Visible = 0 'False
Width = 2085
Begin VB.Frame Frame1
BackColor = &H80000001&
Caption = "Frame1"
ForeColor = &H80000014&
Height = 1095
Index = 4
Left = 30
TabIndex = 143
Top = 3360
Width = 2025
Begin VB.TextBox txtJL
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 600
MaxLength = 30
TabIndex = 146
TabStop = 0 'False
Top = 780
Width = 1365
End
Begin VB.TextBox txtSD
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 600
MaxLength = 30
TabIndex = 145
TabStop = 0 'False
Top = 240
Width = 1365
End
Begin VB.TextBox txtLJ
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 600
MaxLength = 30
TabIndex = 144
TabStop = 0 'False
Top = 510
Width = 1365
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "计量"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 14
Left = 90
TabIndex = 149
Top = 810
Width = 540
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 13
Left = 90
TabIndex = 148
Top = 240
Width = 540
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "累计"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 12
Left = 90
TabIndex = 147
Top = 510
Width = 540
End
End
Begin VB.Frame Frame1
BackColor = &H80000001&
Caption = "Frame1"
ForeColor = &H80000014&
Height = 1095
Index = 3
Left = 30
TabIndex = 136
Top = 2250
Width = 2025
Begin VB.TextBox txtJL
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 600
MaxLength = 30
TabIndex = 139
TabStop = 0 'False
Top = 780
Width = 1365
End
Begin VB.TextBox txtSD
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 600
MaxLength = 30
TabIndex = 138
TabStop = 0 'False
Top = 240
Width = 1365
End
Begin VB.TextBox txtLJ
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 600
MaxLength = 30
TabIndex = 137
TabStop = 0 'False
Top = 510
Width = 1365
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "计量"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 11
Left = 90
TabIndex = 142
Top = 810
Width = 540
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 10
Left = 90
TabIndex = 141
Top = 240
Width = 540
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "累计"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 240
Index = 9
Left = 90
TabIndex = 140
Top = 510
Width = 540
End
End
Begin VB.Frame Frame1
BackColor = &H80000001&
Caption = "Frame1"
ForeColor = &H80000014&
Height = 1095
Index = 2
Left = 30
TabIndex = 129
Top = 1140
Width = 2025
Begin VB.TextBox txtJL
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 600
MaxLength = 30
TabIndex = 132
TabStop = 0 'False
Top = 780
Width = 1365
End
Begin VB.TextBox txtSD
Alignment = 1 'Right Justify
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?