📄 main_rsgl_zylz.frm
字号:
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
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
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 750.047
EndProperty
BeginProperty Column01
ColumnWidth = 824.882
EndProperty
BeginProperty Column02
ColumnWidth = 420.095
EndProperty
BeginProperty Column03
ColumnWidth = 1244.976
EndProperty
BeginProperty Column04
ColumnWidth = 870.236
EndProperty
BeginProperty Column05
ColumnWidth = 540.284
EndProperty
BeginProperty Column06
ColumnWidth = 824.882
EndProperty
BeginProperty Column07
ColumnWidth = 810.142
EndProperty
BeginProperty Column08
ColumnWidth = 945.071
EndProperty
BeginProperty Column09
ColumnWidth = 824.882
EndProperty
BeginProperty Column10
ColumnWidth = 1289.764
EndProperty
BeginProperty Column11
ColumnWidth = 1065.26
EndProperty
BeginProperty Column12
ColumnWidth = 1019.906
EndProperty
BeginProperty Column13
ColumnWidth = 929.764
EndProperty
BeginProperty Column14
ColumnWidth = 794.835
EndProperty
BeginProperty Column15
ColumnWidth = 824.882
EndProperty
BeginProperty Column16
ColumnWidth = 794.835
EndProperty
BeginProperty Column17
ColumnWidth = 1170.142
EndProperty
BeginProperty Column18
ColumnWidth = 629.858
EndProperty
BeginProperty Column19
ColumnWidth = 705.26
EndProperty
BeginProperty Column20
ColumnWidth = 450.142
EndProperty
BeginProperty Column21
ColumnWidth = 480.189
EndProperty
BeginProperty Column22
ColumnWidth = 510.236
EndProperty
BeginProperty Column23
ColumnWidth = 824.882
EndProperty
BeginProperty Column24
ColumnWidth = 900.284
EndProperty
BeginProperty Column25
ColumnWidth = 870.236
EndProperty
BeginProperty Column26
ColumnWidth = 975.118
EndProperty
BeginProperty Column27
ColumnWidth = 1094.74
EndProperty
BeginProperty Column28
ColumnWidth = 764.787
EndProperty
BeginProperty Column29
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
Attribute VB_Name = "main_rsgl_zylz"
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("调入时间")
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.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
DTP1.Value = Date
DTP2.Value = Date
Text2 = czy
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 人事表 order by 编号"
Adodc1.Refresh
Case "dimission"
Cnn.Execute ("insert into 离职表(编号,姓名,性别,身份证号,出生年月,年龄,民族,婚姻状况,政治面貌,入党团时间,籍贯," _
& "联系电话,手机号码,家庭地址,毕业院校,专业,文化程度,特长,参加工作时间,总工龄,照片,部门,工种,职务," _
& "职称,基本工资,其它工资,调入时间,本单位工龄,简历,登记人,登记日期) select * from 人事表 where 编号='" + Text1(0) + "'")
Cnn.Execute ("update 离职表 set 离职时间='" + str(DTP1.Value) + "',离职登记日期='" + str(DTP2.Value) + "',离职登记人='" + Text2 + "',是否复职=0 where 编号='" + Text1(0) + "'")
Cnn.Execute ("delete from 人事表 where 编号='" + Text1(0) + "'")
Adodc1.Refresh
Case "close"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -