📄 frm_计量器具报废.frm
字号:
Width = 1215
End
Begin VB.TextBox Tmc
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3360
TabIndex = 10
Top = 855
Width = 1185
End
Begin VB.TextBox Tclfw
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 3360
TabIndex = 9
Top = 1575
Width = 1185
End
Begin VB.TextBox Tggxh
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1050
TabIndex = 8
Top = 1575
Width = 1305
End
Begin VB.TextBox Tbh
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1050
TabIndex = 0
Top = 855
Width = 945
End
Begin MSComCtl2.DTPicker DTPbfrq
Height = 315
Left = 3300
TabIndex = 31
Top = 2640
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
CalendarTitleBackColor= 16711680
Format = 74645505
CurrentDate = 38507
End
Begin MSComCtl2.DTPicker Dbfrq
Height = 315
Left = 1080
TabIndex = 40
Top = 3420
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
CalendarTitleBackColor= 16711680
Format = 74645505
CurrentDate = 38507
End
Begin VB.TextBox Tbz
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 1080
TabIndex = 48
Top = 4170
Width = 5625
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备 注："
Height = 180
Left = 210
TabIndex = 49
Top = 4230
Width = 900
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报废审核人："
Height = 180
Left = 2340
TabIndex = 43
Top = 3510
Width = 1080
End
Begin VB.Label Label26
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报废原因："
Height = 180
Left = 210
TabIndex = 41
Top = 3870
Width = 900
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "计量器具报废信息:"
ForeColor = &H000000C0&
Height = 180
Left = 180
TabIndex = 38
Top = 3150
Width = 1530
End
Begin VB.Image Image1
Height = 300
Left = 2010
MouseIcon = "Frm_计量器具报废.frx":08CA
Picture = "Frm_计量器具报废.frx":0D0C
Stretch = -1 'True
Top = 840
Width = 300
End
Begin VB.Line Line5
BorderColor = &H80000001&
X1 = 0
X2 = 8560
Y1 = 3075
Y2 = 3075
End
Begin VB.Line Line4
BorderColor = &H80000001&
X1 = 0
X2 = 8560
Y1 = 3045
Y2 = 3045
End
Begin VB.Label Label22
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "计 量 器 具 报 废"
BeginProperty Font
Name = "华文行楷"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 330
Left = 1830
TabIndex = 35
Top = 270
Width = 3015
End
Begin VB.Line Line8
BorderColor = &H80000001&
X1 = -30
X2 = 8530
Y1 = 720
Y2 = 720
End
Begin VB.Line Line2
BorderColor = &H80000001&
X1 = -150
X2 = 8410
Y1 = 750
Y2 = 750
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出厂编号："
Height = 180
Left = 4680
TabIndex = 27
Top = 1995
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使 用 者："
Height = 180
Left = 2490
TabIndex = 25
Top = 2355
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生产厂家："
Height = 180
Left = 180
TabIndex = 24
Top = 1995
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报废日期："
Height = 180
Left = 240
TabIndex = 23
Top = 3480
Width = 900
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定周期："
Height = 180
Left = 150
TabIndex = 22
Top = 2715
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分 度 值："
Height = 180
Left = 4680
TabIndex = 18
Top = 1635
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用部门："
Height = 180
Left = 180
TabIndex = 17
Top = 2355
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "启用日期："
Height = 180
Left = 4680
TabIndex = 16
Top = 2355
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备名称："
Height = 180
Left = 2490
TabIndex = 14
Top = 915
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备种别："
Height = 180
Left = 2490
TabIndex = 13
Top = 1275
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备状态："
Height = 180
Left = 4680
TabIndex = 12
Top = 915
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "测量范围："
Height = 180
Left = 2490
TabIndex = 11
Top = 1635
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "规格型号："
Height = 180
Left = 180
TabIndex = 7
Top = 1635
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "管理等级："
Height = 180
Left = 4680
TabIndex = 6
Top = 1275
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备类别："
Height = 180
Left = 180
TabIndex = 5
Top = 1275
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备编号："
Height = 180
Left = 180
TabIndex = 4
Top = 915
Width = 900
End
End
End
Attribute VB_Name = "Frm_计量器具报废"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim Add As Integer
Dim badd As Boolean
Dim Dwmc As String
Dim Jddw As String
Dim rsa As New ADODB.Recordset
Dim WXdw As String
Dim WXsj As Date
Dim Bh As String
Dim Mc As String
Dim Jl As Boolean
Private Sub Qk()
Dbfrq = Date
Tbfshr = ""
Tbfyy.Text = ""
Tbz.Text = ""
End Sub
Private Sub Qk1()
Dbfrq = Date
Tbfshr = ""
Tbfyy.Text = ""
Tbz.Text = ""
Tmc = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -