📄 main_rsgl_zyfz.frm
字号:
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column27
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 Column28
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 Column29
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 Column30
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 Column31
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 Column32
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 Column33
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 Column34
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 Column35
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 Column36
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 = 555.024
EndProperty
BeginProperty Column01
ColumnWidth = 884.976
EndProperty
BeginProperty Column02
ColumnWidth = 434.835
EndProperty
BeginProperty Column03
ColumnWidth = 1275.024
EndProperty
BeginProperty Column04
ColumnWidth = 1275.024
EndProperty
BeginProperty Column05
ColumnWidth = 599.811
EndProperty
BeginProperty Column06
ColumnWidth = 824.882
EndProperty
BeginProperty Column07
ColumnWidth = 854.929
EndProperty
BeginProperty Column08
ColumnWidth = 1035.213
EndProperty
BeginProperty Column09
ColumnWidth = 675.213
EndProperty
BeginProperty Column10
ColumnWidth = 1200.189
EndProperty
BeginProperty Column11
ColumnWidth = 1200.189
EndProperty
BeginProperty Column12
ColumnWidth = 1440
EndProperty
BeginProperty Column13
ColumnWidth = 1244.976
EndProperty
BeginProperty Column14
ColumnWidth = 689.953
EndProperty
BeginProperty Column15
ColumnWidth = 780.095
EndProperty
BeginProperty Column16
ColumnWidth = 599.811
EndProperty
BeginProperty Column17
ColumnWidth = 1275.024
EndProperty
BeginProperty Column18
ColumnWidth = 645.165
EndProperty
BeginProperty Column19
ColumnWidth = 734.74
EndProperty
BeginProperty Column20
ColumnWidth = 615.118
EndProperty
BeginProperty Column21
ColumnWidth = 555.024
EndProperty
BeginProperty Column22
ColumnWidth = 555.024
EndProperty
BeginProperty Column23
ColumnWidth = 824.882
EndProperty
BeginProperty Column24
ColumnWidth = 810.142
EndProperty
BeginProperty Column25
ColumnWidth = 1275.024
EndProperty
BeginProperty Column26
ColumnWidth = 989.858
EndProperty
BeginProperty Column27
ColumnWidth = 1260.284
EndProperty
BeginProperty Column28
ColumnWidth = 645.165
EndProperty
BeginProperty Column29
ColumnWidth = 1080
EndProperty
BeginProperty Column30
ColumnWidth = 1214.929
EndProperty
BeginProperty Column31
ColumnWidth = 1170.142
EndProperty
BeginProperty Column32
ColumnWidth = 1080
EndProperty
BeginProperty Column33
ColumnWidth = 915.024
EndProperty
BeginProperty Column34
ColumnWidth = 2085.166
EndProperty
BeginProperty Column35
ColumnWidth = 2085.166
EndProperty
BeginProperty Column36
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.Frame Frame3
Caption = "离职信息"
Height = 660
Left = 15
TabIndex = 32
Top = 825
Width = 10410
Begin VB.TextBox Text2
Height = 330
Index = 0
Left = 7260
Locked = -1 'True
TabIndex = 33
Top = 225
Width = 3030
End
Begin MSComCtl2.DTPicker DTP1
Height = 300
Left = 1005
TabIndex = 34
Top = 225
Width = 1800
_ExtentX = 3175
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 48103425
CurrentDate = 38698
End
Begin MSComCtl2.DTPicker DTP2
Height = 300
Left = 4245
TabIndex = 35
Top = 225
Width = 1800
_ExtentX = 3175
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 48103425
CurrentDate = 38698
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "离职时间："
Height = 210
Left = 60
TabIndex = 38
Top = 285
Width = 900
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "离职登记时间："
Height = 210
Left = 2955
TabIndex = 37
Top = 285
Width = 1305
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "离职登记人："
Height = 210
Left = 6180
TabIndex = 36
Top = 285
Width = 1170
End
End
End
Attribute VB_Name = "main_rsgl_zyfz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
With Adodc1.Recordset
If Adodc1.Recordset.RecordCount > 0 Then
Text1(0) = .Fields("编号")
Text1(1) = .Fields("姓名")
Text1(2) = .Fields("部门")
Text1(3) = .Fields("工种")
Text1(4) = .Fields("职务")
Text1(5) = .Fields("职称")
Text1(6) = .Fields("基本工资")
Text1(7) = .Fields("其它工资")
Text1(8) = .Fields("本单位工龄")
Text1(9) = .Fields("登记日期")
Text1(10) = .Fields("调入时间")
DTP1.Value = .Fields("离职时间")
DTP2.Value = .Fields("离职登记日期")
Text2(0) = .Fields("离职登记人")
End If
End With
End Sub
Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DTP2.SetFocus
End Sub
Private Sub DTP2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2(0).SetFocus
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
Private Sub Form_Load()
Me.Caption = text
DataGrid1_RowColChange 0, 0
Text2(1) = czy
DTP3.Value = Date
DTP4.Value = Date
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sql1 = ""
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "find"
tb1 = "离职表"
Load main_fzfind
main_fzfind.Show 1
Case "all"
Adodc1.RecordSource = "select * from 离职表 where 是否复职=0 order by 编号"
Adodc1.Refresh
Case "rehab"
Cnn.Execute ("insert into 人事表 select 编号,姓名,性别,身份证号,出生年月,年龄,民族,婚姻状况,政治面貌,入党团时间,籍贯," _
& "联系电话,手机号码,家庭地址,毕业院校,专业,文化程度,特长,参加工作时间,总工龄,照片,部门,工种,职务," _
& "职称,基本工资,其它工资,调入时间,本单位工龄,简历,登记人,登记日期 from 离职表 where 编号='" + Text1(0) + "'")
Cnn.Execute ("update 离职表 set 复职时间='" + str(DTP3.Value) + "',复职登记日期='" + str(DTP4.Value) + _
"',复职登记人='" + Text2(1) + "',是否复职=1 where 编号='" + Text1(0) + "'")
Adodc1.Refresh
Case "close"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -