form2.frm

吐血上传的,质量技术监督局用计量器具管理数据库,具有建库、管库、修改信息、打印卡片等功能

            Format          =   "yyyy""年""M""月""d""日"""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   3
         EndProperty
         Height          =   270
         Index           =   14
         Left            =   1080
         TabIndex        =   44
         Top             =   4560
         Width           =   1935
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   13
         Left            =   2760
         TabIndex        =   43
         Top             =   4320
         Width           =   495
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   12
         Left            =   1680
         TabIndex        =   42
         Top             =   4320
         Width           =   495
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   11
         Left            =   840
         TabIndex        =   41
         Top             =   4320
         Width           =   495
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   10
         Left            =   360
         TabIndex        =   40
         Top             =   3960
         Width           =   375
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   9
         Left            =   1800
         TabIndex        =   39
         Top             =   3480
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   8
         Left            =   1800
         TabIndex        =   38
         Top             =   3240
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   7
         Left            =   1800
         TabIndex        =   37
         Top             =   3000
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   6
         Left            =   1800
         TabIndex        =   36
         Top             =   2760
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   5
         Left            =   1800
         TabIndex        =   35
         Top             =   2520
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   4
         Left            =   1800
         TabIndex        =   34
         Top             =   2280
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   3
         Left            =   1800
         TabIndex        =   33
         Top             =   2040
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   2
         Left            =   1800
         TabIndex        =   32
         Top             =   1800
         Width           =   1215
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   1
         Left            =   1800
         TabIndex        =   31
         Top             =   1320
         Width           =   615
      End
      Begin VB.TextBox neirong 
         Height          =   270
         Index           =   0
         Left            =   480
         TabIndex        =   30
         Top             =   1320
         Width           =   855
      End
      Begin VB.TextBox Text2 
         Height          =   3975
         Left            =   -74880
         TabIndex        =   12
         Top             =   480
         Width           =   3015
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "注：检修后自发给合格证之日起保修三个月"
         Height          =   180
         Left            =   -74880
         TabIndex        =   49
         Top             =   4920
         Width           =   3420
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "℃"
         Height          =   180
         Left            =   -73080
         TabIndex        =   48
         Top             =   4560
         Width           =   180
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "检定室温度"
         Height          =   180
         Left            =   -74760
         TabIndex        =   46
         Top             =   4560
         Width           =   900
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "有效期至"
         Height          =   180
         Index           =   14
         Left            =   240
         TabIndex        =   29
         Top             =   4800
         Width           =   720
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "检定日期"
         Height          =   180
         Index           =   13
         Left            =   240
         TabIndex        =   28
         Top             =   4560
         Width           =   720
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "主管人："
         Height          =   180
         Index           =   12
         Left            =   2160
         TabIndex        =   27
         Top             =   4320
         Width           =   720
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "核  验："
         Height          =   180
         Index           =   11
         Left            =   1200
         TabIndex        =   26
         Top             =   4320
         Width           =   720
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "检验员："
         Height          =   180
         Index           =   10
         Left            =   360
         TabIndex        =   25
         Top             =   4320
         Width           =   720
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "使用"
         Height          =   180
         Index           =   9
         Left            =   2760
         TabIndex        =   24
         Top             =   4080
         Width           =   360
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "根据检定结果，准予该计量器具作"
         Height          =   180
         Index           =   8
         Left            =   360
         TabIndex        =   23
         Top             =   3720
         Width           =   2700
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "设 备  编 号："
         Height          =   180
         Index           =   7
         Left            =   360
         TabIndex        =   22
         Top             =   3480
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "送 检  单 位："
         Height          =   180
         Index           =   6
         Left            =   360
         TabIndex        =   21
         Top             =   3240
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "出 厂  器 号："
         Height          =   180
         Index           =   5
         Left            =   360
         TabIndex        =   20
         Top             =   3000
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "制 造  单 位："
         Height          =   180
         Index           =   4
         Left            =   360
         TabIndex        =   19
         Top             =   2760
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "精 度  级 别："
         Height          =   180
         Index           =   3
         Left            =   360
         TabIndex        =   18
         Top             =   2520
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "测 量  范 围："
         Height          =   180
         Index           =   2
         Left            =   360
         TabIndex        =   17
         Top             =   2280
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "型 号  规 格："
         Height          =   180
         Index           =   1
         Left            =   360
         TabIndex        =   16
         Top             =   2040
         Width           =   1260
      End
      Begin VB.Label xiangmu 
         AutoSize        =   -1  'True
         Caption         =   "计量器具名称："
         Height          =   180
         Index           =   0
         Left            =   360
         TabIndex        =   15
         Top             =   1800
         Width           =   1260