form1.frm

用MODEM拔号,不用第三控件,直接调用API编写.

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000000&
   Caption         =   "电话号码簿"
   ClientHeight    =   5115
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   7725
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   5115
   ScaleWidth      =   7725
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text2 
      DataField       =   "姓名简码"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   4560
      TabIndex        =   29
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      DataField       =   "姓名"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   28
      Top             =   120
      Width           =   1335
   End
   Begin VB.TextBox Text10 
      DataField       =   "备注"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   26
      Top             =   3960
      Width           =   3975
   End
   Begin VB.CommandButton Command6 
      Caption         =   "回到记录首"
      Height          =   255
      Left            =   120
      TabIndex        =   23
      Top             =   4560
      Width           =   1095
   End
   Begin VB.CommandButton Command7 
      Caption         =   "上一条"
      Height          =   255
      Left            =   1680
      TabIndex        =   22
      Top             =   4560
      Width           =   1095
   End
   Begin VB.CommandButton Command8 
      Caption         =   "下一条"
      Height          =   255
      Left            =   3240
      TabIndex        =   21
      Top             =   4560
      Width           =   1095
   End
   Begin VB.CommandButton Command9 
      Caption         =   "回到记录尾"
      Height          =   255
      Left            =   4800
      TabIndex        =   20
      Top             =   4560
      Width           =   1095
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   960
      Top             =   120
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   6120
      TabIndex        =   19
      Text            =   "姓名"
      Top             =   3720
      Width           =   1455
   End
   Begin VB.Data Data1 
      BOFAction       =   1  'BOF
      Connect         =   "Access"
      DatabaseName    =   "Telbook.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      EOFAction       =   1  'EOF
      Exclusive       =   0   'False
      Height          =   345
      Left            =   6240
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "TelBook"
      Top             =   720
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton Command5 
      Caption         =   "退出"
      Height          =   495
      Left            =   6240
      TabIndex        =   18
      Top             =   4440
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "按查找"
      Height          =   495
      Left            =   6240
      TabIndex        =   17
      Top             =   3120
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "删除记录"
      Height          =   495
      Left            =   6240
      TabIndex        =   16
      Top             =   2160
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "修改记录"
      Height          =   495
      Left            =   6240
      TabIndex        =   15
      Top             =   1200
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "添加记录"
      Height          =   495
      Left            =   6240
      TabIndex        =   14
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox Text9 
      DataField       =   "QQ号码"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   13
      Top             =   3480
      Width           =   3975
   End
   Begin VB.TextBox Text8 
      DataField       =   "E-mail地址"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   12
      Top             =   3000
      Width           =   3975
   End
   Begin VB.TextBox Text7 
      DataField       =   "邮政编码"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   11
      Top             =   2520
      Width           =   3975
   End
   Begin VB.TextBox Text6 
      DataField       =   "联系地址"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   10
      Top             =   2040
      Width           =   3975
   End
   Begin VB.TextBox Text5 
      DataField       =   "手机号码"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   9
      Top             =   1560
      Width           =   3975
   End
   Begin VB.TextBox Text4 
      DataField       =   "住宅号码"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   8
      Top             =   1080
      Width           =   3975
   End
   Begin VB.TextBox Text3 
      DataField       =   "办公室号码"
      DataSource      =   "Data1"
      Enabled         =   0   'False
      Height          =   270
      Left            =   1800
      TabIndex        =   7
      Top             =   600
      Width           =   3975
   End
   Begin VB.Label Label3 
      Caption         =   "住宅号码："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   27
      Top             =   1080
      Width           =   1515
   End
   Begin VB.Label Label10 
      Caption         =   "备注："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   25
      Top             =   3960
      Width           =   975
   End
   Begin VB.Label Label9 
      Caption         =   "姓名简码："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3240
      TabIndex        =   24
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label8 
      Caption         =   "QQ号码："