VB开发的ERP系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Ed_EmpArInfoFrm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "人事信息维护"
   ClientHeight    =   8475
   ClientLeft      =   1035
   ClientTop       =   1155
   ClientWidth     =   11910
   HelpContextID   =   2213001
   Icon            =   "处理_个人档案维护.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8475
   ScaleMode       =   0  'User
   ScaleWidth      =   11910
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.Toolbar SzToolbar 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   11910
      _ExtentX        =   21008
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   23
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "PrinterSet"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "Printer"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "Preview"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新增"
            Key             =   "New"
            Object.ToolTipText     =   "快捷键 Ctrl-A"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "Modi"
            Object.ToolTipText     =   "快捷键 Ctrl-E"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "Del"
            Object.ToolTipText     =   "快捷键 Del"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存"
            Key             =   "Save"
            Object.ToolTipText     =   "快捷键 Ctrl-S"
            ImageIndex      =   13
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "取消"
            Key             =   "Cancel"
            Object.ToolTipText     =   "快捷键 Esc"
            ImageIndex      =   19
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            ImageIndex      =   11
            Style           =   3
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "刷新"
            Key             =   "Refresh"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "sp"
            Style           =   3
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "首个"
            Key             =   "First"
            Object.ToolTipText     =   "快捷键 Ctrl-Home"
            ImageIndex      =   14
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "向前"
            Key             =   "Previous"
            Object.ToolTipText     =   "快捷键 Ctrl-PageUp"
            ImageIndex      =   15
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "向后"
            Key             =   "Next"
            Object.ToolTipText     =   "快捷键 Ctrl-PageDown"
            ImageIndex      =   16
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "末尾"
            Key             =   "Last"
            Object.ToolTipText     =   "快捷键 Ctrl-End"
            ImageIndex      =   17
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "过滤"
            Key             =   "Filt"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设定"
            Key             =   "Set"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "Help"
            ImageIndex      =   18
         EndProperty
         BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
            ImageIndex      =   12
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   8910
         Top             =   135
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   19
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":1042
               Key             =   "RelationAr"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":13DC
               Key             =   "PrinterSet"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":1776
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":1B10
               Key             =   "Set"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":1EAA
               Key             =   "Filt"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":2244
               Key             =   "Printer"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":25DE
               Key             =   "Preview"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":2978
               Key             =   "New"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":2D12
               Key             =   "Modi"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":30AC
               Key             =   "Del"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":3446
               Key             =   "Refresh"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":37E0
               Key             =   "Exit"
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":3B7A
               Key             =   "Save"
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":3F14
               Key             =   "First"
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":42AE
               Key             =   "Previous"
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":4648
               Key             =   "Next"
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":49E2
               Key             =   "Last"
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":4D7C
               Key             =   "Help"
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "处理_个人档案维护.frx":5116
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   7860
      Left            =   0
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   630
      Width           =   11850
      _ExtentX        =   20902
      _ExtentY        =   13864
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabsPerRow      =   4
      TabHeight       =   520
      MouseIcon       =   "处理_个人档案维护.frx":54B0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TabCaption(0)   =   "基本信息"
      TabPicture(0)   =   "处理_个人档案维护.frx":54CC
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lID"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lpId"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Picture1"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).ControlCount=   3
      Begin VB.PictureBox Picture1 
         Height          =   7365
         Left            =   90
         ScaleHeight     =   7305
         ScaleWidth      =   11595
         TabIndex        =   2
         TabStop         =   0   'False
         Top             =   390
         Width           =   11655
         Begin VB.VScrollBar VScBar 
            Height          =   7305
            Left            =   11250
            Max             =   3
            TabIndex        =   6
            TabStop         =   0   'False
            Top             =   0
            Width           =   286
         End
         Begin VB.PictureBox Pict 
            BackColor       =   &H00E9F2F3&
            BorderStyle     =   0  'None
            Height          =   50000
            Left            =   0
            ScaleHeight     =   49995
            ScaleMode       =   0  'User
            ScaleWidth      =   11475
            TabIndex        =   3
            TabStop         =   0   'False
            Top             =   -30
            Width           =   11475
            Begin VB.CheckBox Chk_YNStop 
               BackColor       =   &H00E9F2F3&
               Height          =   285
               Left            =   3330
               TabIndex        =   9
               Top             =   750
               Visible         =   0   'False
               Width           =   2610
            End
            Begin MSComDlg.CommonDialog CommDlg_pic