📄 frm_计量器具检定.frm
字号:
_Version = 393216
Enabled = 0 'False
CalendarTitleBackColor= 16711680
Format = 74645505
CurrentDate = 38507
End
Begin MSComCtl2.DTPicker DTPjdrq
Height = 315
Left = 1530
TabIndex = 50
Top = 3060
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
CalendarTitleBackColor= 16711680
Format = 74645505
CurrentDate = 38507
End
Begin VB.Image Image1
Height = 300
Left = 2130
MouseIcon = "Frm_计量器具检定.frx":08CA
Picture = "Frm_计量器具检定.frx":0D0C
Stretch = -1 'True
Top = 840
Width = 300
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定单位："
ForeColor = &H00800000&
Height = 180
Left = 2895
TabIndex = 53
Top = 3120
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定结果："
ForeColor = &H00800000&
Height = 180
Left = 300
TabIndex = 52
Top = 3495
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "上次检定日期："
ForeColor = &H00800000&
Height = 180
Left = 300
TabIndex = 51
Top = 3120
Width = 1260
End
Begin VB.Line Line5
BorderColor = &H80000001&
X1 = 0
X2 = 8560
Y1 = 3795
Y2 = 3795
End
Begin VB.Line Line4
BorderColor = &H80000001&
X1 = 0
X2 = 8560
Y1 = 3765
Y2 = 3765
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 = 2160
TabIndex = 37
Top = 240
Width = 3090
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 = 4800
TabIndex = 27
Top = 1995
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使 用 者："
Height = 180
Left = 2610
TabIndex = 25
Top = 2355
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生产厂家："
Height = 180
Left = 300
TabIndex = 24
Top = 1995
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报废日期："
Height = 180
Left = 90
TabIndex = 23
Top = 135
Visible = 0 'False
Width = 900
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "检定周期："
Height = 180
Left = 300
TabIndex = 22
Top = 2685
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分 度 值："
Height = 180
Left = 4800
TabIndex = 18
Top = 1635
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "使用部门："
Height = 180
Left = 300
TabIndex = 17
Top = 2355
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "启用日期："
Height = 180
Left = 4800
TabIndex = 16
Top = 2355
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备名称："
Height = 180
Left = 2610
TabIndex = 14
Top = 915
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备种别："
Height = 180
Left = 2610
TabIndex = 13
Top = 1275
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备状态："
Height = 180
Left = 4800
TabIndex = 12
Top = 915
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "测量范围："
Height = 180
Left = 2610
TabIndex = 11
Top = 1635
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "规格型号："
Height = 180
Left = 300
TabIndex = 7
Top = 1635
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "管理等级："
Height = 180
Left = 4800
TabIndex = 6
Top = 1275
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备类别："
Height = 180
Left = 300
TabIndex = 5
Top = 1275
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设备编号："
Height = 180
Left = 300
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 Bcjddw As String
Dim Bcjdsj As Date
Dim Bh As String
Dim Mc As String
Dim Jl As Boolean
Private Sub Qk()
DTPbcjdrq = Date
Tbcjddw.Text = ""
Czt_h.Text = ""
Tbcjdjg.Text = ""
' Tbh = ""
' Tmc = ""
' CZt.Text = ""
' Clb.Text = ""
' Czb.Text = ""
'' Cdj.Text = ""
' Tggxh = ""
' Tclfw = ""
' Tfdz = ""
' Tsccj = ""
' Tccbh = ""
' Csybm.Text = ""
' Tsyz = ""
' Tjdzq = ""
'' Czqdw.Text = ""
' Tjddw = Jddw
' Tjdjg = ""
End Sub
Private Sub Qk1()
DTPbcjdrq = Date
Tbcjddw.Text = ""
Czt_h.Text = ""
Tbcjdjg.Text = ""
Tmc = ""
CZt.Text = ""
Clb.Text = ""
Czb.Text = ""
Tggxh = ""
Tclfw = ""
Tfdz = ""
Tsccj = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -