a部门设置.frm

用VB作的人事管理系统数据库为SQL Server利用了第三方控件技术还有AxtiveX技术等很好

VERSION 5.00
Begin VB.Form A部门设置 
   Caption         =   "部门设置"
   ClientHeight    =   4710
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7035
   LinkTopic       =   "Form1"
   ScaleHeight     =   4710
   ScaleWidth      =   7035
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "部门信息"
      Height          =   4695
      Index           =   0
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6975
      Begin VB.Frame Frame1 
         Caption         =   "编辑部门信息"
         Height          =   3975
         Index           =   1
         Left            =   120
         TabIndex        =   3
         Top             =   600
         Width           =   6735
         Begin VB.TextBox txtAddress 
            Height          =   375
            Left            =   1320
            TabIndex        =   16
            Top             =   1440
            Width           =   5295
         End
         Begin VB.TextBox txtDeNo 
            Height          =   375
            Left            =   1320
            MaxLength       =   4
            TabIndex        =   15
            Top             =   240
            Width           =   1815
         End
         Begin VB.TextBox txtDeName 
            Height          =   375
            Left            =   4800
            MaxLength       =   10
            TabIndex        =   14
            Top             =   240
            Width           =   1815
         End
         Begin VB.TextBox txtPhone 
            Height          =   375
            Left            =   1320
            TabIndex        =   13
            Top             =   1920
            Width           =   5295
         End
         Begin VB.TextBox txtJian 
            Height          =   735
            Left            =   1320
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   12
            Top             =   2400
            Width           =   5295
         End
         Begin VB.TextBox txtLeName 
            Height          =   375
            Left            =   1320
            MaxLength       =   18
            TabIndex        =   11
            Top             =   840
            Width           =   1815
         End
         Begin VB.Frame Frame2 
            Caption         =   "操作"
            Height          =   645
            Left            =   840
            TabIndex        =   4
            Top             =   3240
            Width           =   5625
            Begin VB.CommandButton CmdSave 
               BackColor       =   &H00C0C0C0&
               Caption         =   "保存"
               Enabled         =   0   'False
               Height          =   360
               Left            =   2775
               Style           =   1  'Graphical
               TabIndex        =   10
               Top             =   195
               Width           =   800
            End
            Begin VB.CommandButton CmdAdd 
               BackColor       =   &H00C0C0C0&
               Caption         =   "添加"
               Height          =   360
               Left            =   375
               Style           =   1  'Graphical
               TabIndex        =   9
               Top             =   195
               Width           =   800
            End
            Begin VB.CommandButton CmdDelete 
               BackColor       =   &H00C0C0C0&
               Caption         =   "删除"
               Height          =   360
               Left            =   1980
               Style           =   1  'Graphical
               TabIndex        =   8
               Top             =   195
               Width           =   800
            End
            Begin VB.CommandButton CmdCancel 
               BackColor       =   &H00C0C0C0&
               Caption         =   "取消"
               Height          =   360
               Left            =   3570
               Style           =   1  'Graphical
               TabIndex        =   7
               Top             =   195
               Width           =   800
            End
            Begin VB.CommandButton CmdExit 
               BackColor       =   &H00C0C0C0&
               Caption         =   "退出"
               Height          =   360
               Left            =   4365
               Style           =   1  'Graphical
               TabIndex        =   6
               Top             =   195
               Width           =   800
            End
            Begin VB.CommandButton CmdModify 
               BackColor       =   &H00C0C0C0&
               Caption         =   "修改"
               Height          =   360
               Left            =   1185
               Style           =   1  'Graphical
               TabIndex        =   5
               Top             =   195
               Width           =   800
            End
         End
         Begin VB.Label Label5 
            Caption         =   "联系地址："
            Height          =   255
            Index           =   1
            Left            =   360
            TabIndex        =   23
            Top             =   1560
            Width           =   1095
         End
         Begin VB.Label Label5 
            Caption         =   "联系电话："
            Height          =   255
            Index           =   0
            Left            =   360
            TabIndex        =   22
            Top             =   2040
            Width           =   975
         End
         Begin VB.Label Label2 
            Caption         =   "部门代码："
            Height          =   255
            Left            =   360
            TabIndex        =   21
            Top             =   360
            Width           =   975
         End
         Begin VB.Label Label8 
            Caption         =   "(4位)"
            ForeColor       =   &H000000FF&
            Height          =   255
            Index           =   1
            Left            =   3360
            TabIndex        =   20
            Top             =   360
            Width           =   615
         End
         Begin VB.Label Label7 
            Caption         =   "部门名称："
            Height          =   375
            Left            =   3960
            TabIndex        =   19
            Top             =   360
            Width           =   975
         End
         Begin VB.Label Label6 
            Caption         =   "简     介："
            Height          =   375
            Index           =   1
            Left            =   360
            TabIndex        =   18
            Top             =   2640
            Width           =   1095
         End
         Begin VB.Label Label1 
            Caption         =   "领导姓名："
            Height          =   375
            Left            =   360
            TabIndex        =   17
            Top             =   960
            Width           =   975
         End
      End
      Begin VB.ComboBox CboQuery 
         Height          =   315
         Left            =   3000
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   240
         Width           =   2055
      End
      Begin VB.Label Label8 
         Caption         =   "选择部门："
         Height          =   255
         Index           =   0
         Left            =   1800
         TabIndex        =   1
         Top             =   240
         Width           =   1095
      End
   End
End
Attribute VB_Name = "A部门设置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True