📄 frmwageevolvment.frm
字号:
Begin VB.TextBox Text4StartWage
Height = 285
Left = 4740
TabIndex = 2
Top = 1020
Width = 1485
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Small
Height = 300
Left = 6285
TabIndex = 6
Top = 300
Width = 1485
_ExtentX = 2619
_ExtentY = 529
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Large
Height = 300
Left = 4740
TabIndex = 7
Top = 300
Width = 1485
_ExtentX = 2619
_ExtentY = 529
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Company
Height = 300
Left = 3180
TabIndex = 8
Top = 300
Width = 1500
_ExtentX = 2646
_ExtentY = 529
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Organ
Height = 300
Left = 1635
TabIndex = 9
Top = 300
Width = 1485
_ExtentX = 2619
_ExtentY = 529
_Version = 65536
End
Begin MSComCtl2.DTPicker DTPicker4EndEvolvementTime
Height = 300
Left = 7830
TabIndex = 10
Top = 1365
Width = 1500
_ExtentX = 2646
_ExtentY = 529
_Version = 393216
CheckBox = -1 'True
Format = 69402624
CurrentDate = 37132
End
Begin MSComCtl2.DTPicker DTPicker4StartEvolvementTime
Height = 300
Left = 4740
TabIndex = 11
Top = 1365
Width = 1485
_ExtentX = 2619
_ExtentY = 529
_Version = 393216
CalendarTitleBackColor= -2147483635
CalendarTitleForeColor= -2147483624
CalendarTrailingForeColor= 16761024
CheckBox = -1 'True
Format = 69402624
CurrentDate = 37102
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4WageRate
Height = 300
Left = 1635
TabIndex = 12
Top = 660
Width = 1485
_ExtentX = 2619
_ExtentY = 529
_Version = 65536
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4EvolvementCode
Height = 300
Left = 4740
TabIndex = 13
Top = 660
Width = 3030
_ExtentX = 5345
_ExtentY = 529
_Version = 65536
End
Begin VB.Label Label4EmpCode
Caption = "身份证号"
Height = 300
Left = 90
TabIndex = 22
Top = 1365
Width = 1485
End
Begin VB.Label Label4EmpName
Caption = "姓名"
Height = 285
Left = 90
TabIndex = 21
Top = 1020
Width = 1485
End
Begin VB.Label Label4Wage
Caption = "工资"
Height = 285
Left = 3180
TabIndex = 20
Top = 1020
Width = 1500
End
Begin VB.Label Label4EvolvementCode
Caption = "工资演变名称"
Height = 300
Left = 3180
TabIndex = 19
Top = 660
Width = 1500
End
Begin VB.Label Label4Mid
Caption = "介于"
Height = 300
Left = 6285
TabIndex = 18
Top = 1365
Width = 1485
End
Begin VB.Label Label4WageRate
Caption = "工资级别"
Height = 300
Left = 90
TabIndex = 17
Top = 660
Width = 1485
End
Begin VB.Label Label4EvolvementTime
Caption = "演变时间"
Height = 300
Left = 3180
TabIndex = 16
Top = 1365
Width = 1500
End
Begin VB.Label Label4Organ
Caption = "工作单位"
Height = 300
Left = 90
TabIndex = 15
Top = 300
Width = 1485
End
Begin VB.Label Label4MidWage
Caption = "介于"
Height = 285
Left = 6285
TabIndex = 14
Top = 1020
Width = 1485
End
End
End
Attribute VB_Name = "frmWageEvolvment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_strSQL As String
Private m_oRs4Evolvement As New ADODB.Recordset
Dim VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid
Private Sub Form_Load()
Me.Height = 5460
Me.Width = 9540
Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
Me.DTPicker4EndEvolvementTime.Value = ""
Me.DTPicker4StartEvolvementTime.Value = ""
PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).text = "查看"
End If
FillComboBox SSComboBoxEx4WageRate, "T_OLD_WAGE_RATE", "WAGE_RATE_NO", "WAGE_RATE_NAME", 0
FillComboBox SSComboBoxEx4EvolvementCode, "T_OLD_WAGE_EVOLVEMENT_STANDARD", "WAGE_EVOLVEMENT_STANDARD_NO", "WAGE_EVOLVEMENT_NAME", 0
With VSFlexGrid4Evolvement
.FixedCols = 1
.FixedRows = 1
.Rows = 1
.ColWidth(0) = .RowHeight(0)
.AllowBigSelection = False
.AllowSelection = False
.ExplorerBar = flexExSort
.SelectionMode = flexSelectionByRow
.AllowUserResizing = flexResizeColumns
.ExtendLastCol = True
End With
Call VSFlexGrid4Evolvement_AfterDataRefresh
Unload frmSplash
End Sub
Private Sub Form_Resize()
Dim ifor As Long
With VSFlexGrid4Evolvement
For ifor = 1 To .Cols - 1
.ColWidth(ifor) = .Width * 0.14
Next
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
MDIfrmMain.SSActiveToolBarsMain.Tools("ID_工资演变信息").Enabled = True
End Sub
Private Sub SSComboBoxEx4EvolvementCode_Change()
DisplayRelateItems SSComboBoxEx4EvolvementCode
End Sub
Private Sub SSComboBoxEx4EvolvementCode_LostFocus()
CheckValidate SSComboBoxEx4EvolvementCode
End Sub
Private Sub SSComboBoxEx4WageRate_Change()
DisplayRelateItems SSComboBoxEx4WageRate
End Sub
Private Sub SSComboBoxEx4WageRate_LostFocus()
CheckValidate SSComboBoxEx4WageRate
End Sub
Private Sub Text4EmpCode_KeyPress(KeyAscii As Integer)
CheckText KeyAscii, , , False
End Sub
Private Sub Text4EndWage_Change()
'CheckText KeyAscii, Text4EndWage.Text, Text4StartWage.SelStart, True
End Sub
Private Sub Text4StartWage_keypress(KeyAscii As Integer)
CheckText KeyAscii, Text4StartWage.text, Text4StartWage.SelStart, True
End Sub
Private Sub VSFlexGrid4Evolvement_AfterDataRefresh()
Dim ifor As Long
With VSFlexGrid4Evolvement
.Cols = 13
.TextMatrix(0, 1) = "人员姓名"
.TextMatrix(0, 2) = "厂处级单位"
.TextMatrix(0, 3) = "公司级单位"
.TextMatrix(0, 4) = "大队级单位"
.TextMatrix(0, 5) = "小队级单位"
.TextMatrix(0, 6) = "单位级别"
.TextMatrix(0, 7) = "工资演变名称"
.TextMatrix(0, 8) = "工资级别"
.TextMatrix(0, 9) = "工资金额"
.TextMatrix(0, 10) = "演变时间"
.ColHidden(11) = True
.ColHidden(12) = True
.FixedCols = 0
.ColDataType(0) = flexDTBoolean
.ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
.ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
.ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
.ColComboList(5) = g_strArray4ColComboList(C_T_ORGAN)
.ColComboList(6) = "#0;小队级|#1;大队级|#2;公司级|#3;厂处级|#4;总部"
.ColComboList(7) = g_strArray4ColComboList(C_T_OLD_WAGE_EVOLVEMENT_STANDARD)
.ColComboList(8) = g_strArray4ColComboList(C_T_OLD_WAGE_RATE)
For ifor = 1 To .Cols - 1
.ColWidth(ifor) = .ClientWidth * 0.14
.ColAlignment(ifor) = flexAlignCenterCenter
Next
.ColWidth(0) = .RowHeight(0)
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
InitForm
'分类汇总用
With VSFlexGrid4Group
.Cols = 13
.TextMatrix(0, 1) = "人员姓名"
.TextMatrix(0, 2) = "厂处级单位"
.TextMatrix(0, 3) = "公司级单位"
.TextMatrix(0, 4) = "大队级单位"
.TextMatrix(0, 5) = "小队级单位"
.TextMatrix(0, 6) = "单位级别"
.TextMatrix(0, 7) = "工资演变名称"
.TextMatrix(0, 8) = "工资级别"
.TextMatrix(0, 9) = "工资金额"
.TextMatrix(0, 10) = "演变时间"
.ColHidden(11) = True
.ColHidden(12) = True
.ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
.ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
.ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -