frm_通讯录.frm

一个用VB开发的非常不错的企业ERP管理源码,值得一看.

VERSION 5.00
Begin VB.Form Frm_通讯录 
   BackColor       =   &H00FF8080&
   Caption         =   "通讯录"
   ClientHeight    =   6240
   ClientLeft      =   1110
   ClientTop       =   345
   ClientWidth     =   8925
   Icon            =   "Frm_通讯录.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6240
   ScaleWidth      =   8925
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF8080&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Enabled         =   0   'False
      ForeColor       =   &H000000C0&
      Height          =   5655
      Left            =   240
      TabIndex        =   25
      Top             =   120
      Width           =   7095
      Begin VB.TextBox txtFields 
         BackColor       =   &H80000000&
         DataField       =   "备注"
         DataSource      =   "Data1"
         Height          =   1065
         Index           =   9
         Left            =   1020
         MaxLength       =   200
         TabIndex        =   14
         Top             =   4740
         Width           =   5595
      End
      Begin VB.TextBox txtFields 
         DataField       =   "公司网址"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   14
         Left            =   1020
         MaxLength       =   50
         TabIndex        =   10
         Top             =   2160
         Width           =   5595
      End
      Begin VB.ComboBox Combo1 
         DataField       =   "性别"
         DataSource      =   "Data1"
         Height          =   300
         Left            =   4620
         TabIndex        =   1
         Text            =   "Combo1"
         Top             =   360
         Width           =   1635
      End
      Begin VB.TextBox txtFields 
         BackColor       =   &H80000000&
         DataField       =   "家庭地址"
         DataSource      =   "Data1"
         Height          =   645
         Index           =   13
         Left            =   1020
         MaxLength       =   200
         TabIndex        =   13
         Top             =   4020
         Width           =   5595
      End
      Begin VB.TextBox txtFields 
         BackColor       =   &H80000000&
         DataField       =   "公司地址"
         DataSource      =   "Data1"
         Height          =   645
         Index           =   12
         Left            =   1020
         MaxLength       =   200
         TabIndex        =   12
         Top             =   3300
         Width           =   5595
      End
      Begin VB.TextBox txtFields 
         BackColor       =   &H80000000&
         DataField       =   "公司名称"
         DataSource      =   "Data1"
         Height          =   645
         Index           =   11
         Left            =   1020
         MaxLength       =   200
         TabIndex        =   11
         Top             =   2580
         Width           =   5595
      End
      Begin VB.TextBox txtFields 
         DataField       =   "邮编"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   10
         Left            =   4620
         MaxLength       =   50
         TabIndex        =   9
         Top             =   1800
         Width           =   1995
      End
      Begin VB.TextBox txtFields 
         DataField       =   "E-Meil"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   8
         Left            =   1020
         MaxLength       =   50
         TabIndex        =   8
         Top             =   1800
         Width           =   1995
      End
      Begin VB.TextBox txtFields 
         DataField       =   "传真"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   5
         Left            =   4620
         MaxLength       =   50
         TabIndex        =   7
         Top             =   1440
         Width           =   1995
      End
      Begin VB.TextBox txtFields 
         DataField       =   "住宅电话"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   3
         Left            =   4620
         MaxLength       =   50
         TabIndex        =   5
         Top             =   1080
         Width           =   1995
      End
      Begin VB.TextBox txtFields 
         DataField       =   "部门"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   2
         Left            =   1020
         MaxLength       =   50
         TabIndex        =   2
         Top             =   720
         Width           =   1995
      End
      Begin VB.TextBox txtFields 
         Alignment       =   2  'Center
         DataField       =   "ID"
         DataSource      =   "Data1"
         ForeColor       =   &H00000080&
         Height          =   285
         Index           =   0
         Left            =   1020
         Locked          =   -1  'True
         MaxLength       =   50
         TabIndex        =   15
         Top             =   0
         Width           =   1335
      End
      Begin VB.TextBox txtFields 
         DataField       =   "姓名"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   1
         Left            =   1020
         MaxLength       =   50
         TabIndex        =   0
         Top             =   360
         Width           =   1335
      End
      Begin VB.TextBox txtFields 
         DataField       =   "职务"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   4
         Left            =   4620
         MaxLength       =   50
         TabIndex        =   3
         Top             =   720
         Width           =   1935
      End
      Begin VB.TextBox txtFields 
         DataField       =   "公司电话"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   6
         Left            =   1020
         MaxLength       =   50
         TabIndex        =   4
         Top             =   1080
         Width           =   1995
      End
      Begin VB.TextBox txtFields 
         DataField       =   "手机"
         DataSource      =   "Data1"
         Height          =   285
         Index           =   7
         Left            =   1020
         MaxLength       =   50
         TabIndex        =   6
         Top             =   1440
         Width           =   2115
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "公司网址:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   15
         Left            =   0
         TabIndex        =   41
         Top             =   2220
         Width           =   1815
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "邮编:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   14
         Left            =   3540
         TabIndex        =   40
         Top             =   1860
         Width           =   1815
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "公司地址:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   13
         Left            =   0
         TabIndex        =   39
         Top             =   3300
         Width           =   1815
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "E-Meil:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   12
         Left            =   0
         TabIndex        =   38
         Top             =   1800
         Width           =   1815
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "传真:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   11
         Left            =   3540
         TabIndex        =   37
         Top             =   1500
         Width           =   855
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "住宅电话:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   10
         Left            =   3540
         TabIndex        =   36
         Top             =   1140
         Width           =   1155
      End
      Begin VB.Label lblLabels 
         BackColor       =   &H00FF8080&
         Caption         =   "编号:"
         ForeColor       =   &H8000000E&
         Height          =   255
         Index           =   0
         Left            =   0
         TabIndex        =   35
         Top             =   60
         Width           =   1035
      End