📄 main_yggl_modify.frm
字号:
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column14
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 Column15
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 Column16
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 Column17
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 Column18
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 Column19
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 Column20
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 Column21
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 Column22
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 Column23
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 Column24
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 Column25
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 Column26
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
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 510.236
EndProperty
BeginProperty Column01
ColumnWidth = 764.787
EndProperty
BeginProperty Column02
ColumnWidth = 645.165
EndProperty
BeginProperty Column03
ColumnWidth = 1349.858
EndProperty
BeginProperty Column04
ColumnWidth = 840.189
EndProperty
BeginProperty Column05
ColumnWidth = 420.095
EndProperty
BeginProperty Column06
ColumnWidth = 599.811
EndProperty
BeginProperty Column07
ColumnWidth = 824.882
EndProperty
BeginProperty Column08
ColumnWidth = 810.142
EndProperty
BeginProperty Column09
ColumnWidth = 1065.26
EndProperty
BeginProperty Column10
ColumnWidth = 945.071
EndProperty
BeginProperty Column11
ColumnWidth = 870.236
EndProperty
BeginProperty Column12
ColumnWidth = 1409.953
EndProperty
BeginProperty Column13
ColumnWidth = 1500.095
EndProperty
BeginProperty Column14
ColumnWidth = 1365.165
EndProperty
BeginProperty Column15
ColumnWidth = 585.071
EndProperty
BeginProperty Column16
ColumnWidth = 794.835
EndProperty
BeginProperty Column17
ColumnWidth = 959.811
EndProperty
BeginProperty Column18
ColumnWidth = 1184.882
EndProperty
BeginProperty Column19
ColumnWidth = 1094.74
EndProperty
BeginProperty Column20
ColumnWidth = 494.929
EndProperty
BeginProperty Column21
ColumnWidth = 945.071
EndProperty
BeginProperty Column22
ColumnWidth = 629.858
EndProperty
BeginProperty Column23
ColumnWidth = 510.236
EndProperty
BeginProperty Column24
ColumnWidth = 810.142
EndProperty
BeginProperty Column25
ColumnWidth = 900.284
EndProperty
BeginProperty Column26
ColumnWidth = 1094.74
EndProperty
EndProperty
End
End
Attribute VB_Name = "main_yggl_modify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDelete_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
End Sub
Private Sub cmdExit_Click()
sql1 = ""
Unload Me
End Sub
Private Sub cmdFind_Click()
tb1 = "员工信息表"
Load main_fzfind
main_fzfind.Show
End Sub
Private Sub cmdModify_Click()
DataGrid1_DblClick
End Sub
Private Sub DataGrid1_DblClick()
If blnAddRS = False Then
Load main_yggl_addmodify
main_yggl_addmodify.Show
End If
End Sub
Private Sub Form_Activate()
If sql1 <> "" Then
Adodc1.RecordSource = "select * from " & sql1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Else
MsgBox "没有找到符合条件的记录！", , "提示窗口"
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -