⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 管理人才信息录入.frm

📁 本程序是用Visual Basic来建立数据库管理系统的经典例程。
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form 管理人才信息录入 
   BackColor       =   &H80000004&
   Caption         =   "管理人才信息录入"
   ClientHeight    =   8445
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11985
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "管理人才信息录入.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   562
   ScaleMode       =   0  'User
   ScaleWidth      =   799
   Begin VB.CommandButton Command4 
      Caption         =   "返  回"
      Height          =   375
      Left            =   10650
      TabIndex        =   35
      Top             =   7410
      Width           =   975
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   1395
      Left            =   10500
      Picture         =   "管理人才信息录入.frx":0442
      ScaleHeight     =   1395
      ScaleWidth      =   1335
      TabIndex        =   34
      Top             =   720
      Width           =   1335
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      EOFAction       =   2  'Add New
      Exclusive       =   0   'False
      Height          =   345
      Left            =   3090
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "管理人才"
      Top             =   3420
      Visible         =   0   'False
      Width           =   2595
   End
   Begin VB.Frame Frame1 
      Caption         =   "简要经历"
      Height          =   3135
      Left            =   270
      TabIndex        =   32
      Top             =   3840
      Width           =   11355
      Begin VB.TextBox Text11 
         Appearance      =   0  'Flat
         BackColor       =   &H80000001&
         BorderStyle     =   0  'None
         DataField       =   "简要经历"
         DataSource      =   "Data1"
         Height          =   2775
         Left            =   120
         MaxLength       =   300
         MultiLine       =   -1  'True
         TabIndex        =   33
         Top             =   240
         Width           =   11025
      End
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H80000001&
      DataField       =   "月"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   7770
      TabIndex        =   31
      Top             =   660
      Width           =   675
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H80000001&
      DataField       =   "年"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   6030
      TabIndex        =   30
      Top             =   660
      Width           =   975
   End
   Begin VB.TextBox Text8 
      BackColor       =   &H80000001&
      DataField       =   "号"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   7200
      TabIndex        =   25
      Top             =   2220
      Width           =   915
   End
   Begin VB.TextBox Text6 
      BackColor       =   &H80000001&
      DataField       =   "区"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   3180
      TabIndex        =   23
      Top             =   2220
      Width           =   915
   End
   Begin VB.TextBox Text7 
      BackColor       =   &H80000001&
      DataField       =   "街"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   5100
      TabIndex        =   21
      Top             =   2190
      Width           =   915
   End
   Begin VB.TextBox Text9 
      BackColor       =   &H80000001&
      DataField       =   "类别"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1740
      TabIndex        =   15
      Top             =   2880
      Width           =   9555
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H80000001&
      DataField       =   "日"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   8910
      TabIndex        =   14
      Top             =   660
      Width           =   495
   End
   Begin VB.ComboBox Combo4 
      BackColor       =   &H80000001&
      DataField       =   "技术职称"
      DataSource      =   "Data1"
      Height          =   330
      ItemData        =   "管理人才信息录入.frx":0DA6
      Left            =   8760
      List            =   "管理人才信息录入.frx":0DBC
      TabIndex        =   13
      Top             =   1440
      Width           =   1575
   End
   Begin VB.ComboBox Combo3 
      BackColor       =   &H80000001&
      DataField       =   "政治面貌"
      DataSource      =   "Data1"
      Height          =   330
      ItemData        =   "管理人才信息录入.frx":0DFC
      Left            =   4980
      List            =   "管理人才信息录入.frx":0E09
      TabIndex        =   12
      Top             =   1470
      Width           =   1395
   End
   Begin VB.ComboBox Combo2 
      BackColor       =   &H80000001&
      DataField       =   "文化程度"
      DataSource      =   "Data1"
      Height          =   330
      ItemData        =   "管理人才信息录入.frx":0E1F
      Left            =   1200
      List            =   "管理人才信息录入.frx":0E38
      TabIndex        =   11
      Top             =   1440
      Width           =   1905
   End
   Begin VB.CommandButton Command3 
      Caption         =   "保存数据,返回主菜单"
      Height          =   375
      Left            =   7790
      TabIndex        =   10
      Top             =   7410
      Width           =   2655
   End
   Begin VB.CommandButton Command2 
      Caption         =   "重新录入"
      Height          =   375
      Left            =   6130
      TabIndex        =   9
      Top             =   7410
      Width           =   1455
   End
   Begin VB.ComboBox Combo1 
      BackColor       =   &H80000001&
      DataField       =   "性别"
      DataSource      =   "Data1"
      Height          =   330
      ItemData        =   "管理人才信息录入.frx":0E7A
      Left            =   3060
      List            =   "管理人才信息录入.frx":0E84
      TabIndex        =   8
      Top             =   660
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认,转下一记录"
      Height          =   375
      Left            =   3750
      TabIndex        =   7
      Top             =   7410
      Width           =   2175
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H80000001&
      DataField       =   "县(市)"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   1140
      TabIndex        =   6
      Top             =   2220
      Width           =   915
   End
   Begin VB.TextBox Text1 
      DataField       =   "姓名"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   1260
      TabIndex        =   5
      Top             =   675
      Width           =   735
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "类        别:"
      Height          =   375
      Left            =   120
      TabIndex        =   29
      Top             =   2880
      Width           =   1815
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "姓    名:"
      Height          =   210
      Left            =   120
      TabIndex        =   28
      Top             =   720
      Width           =   1050
   End
   Begin VB.Label Label23 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "管理人才信息录入"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   480
      Left            =   3840
      TabIndex        =   27
      Top             =   -60
      Width           =   3840
   End
   Begin VB.Label Label33 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "号"
      Height          =   210
      Left            =   8460
      TabIndex        =   26
      Top             =   2220
      Width           =   210
   End
   Begin VB.Label Label32 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "街(路)"
      Height          =   210
      Left            =   6210
      TabIndex        =   24
      Top             =   2220
      Width           =   840
   End
   Begin VB.Label Label31 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "区(镇)"
      Height          =   210
      Left            =   4260
      TabIndex        =   22
      Top             =   2220
      Width           =   840
   End
   Begin VB.Label Label30 
      BackStyle       =   0  'Transparent
      Caption         =   "市(县)"
      Height          =   375
      Left            =   2310
      TabIndex        =   20
      Top             =   2220
      Width           =   855
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "出生年月:"
      Height          =   210
      Left            =   4890
      TabIndex        =   19
      Top             =   720
      Width           =   1050
   End
   Begin VB.Label lable25 
      BackStyle       =   0  'Transparent
      Caption         =   "年"
      Height          =   375

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -