📄 f_peixunxiangmushishi.frm
字号:
Width = 855
End
Begin VB.Label lblLabels
Caption = "直接费用:"
Height = 255
Index = 15
Left = 1080
TabIndex = 34
Top = 240
Width = 855
End
Begin VB.Label lblLabels
Caption = "实际金额:"
Height = 255
Index = 14
Left = 120
TabIndex = 33
Top = 840
Width = 855
End
Begin VB.Label lblLabels
Caption = "预算金额:"
Height = 255
Index = 13
Left = 120
TabIndex = 32
Top = 480
Width = 975
End
End
Begin VB.Frame Frame6
Height = 1935
Left = 120
TabIndex = 20
Top = 720
Width = 495
Begin VB.Label Label3
Caption = "项目信息"
Height = 1095
Left = 120
TabIndex = 21
Top = 360
Width = 255
End
End
Begin VB.Frame Frame7
Height = 1215
Left = 120
TabIndex = 18
Top = 2520
Width = 495
Begin VB.Label lblLabels
Caption = "费用:"
Height = 615
Index = 21
Left = 120
TabIndex = 19
Top = 360
Width = 255
End
End
Begin VB.Frame Frame8
Height = 1215
Left = 120
TabIndex = 16
Top = 3600
Width = 495
Begin VB.Label Label4
Caption = "培训内容"
Height = 855
Left = 120
TabIndex = 17
Top = 240
Width = 255
End
End
Begin VB.Frame Frame12
Height = 1815
Left = 120
TabIndex = 10
Top = 4680
Width = 495
Begin VB.Label Label7
Caption = "人员"
Height = 375
Left = 120
TabIndex = 11
Top = 360
Width = 255
End
End
Begin MSComCtl2.DTPicker DTPicker1
DataField = "时间"
Height = 300
Left = 9960
TabIndex = 62
Top = 405
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
DateIsNull = -1 'True
Format = 66519041
CurrentDate = 36186
End
Begin VB.TextBox txtFields
DataField = "部门"
Height = 285
Index = 2
Left = 6480
TabIndex = 59
Top = 400
Width = 1455
End
Begin VB.Frame Frame1
Height = 1215
Left = 600
TabIndex = 54
Top = 3600
Width = 10935
Begin VB.TextBox txtFields
DataField = "培训内容"
Height = 615
Index = 1
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 65
Top = 120
Width = 10935
End
Begin VB.CheckBox Check1
Caption = "口试"
DataField = "口试"
Height = 255
Left = 1320
TabIndex = 57
Top = 840
Width = 735
End
Begin VB.CheckBox Check2
Caption = "笔试"
DataField = "笔试"
Height = 255
Left = 3600
TabIndex = 56
Top = 840
Width = 855
End
Begin VB.CheckBox Check3
Caption = "实际操作"
DataField = "实际操作"
Height = 255
Left = 5880
TabIndex = 55
Top = 840
Width = 1335
End
Begin VB.Label lblLabels
Caption = "考核方式:"
Height = 255
Index = 22
Left = 120
TabIndex = 58
Top = 840
Width = 975
End
End
Begin VB.Frame Frame9
Height = 1695
Left = 120
TabIndex = 14
Top = 6360
Width = 495
Begin VB.Label Label5
Caption = "成效"
Height = 495
Left = 120
TabIndex = 15
Top = 480
Width = 255
End
End
Begin VB.Label lblLabels
Caption = "实施编号:"
Height = 255
Index = 31
Left = 600
TabIndex = 86
Top = 480
Width = 735
End
Begin VB.Label lblLabels
Caption = "实施计划编号:"
Height = 255
Index = 0
Left = 3360
TabIndex = 82
Top = 840
Width = 1215
End
Begin VB.Label lblLabels
Caption = "时间:"
Height = 255
Index = 1
Left = 8520
TabIndex = 61
Top = 480
Width = 735
End
Begin VB.Label lblLabels
Caption = "部门:"
Height = 255
Index = 2
Left = 4800
TabIndex = 60
Top = 480
Width = 615
End
End
Begin VB.TextBox txtFields
DataField = "部门申请人签字时间"
Height = 285
Index = 30
Left = 2040
TabIndex = 7
Top = 9660
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "部门申请人签字"
Height = 285
Index = 29
Left = 2040
TabIndex = 5
Top = 9340
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "总经理签字时间"
Height = 285
Index = 28
Left = 2040
TabIndex = 3
Top = 9020
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "总经理签字"
Height = 285
Index = 27
Left = 2040
TabIndex = 1
Top = 8700
Width = 3375
End
Begin MSDataGridLib.DataGrid grdDataGrid
Height = 1300
Left = 0
TabIndex = 8
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 = 6
Top = 9660
Width = 1815
End
Begin VB.Label lblLabels
Caption = "部门申请人签字:"
Height = 255
Index = 29
Left = 120
TabIndex = 4
Top = 9340
Width = 1815
End
Begin VB.Label lblLabels
Caption = "总经理签字时间:"
Height = 255
Index = 28
Left = 120
TabIndex = 2
Top = 9020
Width = 1815
End
Begin VB.Label lblLabels
Caption = "总经理签字:"
Height = 255
Index = 27
Left = 120
TabIndex = 0
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -