frminput.frm

婚姻介绍所管理信息系统

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmInput 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "个人信息登记"
   ClientHeight    =   6960
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   10200
   Icon            =   "FrmInput.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6960
   ScaleWidth      =   10200
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog CmDlg 
      Left            =   2385
      Top             =   270
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame4 
      Height          =   1830
      Left            =   45
      TabIndex        =   65
      Top             =   4185
      Width           =   330
      Begin VB.Label Label17 
         Caption         =   "要  求  对  方"
         Height          =   1320
         Left            =   90
         TabIndex        =   66
         Top             =   315
         Width           =   180
      End
   End
   Begin VB.Frame Frame3 
      Height          =   1860
      Left            =   390
      TabIndex        =   46
      Top             =   4185
      Width           =   9765
      Begin VB.TextBox Text12 
         DataField       =   "要求年龄"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   1035
         TabIndex        =   55
         Top             =   270
         Width           =   1365
      End
      Begin VB.TextBox Text14 
         DataField       =   "要求身高"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   3600
         TabIndex        =   54
         Top             =   225
         Width           =   1230
      End
      Begin VB.TextBox Text15 
         DataField       =   "要求户口"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   1035
         TabIndex        =   53
         Top             =   810
         Width           =   1365
      End
      Begin VB.TextBox Text16 
         DataField       =   "要求学历"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   5895
         TabIndex        =   52
         Top             =   225
         Width           =   1230
      End
      Begin VB.TextBox Text17 
         DataField       =   "要求婚姻"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   8100
         TabIndex        =   51
         Top             =   225
         Width           =   1320
      End
      Begin VB.TextBox Text18 
         DataField       =   "要求住房"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   3600
         TabIndex        =   50
         Top             =   810
         Width           =   1230
      End
      Begin VB.TextBox Text19 
         DataField       =   "要求职业"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   5895
         TabIndex        =   49
         Top             =   765
         Width           =   1230
      End
      Begin VB.TextBox Text20 
         DataField       =   "要求孩子"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   8100
         TabIndex        =   48
         Top             =   720
         Width           =   1320
      End
      Begin VB.TextBox Text21 
         DataField       =   "其他要求"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   990
         TabIndex        =   47
         Top             =   1350
         Width           =   8475
      End
      Begin VB.Label Label7 
         Caption         =   "户口"
         Height          =   195
         Left            =   495
         TabIndex        =   64
         Top             =   855
         Width           =   375
      End
      Begin VB.Label Label21 
         Caption         =   "年龄"
         Height          =   195
         Left            =   495
         TabIndex        =   63
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label22 
         Caption         =   "身高"
         Height          =   195
         Left            =   3105
         TabIndex        =   62
         Top             =   315
         Width           =   420
      End
      Begin VB.Label Label23 
         Caption         =   "学历"
         Height          =   240
         Left            =   5400
         TabIndex        =   61
         Top             =   315
         Width           =   420
      End
      Begin VB.Label Label24 
         Caption         =   "婚姻"
         Height          =   195
         Left            =   7650
         TabIndex        =   60
         Top             =   315
         Width           =   375
      End
      Begin VB.Label Label25 
         Caption         =   "住房"
         Height          =   195
         Left            =   3105
         TabIndex        =   59
         Top             =   900
         Width           =   375
      End
      Begin VB.Label Label26 
         Caption         =   "职业"
         Height          =   195
         Left            =   5400
         TabIndex        =   58
         Top             =   855
         Width           =   375
      End
      Begin VB.Label Label27 
         Caption         =   "孩子"
         Height          =   195
         Left            =   7650
         TabIndex        =   57
         Top             =   810
         Width           =   375
      End
      Begin VB.Label Label28 
         Caption         =   "其他要求"
         Height          =   195
         Left            =   135
         TabIndex        =   56
         Top             =   1395
         Width           =   735
      End
   End
   Begin VB.Frame Frame2 
      Height          =   825
      Left            =   45
      TabIndex        =   28
      Top             =   6075
      Width           =   10095
      Begin VB.CommandButton Command8 
         Caption         =   "最后一页"
         Height          =   375
         Left            =   8280
         TabIndex        =   36
         Top             =   270
         Width           =   975
      End
      Begin VB.CommandButton Command7 
         Caption         =   "下一页"
         Height          =   375
         Left            =   7290
         TabIndex        =   35
         Top             =   270
         Width           =   975
      End
      Begin VB.CommandButton Command6 
         Caption         =   "上一页"
         Height          =   375
         Left            =   6300
         TabIndex        =   34
         Top             =   270
         Width           =   975
      End
      Begin VB.CommandButton Command5 
         Caption         =   "第一页"
         Height          =   375
         Left            =   5310
         TabIndex        =   33
         Top             =   270
         Width           =   975
      End
      Begin VB.CommandButton Command4 
         Caption         =   "删除"
         Height          =   330
         Left            =   3375
         TabIndex        =   32
         Top             =   315
         Width           =   870
      End
      Begin VB.CommandButton Command3 
         Caption         =   "保存"
         Height          =   330
         Left            =   2340
         TabIndex        =   31
         Top             =   315
         Width           =   870
      End
      Begin VB.CommandButton Command2 
         Caption         =   "修改"
         Height          =   330
         Left            =   1260
         TabIndex        =   30
         Top             =   315
         Width           =   870
      End
      Begin VB.CommandButton Command1 
         Caption         =   "添加"
         Height          =   330
         Left            =   225
         TabIndex        =   29
         Top             =   315
         Width           =   870
      End
   End
   Begin VB.Frame Frame1 
      Height          =   3255
      Left            =   45
      TabIndex        =   0
      Top             =   900
      Width           =   10095
      Begin VB.TextBox Text22 
         DataField       =   "姓名"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   4320
         TabIndex        =   68
         Top             =   1665
         Width           =   1320
      End
      Begin VB.TextBox Text4 
         DataField       =   "体重"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   2835
         TabIndex        =   42
         Top             =   675
         Width           =   690
      End
      Begin MSComCtl2.DTPicker DTPickerBirth 
         DataField       =   "出生日期"
         DataSource      =   "AdoInput"
         Height          =   375
         Left            =   7320
         TabIndex        =   41
         Top             =   165
         Width           =   1275
         _ExtentX        =   2249
         _ExtentY        =   661
         _Version        =   393216
         Format          =   58720257
         CurrentDate     =   38578
         MaxDate         =   55153
         MinDate         =   367
      End
      Begin VB.TextBox Text13 
         DataField       =   "本人其他情况"
         DataSource      =   "AdoInput"
         Height          =   870
         Left            =   720
         MultiLine       =   -1  'True
         TabIndex        =   39
         Top             =   2160