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

📄 技术人才信息删除.frm

📁 本程序是用Visual Basic来建立数据库管理系统的经典例程。
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form 技术人才信息删除 
   BackColor       =   &H80000004&
   Caption         =   "技术人才信息删除"
   ClientHeight    =   8430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11850
   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
   PaletteMode     =   2  'Custom
   ScaleHeight     =   562
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   790
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   450
      Top             =   7470
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   1305
      Left            =   10560
      Picture         =   "技术人才信息删除.frx":0442
      ScaleHeight     =   1305
      ScaleWidth      =   1155
      TabIndex        =   39
      Top             =   810
      Width           =   1155
   End
   Begin VB.Frame Frame1 
      Caption         =   "主要科研成果"
      Height          =   2835
      Left            =   360
      TabIndex        =   37
      Top             =   4170
      Width           =   11145
      Begin VB.TextBox Text11 
         DataField       =   "科研成果"
         DataSource      =   "Data1"
         Height          =   2325
         Left            =   180
         Locked          =   -1  'True
         MaxLength       =   300
         MultiLine       =   -1  'True
         TabIndex        =   38
         Top             =   330
         Width           =   10755
      End
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   315
      Left            =   9450
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "技术人才"
      Top             =   60
      Visible         =   0   'False
      Width           =   1980
   End
   Begin VB.TextBox Text1 
      DataField       =   "姓名"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   1620
      Locked          =   -1  'True
      TabIndex        =   36
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "下一记录"
      Height          =   375
      Left            =   7200
      TabIndex        =   34
      Top             =   7410
      Width           =   1155
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查找记录"
      Height          =   375
      Left            =   6030
      TabIndex        =   33
      Top             =   7410
      Width           =   1155
   End
   Begin VB.CommandButton Command3 
      Caption         =   "删   除"
      Height          =   375
      Left            =   8355
      TabIndex        =   32
      Top             =   7410
      Width           =   1155
   End
   Begin VB.TextBox Text15 
      DataField       =   "技术职称"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   8610
      Locked          =   -1  'True
      TabIndex        =   31
      Top             =   1410
      Width           =   1695
   End
   Begin VB.TextBox Text14 
      DataField       =   "政治面貌"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   5070
      Locked          =   -1  'True
      TabIndex        =   30
      Top             =   1410
      Width           =   1935
   End
   Begin VB.TextBox Text13 
      DataField       =   "文化程度"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   1470
      Locked          =   -1  'True
      TabIndex        =   29
      Top             =   1410
      Width           =   1635
   End
   Begin VB.TextBox Text12 
      DataField       =   "性别"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   3630
      Locked          =   -1  'True
      TabIndex        =   28
      Top             =   720
      Width           =   555
   End
   Begin VB.TextBox Text10 
      DataField       =   "何种奖励"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   1800
      Locked          =   -1  'True
      TabIndex        =   27
      Top             =   3480
      Width           =   9495
   End
   Begin VB.TextBox Text3 
      DataField       =   "月"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   7680
      Locked          =   -1  'True
      TabIndex        =   26
      Top             =   720
      Width           =   675
   End
   Begin VB.TextBox Text2 
      DataField       =   "年"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   5940
      Locked          =   -1  'True
      TabIndex        =   24
      Top             =   720
      Width           =   975
   End
   Begin VB.TextBox Text8 
      DataField       =   "号"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   7560
      Locked          =   -1  'True
      TabIndex        =   19
      Top             =   2100
      Width           =   915
   End
   Begin VB.TextBox Text6 
      DataField       =   "区"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   3570
      Locked          =   -1  'True
      TabIndex        =   17
      Top             =   2100
      Width           =   915
   End
   Begin VB.TextBox Text7 
      DataField       =   "街"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   5610
      Locked          =   -1  'True
      TabIndex        =   15
      Top             =   2100
      Width           =   915
   End
   Begin VB.TextBox Text9 
      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            =   1800
      Locked          =   -1  'True
      TabIndex        =   9
      Top             =   2790
      Width           =   9495
   End
   Begin VB.TextBox Text4 
      DataField       =   "日"
      DataSource      =   "Data1"
      Height          =   315
      Left            =   8820
      Locked          =   -1  'True
      TabIndex        =   8
      Top             =   720
      Width           =   495
   End
   Begin VB.CommandButton Command4 
      Caption         =   "返  回"
      DisabledPicture =   "技术人才信息删除.frx":13AC
      DownPicture     =   "技术人才信息删除.frx":17EE
      Height          =   375
      Left            =   9510
      Picture         =   "技术人才信息删除.frx":1C30
      TabIndex        =   7
      Top             =   7410
      Width           =   1155
   End
   Begin VB.TextBox Text5 
      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            =   1440
      Locked          =   -1  'True
      TabIndex        =   6
      Top             =   2100
      Width           =   1035
   End
   Begin VB.TextBox Text17 
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   3090
      TabIndex        =   5
      Top             =   7230
      Width           =   1035
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   40
      Top             =   8085
      Width           =   11850
      _ExtentX        =   20902
      _ExtentY        =   609
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   4763
            Picture         =   "技术人才信息删除.frx":2072
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   4763
            Picture         =   "技术人才信息删除.frx":24C4
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   2
            AutoSize        =   2
            Object.Width           =   5980
            MinWidth        =   5980
            Picture         =   "技术人才信息删除.frx":2916
         EndProperty

⌨️ 快捷键说明

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