?? 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 = "生產(chǎn)廠家："
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 = "設(shè)備名稱："
Height = 180
Left = 2490
TabIndex = 14
Top = 915
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "設(shè)備種別："
Height = 180
Left = 2490
TabIndex = 13
Top = 1275
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "設(shè)備狀態(tài)："
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 = "規(guī)格型號："
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 = "設(shè)備類別："
Height = 180
Left = 180
TabIndex = 5
Top = 1275
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "設(shè)備編號："
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 = ""
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -