?? 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 + -