form1.frm

一个利用VB + ACCESS数据库实现的人事管理系统 具有简单的添加

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00CFCFCF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3585
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   3585
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   300
      Left            =   2520
      TabIndex        =   13
      Top             =   2520
      Width           =   855
   End
   Begin VB.PictureBox Picture1 
      Height          =   255
      Left            =   120
      ScaleHeight     =   195
      ScaleWidth      =   75
      TabIndex        =   12
      Top             =   31200
      Width           =   135
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "D:\vb编程\人事管理系统\mdb\jingtai.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   1320
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "静态因数"
      Top             =   2040
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确定"
      Enabled         =   0   'False
      Height          =   300
      Left            =   1440
      TabIndex        =   11
      Top             =   2520
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "修改"
      Height          =   300
      Left            =   260
      TabIndex        =   10
      Top             =   2520
      Width           =   960
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00CFCFCF&
      Caption         =   "管理员设置区"
      Height          =   2295
      Left            =   100
      TabIndex        =   0
      Top             =   50
      Width           =   3375
      Begin VB.TextBox Text11 
         DataField       =   "mima"
         DataSource      =   "Data1"
         Height          =   270
         Left            =   1680
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   9
         Text            =   "Text11"
         Top             =   1800
         Width           =   1575
      End
      Begin VB.Frame Frame2 
         BackColor       =   &H00CFCFCF&
         Caption         =   "静态因数设定"
         Height          =   1455
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   3135
         Begin VB.TextBox Text3 
            DataField       =   "ming3"
            DataSource      =   "Data1"
            Height          =   270
            Left            =   1080
            Locked          =   -1  'True
            MaxLength       =   6
            TabIndex        =   7
            Text            =   "Text3"
            Top             =   960
            Width           =   1335
         End
         Begin VB.TextBox Text2 
            DataField       =   "ming2"
            DataSource      =   "Data1"
            Height          =   270
            Left            =   1080
            Locked          =   -1  'True
            MaxLength       =   6
            TabIndex        =   6
            Text            =   "Text2"
            Top             =   600
            Width           =   1335
         End
         Begin VB.TextBox Text1 
            DataField       =   "ming1"
            DataSource      =   "Data1"
            Height          =   270
            Left            =   1080
            Locked          =   -1  'True
            MaxLength       =   6
            TabIndex        =   5
            Text            =   "Text1"
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label3 
            BackStyle       =   0  'Transparent
            Caption         =   "因数名称："
            Height          =   255
            Left            =   120
            TabIndex        =   4
            Top             =   1000
            Width           =   975
         End
         Begin VB.Label Label2 
            BackStyle       =   0  'Transparent
            Caption         =   "因数名称："
            Height          =   255
            Left            =   120
            TabIndex        =   3
            Top             =   640
            Width           =   975
         End
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "因数名称："
            Height          =   255
            Left            =   120
            TabIndex        =   2
            Top             =   280
            Width           =   975
         End
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "修改管理员密码："
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   1845
         Width           =   1455
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Picture1.SetFocus
    Data1.UpdateRecord
    Text1.Locked = False
    Text2.Locked = False
    Text3.Locked = False
    Text11.Locked = False
    Command1.Enabled = False
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
    Picture1.SetFocus
    Data1.UpdateRecord
    Text1.Locked = True
    Text2.Locked = True
    Text3.Locked = True
    Text11.Locked = True
    Command2.Enabled = False
    Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Form1.Hide
frmmain.Show
End Sub

Private Sub Form_Load()
AlwaysOnTop Me, True
 Data1.DatabaseName = App.Path + "\mdb\jingtai.mdb"
End Sub