【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了frmGoods.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Begin VB.Form frmGoods 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "查询现存货物"
       ClientHeight    =   3960
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   6735
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MDIChild        =   -1  'True
       MinButton       =   0   'False
       ScaleHeight     =   3960
       ScaleWidth      =   6735
       Begin VB.Frame fraquery 
          Caption         =   "按条件查询现存商品"
          Height          =   2175
          Left            =   240
          TabIndex        =   1
          Top             =   1200
          Width           =   6255
          Begin VB.CommandButton cmdCancel 
             Caption         =   "取    消"
             Height          =   495
             Left            =   3600
             TabIndex        =   7
             Top             =   1320
             Width           =   1575
          End
          Begin VB.CommandButton cmdquery 
             Caption         =   "查    询"
             Height          =   495
             Left            =   1320
             TabIndex        =   6
             Top             =   1320
             Width           =   1575
          End
          Begin VB.TextBox txtType 
             Height          =   375
             Left            =   4200
             TabIndex        =   5
             Top             =   600
             Width           =   1935
          End
          Begin VB.TextBox txtName 
             Height          =   375
             Left            =   1320
             TabIndex        =   4
             Top             =   600
             Width           =   1695
          End
          Begin VB.Label lblType 
             Caption         =   "型号："
             Height          =   375
             Left            =   3480
             TabIndex        =   3
             Top             =   600
             Width           =   615
          End
          Begin VB.Label lblName 
             Caption         =   "商品名："
             Height          =   375
             Left            =   240
             TabIndex        =   2
             Top             =   600
             Width           =   855
          End
       End
       Begin VB.CommandButton cmdallgoods 
          Caption         =   "显示全部现存商品"
          Height          =   495
          Left            =   240
          TabIndex        =   0
          Top             =   240
          Width           =   1695
       End
    End
    Attribute VB_Name = "frmGoods"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub cmdallgoods_Click()
        all = True
        frmGoodsTable.Show
    End Sub
    
    Private Sub cmdCancel_Click()
       Unload Me
    End Sub
    
    Private Sub cmdquery_Click()
       all = False
       strgname = txtName.Text
       strtype = txtType.Text
       frmGoodsTable.Show
    End Sub
    
    Private Sub Form_Load()
       Dim X0 As Long
       Dim Y0 As Long
      
       '让窗体居中
       X0 = Screen.Width
       Y0 = Screen.Height
       X0 = (X0 - Me.Width) / 2
       Y0 = (Y0 - Me.Height) / 2
       Me.Move X0, Y0
    End Sub