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

    VERSION 5.00
    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
    Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
    Begin VB.Form frm_gysgl 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "供应商管理"
       ClientHeight    =   5295
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   7815
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   5295
       ScaleWidth      =   7815
       ShowInTaskbar   =   0   'False
       StartUpPosition =   3  '窗口缺省
       Begin MSDataGridLib.DataGrid DataGrid1 
          Bindings        =   "frm_gysgl.frx":0000
          Height          =   3135
          Left            =   0
          TabIndex        =   25
          Top             =   2160
          Width           =   7815
          _ExtentX        =   13785
          _ExtentY        =   5530
          _Version        =   393216
          AllowUpdate     =   0   'False
          BackColor       =   12648447
          HeadLines       =   1
          RowHeight       =   15
          FormatLocked    =   -1  'True
          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ColumnCount     =   9
          BeginProperty Column00 
             DataField       =   "供应商编号"
             Caption         =   "供应商编号"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column01 
             DataField       =   "供应商名称"
             Caption         =   "供应商名称"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column02 
             DataField       =   "简称"
             Caption         =   "简称"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column03 
             DataField       =   "传真"
             Caption         =   "传真"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column04 
             DataField       =   "电话"
             Caption         =   "电话"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column05 
             DataField       =   "E-mail"
             Caption         =   "E-mail"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column06 
             DataField       =   "联系人"
             Caption         =   "联系人"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column07 
             DataField       =   "联系人电话"
             Caption         =   "联系人电话"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          BeginProperty Column08 
             DataField       =   "地址"
             Caption         =   "地址"
             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                Type            =   0
                Format          =   ""
                HaveTrueFalseNull=   0
                FirstDayOfWeek  =   0
                FirstWeekOfYear =   0
                LCID            =   2052
                SubFormatType   =   0
             EndProperty
          EndProperty
          SplitCount      =   1
          BeginProperty Split0 
             BeginProperty Column00 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column01 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column02 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column03 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column04 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column05 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column06 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column07 
                ColumnWidth     =   2085.166
             EndProperty
             BeginProperty Column08 
                ColumnWidth     =   2085.166
             EndProperty
          EndProperty
       End
       Begin VB.Frame Frame2 
          Caption         =   "供应商基本信息"
          ForeColor       =   &H00C000C0&
          Height          =   1335
          Left            =   0
          TabIndex        =   7
          Top             =   720
          Width           =   7815
          Begin VB.TextBox Text9 
             Height          =   300
             Left            =   5880
             TabIndex        =   28
             Top             =   600
             Width           =   1815
          End
          Begin VB.TextBox Text8 
             Height          =   300
             Left            =   588