form_supplier1.frm

仓库扫描管理系统

VERSION 5.00
Begin VB.Form form_supplier 
   BackColor       =   &H00C0FFFF&
   Caption         =   "供应商登记"
   ClientHeight    =   5910
   ClientLeft      =   1110
   ClientTop       =   345
   ClientWidth     =   5535
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   5910
   ScaleWidth      =   5535
   Begin VB.CommandButton cmdClose 
      Caption         =   "&C关闭"
      Height          =   300
      Left            =   4440
      TabIndex        =   42
      Top             =   5055
      Width           =   975
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "&S保存"
      Height          =   300
      Left            =   3360
      TabIndex        =   41
      Top             =   5055
      Width           =   975
   End
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "&R刷新"
      Height          =   300
      Left            =   2280
      TabIndex        =   40
      Top             =   5055
      Width           =   975
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "&删除"
      Height          =   300
      Left            =   1200
      TabIndex        =   39
      Top             =   5055
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "&A新增"
      Height          =   300
      Left            =   120
      TabIndex        =   38
      Top             =   5055
      Width           =   975
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Connect         =   "Access"
      DatabaseName    =   "E:\datum\应用软件\物流管理\warehouse\DB-Access\hunterPOS.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "select * from hpos_organization where orgType=0"
      Top             =   5565
      Width           =   5535
   End
   Begin VB.TextBox txtFields 
      DataField       =   "orgType"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   18
      Left            =   2040
      TabIndex        =   37
      Text            =   "0"
      Top             =   5800
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.TextBox txtFields 
      DataField       =   "e-mail"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   17
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   35
      Top             =   4515
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "amount3"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   16
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   33
      Top             =   5160
      Visible         =   0   'False
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "amount2"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   15
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   31
      Top             =   4840
      Visible         =   0   'False
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "amount1"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   14
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   29
      Top             =   4520
      Visible         =   0   'False
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "taxno"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   13
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   27
      Top             =   4200
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "bankAccunt"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   12
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   25
      Top             =   3880
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "bank"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   11
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   23
      Top             =   3560
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "linkmanTel"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   10
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   21
      Top             =   3240
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "linkman"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   9
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   19
      Top             =   2920
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "fax"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   8
      Left            =   2040
      MaxLength       =   30
      TabIndex        =   17
      Top             =   2600
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "phone"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   7
      Left            =   2040
      MaxLength       =   30
      TabIndex        =   15
      Top             =   2280
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "postcode"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   6
      Left            =   2040
      MaxLength       =   20
      TabIndex        =   13
      Top             =   1960
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "area"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   5
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   11
      Top             =   1640
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "address"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   4
      Left            =   2040
      MaxLength       =   100
      TabIndex        =   9
      Top             =   1320
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "shortenedform"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   3
      Left            =   2040
      MaxLength       =   20
      TabIndex        =   7
      Top             =   1000
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "fullName"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   2
      Left            =   2040
      MaxLength       =   100
      TabIndex        =   5
      Top             =   680
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "orgCode"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   2040
      MaxLength       =   10
      TabIndex        =   3
      Top             =   360
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "orgId"
      DataSource      =   "Data1"