VERSION 5.00
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "todg7.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Frm_計量器具報廢 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "計量器具報廢"
   ClientHeight    =   4620
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8850
   Icon            =   "Frm_計量器具報廢.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4620
   ScaleWidth      =   8850
   Begin VB.PictureBox Picture2 
      Align           =   4  'Align Right
      BackColor       =   &H80000009&
      Height          =   4620
      Left            =   6960
      ScaleHeight     =   4560
      ScaleWidth      =   1830
      TabIndex        =   2
      Top             =   0
      Width           =   1890
      Begin VB.TextBox Text3 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         Height          =   285
         Left            =   330
         TabIndex        =   51
         Top             =   3900
         Width           =   1245
      End
      Begin VB.CommandButton cmdxg 
         Caption         =   "修   改"
         Height          =   495
         Left            =   0
         TabIndex        =   50
         Top             =   0
         Visible         =   0   'False
         Width           =   1455
      End
      Begin VB.CommandButton cmdll 
         Caption         =   "瀏   覽"
         Height          =   495
         Left            =   240
         TabIndex        =   47
         Top             =   2760
         Width           =   1365
      End
      Begin VB.CommandButton cmdsc 
         Caption         =   "刪   除"
         Height          =   495
         Left            =   240
         TabIndex        =   46
         Top             =   2010
         Width           =   1365
      End
      Begin VB.CommandButton cmdbc 
         Caption         =   "保   存"
         Height          =   495
         Left            =   240
         TabIndex        =   45
         Top             =   1260
         Width           =   1365
      End
      Begin VB.CommandButton CmdZj 
         Caption         =   "新   增"
         Height          =   495
         Left            =   240
         TabIndex        =   44
         Top             =   540
         Width           =   1365
      End
      Begin VB.PictureBox CmdCz 
         BackColor       =   &H80000009&
         Height          =   375
         Left            =   1710
         ScaleHeight     =   315
         ScaleWidth      =   1575
         TabIndex        =   3
         Top             =   5130
         Visible         =   0   'False
         Width           =   1635
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackColor       =   &H80000009&
         Caption         =   " 快 速 查 找 "
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   360
         TabIndex        =   52
         Top             =   3660
         Width           =   1170
      End
   End
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      BackColor       =   &H80000009&
      Height          =   4620
      Left            =   0
      ScaleHeight     =   4560
      ScaleWidth      =   6885
      TabIndex        =   1
      Top             =   0
      Width           =   6945
      Begin TrueOleDBGrid70.TDBGrid Grid1 
         Height          =   4335
         Left            =   1410
         TabIndex        =   37
         Top             =   990
         Visible         =   0   'False
         Width           =   6885
         _ExtentX        =   12144
         _ExtentY        =   7646
         _LayoutType     =   0
         _RowHeight      =   -2147483647
         _WasPersistedAsPixels=   0
         Columns(0)._VlistStyle=   0
         Columns(0)._MaxComboItems=   5
         Columns(0).DataField=   ""
         Columns(0)._PropDict=   "_MaxComboItems,516,2;_VlistStyle,514,3"
         Columns(1)._VlistStyle=   0
         Columns(1)._MaxComboItems=   5
         Columns(1).DataField=   ""
         Columns(1)._PropDict=   "_MaxComboItems,516,2;_VlistStyle,514,3"
         Columns.Count   =   2
         Splits(0)._UserFlags=   0
         Splits(0).RecordSelectorWidth=   503
         Splits(0)._SavedRecordSelectors=   0   'False
         Splits(0).DividerColor=   13160660
         Splits(0).SpringMode=   0   'False
         Splits(0)._PropDict=   "_ColumnProps,515,0;_UserFlags,518,3"
         Splits(0)._ColumnProps(0)=   "Columns.Count=2"
         Splits(0)._ColumnProps(1)=   "Column(0).Width=3281"
         Splits(0)._ColumnProps(2)=   "Column(0).DividerColor=0"
         Splits(0)._ColumnProps(3)=   "Column(0)._WidthInPix=3175"
         Splits(0)._ColumnProps(4)=   "Column(0).Order=1"
         Splits(0)._ColumnProps(5)=   "Column(1).Width=3281"
         Splits(0)._ColumnProps(6)=   "Column(1).DividerColor=0"
         Splits(0)._ColumnProps(7)=   "Column(1)._WidthInPix=3175"
         Splits(0)._ColumnProps(8)=   "Column(1).Order=2"
         Splits.Count    =   1
         PrintInfos(0)._StateFlags=   0
         PrintInfos(0).Name=   "piInternal 0"
         PrintInfos(0).PageHeaderFont=   "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋體"
         PrintInfos(0).PageFooterFont=   "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋體"
         PrintInfos(0).PageHeaderHeight=   0
         PrintInfos(0).PageFooterHeight=   0
         PrintInfos.Count=   1
         AllowUpdate     =   0   'False
         DefColWidth     =   0
         HeadLines       =   1
         FootLines       =   1
         AllowArrows     =   0   'False
         MultipleLines   =   0
         CellTipsWidth   =   0
         DeadAreaBackColor=   13160660
         RowDividerColor =   13160660
         RowSubDividerColor=   13160660
         DirectionAfterEnter=   1
         MaxRows         =   250000
         ViewColumnCaptionWidth=   0
         ViewColumnWidth =   0
         _PropDict       =   "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
         _StyleDefs(0)   =   "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
         _StyleDefs(1)   =   ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
         _StyleDefs(2)   =   ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
         _StyleDefs(3)   =   ":id=0,.borderColor=&H80000005&,.borderType=0,.bold=0,.fontsize=900,.italic=0"
         _StyleDefs(4)   =   ":id=0,.underline=0,.strikethrough=0,.charset=134"
         _StyleDefs(5)   =   ":id=0,.fontname=宋體"
         _StyleDefs(6)   =   "Style:id=1,.parent=0,.namedParent=33"
         _StyleDefs(7)   =   "CaptionStyle:id=4,.parent=2,.namedParent=37"
         _StyleDefs(8)   =   "HeadingStyle:id=2,.parent=1,.namedParent=34"
         _StyleDefs(9)   =   "FooterStyle:id=3,.parent=1,.namedParent=35"
         _StyleDefs(10)  =   "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
         _StyleDefs(11)  =   "SelectedStyle:id=6,.parent=1,.namedParent=36"
         _StyleDefs(12)  =   "EditorStyle:id=7,.parent=1"
         _StyleDefs(13)  =   "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
         _StyleDefs(14)  =   "EvenRowStyle:id=9,.parent=1,.namedParent=39"
         _StyleDefs(15)  =   "OddRowStyle:id=10,.parent=1,.namedParent=40"
         _StyleDefs(16)  =   "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
         _StyleDefs(17)  =   "FilterBarStyle:id=12,.parent=1,.namedParent=42"
         _StyleDefs(18)  =   "Splits(0).Style:id=13,.parent=1"
         _StyleDefs(19)  =   "Splits(0).CaptionStyle:id=22,.parent=4"
         _StyleDefs(20)  =   "Splits(0).HeadingStyle:id=14,.parent=2"
         _StyleDefs(21)  =   "Splits(0).FooterStyle:id=15,.parent=3"
         _StyleDefs(22)  =   "Splits(0).InactiveStyle:id=16,.parent=5"
         _StyleDefs(23)  =   "Splits(0).SelectedStyle:id=18,.parent=6"
         _StyleDefs(24)  =   "Splits(0).EditorStyle:id=17,.parent=7"
         _StyleDefs(25)  =   "Splits(0).HighlightRowStyle:id=19,.parent=8"
         _StyleDefs(26)  =   "Splits(0).EvenRowStyle:id=20,.parent=9"
         _StyleDefs(27)  =   "Splits(0).OddRowStyle:id=21,.parent=10"
         _StyleDefs(28)  =   "Splits(0).RecordSelectorStyle:id=23,.parent=11"
         _StyleDefs(29)  =   "Splits(0).FilterBarStyle:id=24,.parent=12"
         _StyleDefs(30)  =   "Splits(0).Columns(0).Style:id=28,.parent=13"
         _StyleDefs(31)  =   "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
         _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 Tbfshr 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   285
         Left            =   3270
         TabIndex        =   42
         Top             =   3450
         Width           =   1365
      End
      Begin VB.TextBox Tbfyy 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   285
         Left            =   1080
         TabIndex        =   39
         Top             =   3810
         Width           =   5625
      End
      Begin VB.ComboBox CZt 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   300
         Left            =   5550
         TabIndex        =   36
         Top             =   855
         Width           =   1215
      End
      Begin VB.ComboBox Csybm 
         Enabled         =   0   'False
         Height          =   300
         Left            =   1050
         TabIndex        =   34
         Top             =   2295
         Width           =   1215
      End
      Begin VB.ComboBox Czb 
         Enabled         =   0   'False
         Height          =   300
         Left            =   3360
         TabIndex        =   33
         Top             =   1230
         Width           =   1185
      End
      Begin VB.ComboBox Clb 
         Enabled         =   0   'False
         Height          =   300
         Left            =   1050
         TabIndex        =   32
         Top             =   1230
         Width           =   1305
      End
      Begin MSComCtl2.DTPicker DTPqyrq 
         Height          =   315
         Left            =   5550
         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            =   5550
         Style           =   2  'Dropdown List
         TabIndex        =   29
         Top             =   1215
         Width           =   1215
      End
      Begin VB.ComboBox Czqdw 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   300
         Left            =   1620
         Style           =   2  'Dropdown List
         TabIndex        =   28
         Top             =   2640
         Width           =   585
      End
      Begin VB.TextBox Tccbh 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   285
         Left            =   5550
         TabIndex        =   26
         Top             =   1935
         Width           =   1215
      End
      Begin VB.TextBox Tsyz 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   285
         Left            =   3360
         TabIndex        =   21
         Top             =   2295
         Width           =   1185
      End
      Begin VB.TextBox Tsccj 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   285
         Left            =   1050
         TabIndex        =   20
         Top             =   1935
         Width           =   3495
      End
      Begin VB.TextBox Tjdzq 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   270
         Left            =   1020
         TabIndex        =   19
         Top             =   2655
         Width           =   585
      End
      Begin VB.TextBox Tfdz 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   285
         Left            =   5550
         TabIndex        =   15
         Top             =   1575