【VB开源代码栏目提醒】：网学会员VB开源代码为您提供FrmCOQury.frm参考，解决您在FrmCOQury.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Begin VB.Form FrmCOQury 
       Caption         =   "CO查询"
       ClientHeight    =   2295
       ClientLeft      =   60
       ClientTop       =   510
       ClientWidth     =   5415
       Icon            =   "FrmCOQury.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   2295
       ScaleWidth      =   5415
       StartUpPosition =   2  '屏幕中心
       Begin VB.TextBox TxtCOID 
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   480
          TabIndex        =   0
          Top             =   840
          Width           =   3735
       End
       Begin VB.Image ImgCOID 
          Height          =   300
          Left            =   4440
          MouseIcon       =   "FrmCOQury.frx":0CCA
          MousePointer    =   99  'Custom
          Picture         =   "FrmCOQury.frx":0FD4
          ToolTipText     =   "查询CO单号"
          Top             =   840
          Width           =   300
       End
       Begin VB.Label Label1 
          Caption         =   "请输入要查询CO单号："
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   15
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   720
          TabIndex        =   3
          Top             =   240
          Width           =   3375
       End
       Begin VB.Label LblOK 
          BackStyle       =   0  'Transparent
          Caption         =   "确 定"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   1560
          MouseIcon       =   "FrmCOQury.frx":14C6
          MousePointer    =   99  'Custom
          TabIndex        =   2
          Top             =   1560
          Width           =   735
       End
       Begin VB.Image Image3 
          Height          =   300
          Left            =   960
          Picture         =   "FrmCOQury.frx":17D0
          Top             =   1560
          Width           =   300
       End
       Begin VB.Label LblCancel 
          BackStyle       =   0  'Transparent
          Caption         =   "取 消"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   3960
          MouseIcon       =   "FrmCOQury.frx":1BEC
          MousePointer    =   99  'Custom
          TabIndex        =   1
          Top             =   1560
          Width           =   855
       End
       Begin VB.Image Image4 
          Height          =   300
          Left            =   3360
          Picture         =   "FrmCOQury.frx":1EF6
          Top             =   1560
          Width           =   300
       End
    End
    Attribute VB_Name = "FrmCOQury"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Load()
    
    End Sub
    
    Private Sub ImgCOID_Click()
    FrmCOIDQury.OK = 2
    FrmCOIDQury.Show 1
    End Sub
    
    Private Sub LblCancel_Click()
    Unload Me
    End Sub
    
    Private Sub lblOk_Click()
    DataEnvironmentSales.CmmdCO (TxtCOID.Text)
    DataReportCO.Show 1
    DataEnvironmentSales.rsCmmdCO.Close
    Unload Me
    End Sub