F_PeiXunXiangMuShiShi.frm
资源名称:dbbase.rar [点击查看]
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:59k
源码类别:
企业管理
开发平台:
Visual Basic
- 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_PeiXunXiangMuShiShi
- BorderStyle = 3 'Fixed Dialog
- Caption = "培训项目实施表"
- ClientHeight = 8685
- ClientLeft = 1440
- ClientTop = 585
- ClientWidth = 11895
- ControlBox = 0 'False
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- LockControls = -1 'True
- MaxButton = 0 'False
- MinButton = 0 'False
- Moveable = 0 'False
- ScaleHeight = 8685
- ScaleWidth = 11895
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin TabDlg.SSTab SSTab1
- Height = 8655
- Left = 120
- TabIndex = 41
- Top = 0
- Width = 11685
- _ExtentX = 20611
- _ExtentY = 15266
- _Version = 393216
- Tabs = 2
- TabHeight = 520
- TabCaption(0) = "编 辑"
- TabPicture(0) = "F_PeiXunXiangMuShiShi.frx":0000
- Tab(0).ControlEnabled= -1 'True
- Tab(0).Control(0)= "lblLabels(2)"
- Tab(0).Control(0).Enabled= 0 'False
- Tab(0).Control(1)= "lblLabels(1)"
- Tab(0).Control(1).Enabled= 0 'False
- Tab(0).Control(2)= "lblLabels(0)"
- Tab(0).Control(2).Enabled= 0 'False
- Tab(0).Control(3)= "lblLabels(31)"
- Tab(0).Control(3).Enabled= 0 'False
- Tab(0).Control(4)= "Frame9"
- Tab(0).Control(4).Enabled= 0 'False
- Tab(0).Control(5)= "Frame1"
- Tab(0).Control(5).Enabled= 0 'False
- Tab(0).Control(6)= "txtFields(2)"
- Tab(0).Control(6).Enabled= 0 'False
- Tab(0).Control(7)= "DTPicker1"
- Tab(0).Control(7).Enabled= 0 'False
- Tab(0).Control(8)= "Frame12"
- 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)= "Frame6"
- Tab(0).Control(11).Enabled= 0 'False
- Tab(0).Control(12)= "Frame3"
- Tab(0).Control(12).Enabled= 0 'False
- Tab(0).Control(13)= "Frame2"
- Tab(0).Control(13).Enabled= 0 'False
- Tab(0).Control(14)= "txtFields(0)"
- Tab(0).Control(14).Enabled= 0 'False
- Tab(0).Control(15)= "txtFields(10)"
- Tab(0).Control(15).Enabled= 0 'False
- Tab(0).Control(16)= "Frame4"
- Tab(0).Control(16).Enabled= 0 'False
- Tab(0).Control(17)= "Frame11"
- 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_PeiXunXiangMuShiShi.frx":001C
- Tab(1).ControlEnabled= 0 'False
- Tab(1).Control(0)= "Frame13"
- Tab(1).Control(0).Enabled= 0 'False
- 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 = 4440
- ScaleHeight = 435
- ScaleWidth = 7080
- TabIndex = 95
- Top = 8160
- Width = 7080
- Begin Threed.SSCommand cmdClose
- Height = 330
- Left = 5640
- TabIndex = 31
- 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 = 30
- 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 = 27
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 582
- _StockProps = 78
- Caption = "&A.增 加"
- Font3D = 1
- Picture = "F_PeiXunXiangMuShiShi.frx":0038
- End
- Begin Threed.SSCommand cmdEdit
- Height = 330
- Left = 2040
- TabIndex = 28
- 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 = 29
- 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 Frame11
- Height = 1815
- Left = 600
- TabIndex = 44
- Top = 4680
- Width = 10935
- Begin MSDataGridLib.DataGrid DataGrid1
- Height = 1695
- Left = 0
- TabIndex = 45
- Top = 120
- Width = 10935
- _ExtentX = 19288
- _ExtentY = 2990
- _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 = 6
- 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
- BeginProperty Column03
- 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 Column04
- 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 Column05
- 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 = 1140.095
- EndProperty
- BeginProperty Column01
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column02
- ColumnWidth = 1065.26
- EndProperty
- BeginProperty Column03
- ColumnWidth = 1065.26
- EndProperty
- BeginProperty Column04
- ColumnWidth = 1470.047
- EndProperty
- BeginProperty Column05
- ColumnWidth = 1065.26
- EndProperty
- EndProperty
- End
- End
- Begin VB.Frame Frame4
- Height = 1695
- Left = 600
- TabIndex = 54
- Top = 6360
- Width = 10935
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "人力资源部负责人签字"
- Height = 285
- Index = 24
- Left = 6840
- TabIndex = 25
- Top = 1328
- Width = 1335
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "主办部门负责人签字"
- Height = 285
- Index = 21
- Left = 1080
- TabIndex = 23
- Top = 1328
- Width = 1335
- End
- Begin VB.TextBox txtFields
- DataField = "人力资源部成绩评估"
- Height = 735
- Index = 22
- Left = 5760
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 82
- Top = 480
- Width = 5055
- End
- Begin VB.TextBox txtFields
- DataField = "主办部门成绩评估"
- Height = 735
- Index = 7
- Left = 120
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 81
- Top = 480
- Width = 5055
- End
- Begin MSComCtl2.DTPicker DTPicker3
- DataField = "主办部门签字时间"
- Height = 300
- Left = 3600
- TabIndex = 24
- Top = 1320
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 64552961
- CurrentDate = 36186
- End
- Begin MSComCtl2.DTPicker DTPicker4
- DataField = "人力资源部签字时间"
- Height = 300
- Left = 9360
- TabIndex = 26
- Top = 1320
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 64552961
- CurrentDate = 36186
- End
- Begin VB.Label lblLabels
- Caption = "签字时间"
- Height = 255
- Index = 32
- Left = 8280
- TabIndex = 93
- Top = 1343
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "负责人签字"
- Height = 255
- Index = 26
- Left = 5760
- TabIndex = 92
- Top = 1343
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "签字时间"
- Height = 255
- Index = 25
- Left = 2520
- TabIndex = 91
- Top = 1343
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "负责人签字"
- Height = 255
- Index = 23
- Left = 120
- TabIndex = 90
- Top = 1343
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "主办部门成绩评估"
- Height = 255
- Index = 12
- Left = 120
- TabIndex = 56
- Top = 240
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "人力资源部成绩评估"
- Height = 255
- Index = 24
- Left = 5760
- TabIndex = 55
- Top = 240
- Width = 1815
- End
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训实施编号"
- Height = 285
- Index = 10
- Left = 2520
- TabIndex = 0
- Top = 400
- Width = 1455
- End
- Begin VB.Frame Frame13
- Height = 7935
- Left = -74880
- TabIndex = 86
- Top = 480
- Width = 11415
- Begin MSDataGridLib.DataGrid DataGrid2
- Height = 7575
- Left = 240
- TabIndex = 87
- Top = 240
- Width = 11055
- _ExtentX = 19500
- _ExtentY = 13361
- _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.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训实施计划编号"
- Height = 285
- Index = 0
- Left = 2520
- TabIndex = 3
- Top = 960
- Width = 1455
- End
- Begin VB.Frame Frame2
- Height = 1935
- Left = 600
- TabIndex = 63
- Top = 720
- Width = 10935
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "变动说明"
- Height = 645
- Index = 19
- Left = 7920
- TabIndex = 15
- Top = 1200
- Width = 2895
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "服务年限"
- Height = 285
- Index = 20
- Left = 9360
- TabIndex = 8
- Top = 600
- Width = 1455
- End
- Begin MSComCtl2.DTPicker DTPicker6
- DataField = "实际举办日期"
- Height = 300
- Left = 1080
- TabIndex = 12
- Top = 1560
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 64552961
- CurrentDate = 36188
- End
- Begin MSComCtl2.DTPicker DTPicker2
- DataField = "计划举办日期"
- Height = 300
- Left = 1080
- TabIndex = 9
- Top = 1200
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 64552961
- CurrentDate = 36186
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训对象"
- Height = 285
- Index = 6
- Left = 5880
- TabIndex = 7
- Top = 600
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训种类"
- Height = 285
- Index = 5
- Left = 1920
- TabIndex = 6
- Top = 600
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训计划编号"
- Height = 285
- Index = 4
- Left = 9360
- TabIndex = 5
- Top = 240
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "项目名称"
- Height = 285
- Index = 3
- Left = 5880
- TabIndex = 4
- Top = 240
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "实际参加人数"
- Height = 285
- Index = 12
- Left = 5880
- TabIndex = 14
- Top = 1560
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "实际培训时数"
- Height = 285
- Index = 11
- Left = 3600
- TabIndex = 13
- Top = 1560
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "计划参加人数"
- Height = 285
- Index = 9
- Left = 5880
- TabIndex = 11
- Top = 1200
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "计划培训时数"
- Height = 285
- Index = 8
- Left = 3600
- TabIndex = 10
- Top = 1200
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "实施计划编号"
- Height = 255
- Index = 18
- Left = 120
- TabIndex = 89
- Top = 240
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "变动说明"
- Height = 255
- Index = 19
- Left = 7920
- TabIndex = 84
- Top = 960
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "服务年限"
- Height = 255
- Index = 20
- Left = 7920
- TabIndex = 83
- Top = 600
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "培训计划编号"
- Height = 255
- Index = 4
- Left = 7920
- TabIndex = 79
- Top = 240
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "培训对象"
- Height = 255
- Index = 6
- Left = 4200
- TabIndex = 71
- Top = 600
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "培训种类"
- Height = 255
- Index = 5
- Left = 120
- TabIndex = 70
- Top = 600
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "项目名称"
- Height = 255
- Index = 3
- Left = 4200
- TabIndex = 69
- Top = 240
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "计划举办日期"
- Height = 255
- Index = 7
- Left = 1080
- TabIndex = 68
- Top = 960
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "计划培训时数"
- Height = 255
- Index = 8
- Left = 3600
- TabIndex = 67
- Top = 960
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "计划参加人数"
- Height = 255
- Index = 9
- Left = 6000
- TabIndex = 66
- Top = 960
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "实 际"
- Height = 255
- Index = 11
- Left = 120
- TabIndex = 65
- Top = 1560
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "计 划"
- Height = 255
- Index = 10
- Left = 120
- TabIndex = 64
- Top = 1200
- Width = 615
- End
- End
- Begin VB.Frame Frame3
- Height = 1215
- Left = 600
- TabIndex = 57
- Top = 2520
- Width = 10935
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "费用变动说明"
- Height = 645
- Index = 26
- Left = 7920
- TabIndex = 22
- Top = 480
- Width = 2895
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训费用合计实际"
- Height = 285
- Index = 18
- Left = 5880
- TabIndex = 21
- Top = 840
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训费用合计预算"
- Height = 285
- Index = 17
- Left = 5880
- TabIndex = 18
- Top = 480
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训费用间接实际"
- Height = 285
- Index = 16
- Left = 3600
- TabIndex = 20
- Top = 840
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训费用间接预算"
- Height = 285
- Index = 15
- Left = 3600
- TabIndex = 17
- Top = 480
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训费用直接实际"
- Height = 285
- Index = 14
- Left = 1080
- TabIndex = 19
- Top = 840
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "培训费用直接预算"
- Height = 285
- Index = 13
- Left = 1080
- TabIndex = 16
- Top = 480
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "费用变动说明"
- Height = 255
- Index = 33
- Left = 7920
- TabIndex = 94
- Top = 240
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "合 计"
- Height = 255
- Index = 17
- Left = 5880
- TabIndex = 62
- Top = 240
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "间接费用"
- Height = 255
- Index = 16
- Left = 3600
- TabIndex = 61
- Top = 240
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "直接费用"
- Height = 255
- Index = 15
- Left = 1080
- TabIndex = 60
- Top = 240
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "实际金额"
- Height = 255
- Index = 14
- Left = 120
- TabIndex = 59
- Top = 840
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "预算金额"
- Height = 255
- Index = 13
- Left = 120
- TabIndex = 58
- Top = 480
- Width = 975
- End
- End
- Begin VB.Frame Frame6
- Height = 1935
- Left = 120
- TabIndex = 52
- Top = 720
- Width = 495
- Begin VB.Label Label3
- Caption = "项目信息"
- Height = 1095
- Left = 120
- TabIndex = 53
- Top = 360
- Width = 255
- End
- End
- Begin VB.Frame Frame7
- Height = 1215
- Left = 120
- TabIndex = 50
- Top = 2520
- Width = 495
- Begin VB.Label lblLabels
- Caption = "费用"
- Height = 615
- Index = 21
- Left = 120
- TabIndex = 51
- Top = 360
- Width = 255
- End
- End
- Begin VB.Frame Frame8
- Height = 1215
- Left = 120
- TabIndex = 48
- Top = 3600
- Width = 495
- Begin VB.Label Label4
- Caption = "培训内容"
- Height = 855
- Left = 120
- TabIndex = 49
- Top = 240
- Width = 255
- End
- End
- Begin VB.Frame Frame12
- Height = 1815
- Left = 120
- TabIndex = 42
- Top = 4680
- Width = 495
- Begin VB.Label Label7
- Caption = "人员"
- Height = 375
- Left = 120
- TabIndex = 43
- Top = 360
- Width = 255
- End
- End
- Begin MSComCtl2.DTPicker DTPicker1
- DataField = "时间"
- Height = 300
- Left = 9960
- TabIndex = 2
- Top = 405
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 64552961
- CurrentDate = 36186
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "部门"
- Height = 285
- Index = 2
- Left = 6480
- TabIndex = 1
- Top = 400
- Width = 1455
- End
- Begin VB.Frame Frame1
- Height = 1215
- Left = 600
- TabIndex = 72
- Top = 3600
- Width = 10935
- Begin VB.TextBox txtFields
- DataField = "培训内容"
- Height = 615
- Index = 1
- Left = 0
- MultiLine = -1 'True
- ScrollBars = 2 'Vertical
- TabIndex = 80
- Top = 120
- Width = 10935
- End
- Begin VB.CheckBox Check1
- Caption = "口试"
- DataField = "口试"
- Height = 255
- Left = 1320
- TabIndex = 75
- Top = 840
- Width = 735
- End
- Begin VB.CheckBox Check2
- Caption = "笔试"
- DataField = "笔试"
- Height = 255
- Left = 3600
- TabIndex = 74
- Top = 840
- Width = 855
- End
- Begin VB.CheckBox Check3
- Caption = "实际操作"
- DataField = "实际操作"
- Height = 255
- Left = 5880
- TabIndex = 73
- Top = 840
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "考核方式"
- Height = 255
- Index = 22
- Left = 120
- TabIndex = 76
- Top = 840
- Width = 975
- End
- End
- Begin VB.Frame Frame9
- Height = 1695
- Left = 120
- TabIndex = 46
- Top = 6360
- Width = 495
- Begin VB.Label Label5
- Caption = "成效"
- Height = 495
- Left = 120
- TabIndex = 47
- Top = 480
- Width = 255
- End
- End
- Begin VB.Label lblLabels
- Caption = "实施编号:"
- Height = 255
- Index = 31
- Left = 600
- TabIndex = 88
- Top = 480
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "实施计划编号:"
- Height = 255
- Index = 0
- Left = 3360
- TabIndex = 85
- Top = 840
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "时 间"
- Height = 255
- Index = 1
- Left = 8520
- TabIndex = 78
- Top = 480
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "部 门"
- Height = 255
- Index = 2
- Left = 4800
- TabIndex = 77
- Top = 480
- Width = 1215
- End
- End
- Begin VB.TextBox txtFields
- DataField = "部门申请人签字时间"
- Height = 285
- Index = 30
- Left = 2040
- TabIndex = 39
- Top = 9660
- Width = 3375
- End
- Begin VB.TextBox txtFields
- DataField = "部门申请人签字"
- Height = 285
- Index = 29
- Left = 2040
- TabIndex = 37
- Top = 9340
- Width = 3375
- End
- Begin VB.TextBox txtFields
- DataField = "总经理签字时间"
- Height = 285
- Index = 28
- Left = 2040
- TabIndex = 35
- Top = 9020
- Width = 3375
- End
- Begin VB.TextBox txtFields
- DataField = "总经理签字"
- Height = 285
- Index = 27
- Left = 2040
- TabIndex = 33
- Top = 8700
- Width = 3375
- End
- Begin MSDataGridLib.DataGrid grdDataGrid
- Height = 1300
- Left = 0
- TabIndex = 40
- 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 = 38
- Top = 9660
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "部门申请人签字:"
- Height = 255
- Index = 29
- Left = 120
- TabIndex = 36
- Top = 9340
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "总经理签字时间:"
- Height = 255
- Index = 28
- Left = 120
- TabIndex = 34
- Top = 9020
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "总经理签字:"
- Height = 255
- Index = 27
- Left = 120
- TabIndex = 32
- Top = 8700
- Width = 1815
- End
- End
- Attribute VB_Name = "F_PeiXunXiangMuShiShi"
- 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 mbChangedByCode As Boolean
- Dim mvBookMark As Variant
- Dim mbEditFlag As Boolean
- Dim mbAddNewFlag As Boolean
- Dim mbDataChanged 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 DataGrid1_Error(ByVal DataError As Integer, Response As Integer)
- Response = 0
- MsgBox "输入数据不合法,请输入合法数据!", vbExclamation + vbOKOnly, pTitle
- End Sub
- 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 DTPicker4_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
- Set DTPicker1.DataSource = adoPrimaryRS
- Set DTPicker2.DataSource = adoPrimaryRS
- Set DTPicker3.DataSource = adoPrimaryRS
- Set DTPicker4.DataSource = adoPrimaryRS
- SetButtons True
- Set Check1.DataSource = adoPrimaryRS
- Set Check2.DataSource = adoPrimaryRS
- Set Check3.DataSource = adoPrimaryRS
- Set DataGrid2.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
- Set txtFields(10).DataSource = adoPrimaryRS
- Set txtFields(2).DataSource = adoPrimaryRS
- Set txtFields(0).DataSource = adoPrimaryRS
- Set txtFields(3).DataSource = adoPrimaryRS
- Set txtFields(4).DataSource = adoPrimaryRS
- Set txtFields(5).DataSource = adoPrimaryRS
- Set txtFields(6).DataSource = adoPrimaryRS
- Set txtFields(20).DataSource = adoPrimaryRS
- Set txtFields(8).DataSource = adoPrimaryRS
- Set txtFields(9).DataSource = adoPrimaryRS
- Set txtFields(12).DataSource = adoPrimaryRS
- Set txtFields(11).DataSource = adoPrimaryRS
- Set txtFields(19).DataSource = adoPrimaryRS
- Set txtFields(13).DataSource = adoPrimaryRS
- Set txtFields(14).DataSource = adoPrimaryRS
- Set txtFields(15).DataSource = adoPrimaryRS
- Set txtFields(16).DataSource = adoPrimaryRS
- Set txtFields(17).DataSource = adoPrimaryRS
- Set txtFields(18).DataSource = adoPrimaryRS
- Set txtFields(26).DataSource = adoPrimaryRS
- Set txtFields(1).DataSource = adoPrimaryRS
- Set txtFields(7).DataSource = adoPrimaryRS
- Set txtFields(22).DataSource = adoPrimaryRS
- Set txtFields(21).DataSource = adoPrimaryRS
- Set txtFields(24).DataSource = adoPrimaryRS
- If adoPrimaryRS.RecordCount <> 0 Then
- Set DataGrid1.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
- End If
- mbDataChanged = False
- 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.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
- On Error GoTo 0
- Exit Sub
- 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)
- 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
- 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 txtFields_Change(Index As Integer)
- If IsNumeric(txtFields(13).Text) And IsNumeric(txtFields(15).Text) And IsNumeric(txtFields(13).Text) Then
- txtFields(17) = CDbl(txtFields(13)) + CDbl(txtFields(15))
- End If
- If IsNumeric(txtFields(14).Text) And IsNumeric(txtFields(16).Text) And IsNumeric(txtFields(13).Text) Then
- txtFields(18) = CDbl(txtFields(14)) + CDbl(txtFields(16))
- 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 10
- If Not IsNull(Trim(txtFields(10).Text)) Then
- ' txtFields(10).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(4).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(8).Text = Trim(rs3("培训时数"))
- End If
- If Not IsNull(rs3("参加人数")) Then
- txtFields(9).Text = Trim(rs3("参加人数"))
- End If
- If Not IsNull(rs3("培训内容")) Then
- txtFields(1).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 8
- If Not IsNumeric(txtFields(8).Text) And (txtFields(8).Text <> "") Then
- MsgBox "请在“计划培训时数”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(8).SetFocus
- txtFields(8).SelStart = 0
- txtFields(8).SelLength = Len(txtFields(8))
- End If
- Case 9
- If Not IsNumeric(txtFields(9).Text) And (txtFields(9).Text <> "") Then
- MsgBox "请在“计划参加人数”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(9).SetFocus
- txtFields(9).SelStart = 0
- txtFields(9).SelLength = Len(txtFields(9))
- End If
- Case 11
- If Not IsNumeric(txtFields(11).Text) And (txtFields(11).Text <> "") Then
- MsgBox "请在“实际培训时数”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(11).SetFocus
- txtFields(11).SelStart = 0
- txtFields(11).SelLength = Len(txtFields(11))
- End If
- Case 12
- If Not IsNumeric(txtFields(12).Text) And (txtFields(12).Text <> "") Then
- MsgBox "请在“实际参加人数”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(12).SetFocus
- txtFields(12).SelStart = 0
- txtFields(12).SelLength = Len(txtFields(12))
- 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
- End Select
- If Index = 2 And Not IsNull(txtFields(10)) Then
- txtFields(10).Locked = True
- End If
- End Sub