📄 frm_计量器具检定.frm
字号:
_StyleDefs(32) = "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
_StyleDefs(33) = "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
_StyleDefs(34) = "Splits(0).Columns(1).Style:id=32,.parent=13"
_StyleDefs(35) = "Splits(0).Columns(1).HeadingStyle:id=29,.parent=14"
_StyleDefs(36) = "Splits(0).Columns(1).FooterStyle:id=30,.parent=15"
_StyleDefs(37) = "Splits(0).Columns(1).EditorStyle:id=31,.parent=17"
_StyleDefs(38) = "Named:id=33:Normal"
_StyleDefs(39) = ":id=33,.parent=0"
_StyleDefs(40) = "Named:id=34:Heading"
_StyleDefs(41) = ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(42) = ":id=34,.wraptext=-1"
_StyleDefs(43) = "Named:id=35:Footing"
_StyleDefs(44) = ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
_StyleDefs(45) = "Named:id=36:Selected"
_StyleDefs(46) = ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(47) = "Named:id=37:Caption"
_StyleDefs(48) = ":id=37,.parent=34,.alignment=2"
_StyleDefs(49) = "Named:id=38:HighlightRow"
_StyleDefs(50) = ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
_StyleDefs(51) = "Named:id=39:EvenRow"
_StyleDefs(52) = ":id=39,.parent=33,.bgcolor=&HFFFF00&"
_StyleDefs(53) = "Named:id=40:OddRow"
_StyleDefs(54) = ":id=40,.parent=33"
_StyleDefs(55) = "Named:id=41:RecordSelector"
_StyleDefs(56) = ":id=41,.parent=34"
_StyleDefs(57) = "Named:id=42:FilterBar"
_StyleDefs(58) = ":id=42,.parent=33"
End
Begin VB.TextBox Tjddw
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3750
TabIndex = 49
Top = 3060
Width = 3120
End
Begin VB.TextBox Tjdjg
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1170
TabIndex = 48
Top = 3435
Width = 5685
End
Begin VB.Frame Frame2
BackColor = &H80000009&
BorderStyle = 0 'None
Caption = "上次设备检定结果"
ForeColor = &H00C00000&
Height = 1395
Left = 120
TabIndex = 40
Top = 3825
Width = 6795
Begin VB.ComboBox Tbcjdjg
Height = 300
Left = 990
TabIndex = 63
Top = 720
Width = 1245
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3390
TabIndex = 61
Top = 720
Width = 3285
End
Begin VB.ComboBox Tbcjddw
Height = 300
Left = 3420
TabIndex = 60
Text = "Combo1"
Top = 330
Width = 3285
End
Begin VB.ComboBox Czt_h
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1725
TabIndex = 46
Top = 1080
Width = 1215
End
Begin MSComCtl2.DTPicker DTPbcjdrq
Height = 315
Left = 1020
TabIndex = 41
Top = 330
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
CalendarTitleBackColor= 16711680
Format = 74645505
CurrentDate = 38507
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备 注："
Height = 180
Left = 2520
TabIndex = 62
Top = 780
Width = 900
End
Begin VB.Label Label27
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "经检定后设备状态："
Height = 180
Left = 150
TabIndex = 47
Top = 1155
Width = 1620
End
Begin VB.Label Label26
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定单位："
Height = 180
Left = 2550
TabIndex = 45
Top = 390
Width = 900
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定结果："
Height = 180
Left = 150
TabIndex = 44
Top = 795
Width = 900
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定日期："
Height = 180
Left = 150
TabIndex = 43
Top = 390
Width = 900
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "本 次 检 定 信 息"
ForeColor = &H000000C0&
Height = 180
Left = 840
TabIndex = 42
Top = 30
Width = 1980
End
Begin VB.Line Line3
X1 = 210
X2 = 3540
Y1 = 210
Y2 = 210
End
End
Begin VB.ComboBox CZt
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 5670
TabIndex = 38
Top = 855
Width = 1215
End
Begin VB.ComboBox Csybm
Enabled = 0 'False
Height = 300
Left = 1170
TabIndex = 36
Top = 2295
Width = 1215
End
Begin VB.ComboBox Czb
Enabled = 0 'False
Height = 300
Left = 3480
TabIndex = 35
Top = 1230
Width = 1185
End
Begin VB.ComboBox Clb
Enabled = 0 'False
Height = 300
Left = 1170
TabIndex = 34
Top = 1230
Width = 1305
End
Begin MSComCtl2.DTPicker DTPqyrq
Height = 315
Left = 5670
TabIndex = 30
Top = 2280
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
CalendarTitleBackColor= 16711680
Format = 74645505
CurrentDate = 38507
End
Begin VB.ComboBox Cdj
Enabled = 0 'False
Height = 300
Left = 5670
Style = 2 'Dropdown List
TabIndex = 29
Top = 1215
Width = 1215
End
Begin VB.ComboBox Czqdw
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1770
Style = 2 'Dropdown List
TabIndex = 28
Top = 2610
Width = 585
End
Begin VB.TextBox Tccbh
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 5670
TabIndex = 26
Top = 1935
Width = 1215
End
Begin VB.TextBox Tsyz
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3480
TabIndex = 21
Top = 2295
Width = 1185
End
Begin VB.TextBox Tsccj
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1170
TabIndex = 20
Top = 1935
Width = 3495
End
Begin VB.TextBox Tjdzq
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1170
TabIndex = 19
Top = 2625
Width = 585
End
Begin VB.TextBox Tfdz
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 5670
TabIndex = 15
Top = 1575
Width = 1215
End
Begin VB.TextBox Tmc
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3480
TabIndex = 10
Top = 855
Width = 1185
End
Begin VB.TextBox Tclfw
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3480
TabIndex = 9
Top = 1575
Width = 1185
End
Begin VB.TextBox Tggxh
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1170
TabIndex = 8
Top = 1575
Width = 1305
End
Begin VB.TextBox Tbh
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1170
TabIndex = 0
Top = 855
Width = 945
End
Begin MSComCtl2.DTPicker DTPbfrq
Height = 315
Left = 960
TabIndex = 31
Top = 90
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 556
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -