form1.frm

个人写的在我公司里用着的查找工具,更改数据库名,和我的SQL语句也就可以查你们的数据了,有电子表格输出功能

            Left            =   120
            TabIndex        =   31
            Top             =   840
            Width           =   255
         End
         Begin VB.Image Image7 
            Height          =   495
            Left            =   10320
            Picture         =   "Form1.frx":1D550
            Top             =   120
            Width           =   750
         End
         Begin VB.Image Image4 
            Height          =   750
            Left            =   480
            Picture         =   "Form1.frx":1E92A
            Top             =   840
            Width           =   10785
         End
         Begin VB.Label Label29 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Label29"
            Height          =   255
            Left            =   10080
            TabIndex        =   62
            Top             =   1320
            Width           =   735
         End
         Begin VB.Label Label28 
            BackColor       =   &H00C0FFC0&
            Caption         =   "栈板号查数量"
            Height          =   255
            Left            =   10080
            TabIndex        =   61
            Top             =   840
            Width           =   1095
         End
         Begin VB.Label Label27 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Label27"
            Height          =   255
            Left            =   7320
            TabIndex        =   60
            Top             =   1320
            Width           =   735
         End
         Begin VB.Label Label26 
            BackColor       =   &H00C0FFC0&
            Caption         =   "附件查栈板号"
            Height          =   255
            Left            =   7320
            TabIndex        =   59
            Top             =   840
            Width           =   1095
         End
         Begin VB.Label Label25 
            BackColor       =   &H00C0FFC0&
            Caption         =   "工单漏投数量"
            Height          =   255
            Left            =   3720
            TabIndex        =   58
            Top             =   1320
            Width           =   1335
         End
         Begin VB.Label Label24 
            BackColor       =   &H00C0FFC0&
            Caption         =   "附件查附件盒"
            Height          =   255
            Left            =   3720
            TabIndex        =   57
            Top             =   840
            Width           =   1215
         End
         Begin VB.Label Label23 
            BackColor       =   &H00C0FFC0&
            Caption         =   "工单已投量"
            Height          =   255
            Left            =   480
            TabIndex        =   56
            Top             =   1320
            Width           =   975
         End
         Begin VB.Label Label22 
            BackColor       =   &H00C0FFC0&
            Caption         =   "附件盒资料"
            Height          =   255
            Left            =   480
            TabIndex        =   55
            Top             =   840
            Width           =   975
         End
         Begin VB.Image Image2 
            Height          =   435
            Index           =   1
            Left            =   2160
            Picture         =   "Form1.frx":38F4C
            Top             =   120
            Width           =   840
         End
      End
      Begin VB.Frame Frame1 
         BackColor       =   &H00C0FFC0&
         Height          =   1695
         Left            =   0
         TabIndex        =   3
         Top             =   360
         Width           =   11415
         Begin VB.OptionButton Option33 
            BackColor       =   &H00C0FFC0&
            Caption         =   "  Trn_Data"
            Height          =   255
            Left            =   3240
            TabIndex        =   82
            Top             =   1080
            Visible         =   0   'False
            Width           =   1575
         End
         Begin VB.OptionButton Option35 
            BackColor       =   &H00C0FFC0&
            Caption         =   "  WO Total"
            Height          =   255
            Left            =   4920
            TabIndex        =   81
            Top             =   1080
            Visible         =   0   'False
            Width           =   1335
         End
         Begin VB.OptionButton Option38 
            BackColor       =   &H00C0FFC0&
            Caption         =   "AccessoryBOX Total"
            Height          =   255
            Left            =   6240
            TabIndex        =   80
            Top             =   1080
            Visible         =   0   'False
            Width           =   1815
         End
         Begin VB.OptionButton Option34 
            BackColor       =   &H00C0FFC0&
            Caption         =   "  BOX Total"
            Height          =   255
            Left            =   8040
            TabIndex        =   79
            Top             =   1080
            Visible         =   0   'False
            Width           =   1335
         End
         Begin VB.OptionButton Option32 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option32"
            Height          =   255
            Left            =   9720
            TabIndex        =   76
            Top             =   1080
            Width           =   255
         End
         Begin VB.TextBox Text3 
            Height          =   375
            Left            =   0
            TabIndex        =   75
            Top             =   0
            Width           =   180
         End
         Begin VB.CommandButton Command4 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Excel"
            Height          =   495
            Left            =   9600
            MaskColor       =   &H00C0FFC0&
            Style           =   1  'Graphical
            TabIndex        =   74
            Top             =   120
            Width           =   735
         End
         Begin VB.CommandButton Command1 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Enter"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   8760
            MaskColor       =   &H0080FF80&
            Style           =   1  'Graphical
            TabIndex        =   70
            Top             =   120
            UseMaskColor    =   -1  'True
            Width           =   735
         End
         Begin VB.OptionButton Option31 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option31"
            Height          =   255
            Left            =   8040
            TabIndex        =   66
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option30 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option30"
            Height          =   255
            Left            =   9720
            TabIndex        =   65
            Top             =   840
            Width           =   255
         End
         Begin VB.OptionButton Option12 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option12"
            Height          =   255
            Left            =   9720
            TabIndex        =   16
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option11 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option11"
            Height          =   255
            Left            =   6360
            TabIndex        =   15
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option10 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option10"
            Height          =   255
            Left            =   4920
            TabIndex        =   14
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option9 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option9"
            Height          =   255
            Left            =   3240
            TabIndex        =   13
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option8 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option8"
            Height          =   255
            Left            =   1440
            TabIndex        =   12
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option7 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option7"
            Height          =   225
            Left            =   120
            TabIndex        =   11
            Top             =   1320
            Width           =   255
         End
         Begin VB.OptionButton Option6 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option6"
            Height          =   255
            Left            =   8040
            TabIndex        =   10
            Top             =   840
            Width           =   255
         End
         Begin VB.OptionButton Option5 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option5"
            Height          =   255
            Left            =   1440
            TabIndex        =   9
            Top             =   840
            Width           =   255
         End
         Begin VB.OptionButton Option4 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option4"
            Height          =   255
            Left            =   3240
            TabIndex        =   8
            Top             =   840
            Width           =   255
         End
         Begin VB.OptionButton Option3 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option3"
            Height          =   255
            Left            =   4920
            TabIndex        =   7
            Top             =   840
            Width           =   255
         End
         Begin VB.OptionButton Option2 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option2"
            Height          =   255
            Left            =   6360
            TabIndex        =   6
            Top             =   840
            Width           =   255
         End
         Begin VB.OptionButton Option1 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Option1"
            Height          =   255
            Left            =   120
            TabIndex        =   5
            Top             =   840
            Width           =   255
         End
         Begin VB.Image Image1 
            Height          =   705
            Left            =   480
            Picture         =   "Form1.frx":3A296
            Top             =   840
            Width           =   10575
         End
         Begin VB.Label Label33 
            BackColor       =   &H00C0FFC0&
            Caption         =   "更换零件"
            Height          =   255
            Left            =   10080
            TabIndex        =   71
            Top             =   1080
            Width           =   975
         End
         Begin VB.Image Image6 
            Height          =   495
            Left            =   10320
            Picture         =   "Form1.frx":52754
            Top             =   120
            Width           =   750
         End
         Begin VB.Label Label32 
            BackColor       =   &H00C0FFC0&
            Caption         =   "工单查漏投"
            Height          =   255
            Left            =   8400
            TabIndex        =   68
            Top             =   1320
            Width           =   975
         End
         Begin VB.Label Label31 
            BackColor       =   &H00C0FFC0&
            Caption         =   "箱号查数量"
            Height          =   255
            Left            =   10080
            TabIndex        =   67
            Top             =   840
            Width           =   1095
         End
         Begin VB.Image Image2 
            Height          =   435
            Index           =   0
            Left            =   2160
            Picture         =   "Form1.frx":53B2E
            Top             =   120
            Width           =   840
         End
         Begin VB.Label Label14 
            BackColor       =   &H00C0FFC0&
            Caption         =   "箱号查栈板号"
            Height          =   255
            Left            =   6720
            TabIndex        =   30
            ToolTipText     =   "絚腹琩刺狾腹"
            Top             =   840
            Width           =   1095
         End
         Begin VB.Label Label1 
            BackColor       =   &H00C0FFC0&
            Caption         =   "栈板号查数量"
            Height          =   255
            Left            =   8400
            TabIndex        =   29
            ToolTipText     =   "刺狾计秖"
            Top             =   840
            Width           =   1215
         End
         Begin VB.Label Label13 
            BackColor       =   &H00C0FFC0&
            Caption         =   "Other"
            Height          =   255
            Left            =   10080
            TabIndex        =   26
            Top             =   1320
            Width           =   495
         End
         Begin VB.Label Label12 
            BackColor       =   &H00C0FFC0&
            Caption         =   "工号下线"
            Height          =   255
            Left            =   6720
            TabIndex        =   25
            Top             =   1320
            Width           =   1455