企业管理

开发平台：
Visual Basic

F_PeiXunShiShiJiHua1.frm：源码内容
							VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Begin VB.Form F_PeiXunShiShiJiHua1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "培训实施计划表"
   ClientHeight    =   8625
   ClientLeft      =   1680
   ClientTop       =   825
   ClientWidth     =   11910
   ControlBox      =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   8625
   ScaleWidth      =   11910
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin TabDlg.SSTab SSTab1 
      Height          =   8535
      Left            =   0
      TabIndex        =   36
      Top             =   0
      Width           =   11775
      _ExtentX        =   20770
      _ExtentY        =   15055
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "编    辑"
      TabPicture(0)   =   "F_PeiXunShiShiJiHua1.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lblLabels(1)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lblLabels(2)"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "lblLabels(4)"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "txtFields(2)"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Frame9"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "Frame10"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "Frame11"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "Frame12"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "DTPicker1"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "Frame8"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "Frame7"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "Frame5"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "Frame6"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "txtFields(8)"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "Frame2"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).Control(15)=   "Frame4"
      Tab(0).Control(15).Enabled=   0   'False
      Tab(0).Control(16)=   "Frame1"
      Tab(0).Control(16).Enabled=   0   'False
      Tab(0).Control(17)=   "Frame3"
      Tab(0).Control(17).Enabled=   0   'False
      Tab(0).Control(18)=   "Picture1"
      Tab(0).Control(18).Enabled=   0   'False
      Tab(0).ControlCount=   19
      TabCaption(1)   =   "列    表"
      TabPicture(1)   =   "F_PeiXunShiShiJiHua1.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame13"
      Tab(1).ControlCount=   1
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   440
         Left            =   3720
         ScaleHeight     =   435
         ScaleWidth      =   7080
         TabIndex        =   90
         Top             =   8040
         Width           =   7080
         Begin Threed.SSCommand cmdClose 
            Height          =   330
            Left            =   5640
            TabIndex        =   91
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   573
            _StockProps     =   78
            Caption         =   "&Q.关 闭"
            Font3D          =   1
         End
         Begin Threed.SSCommand cmdRefresh 
            Height          =   330
            Left            =   4440
            TabIndex        =   92
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   573
            _StockProps     =   78
            Caption         =   "&R.刷 新"
            Font3D          =   1
         End
         Begin Threed.SSCommand CmdAdd 
            Height          =   330
            Left            =   840
            TabIndex        =   93
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   582
            _StockProps     =   78
            Caption         =   "&A.增 加"
            Font3D          =   1
            Picture         =   "F_PeiXunShiShiJiHua1.frx":0038
         End
         Begin Threed.SSCommand cmdEdit 
            Height          =   330
            Left            =   2040
            TabIndex        =   94
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   573
            _StockProps     =   78
            Caption         =   "&E.编 辑"
            Font3D          =   1
         End
         Begin Threed.SSCommand CmdDelete 
            Height          =   330
            Left            =   3240
            TabIndex        =   95
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   573
            _StockProps     =   78
            Caption         =   "&D.删 除"
            Font3D          =   1
         End
         Begin Threed.SSCommand cmdCancel 
            Height          =   330
            Left            =   5640
            TabIndex        =   96
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   573
            _StockProps     =   78
            Caption         =   "&C.取消"
            Font3D          =   1
         End
         Begin Threed.SSCommand cmdUpdate 
            Height          =   330
            Left            =   4440
            TabIndex        =   97
            Top             =   0
            Width           =   1095
            _Version        =   65536
            _ExtentX        =   1931
            _ExtentY        =   573
            _StockProps     =   78
            Caption         =   "&Y.保存"
            Font3D          =   1
         End
      End
      Begin VB.Frame Frame3 
         Height          =   1335
         Left            =   600
         TabIndex        =   39
         Top             =   720
         Width           =   10935
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "培训计划编号"
            Height          =   285
            Index           =   0
            Left            =   1680
            TabIndex        =   3
            Top             =   240
            Width           =   1455
         End
         Begin MSComCtl2.DTPicker DTPicker2 
            DataField       =   "举办日期"
            Height          =   300
            Left            =   5400
            TabIndex        =   7
            Top             =   600
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   529
            _Version        =   393216
            CheckBox        =   -1  'True
            DateIsNull      =   -1  'True
            Format          =   64290817
            CurrentDate     =   36186
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "项目名称"
            Height          =   285
            Index           =   3
            Left            =   5400
            TabIndex        =   4
            Top             =   240
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "培训种类"
            Height          =   285
            Index           =   5
            Left            =   9240
            TabIndex        =   5
            Top             =   240
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "培训对象"
            Height          =   285
            Index           =   6
            Left            =   1680
            TabIndex        =   6
            Top             =   600
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "参加人数"
            Height          =   285
            Index           =   7
            Left            =   1680
            TabIndex        =   9
            Top             =   960
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "地点"
            Height          =   285
            Index           =   9
            Left            =   9240
            TabIndex        =   8
            Top             =   600
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "培训时数"
            Height          =   285
            Index           =   10
            Left            =   5400
            TabIndex        =   10
            Top             =   960
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "师资来源"
            Height          =   285
            Index           =   11
            Left            =   9240
            TabIndex        =   11
            Top             =   960
            Width           =   1455
         End
         Begin VB.Label lblLabels 
            Caption         =   "计划编号"
            Height          =   255
            Index           =   0
            Left            =   120
            TabIndex        =   86
            Top             =   240
            Width           =   975
         End
         Begin VB.Label lblLabels 
            Caption         =   "项目名称"
            Height          =   255
            Index           =   3
            Left            =   3720
            TabIndex        =   47
            Top             =   240
            Width           =   855
         End
         Begin VB.Label lblLabels 
            Caption         =   "培训种类"
            Height          =   255
            Index           =   5
            Left            =   7560
            TabIndex        =   46
            Top             =   240
            Width           =   855
         End
         Begin VB.Label lblLabels 
            Caption         =   "培训对象"
            Height          =   255
            Index           =   6
            Left            =   120
            TabIndex        =   45
            Top             =   600
            Width           =   735
         End
         Begin VB.Label lblLabels 
            Caption         =   "参加人数"
            Height          =   255
            Index           =   7
            Left            =   120
            TabIndex        =   44
            Top             =   960
            Width           =   735
         End
         Begin VB.Label lblLabels 
            Caption         =   "举办日期"
            Height          =   255
            Index           =   8
            Left            =   3720
            TabIndex        =   43
            Top             =   600
            Width           =   735
         End
         Begin VB.Label lblLabels 
            Caption         =   "地  点"
            Height          =   255
            Index           =   9
            Left            =   7560
            TabIndex        =   42
            Top             =   600
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Caption         =   "培训时数"
            Height          =   255
            Index           =   10
            Left            =   3720
            TabIndex        =   41
            Top             =   960
            Width           =   735
         End
         Begin VB.Label lblLabels 
            Caption         =   "师资来源"
            Height          =   255
            Index           =   11
            Left            =   7560
            TabIndex        =   40
            Top             =   960
            Width           =   855
         End
      End
      Begin VB.Frame Frame1 
         Height          =   1215
         Left            =   600
         TabIndex        =   88
         Top             =   1920
         Width           =   10935
         Begin VB.TextBox txtFields 
            DataField       =   "培训目的"
            Height          =   1095
            Index           =   1
            Left            =   0
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   89
            Top             =   120
            Width           =   10935
         End
      End
      Begin VB.Frame Frame4 
         Height          =   855
         Left            =   600
         TabIndex        =   53
         Top             =   3000
         Width           =   10935
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "课时费"
            Height          =   285
            Index           =   13
            Left            =   120
            TabIndex        =   12
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "租用费"
            Height          =   285
            Index           =   14
            Left            =   1680
            TabIndex        =   13
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "招待费"
            Height          =   285
            Index           =   15
            Left            =   3120
            TabIndex        =   14
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "交通费"
            Height          =   285
            Index           =   16
            Left            =   4440
            TabIndex        =   15
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "教材费"
            Height          =   285
            Index           =   17
            Left            =   5880
            TabIndex        =   16
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "工时占用费用"
            Height          =   285
            Index           =   18
            Left            =   7200
            TabIndex        =   17
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "其他费用"
            Height          =   285
            Index           =   19
            Left            =   8520
            TabIndex        =   18
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "预算费用合计"
            Height          =   285
            Index           =   20
            Left            =   9840
            TabIndex        =   19
            Top             =   480
            Width           =   855
         End
         Begin VB.Label lblLabels 
            Caption         =   "课时费:"
            Height          =   255
            Index           =   13
            Left            =   120
            TabIndex        =   61
            Top             =   240
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Caption         =   "租用费:"
            Height          =   255
            Index           =   14
            Left            =   1680
            TabIndex        =   60
            Top             =   240
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Caption         =   "招待费:"
            Height          =   255
            Index           =   15
            Left            =   3240
            TabIndex        =   59
            Top             =   240
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Caption         =   "交通费:"
            Height          =   255
            Index           =   16
            Left            =   4440
            TabIndex        =   58
            Top             =   240
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Caption         =   "教材费:"
            Height          =   255
            Index           =   17
            Left            =   5880
            TabIndex        =   57
            Top             =   240
            Width           =   615
         End
         Begin VB.Label lblLabels 
            Caption         =   "工时占用"
            Height          =   255
            Index           =   18
            Left            =   7200
            TabIndex        =   56
            Top             =   240
            Width           =   855
         End
         Begin VB.Label lblLabels 
            Caption         =   "其  他"
            Height          =   255
            Index           =   19
            Left            =   8520
            TabIndex        =   55
            Top             =   240
            Width           =   975
         End
         Begin VB.Label lblLabels 
            Caption         =   "预算合计"
            Height          =   255
            Index           =   20
            Left            =   9720
            TabIndex        =   54
            Top             =   240
            Width           =   735
         End
      End
      Begin VB.Frame Frame2 
         Height          =   1215
         Left            =   600
         TabIndex        =   48
         Top             =   3720
         Width           =   10935
         Begin VB.TextBox txtFields 
            DataField       =   "培训内容"
            Height          =   645
            Index           =   4
            Left            =   0
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   85
            Top             =   120
            Width           =   10935
         End
         Begin VB.CheckBox Check3 
            Caption         =   "实际操作"
            DataField       =   "实际操作"
            Height          =   255
            Left            =   8520
            TabIndex        =   51
            Top             =   840
            Width           =   1575
         End
         Begin VB.CheckBox Check2 
            Caption         =   "笔试"
            DataField       =   "笔试"
            Height          =   255
            Left            =   6000
            TabIndex        =   50
            Top             =   840
            Width           =   1095
         End
         Begin VB.CheckBox Check1 
            Caption         =   "口试"
            DataField       =   "口试"
            Height          =   255
            Left            =   3120
            TabIndex        =   49
            Top             =   840
            Width           =   975
         End
         Begin VB.Label lblLabels 
            Caption         =   "考核方式:"
            Height          =   255
            Index           =   22
            Left            =   360
            TabIndex        =   52
            Top             =   840
            Width           =   855
         End
      End
      Begin VB.TextBox txtFields 
         Appearance      =   0  'Flat
         DataField       =   "实施计划编号"
         Height          =   285
         Index           =   8
         Left            =   2280
         TabIndex        =   0
         Top             =   400
         Width           =   1455
      End
      Begin VB.Frame Frame6 
         Height          =   1335
         Left            =   120
         TabIndex        =   64
         Top             =   720
         Width           =   495
         Begin VB.Label Label1 
            Caption         =   "项目信息"
            Height          =   855
            Left            =   120
            TabIndex        =   65
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame5 
         Height          =   1215
         Left            =   120
         TabIndex        =   62
         Top             =   1920
         Width           =   495
         Begin VB.Label lblLabels 
            Caption         =   "培训目的"
            Height          =   855
            Index           =   12
            Left            =   120
            TabIndex        =   63
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame7 
         Height          =   855
         Left            =   120
         TabIndex        =   66
         Top             =   3000
         Width           =   495
         Begin VB.Label Label2 
            Caption         =   "费用"
            Height          =   495
            Left            =   120
            TabIndex        =   67
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame8 
         Height          =   1215
         Left            =   120
         TabIndex        =   68
         Top             =   3720
         Width           =   495
         Begin VB.Label lblLabels 
            Caption         =   "培训内容"
            Height          =   855
            Index           =   21
            Left            =   120
            TabIndex        =   69
            Top             =   240
            Width           =   255
         End
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         DataField       =   "时间"
         Height          =   300
         Left            =   9840
         TabIndex        =   2
         Top             =   405
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   529
         _Version        =   393216
         CheckBox        =   -1  'True
         Format          =   64290817
         CurrentDate     =   36186
      End
      Begin VB.Frame Frame13 
         Height          =   7695
         Left            =   -74760
         TabIndex        =   83
         Top             =   600
         Width           =   11295
         Begin MSDataGridLib.DataGrid DataGrid2 
            Height          =   7215
            Left            =   240
            TabIndex        =   84
            Top             =   240
            Width           =   10815
            _ExtentX        =   19076
            _ExtentY        =   12726
            _Version        =   393216
            AllowUpdate     =   0   'False
            HeadLines       =   1
            RowHeight       =   14
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ColumnCount     =   2
            BeginProperty Column00 
               DataField       =   ""
               Caption         =   ""
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column01 
               DataField       =   ""
               Caption         =   ""
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            SplitCount      =   1
            BeginProperty Split0 
               BeginProperty Column00 
               EndProperty
               BeginProperty Column01 
               EndProperty
            EndProperty
         End
      End
      Begin VB.Frame Frame12 
         Height          =   2055
         Left            =   120
         TabIndex        =   81
         Top             =   4800
         Width           =   495
         Begin VB.Label Label7 
            Caption         =   "受训人员"
            Height          =   855
            Left            =   120
            TabIndex        =   82
            Top             =   600
            Width           =   255
         End
      End
      Begin VB.Frame Frame11 
         Height          =   2055
         Left            =   600
         TabIndex        =   79
         Top             =   4800
         Width           =   10935
         Begin MSDataGridLib.DataGrid DataGrid1 
            Height          =   1935
            Left            =   0
            TabIndex        =   80
            Top             =   120
            Width           =   10935
            _ExtentX        =   19288
            _ExtentY        =   3413
            _Version        =   393216
            HeadLines       =   1
            RowHeight       =   14
            TabAction       =   2
            FormatLocked    =   -1  'True
            BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ColumnCount     =   3
            BeginProperty Column00 
               DataField       =   "员工号"
               Caption         =   "员工号"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column01 
               DataField       =   "姓名"
               Caption         =   "姓名"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            BeginProperty Column02 
               DataField       =   "岗位"
               Caption         =   "岗位"
               BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
                  Type            =   0
                  Format          =   ""
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
            EndProperty
            SplitCount      =   1
            BeginProperty Split0 
               BeginProperty Column00 
                  ColumnWidth     =   1395.213
               EndProperty
               BeginProperty Column01 
                  ColumnWidth     =   1739.906
               EndProperty
               BeginProperty Column02 
                  ColumnWidth     =   1739.906
               EndProperty
            EndProperty
         End
      End
      Begin VB.Frame Frame10 
         Height          =   1215
         Left            =   120
         TabIndex        =   77
         Top             =   6720
         Width           =   495
         Begin VB.Label Label6 
            Caption         =   "呈核"
            Height          =   495
            Left            =   120
            TabIndex        =   78
            Top             =   480
            Width           =   255
         End
      End
      Begin VB.Frame Frame9 
         Height          =   1215
         Left            =   600
         TabIndex        =   70
         Top             =   6720
         Width           =   10935
         Begin MSComCtl2.DTPicker DTPicker6 
            DataField       =   "部门申请人签字时间"
            Height          =   300
            Left            =   9240
            TabIndex        =   27
            Top             =   840
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   529
            _Version        =   393216
            CheckBox        =   -1  'True
            Format          =   64290817
            CurrentDate     =   36186
         End
         Begin MSComCtl2.DTPicker DTPicker5 
            DataField       =   "总经理签字时间"
            Height          =   300
            Left            =   6720
            TabIndex        =   26
            Top             =   840
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   529
            _Version        =   393216
            CheckBox        =   -1  'True
            Format          =   64290817
            CurrentDate     =   36186
         End
         Begin MSComCtl2.DTPicker DTPicker4 
            DataField       =   "财务部签字时间"
            Height          =   300
            Left            =   4080
            TabIndex        =   25
            Top             =   840
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   529
            _Version        =   393216
            CheckBox        =   -1  'True
            Format          =   64290817
            CurrentDate     =   36186
         End
         Begin MSComCtl2.DTPicker DTPicker3 
            DataField       =   "人力资源部签字时间"
            Height          =   300
            Left            =   1200
            TabIndex        =   24
            Top             =   840
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   529
            _Version        =   393216
            CheckBox        =   -1  'True
            Format          =   64290817
            CurrentDate     =   36186
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "人力资源部经理签字"
            Height          =   285
            Index           =   23
            Left            =   1200
            TabIndex        =   20
            Top             =   480
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "财务部经理签字"
            Height          =   285
            Index           =   25
            Left            =   4080
            TabIndex        =   21
            Top             =   480
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "总经理签字"
            Height          =   285
            Index           =   12
            Left            =   6720
            TabIndex        =   22
            Top             =   480
            Width           =   1455
         End
         Begin VB.TextBox txtFields 
            Appearance      =   0  'Flat
            DataField       =   "部门申请人签字"
            Height          =   285
            Index           =   31
            Left            =   9240
            TabIndex        =   23
            Top             =   480
            Width           =   1455
         End
         Begin VB.Label lblLabels 
            Caption         =   "人力资源部"
            Height          =   255
            Index           =   23
            Left            =   1200
            TabIndex        =   76
            Top             =   240
            Width           =   1095
         End
         Begin VB.Label lblLabels 
            Caption         =   "签字时间"
            Height          =   255
            Index           =   24
            Left            =   240
            TabIndex        =   75
            Top             =   840
            Width           =   855
         End
         Begin VB.Label lblLabels 
            Caption         =   "财务部"
            Height          =   255
            Index           =   25
            Left            =   4080
            TabIndex        =   74
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label3 
            Caption         =   "总经理"
            Height          =   255
            Left            =   6720
            TabIndex        =   73
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label4 
            Caption         =   "部门申请人"
            Height          =   255
            Left            =   9240
            TabIndex        =   72
            Top             =   240
            Width           =   1095
         End
         Begin VB.Label Label5 
            Caption         =   "经理签字"
            Height          =   255
            Left            =   240
            TabIndex        =   71
            Top             =   480
            Width           =   855
         End
      End
      Begin VB.TextBox txtFields 
         Appearance      =   0  'Flat
         DataField       =   "部门"
         Height          =   285
         Index           =   2
         Left            =   6000
         TabIndex        =   1
         Top             =   400
         Width           =   1455
      End
      Begin VB.Label lblLabels 
         Caption         =   "实施计划编号:"
         Height          =   255
         Index           =   4
         Left            =   720
         TabIndex        =   87
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label lblLabels 
         Caption         =   "部  门"
         Height          =   255
         Index           =   2
         Left            =   4320
         TabIndex        =   38
         Top             =   480
         Width           =   855
      End
      Begin VB.Label lblLabels 
         Caption         =   "时 间"
         Height          =   255
         Index           =   1
         Left            =   8160
         TabIndex        =   37
         Top             =   480
         Width           =   615
      End
   End
   Begin VB.TextBox txtFields 
      DataField       =   "部门申请人签字时间"
      Height          =   285
      Index           =   30
      Left            =   2040
      TabIndex        =   34
      Top             =   9660
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "部门申请人签字"
      Height          =   285
      Index           =   29
      Left            =   2040
      TabIndex        =   32
      Top             =   9340
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "总经理签字时间"
      Height          =   285
      Index           =   28
      Left            =   2040
      TabIndex        =   30
      Top             =   9020
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "总经理签字"
      Height          =   285
      Index           =   27
      Left            =   2040
      TabIndex        =   28
      Top             =   8700
      Width           =   3375
   End
   Begin MSDataGridLib.DataGrid grdDataGrid 
      Height          =   1300
      Left            =   0
      TabIndex        =   35
      Top             =   9980
      Width           =   5765
      _ExtentX        =   10160
      _ExtentY        =   2302
      _Version        =   393216
      AllowUpdate     =   0   'False
      HeadLines       =   1
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin VB.Label lblLabels 
      Caption         =   "部门申请人签字时间:"
      Height          =   255
      Index           =   30
      Left            =   120
      TabIndex        =   33
      Top             =   9660
      Width           =   1815
   End
   Begin VB.Label lblLabels 
      Caption         =   "部门申请人签字:"
      Height          =   255
      Index           =   29
      Left            =   120
      TabIndex        =   31
      Top             =   9340
      Width           =   1815
   End
   Begin VB.Label lblLabels 
      Caption         =   "总经理签字时间:"
      Height          =   255
      Index           =   28
      Left            =   120
      TabIndex        =   29
      Top             =   9020
      Width           =   1815
   End
End
Attribute VB_Name = "F_PeiXunShiShiJiHua1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents adoPrimaryRS As Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Private Function UpdateData() As Boolean
  Dim strTemp As String
  Dim adochild As ADODB.Recordset
  On Error GoTo UpdateErr
  
  '更新父表
  adoPrimaryRS.UpdateBatch adAffectCurrent
 
  '检查子表的有效性
  Set adochild = New Recordset
  Set adochild = adoPrimaryRS("ChildCMD").UnderlyingValue
  
  If Not (adochild.BOF And adochild.EOF) Then
    adochild.MoveFirst
  End If
  
  'While Not adochild.EOF
      
   '   If Trim(adochild.Fields("单价")) = "" Or IsNull(adochild.Fields("单价")) Or Not IsNumeric(adochild.Fields("单价")) Then
    '     MsgBox "请在单价中输入数字！", vbExclamation + vbOKOnly, "警告"
     '    adochild.Close
         '   Set adochild = Nothing
         'Exit Function
      'End If
      
      'If Trim(adochild.Fields("数量")) = "" Or IsNull(adochild.Fields("数量")) Or Not IsNumeric(adochild.Fields("单价")) Then
         '  MsgBox "请在数量中输入数字！", vbExclamation + vbOKOnly, "警告"
        ' adochild.Close
        ' Set adochild = Nothing
         'Exit Function
     ' End If
      
      
  '    adochild.MoveNext
 ' Wend
  
  '更新子表
  adochild.UpdateBatch adAffectAllChapters
  adochild.Close
  Set adochild = Nothing
  
 ' strTemp = txtFields(0).Text
 ' Set grdDataGrid.DataSource = Nothing
  'adoPrimaryRS.Requery
  'adoPrimaryRS.Find "目的港='" & strTemp & "'", 0, adSearchForward
  'Set grdDataGrid.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
 
  UpdateData = True
  
  If mbAddNewFlag Then
    adoPrimaryRS.MoveLast              'move to the new record
  End If
  mbEditFlag = False
  mbAddNewFlag = False
  SetButtons True
  
  Exit Function
UpdateErr:
  UpdateData = False
End Function
Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{TAB}"
    End If
End Sub
Private Sub DTPicker2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    SendKeys "{TAB}"
End If
End Sub
Private Sub DTPicker3_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    SendKeys "{TAB}"
End If
End Sub
Private Sub DTPicker4_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    SendKeys "{TAB}"
End If
End Sub
Private Sub DTPicker5_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    SendKeys "{TAB}"
End If
End Sub
Private Sub DTPicker6_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
    SendKeys "{TAB}"
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
    For Each TextBox In Me.Controls
        TextBox.Font.Name = "宋体"
        TextBox.Font.Size = 9
    Next
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "SHAPE {select 培训计划编号,实施计划编号,时间,部门,项目名称,培训种类,培训对象,参加人数,举办日期,地点,培训时数,师资来源,培训目的,课时费,租用费,招待费,交通费,教材费,工时占用费用,其他费用,预算费用合计,培训内容,口试,笔试,实际操作,人力资源部经理签字,人力资源部签字时间,财务部经理签字,财务部签字时间,总经理签字,总经理签字时间,部门申请人签字,部门申请人签字时间 from 培训实施计划表} AS ParentCMD APPEND ({select 培训实施计划编号,员工号,姓名,岗位 from 培训实施计划人员 } AS ChildCMD RELATE 实施计划编号 TO 培训实施计划编号) AS ChildCMD", db1, adOpenStatic, adLockBatchOptimistic
  If adoPrimaryRS.RecordCount <> 0 Then
      Set DataGrid2.DataSource = adoPrimaryRS
 End If
 SetButtons True
 
 Set DTPicker1.DataSource = adoPrimaryRS
 Set DTPicker2.DataSource = adoPrimaryRS
 Set DTPicker3.DataSource = adoPrimaryRS
 Set DTPicker4.DataSource = adoPrimaryRS
 Set DTPicker5.DataSource = adoPrimaryRS
 Set DTPicker6.DataSource = adoPrimaryRS
       
 Set Check1.DataSource = adoPrimaryRS
 Set Check2.DataSource = adoPrimaryRS
 Set Check3.DataSource = adoPrimaryRS
 
  Dim oText As TextBox
  'Bind the text boxes to the data provider
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next
 
If adoPrimaryRS.RecordCount <> 0 Then
       Set DataGrid1.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
End If
Me.DTPicker1.Value = Format(Now, "yyyy年mm月dd日")
Me.DTPicker2.Value = Format(Now, "yyyy年mm月dd日")
Me.DTPicker3.Value = Format(Now, "yyyy年mm月dd日")
Me.DTPicker4.Value = Format(Now, "yyyy年mm月dd日")
Me.DTPicker5.Value = Format(Now, "yyyy年mm月dd日")
Me.DTPicker6.Value = Format(Now, "yyyy年mm月dd日")
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Screen.MousePointer = vbDefault
End Sub
Private Sub cmdadd_Click()
  On Error GoTo AddErr
  With adoPrimaryRS
    If Not (.BOF And .EOF) Then
      mvBookMark = .Bookmark
    End If
    .AddNew
    mbAddNewFlag = True
    SetButtons False
  End With
  On Error GoTo 0
  Exit Sub
AddErr:
  MsgBox "增加操作有错误", vbExclamation + vbOKOnly, pTitle
  
End Sub
Private Sub cmddelete_Click()
  Dim adochild As ADODB.Recordset
  On Error GoTo DeleteErr
  RESULT = MsgBox("此操作将删除此记录所有信息，你真的要删除吗？", vbExclamation + vbYesNo + vbDefaultButton2, "提示")
  If RESULT = 6 Then                                    '选择YES
  
        '删除子表记录
        
       Set adochild = New Recordset
       Set adochild = adoPrimaryRS("ChildCMD").UnderlyingValue
       While Not adochild.EOF
            adochild.Delete
            adochild.MoveNext
       Wend
       adochild.UpdateBatch adAffectAll
       adochild.Close
       Set adochild = Nothing
       
       '删除父表的当前记录
       
       With adoPrimaryRS
         .Delete
         .UpdateBatch adAffectCurrent
         .MoveNext
         If .EOF Then .MoveLast
       End With
  End If
  On Error GoTo 0
  Exit Sub
 
DeleteErr:
  MsgBox "删除数据失败！", vbExclamation + vbOKOnly, "Ptitle"
End Sub
Private Sub cmdRefresh_Click()
  'This is only needed for multi user apps
  On Error GoTo RefreshErr
  adoPrimaryRS.Requery
  On Error GoTo 0
  Exit Sub
RefreshErr:
   MsgBox "刷新操作有错误", vbExclamation + vbOKOnly, pTitle
End Sub
Private Sub cmdedit_Click()
  On Error GoTo EditErr
  mbEditFlag = True
  SetButtons False
  Exit Sub
  On Error GoTo 0
EditErr:
   MsgBox "更改操作有错误", vbExclamation + vbOKOnly, pTitle
End Sub
Private Sub cmdCancel_Click()
 ' On Error Resume Next
 On Error GoTo CancelErr
  mbEditFlag = False
  mbAddNewFlag = False
  adoPrimaryRS.CancelUpdate
  If mvBookMark > 0 Then
   adoPrimaryRS.Bookmark = mvBookMark
  Else
   adoPrimaryRS.MoveFirst
  End If
 SetButtons True
  Exit Sub
CancelErr:
   
   MsgBox "取消操作有错误", vbExclamation + vbOKOnly, pTitle
End Sub
Private Sub cmdUpdate_Click()
  Dim blnUpdateFlag As Boolean
  blnUpdateFlag = UpdateData
  If blnUpdateFlag = True Then
    MsgBox "数据保存成功！", vbInformation + vbOKOnly, "提示"
  Else
    MsgBox "数据保存失败！", vbExclamation + vbOKOnly, "警告"
  End If
End Sub
Private Sub cmdClose_Click()
    RSGL.Enabled = True
    Unload Me
End Sub
Private Sub SetButtons(bVal As Boolean)
Dim oText As TextBox
  
  CmdAdd.Visible = bVal
  cmdEdit.Visible = bVal
  cmdUpdate.Visible = Not bVal
  cmdCancel.Visible = Not bVal
  CmdDelete.Visible = bVal
  cmdClose.Visible = bVal
  cmdRefresh.Visible = bVal
  
 
  For Each oText In Me.txtFields
        oText.Enabled = Not bVal
  Next
  
  DTPicker1.Enabled = Not bVal
  DTPicker2.Enabled = Not bVal
  DTPicker3.Enabled = Not bVal
  DTPicker4.Enabled = Not bVal
  DTPicker5.Enabled = Not bVal
  DTPicker6.Enabled = Not bVal
  
  Check1.Enabled = Not bVal
  Check2.Enabled = Not bVal
  Check3.Enabled = Not bVal
  
  If bVal Then
   Set DataGrid2.DataSource = adoPrimaryRS
  Else
   Set DataGrid2.DataSource = Nothing
  End If
  
  If Not bVal Then
    If mbEditFlag Then
     DataGrid1.AllowAddNew = True
     DataGrid1.AllowDelete = True
     DataGrid1.AllowUpdate = True
    End If
  Else
     DataGrid1.AllowAddNew = False
     DataGrid1.AllowDelete = False
     DataGrid1.AllowUpdate = False
  End If
End Sub
Private Sub grdDataGrid_Error(ByVal DataError As Integer, Response As Integer)
Response = 0
    MsgBox "输入数据不合法，请输入合法数据！", vbExclamation + vbOKOnly, pTitle
End Sub
Private Sub txtFields_Change(Index As Integer)
  If IsNumeric(txtFields(18).Text) And IsNumeric(txtFields(19).Text) And IsNumeric(txtFields(13).Text) And IsNumeric(txtFields(14).Text) And IsNumeric(txtFields(15).Text) And IsNumeric(txtFields(16).Text) And IsNumeric(txtFields(17).Text) Then
   txtFields(20) = CDbl(txtFields(18)) + CDbl(txtFields(19)) + CDbl(txtFields(13)) + CDbl(txtFields(14)) + CDbl(txtFields(15)) + CDbl(txtFields(16)) + CDbl(txtFields(17))
  End If
  
End Sub
Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    SendKeys "{TAB}"
End If
End Sub
Private Sub txtFields_LostFocus(Index As Integer)
Select Case Index
Case 8
    If Not IsNull(Trim(txtFields(8).Text)) Then
       '   txtFields(8).Locked = True
    End If
    
    
Case 0
Dim Sql3 As String
 Sql3 = "select 时间,项目名称,培训种类,培训对象,参加人数,举办日期,地点,培训时数,师资来源,培训目的,课时费,租用费,招待费,交通费,教材费,工时占用费,其他费用,预算费用合计,培训内容,口试,笔试,实际操作 from 部门培训计划登记 where 培训计划编号 = '" & txtFields(0).Text & "'"
 Set rs3 = db.Execute(Sql3)
 If Not rs3.EOF Then
   
 
   If Not IsNull(rs3("项目名称")) Then
       txtFields(3).Text = Trim(rs3("项目名称"))
   End If
   
   If Not IsNull(rs3("培训种类")) Then
       txtFields(5).Text = Trim(rs3("培训种类"))
   End If
   
   If Not IsNull(rs3("培训对象")) Then
       txtFields(6).Text = Trim(rs3("培训对象"))
   End If
   
   If Not IsNull(rs3("举办日期")) Then
       DTPicker2.Value = Trim(rs3("举办日期"))
   End If
   
   If Not IsNull(rs3("参加人数")) Then
       txtFields(7).Text = Trim(rs3("参加人数"))
   End If
   
   
   
   If Not IsNull(rs3("地点")) Then
       txtFields(9).Text = Trim(rs3("地点"))
   End If
   
   If Not IsNull(rs3("培训时数")) Then
       txtFields(10).Text = Trim(rs3("培训时数"))
   End If
   
   If Not IsNull(rs3("师资来源")) Then
       txtFields(11).Text = Trim(rs3("师资来源"))
   End If
   
   If Not IsNull(rs3("培训目的")) Then
       txtFields(1).Text = Trim(rs3("培训目的"))
   End If
 
   If Not IsNull(rs3("课时费")) Then
     txtFields(13).Text = Trim(rs3("课时费"))
   End If
   
   If Not IsNull(rs3("租用费")) Then
     txtFields(14).Text = Trim(rs3("租用费"))
   End If
   
   If Not IsNull(rs3("招待费")) Then
     txtFields(15).Text = Trim(rs3("招待费"))
   End If
   
   If Not IsNull(rs3("交通费")) Then
     txtFields(16).Text = Trim(rs3("交通费"))
   End If
   
   If Not IsNull(rs3("教材费")) Then
     txtFields(17).Text = Trim(rs3("教材费"))
   End If
   
   If Not IsNull(rs3("工时占用费")) Then
     txtFields(18).Text = Trim(rs3("工时占用费"))
   End If
   
   If Not IsNull(rs3("其他费用")) Then
     txtFields(19).Text = Trim(rs3("其他费用"))
   End If
   
   If Not IsNull(rs3("预算费用合计")) Then
     txtFields(20).Text = Trim(rs3("预算费用合计"))
   End If
   
    If Not IsNull(rs3("培训内容")) Then
     txtFields(4).Text = Trim(rs3("培训内容"))
   End If
   
   If Not IsNull(rs3("口试")) And rs3("口试") = True Then
     Check1.Value = 1
    Else
      Check1.Value = 0
   End If
   
   If Not IsNull(rs3("笔试")) And rs3("笔试") = True Then
     Check2.Value = 1
    Else
      Check2.Value = 0
   End If
   
   If Not IsNull(rs3("实际操作")) And rs3("实际操作") = True Then
     Check3.Value = 1
    Else
      Check3.Value = 0
   End If
   
End If
Case 5
If Not IsNumeric(txtFields(7).Text) And (txtFields(7).Text <> "") Then
    MsgBox "请在“参加人数”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(7).SetFocus
     txtFields(7).SelStart = 0
     txtFields(7).SelLength = Len(txtFields(7))
  
End If
Case 10
If Not IsNumeric(txtFields(10).Text) And (txtFields(10).Text <> "") Then
    MsgBox "请在“培训时数”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(10).SetFocus
     txtFields(10).SelStart = 0
     txtFields(10).SelLength = Len(txtFields(10))
     
End If
Case 13
If Not IsNumeric(txtFields(13).Text) And (txtFields(13).Text <> "") Then
    MsgBox "请在“课时费”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(13).SetFocus
     txtFields(13).SelStart = 0
     txtFields(13).SelLength = Len(txtFields(13))
     
End If
Case 14
If Not IsNumeric(txtFields(14).Text) And (txtFields(14).Text <> "") Then
    MsgBox "请在“租用费”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(14).SetFocus
     txtFields(14).SelStart = 0
     txtFields(14).SelLength = Len(txtFields(14))
     
End If
Case 15
If Not IsNumeric(txtFields(15).Text) And (txtFields(15).Text <> "") Then
    MsgBox "请在“招待费”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(15).SetFocus
     txtFields(15).SelStart = 0
     txtFields(15).SelLength = Len(txtFields(15))
     
End If
Case 16
If Not IsNumeric(txtFields(16).Text) And (txtFields(16).Text <> "") Then
    MsgBox "请在“交通费”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(16).SetFocus
     txtFields(16).SelStart = 0
     txtFields(16).SelLength = Len(txtFields(16))
     
End If
Case 17
If Not IsNumeric(txtFields(17).Text) And (txtFields(17).Text <> "") Then
    MsgBox "请在“教材费”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(17).SetFocus
      txtFields(17).SelStart = 0
     txtFields(17).SelLength = Len(txtFields(17))
    
End If
Case 18
If Not IsNumeric(txtFields(18).Text) And (txtFields(18).Text <> "") Then
    MsgBox "请在“工时占用费”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(18).SetFocus
     txtFields(18).SelStart = 0
     txtFields(18).SelLength = Len(txtFields(18))
     
End If
Case 19
If Not IsNumeric(txtFields(19).Text) And (txtFields(19).Text <> "") Then
    MsgBox "请在“其他费用”中输入数字", vbExclamation + vbOKOnly, pTitle
     txtFields(19).SetFocus
     txtFields(19).SelStart = 0
     txtFields(19).SelLength = Len(txtFields(19))
     
End If
End Select
txtFields(8).Locked = True
End Sub

						