📄 leave_reworkselect.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmLeave_ReworkSelect
Caption = "员工离/复职查询"
ClientHeight = 7635
ClientLeft = 2205
ClientTop = 1845
ClientWidth = 9945
LinkTopic = "Form1"
ScaleHeight = 7635
ScaleWidth = 9945
WindowState = 2 'Maximized
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 5295
Left = 120
TabIndex = 15
Top = 2040
Width = 9735
_ExtentX = 17171
_ExtentY = 9340
_Version = 393216
SelectionMode = 1
End
Begin VB.Frame Frame2
Caption = "显示信息："
Height = 1335
Left = 6120
TabIndex = 11
Top = 600
Width = 3735
Begin VB.OptionButton OptShowYfu
Caption = "只显示已复职的信息"
Height = 420
Left = 240
TabIndex = 14
Top = 840
Width = 2895
End
Begin VB.OptionButton OptShowNfu
Caption = "只显示未复职的信息"
Height = 255
Left = 240
TabIndex = 13
Top = 600
Width = 2055
End
Begin VB.OptionButton OptShowAll
Caption = "显示所有离/复职信息"
Height = 375
Left = 240
TabIndex = 12
Top = 240
Value = -1 'True
Width = 2895
End
Begin VB.Label Label6
Caption = "Label6"
Height = 255
Left = 2400
TabIndex = 17
Top = 960
Width = 975
End
Begin VB.Label Label5
Caption = "Label5"
Height = 255
Left = 2400
TabIndex = 16
Top = 360
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "离职信息："
Height = 1335
Left = 120
TabIndex = 1
Top = 600
Width = 5895
Begin VB.TextBox txtReworkDate
Height = 270
Left = 4200
TabIndex = 10
Top = 840
Width = 1575
End
Begin VB.OptionButton OptNfu
Caption = "否"
Height = 255
Left = 2040
TabIndex = 8
Top = 840
Width = 495
End
Begin VB.OptionButton OptYfu
Caption = "是"
Height = 255
Left = 1320
TabIndex = 7
Top = 840
Width = 735
End
Begin VB.TextBox txtLeaveRegister
Height = 270
Left = 4200
TabIndex = 5
Top = 360
Width = 1575
End
Begin VB.TextBox txtLeaveDate
Height = 270
Left = 1200
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.Label Label4
Caption = "复职时间："
Height = 255
Left = 3120
TabIndex = 9
Top = 840
Width = 1095
End
Begin VB.Label Label3
Caption = "是否复职："
Height = 255
Left = 240
TabIndex = 6
Top = 840
Width = 975
End
Begin VB.Label Label2
Caption = "离职登记人："
Height = 255
Left = 3000
TabIndex = 4
Top = 360
Width = 1215
End
Begin VB.Label Label1
Caption = "离职时间："
Height = 255
Left = 240
TabIndex = 2
Top = 360
Width = 1095
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 9945
_ExtentX = 17542
_ExtentY = 1005
ButtonWidth = 847
ButtonHeight = 953
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "Select"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全部"
Key = "All"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "Excel"
Key = "Excel"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "离职"
Key = "Leave"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "复职"
Key = "Rework"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Back"
EndProperty
EndProperty
BorderStyle = 1
End
End
Attribute VB_Name = "frmLeave_ReworkSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Search = 0
LoadType = 0
MyRefresh_frmLeave_ReworkSelect
End Sub
Private Sub MSFlexGrid1_Click()
Dim adors As New Recordset
Dim strSQL As String
Set adors.ActiveConnection = ADOcn
Dim mystr As String
MSFlexGrid1.Col = 3
mystr = MSFlexGrid1.Text
If LoadType = 0 Then
strSQL = "Select * From 离职档案 Where 编号='" + mystr + "'"
ElseIf LoadType = 1 Then
strSQL = "Select * From 离职档案 Where 编号='" + mystr + "'and 是否复职=false "
ElseIf LoadType = 2 Then
strSQL = "Select * From 离职档案 Where 编号='" + mystr + "'and 是否复职=true "
End If
adors.Open strSQL
If Not adors.EOF Then
txtLeaveDate = Trim(adors("离职时间"))
txtLeaveRegistDate = Trim(adors("离职登记日期"))
txtLeaveRegister = adors("离职登记人")
txtReworkDate = adors("复职时间")
If adors("是否复职") = "False" Then
OptNfu.Value = True
OptYfu.Value = False
ElseIf adors("是否复职") = "True" Then
OptNfu.Value = False
OptYfu.Value = True
End If
End If
End Sub
Private Sub OptShowAll_Click()
OptShowNfu.Value = False
OptShowAll.Value = True
OptShowYfu.Value = False
LoadType = 0
If LoadType = 0 And Search <> 7 Then
MyRefresh_frmLeave_ReworkSelect
ElseIf LoadType = 0 And Search = 7 Then
Leave_Rework
End If
End Sub
Private Sub OptShowNfu_Click()
OptShowNfu.Value = True
OptShowAll.Value = False
OptShowYfu.Value = False
LoadType = 1
If LoadType = 1 And Search = 0 Then
MyRefresh_frmLeave_ReworkSelect
ElseIf LoadType = 1 And Search = 7 Then
Leave_Rework
End If
End Sub
Private Sub OptShowYfu_Click()
OptShowNfu.Value = False
OptShowAll.Value = False
OptShowYfu.Value = True
LoadType = 2
If LoadType = 2 And Search = 0 Then
MyRefresh_frmLeave_ReworkSelect
ElseIf LoadType = 2 And Search = 7 Then
Leave_Rework
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Select"
Search = 7
ComboAddItem
frmSelect.Show
Case "All"
Search = 0
MyRefresh_frmLeave_ReworkSelect
Case "Back"
Search = 0
Unload Me
End Select
End Sub
Private Sub ComboAddItem()
frmSelect.comboyiju.AddItem ("离职时间")
frmSelect.comboyiju.AddItem ("离职登记日期")
frmSelect.comboyiju.AddItem ("离职登记人员")
frmSelect.comboyiju.AddItem ("复职时间")
frmSelect.comboyiju.AddItem ("复职登记日期")
frmSelect.comboyiju.AddItem ("复职登记人员")
End Sub
Private Sub Leave_Rework()
Dim adors As New Recordset
Dim strSQL As String
Dim i As Integer
adors.ActiveConnection = ADOcn
frmLeave_ReworkSelect.MSFlexGrid1.Clear
frmLeave_ReworkSelect.MSFlexGrid1.Rows = 1
frmLeave_ReworkSelect.MSFlexGrid1.Cols = 37
frmLeave_ReworkSelect.MSFlexGrid1.FixedRows = 0 '不锁定第一行
'加表的标题
strTitle = "离职时间" + vbTab + "离职登记日期" + vbTab + "离职登记人" + vbTab + "编号" + vbTab + "姓名" + vbTab + "性别" + vbTab + "身份证号" + vbTab + "出生年月" + vbTab + "民族" + vbTab + "婚姻状况" + vbTab + "政治面貌" + vbTab + "入党团时间" + vbTab + "籍贯" + vbTab + "家庭地址" + vbTab + "联系电话" + vbTab + "手机号码" + vbTab + "电子邮箱" + vbTab + "其它联系方式" + vbTab + "参加工作时间" + vbTab + "总工龄" + vbTab + "自定义项目1" + vbTab + "自定义项目2" + vbTab + "部门" + vbTab + "工种" + vbTab + "职务" + vbTab + "职称" + vbTab + "调入时间" + vbTab + "本单位工龄" + vbTab + "基本工资" + vbTab + "其它工资" + vbTab + "毕业院校" + vbTab + "专业" + vbTab + "文化程度" + vbTab + "特长" + vbTab + "简历" + vbTab + "登记日期" + vbTab + "登记人"
frmLeave_ReworkSelect.MSFlexGrid1.AddItem strTitle, 0
frmLeave_ReworkSelect.MSFlexGrid1.FixedRows = 1 ' 锁定第一行
If LoadType = 0 Then
strSQL = "select * from 离职档案 where " + Label5.Caption + " = '" + Label6.Caption + "'"
ElseIf LoadType = 2 Then
strSQL = "select * from 离职档案 where " + Label5.Caption + " = '" + Label6.Caption + "' and 是否复职=true"
ElseIf LoadType = 1 Then
strSQL = "select * from 离职档案 where " + Label5.Caption + " = '" + Label6.Caption + "' and 是否复职=false"
End If
adors.Open strSQL
i = 1
Do While Not adors.EOF
strTitle = LTrim(adors("离职时间")) + vbTab + LTrim(adors("离职登记日期")) + vbTab + adors("离职登记人") + vbTab + adors("编号") + vbTab + adors("姓名") + vbTab + adors("性别") + vbTab + adors("身份证号") + vbTab
strTitle = strTitle + LTrim(adors("出生年月")) + vbTab + adors("民族") + vbTab + adors("婚姻状况") + vbTab + adors("政治面貌") + vbTab + LTrim(adors("入党团时间")) + vbTab + adors("籍贯") + vbTab + adors("家庭地址") + vbTab
strTitle = strTitle + adors("联系电话") + vbTab + adors("手机号码") + vbTab + adors("电子邮箱") + vbTab + adors("其它联系方式") + vbTab + LTrim(adors("参加工作时间")) + vbTab + LTrim(adors("总工龄")) + vbTab
strTitle = strTitle + adors("自定义项目1") + vbTab + adors("自定义项目2") + vbTab + adors("部门") + vbTab + adors("工种") + vbTab + adors("职务") + vbTab + adors("职称") + vbTab + LTrim(adors("调入时间")) + vbTab
strTitle = strTitle + LTrim(adors("本单位工龄")) + vbTab + adors("基本工资") + vbTab + adors("其它工资") + vbTab + adors("毕业院校") + vbTab + adors("专业") + vbTab + adors("文化程度") + vbTab + adors("特长") + vbTab + adors("简历") + vbTab + LTrim(adors("登记日期")) + vbTab + adors("登记人")
frmLeave_ReworkSelect.MSFlexGrid1.AddItem strTitle, i
adors.MoveNext
i = i + 1
Loop
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -