📄 f_peixunshishijihua1.frm
字号:
Caption = "呈核"
Height = 495
Left = 120
TabIndex = 70
Top = 480
Width = 255
End
End
Begin VB.Frame Frame9
Height = 1215
Left = 600
TabIndex = 58
Top = 6720
Width = 10935
Begin MSComCtl2.DTPicker DTPicker6
DataField = "部门申请人签字时间"
Height = 300
Left = 9240
TabIndex = 82
Top = 840
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
Format = 66519041
CurrentDate = 36186
End
Begin MSComCtl2.DTPicker DTPicker5
DataField = "总经理签字时间"
Height = 300
Left = 6720
TabIndex = 81
Top = 840
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
Format = 66519041
CurrentDate = 36186
End
Begin MSComCtl2.DTPicker DTPicker4
DataField = "财务部签字时间"
Height = 300
Left = 4080
TabIndex = 80
Top = 840
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
Format = 66519041
CurrentDate = 36186
End
Begin MSComCtl2.DTPicker DTPicker3
DataField = "人力资源部签字时间"
Height = 300
Left = 1200
TabIndex = 79
Top = 840
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
Format = 66519041
CurrentDate = 36186
End
Begin VB.TextBox txtFields
DataField = "人力资源部经理签字"
Height = 285
Index = 23
Left = 1200
TabIndex = 62
Top = 480
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "财务部经理签字"
Height = 285
Index = 25
Left = 4080
TabIndex = 61
Top = 480
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "总经理签字"
Height = 285
Index = 12
Left = 6720
TabIndex = 60
Top = 480
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "部门申请人签字"
Height = 285
Index = 31
Left = 9240
TabIndex = 59
Top = 480
Width = 1455
End
Begin VB.Label lblLabels
Caption = "人力资源部:"
Height = 255
Index = 23
Left = 1200
TabIndex = 68
Top = 240
Width = 1095
End
Begin VB.Label lblLabels
Caption = "签字时间:"
Height = 255
Index = 24
Left = 240
TabIndex = 67
Top = 840
Width = 855
End
Begin VB.Label lblLabels
Caption = "财务部:"
Height = 255
Index = 25
Left = 4080
TabIndex = 66
Top = 240
Width = 975
End
Begin VB.Label Label3
Caption = "总经理"
Height = 255
Left = 6720
TabIndex = 65
Top = 240
Width = 975
End
Begin VB.Label Label4
Caption = "部门申请人"
Height = 255
Left = 9240
TabIndex = 64
Top = 240
Width = 1095
End
Begin VB.Label Label5
Caption = "经理签字"
Height = 255
Left = 240
TabIndex = 63
Top = 480
Width = 855
End
End
Begin VB.TextBox txtFields
DataField = "部门"
Height = 285
Index = 2
Left = 6000
TabIndex = 11
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 = 10
Top = 480
Width = 495
End
Begin VB.Label lblLabels
Caption = "时间:"
Height = 255
Index = 1
Left = 8160
TabIndex = 9
Top = 480
Width = 615
End
End
Begin VB.TextBox txtFields
DataField = "部门申请人签字时间"
Height = 285
Index = 30
Left = 2040
TabIndex = 6
Top = 9660
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "部门申请人签字"
Height = 285
Index = 29
Left = 2040
TabIndex = 4
Top = 9340
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "总经理签字时间"
Height = 285
Index = 28
Left = 2040
TabIndex = 2
Top = 9020
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "总经理签字"
Height = 285
Index = 27
Left = 2040
TabIndex = 0
Top = 8700
Width = 3375
End
Begin MSDataGridLib.DataGrid grdDataGrid
Height = 1300
Left = 0
TabIndex = 7
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 = 5
Top = 9660
Width = 1815
End
Begin VB.Label lblLabels
Caption = "部门申请人签字:"
Height = 255
Index = 29
Left = 120
TabIndex = 3
Top = 9340
Width = 1815
End
Begin VB.Label lblLabels
Caption = "总经理签字时间:"
Height = 255
Index = 28
Left = 120
TabIndex = 1
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 Form_Load()
On Error Resume Next
For Each TextBox In Me.Controls
TextBox.Font.Name = "宋体"
TextBox.Font.Size = 9
Next
Set adoPrimaryRS = New Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -