📄 frmempremove.frm
字号:
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 1
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
DataMember = ""
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 0
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
Begin CQBureau.VSFlexGroup VSFlexGroup1
Height = 2895
Left = 90
TabIndex = 11
Top = 300
Width = 9240
_ExtentX = 16298
_ExtentY = 5106
End
Begin Listbar.SSListBar SSListBar4This
Height = 495
Left = 90
TabIndex = 12
Top = 3255
Width = 9240
_ExtentX = 16298
_ExtentY = 873
_Version = 65537
Alignment = 0
ForeColor = 16711680
Orientation = 1
TagVariant = ""
OLEDragMode = 1
OLEDropMode = 2
Style = 1
GroupCount = 2
IconsSmallCount = 1
SmallImage(1).Index= 1
SmallImage(1).Picture= "frmEmpRemove.frx":0099
Groups(1).ItemCount= 7
Groups(1).ForeColor= 16711680
Groups(1).PictureBackgroundStyle= 1
Groups(1).Style = 1
Groups(1).CurrentGroup= -1 'True
Groups(1).PictureBackground= "frmEmpRemove.frx":1C8C
Groups(1).Caption= "One"
Groups(1).ListItems(1).Text= "全选(&A)"
Groups(1).ListItems(1).IconSmall= 1
Groups(1).ListItems(2).Index= 2
Groups(1).ListItems(2).Text= "反选(&U)"
Groups(1).ListItems(2).IconSmall= 1
Groups(1).ListItems(3).Index= 3
Groups(1).ListItems(3).ForeColor= 16711680
Groups(1).ListItems(3).Text= "查询(&S)"
Groups(1).ListItems(3).IconSmall= 1
Groups(1).ListItems(4).Index= 4
Groups(1).ListItems(4).ForeColor= 16711680
Groups(1).ListItems(4).Text= "分类汇总(&L)"
Groups(1).ListItems(4).IconSmall= 1
Groups(1).ListItems(5).Index= 5
Groups(1).ListItems(5).ForeColor= 16711680
Groups(1).ListItems(5).Text= "导出EXCEL(&R)"
Groups(1).ListItems(5).IconSmall= 1
Groups(1).ListItems(6).Index= 6
Groups(1).ListItems(6).ForeColor= 16711680
Groups(1).ListItems(6).Text= "打印(&P)"
Groups(1).ListItems(6).IconSmall= 1
Groups(1).ListItems(7).Index= 7
Groups(1).ListItems(7).ForeColor= 16711680
Groups(1).ListItems(7).Text= "关闭(&C)"
Groups(1).ListItems(7).IconSmall= 1
Groups(2).Index = 2
Groups(2).ItemCount= 3
Groups(2).ForeColor= 16711680
Groups(2).PictureBackgroundStyle= 1
Groups(2).Style = 1
Groups(2).PictureBackground= "frmEmpRemove.frx":40AE
Groups(2).Caption= "Two"
Groups(2).ListItems(1).Text= "编辑(&E)"
Groups(2).ListItems(1).IconSmall= 1
Groups(2).ListItems(2).Index= 2
Groups(2).ListItems(2).Text= "调动处理(&I)"
Groups(2).ListItems(2).IconSmall= 1
Groups(2).ListItems(3).Index= 3
Groups(2).ListItems(3).Text= "删除(&D)"
Groups(2).ListItems(3).IconSmall= 1
End
End
End
Attribute VB_Name = "frmEmpRemove"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public oRs4This As New ADODB.Recordset
Private m_strSQL As String
Dim VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub
Private Sub Form_Load()
Me.Height = 5460
Me.Width = 9540
Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
Me.DTPicker4Start.Format = dtpCustom
Me.DTPicker4Start.CustomFormat = "yyyy年MM月"
Me.DTPicker4Start.Value = Null
Me.DTPicker4End.Format = dtpCustom
Me.DTPicker4End.CustomFormat = "yyyy年MM月"
Me.DTPicker4End.Value = Null
PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
FillComboBox SSComboBoxEx4Type, "t_REMOVE_SORT", "REMOVE_SORT_NO", "REMOVE_SORT_Name"
With VSFlexGrid4This
.Rows = 1
.Cols = 15
.FixedCols = 1
.FixedRows = 1
.ColWidth(0) = .RowHeight(0)
.ExtendLastCol = True
.AllowUserResizing = flexResizeColumns
.AllowBigSelection = False
.AllowSelection = False
.ExplorerBar = flexExSortShow
.SelectionMode = flexSelectionByRow
.ExtendLastCol = True
End With
VSFlexGrid4This_AfterDataRefresh
Call InitForm
Unload frmSplash
End Sub
Private Sub Form_Unload(Cancel As Integer)
MDIfrmMain.SSActiveToolBarsMain.Tools("ID_职工调动信息").Enabled = True
End Sub
Private Sub VSFlexGrid4This_AfterDataRefresh()
Dim lfor As Long
With VSFlexGrid4This
.Cols = 15
.FixedCols = 0
.ColWidth(0) = .RowHeight(0)
.ColDataType(0) = flexDTBoolean
.TextMatrix(0, 1) = "职工姓名"
.TextMatrix(0, 2) = "原工作单位"
.TextMatrix(0, 3) = "接收单位"
.TextMatrix(0, 5) = "职工移动类别"
.TextMatrix(0, 6) = "起（止）薪时间"
.TextMatrix(0, 7) = "调动起(止)时间"
.TextMatrix(0, 12) = "原工作单位认证"
.TextMatrix(0, 13) = "全局认证"
.TextMatrix(0, 14) = "接收单位认证"
.ColWidth(1) = .ClientWidth * 0.1
.ColWidth(2) = .ClientWidth * 0.16
.ColWidth(3) = .ClientWidth * 0.16
.ColWidth(5) = .ClientWidth * 0.16
.ColWidth(6) = .ClientWidth * 0.16
.ColWidth(7) = .ClientWidth * 0.16
.ColWidth(12) = .ClientWidth * 0.16
.ColWidth(13) = .ClientWidth * 0.16
.ColWidth(14) = .ClientWidth * 0.16
.ColHidden(4) = True
.ColHidden(8) = True
.ColHidden(9) = True
.ColHidden(10) = True
.ColHidden(11) = True
.ColDataType(12) = flexDTBoolean
.ColDataType(13) = flexDTBoolean
.ColDataType(14) = flexDTBoolean
For lfor = 1 To .Rows - 1
If .TextMatrix(lfor, 12) = 0 Then
.Cell(flexcpChecked, lfor, 12) = 2
.Cell(flexcpChecked, lfor, 13) = 2
.Cell(flexcpChecked, lfor, 14) = 2
ElseIf .TextMatrix(lfor, 12) = 1 Then
.Cell(flexcpChecked, lfor, 12) = 1
.Cell(flexcpChecked, lfor, 13) = 2
.Cell(flexcpChecked, lfor, 14) = 2
ElseIf .TextMatrix(lfor, 12) = 2 Then
.Cell(flexcpChecked, lfor, 12) = 1
.Cell(flexcpChecked, lfor, 13) = 1
.Cell(flexcpChecked, lfor, 14) = 2
ElseIf .TextMatrix(lfor, 12) = 3 Then
.Cell(flexcpChecked, lfor, 12) = 1
.Cell(flexcpChecked, lfor, 13) = 1
.Cell(flexcpChecked, lfor, 14) = 1
End If
If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
Next
.ColComboList(5) = g_strArray4ColComboList(C_T_REMOVE_SORT)
If .Rows - 1 < 1 Then
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).ForeColor = C_UNUSE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_UNUSE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_UNUSE_COLOR
Else
.Row = 1
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).ForeColor = C_USE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_USE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_USE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_USE_COLOR
Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_USE_COLOR
End If
End With
With VSFlexGrid4Group
.Cols = 15
.TextMatrix(0, 1) = "职工姓名"
.TextMatrix(0, 2) = "调出单位"
.TextMatrix(0, 3) = "调入单位"
.TextMatrix(0, 5) = "职工移动类别"
.TextMatrix(0, 6) = "起（止）薪时间"
.TextMatrix(0, 7) = "调动起(止)时间"
.TextMatrix(0, 12) = "调出单位认证"
.TextMatrix(0, 13) = "全局认证"
.TextMatrix(0, 14) = "调入单位认证"
.ColWidth(0) = .RowHeight(0)
.ColWidth(1) = .ClientWidth * 0.1
.ColWidth(2) = .ClientWidth * 0.16
.ColWidth(3) = .ClientWidth * 0.16
.ColWidth(5) = .ClientWidth * 0.16
.ColWidth(6) = .ClientWidth * 0.16
.ColWidth(7) = .ClientWidth * 0.16
.ColWidth(12) = .ClientWidth * 0.16
.ColWidth(13) = .ClientWidth * 0.16
.ColWidth(14) = .ClientWidth * 0.16
' .ColHidden(4) = True
' .ColHidden(8) = True
' .ColHidden(9) = True
.ColDataType(12) = flexDTBoolean
.ColDataType(13) = flexDTBoolean
.ColDataType(14) = flexDTBoolean
For lfor = 1 To .Rows - 1
If .TextMatrix(lfor, 12) = 0 Then
.Cell(flexcpChecked, lfor, 12) = 2
.Cell(flexcpChecked, lfor, 13) = 2
.Cell(flexcpChecked, lfor, 14) = 2
ElseIf .TextMatrix(lfor, 12) = 1 Then
.Cell(flexcpChecked, lfor, 12) = 1
.Cell(flexcpChecked, lfor, 13) = 2
.Cell(flexcpChecked, lfor, 14) = 2
ElseIf .TextMatrix(lfor, 12) = 2 Then
.Cell(flexcpChecked, lfor, 12) = 1
.Cell(flexcpChecked, lfor, 13) = 1
.Cell(flexcpChecked, lfor, 14) = 2
ElseIf .TextMatrix(lfor, 12) = 3 Then
.Cell(flexcpChecked, lfor, 12) = 1
.Cell(flexcpChecked, lfor, 13) = 1
.Cell(flexcpChecked, lfor, 14) = 1
End If
If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
Next
.ColComboList(5) = g_strArray4ColComboList(C_T_REMOVE_SORT)
End With
vsElastic.Caption = "查询结果(总计" & VSFlexGrid4This.Rows - 1 & "条记录)"
End Sub
Private Sub InitForm()
'1位查询，2位增加，3位修改，4位删除，5位导出到excel，6位打印,7位其他
Dim str4CheckPermission As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -