📄 frmsalaryemployee.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmSalaryEmployee
Caption = "发放范围"
ClientHeight = 4785
ClientLeft = 675
ClientTop = 690
ClientWidth = 7005
HelpContextID = 10232
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 4785
ScaleWidth = 7005
Begin MSFlexGridLib.MSFlexGrid msgSalary
Bindings = "frmSalaryEmployee.frx":0000
Height = 4335
Left = 60
TabIndex = 5
Top = 360
Width = 5625
_ExtentX = 9922
_ExtentY = 7646
_Version = 393216
Cols = 6
FixedCols = 2
ScrollTrack = -1 'True
SelectionMode = 1
End
Begin VB.CommandButton cmdAddItem
Height = 350
Index = 1
Left = 5740
Style = 1 'Graphical
TabIndex = 7
Top = 720
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdAddItem
Height = 350
Index = 0
Left = 5740
Style = 1 'Graphical
TabIndex = 6
Top = 360
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdFind
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 5340
Style = 1 'Graphical
TabIndex = 4
Top = 20
UseMaskColor = -1 'True
Width = 315
End
Begin VB.ComboBox cboFind
Height = 300
ItemData = "frmSalaryEmployee.frx":001A
Left = 810
List = "frmSalaryEmployee.frx":0033
Style = 2 'Dropdown List
TabIndex = 1
Top = 15
Width = 1395
End
Begin VB.TextBox txtFindValue
Height = 300
Left = 2880
TabIndex = 3
Top = 20
Width = 2415
End
Begin VB.CommandButton cmdAddItem
Caption = "条件选择(&T)"
Height = 350
Index = 3
Left = 5740
TabIndex = 9
Top = 1530
Width = 1215
End
Begin VB.CommandButton cmdAddItem
Caption = "全部选择(&A)"
Height = 350
Index = 2
Left = 5740
TabIndex = 8
Top = 1170
Width = 1215
End
Begin VB.CommandButton cmdAddItem
Caption = "全部取消(&U)"
Height = 350
Index = 4
Left = 5740
TabIndex = 10
Top = 1890
Width = 1215
End
Begin MSRDC.MSRDC datEmployee
Height = 330
Left = 5730
Top = 2490
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblEmployee
BackStyle = 0 'Transparent
Caption = "查找(&F)"
Height = 195
Index = 0
Left = 120
TabIndex = 0
Top = 40
Width = 645
End
Begin VB.Label lblEmployee
BackStyle = 0 'Transparent
Caption = "内容(&C)"
Height = 195
Index = 1
Left = 2240
TabIndex = 2
Top = 40
Width = 675
End
End
Attribute VB_Name = "frmSalaryEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'工资发放范围
'
'功能：选择本次发放的职员范围
'
'作者：唐吉禹
'
'1998-7-1
'
Option Explicit
Private WithEvents mclsGrid1 As Grid
Attribute mclsGrid1.VB_VarHelpID = -1
Private mlngFindCol As Long '查找列
Private mblnChangeText As Boolean '改变文本否
Private mblnKeyPress As Boolean '查找标志
Private mstrFindText As String '查找文本
Private mlngSalaryID As Long '工资表ID
Private mblnIsOK As Boolean '是否为确定退出
Private Sub cboFind_Click()
Dim i As Long
Dim intSortCol As Integer
Dim intRow As Long
With msgSalary
intRow = .Row
For i = 3 To .Cols - 1
If InStr(.TextMatrix(0, i), cboFind.Text) = 1 Then
mlngFindCol = i
Exit For
End If
Next i
For i = 3 To .Cols - 1
If Right(.TextMatrix(0, i), 1) = "↑" Or Right(.TextMatrix(0, i), 1) = "↓" Then
intSortCol = i
Exit For
End If
Next i
If intSortCol = mlngFindCol Then
If mclsGrid1.SortedType = 1 Then
mclsGrid1.ColSort(mlngFindCol) = True
mclsGrid1.Sort mlngFindCol, 2
Else
mclsGrid1.ColSort(mlngFindCol) = True
mclsGrid1.Sort mlngFindCol, 1
End If
Else
mclsGrid1.ColSort(mlngFindCol) = True
mclsGrid1.Sort mlngFindCol, 1 '升序
End If
If cboFind.ListIndex > -1 Then
txtFindValue.Text = .TextMatrix(.Row, mlngFindCol)
End If
.Row = intRow
End With
End Sub
Private Sub cmdAddItem_Click(Index As Integer)
Dim i As Long
Dim strSql As String
Dim strDelSql As String
Dim strName As String
Dim strZ As String
Dim recZ As rdoResultset
Dim strTmp As String
Dim recTmp As rdoResultset
Dim strAgeFormula As String
Dim strAgeMethod As String
Dim strAgeWhere As String
Dim strInWhere As String
Dim intMsg As Integer
Dim strSelect As String
Dim strFrom As String
Dim strWhere As String
Dim strMsg As String
Dim intCount1 As Long
Dim intCount2 As Long
Dim intSum As Integer
Select Case Index
Case 0 '确定
mblnIsOK = True
'已结帐期间的数据不允许修改
If frmSalaryEdit.IsPostDate Then
Unload Me
Exit Sub
End If
With msgSalary
For i = 1 To .Rows - 1 Step 1
If Trim(.TextMatrix(i, 2)) <> "" Then
Exit For
End If
Next i
If i = .Rows Then
ShowMsg Me.hwnd, "发放的职员不能少于1个。", vbInformation, Me.Caption
Exit Sub
End If
intSum = 0
intCount1 = 0
intCount2 = 0
strInWhere = ""
strDelSql = ""
strName = ""
'检测是否能对工资发放范围进行修改
For i = 1 To .Rows - 1 Step 1
If .TextMatrix(i, 1) = 0 Then
If Trim(.TextMatrix(i, 2)) = "√" Then
If Trim(strInWhere) = "" Then
strInWhere = "(" & .TextMatrix(i, 0)
Else
strInWhere = strInWhere & "," & .TextMatrix(i, 0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -