frmcust.frm

简单邮电信息管理

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form frmCust 
   BackColor       =   &H80000001&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "顾客管理"
   ClientHeight    =   6045
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8955
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6045
   ScaleWidth      =   8955
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame2 
      BackColor       =   &H80000001&
      Caption         =   "顾客信息查询"
      Height          =   1215
      Left            =   240
      TabIndex        =   29
      Top             =   4560
      Width           =   8415
      Begin VB.CommandButton Cmd_Search 
         Caption         =   "查询"
         Height          =   375
         Left            =   6360
         TabIndex        =   34
         Top             =   480
         Width           =   1095
      End
      Begin VB.TextBox Text14 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   4200
         TabIndex        =   33
         Top             =   480
         Width           =   1335
      End
      Begin VB.TextBox Text13 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   1320
         TabIndex        =   31
         Top             =   480
         Width           =   1335
      End
      Begin VB.Label Label15 
         BackStyle       =   0  'Transparent
         Caption         =   "顾客姓名"
         Height          =   255
         Left            =   3360
         TabIndex        =   32
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label14 
         BackStyle       =   0  'Transparent
         Caption         =   "顾客编号"
         Height          =   255
         Left            =   480
         TabIndex        =   30
         Top             =   480
         Width           =   1215
      End
   End
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "返回"
      Height          =   375
      Left            =   6000
      TabIndex        =   28
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton Cmd_Del 
      Caption         =   "删除"
      Height          =   375
      Left            =   4080
      TabIndex        =   27
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton Cmd_Save 
      Caption         =   "保存"
      Enabled         =   0   'False
      Height          =   375
      Left            =   5040
      TabIndex        =   26
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton Cmd_Update 
      Caption         =   "修改"
      Height          =   375
      Left            =   3120
      TabIndex        =   25
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton Cmd_Addnew 
      BackColor       =   &H00FFFFC0&
      Caption         =   "增加"
      Height          =   375
      Left            =   2160
      TabIndex        =   24
      Top             =   4080
      Width           =   975
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H80000001&
      Caption         =   "顾客信息维护"
      Enabled         =   0   'False
      Height          =   3255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   8415
      Begin VB.ComboBox Combo1 
         Appearance      =   0  'Flat
         DataField       =   "Xb"
         DataSource      =   "AdoCust"
         Height          =   300
         ItemData        =   "frmCust.frx":0000
         Left            =   3840
         List            =   "frmCust.frx":000A
         TabIndex        =   35
         Top             =   1320
         Width           =   1335
      End
      Begin VB.TextBox Text12 
         Appearance      =   0  'Flat
         DataField       =   "Address"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   1320
         TabIndex        =   23
         Top             =   2760
         Width           =   6375
      End
      Begin VB.TextBox Text11 
         Appearance      =   0  'Flat
         DataField       =   "Source"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   3840
         TabIndex        =   21
         Top             =   2280
         Width           =   1335
      End
      Begin VB.TextBox Text10 
         Appearance      =   0  'Flat
         DataField       =   "Tel"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   1320
         TabIndex        =   19
         Top             =   2280
         Width           =   1335
      End
      Begin VB.TextBox Text9 
         Appearance      =   0  'Flat
         DataField       =   "C_money"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   6360
         TabIndex        =   17
         Top             =   1800
         Width           =   1335
      End
      Begin VB.TextBox Text8 
         Appearance      =   0  'Flat
         DataField       =   "Zip"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   3840
         TabIndex        =   15
         Top             =   1800
         Width           =   1335
      End
      Begin VB.TextBox Text7 
         Appearance      =   0  'Flat
         DataField       =   "Birth_Date"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   1320
         TabIndex        =   13
         Top             =   1800
         Width           =   1335
      End
      Begin VB.TextBox Text6 
         Appearance      =   0  'Flat
         DataField       =   "PurNum"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   6360
         TabIndex        =   11
         Top             =   1320
         Width           =   1335
      End
      Begin VB.TextBox Text4 
         Appearance      =   0  'Flat
         DataField       =   "Id_code"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   1320
         TabIndex        =   8
         Top             =   1320
         Width           =   1335
      End
      Begin VB.TextBox Text3 
         Appearance      =   0  'Flat
         DataField       =   "C_Date"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   6360
         TabIndex        =   6
         Top             =   840
         Width           =   1335
      End
      Begin VB.TextBox Text2 
         Appearance      =   0  'Flat
         DataField       =   "Name"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   3840
         TabIndex        =   4
         Top             =   840
         Width           =   1335
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         DataField       =   "ID"
         DataSource      =   "AdoCust"
         Height          =   270
         Left            =   1320
         TabIndex        =   2
         Top             =   840
         Width           =   1335
      End
      Begin VB.Label Label12 
         BackStyle       =   0  'Transparent
         Caption         =   "收信地址"
         Height          =   255
         Left            =   480
         TabIndex        =   22
         Top             =   2760
         Width           =   975
      End
      Begin VB.Label Label11 
         BackStyle       =   0  'Transparent
         Caption         =   "消息来源"
         Height          =   255
         Left            =   3000
         TabIndex        =   20
         Top             =   2280