📄 frmsalarylistset.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmSalaryListSet
BorderStyle = 1 'Fixed Single
Caption = "栏目设置"
ClientHeight = 3765
ClientLeft = 45
ClientTop = 330
ClientWidth = 6435
HelpContextID = 10235
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3765
ScaleWidth = 6435
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdOK
Caption = "保存设置(&S)"
Height = 345
Index = 3
Left = 5140
TabIndex = 17
Top = 1680
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.ComboBox cboInputItem
Height = 300
Left = 1440
TabIndex = 1
Text = "Combo1"
Top = 60
Width = 3585
End
Begin VB.TextBox txtListName
Height = 300
Left = 1680
MaxLength = 30
TabIndex = 13
Text = "Text1"
Top = 3390
Width = 3345
End
Begin VB.CommandButton cmdOK
Caption = "删除设置(&D)"
Height = 345
Index = 2
Left = 5140
TabIndex = 16
Top = 1320
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 345
Index = 1
Left = 5140
Style = 1 'Graphical
TabIndex = 15
Top = 840
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 345
Index = 0
Left = 5140
Style = 1 'Graphical
TabIndex = 14
Top = 480
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.Frame Frame1
Height = 2925
Left = 60
TabIndex = 18
Top = 390
Width = 4965
Begin VB.CommandButton cmdCheck
Height = 435
Index = 5
Left = 4500
Style = 1 'Graphical
TabIndex = 11
Top = 1830
UseMaskColor = -1 'True
Width = 255
End
Begin VB.CommandButton cmdCheck
Height = 405
Index = 4
Left = 4500
Style = 1 'Graphical
TabIndex = 10
Top = 1020
UseMaskColor = -1 'True
Width = 255
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Height = 2265
Index = 0
Left = 180
TabIndex = 3
Top = 540
Width = 1575
_ExtentX = 2778
_ExtentY = 3995
_Version = 393216
Rows = 1
Cols = 3
FixedRows = 0
FixedCols = 0
BackColorFixed = 16777215
ForeColorFixed = -2147483641
ForeColorSel = -2147483643
BackColorBkg = -2147483643
GridColorFixed = -2147483643
GridLines = 0
ScrollBars = 2
SelectionMode = 1
Appearance = 0
End
Begin VB.CommandButton cmdCheck
Caption = ">"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Index = 0
Left = 1980
MaskColor = &H00000000&
TabIndex = 4
Top = 795
UseMaskColor = -1 'True
Width = 576
End
Begin VB.CommandButton cmdCheck
Caption = ">>"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Index = 1
Left = 1980
MaskColor = &H00000000&
TabIndex = 5
Top = 1170
UseMaskColor = -1 'True
Width = 576
End
Begin VB.CommandButton cmdCheck
Caption = "<"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Index = 2
Left = 1980
MaskColor = &H00000000&
TabIndex = 6
Top = 1545
UseMaskColor = -1 'True
Width = 576
End
Begin VB.CommandButton cmdCheck
Caption = "<<"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Index = 3
Left = 1980
MaskColor = &H00000000&
TabIndex = 7
Top = 1920
UseMaskColor = -1 'True
Width = 576
End
Begin VB.ComboBox cmbOrder
Height = 300
ItemData = "frmSalaryListSet.frx":0000
Left = 2760
List = "frmSalaryListSet.frx":000D
Style = 2 'Dropdown List
TabIndex = 20
Top = 3120
Visible = 0 'False
Width = 1635
End
Begin VB.TextBox txtName
Height = 285
Left = 2760
TabIndex = 19
Top = 2970
Visible = 0 'False
Width = 1635
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Height = 2265
Index = 1
Left = 2760
TabIndex = 9
Top = 540
Width = 1575
_ExtentX = 2778
_ExtentY = 3995
_Version = 393216
Rows = 1
Cols = 3
FixedRows = 0
FixedCols = 0
BackColorFixed = 16777215
ForeColorFixed = -2147483641
BackColorBkg = -2147483643
GridColorFixed = -2147483643
GridLines = 0
ScrollBars = 2
SelectionMode = 1
Appearance = 0
End
Begin VB.Label lblCheck
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "可选栏目(&X)"
ForeColor = &H80000008&
Height = 180
Index = 1
Left = 210
TabIndex = 2
Tag = "2406"
Top = 270
Width = 990
End
Begin VB.Label lblCheck
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "已选栏目(&T)"
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 2805
TabIndex = 8
Tag = "2407"
Top = 270
Width = 990
End
Begin VB.Label lblOrder
AutoSize = -1 'True
Caption = "排序方式(&O)"
Height = 180
Left = 1740
TabIndex = 22
Top = 3180
Visible = 0 'False
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "显示名称(&N)"
Height = 180
Left = 1740
TabIndex = 21
Top = 3060
Visible = 0 'False
Width = 990
End
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "栏目设置名称(&N)"
Height = 255
Index = 1
Left = 270
TabIndex = 12
Top = 3450
Width = 1425
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "栏目设置(&L)"
Height = 255
Index = 0
Left = 270
TabIndex = 0
Top = 120
Width = 1395
End
End
Attribute VB_Name = "frmSalaryListSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'工资栏目设置
'
'作者：唐吉禹
'
'1998-6-20
'
Option Explicit
Private mintSalaryViewID As Integer '工资表视图ID号
Private mlngSalarylistID As Long '工资表ID
Private mlngOperatorID As Long '当前操作员
Private mlngListID As Long '当前ListID
Private mblnOk As Boolean
Private mstrListName As String '栏目设置名称
Private Sub cboInputItem_Click()
Dim strName As String
Dim lngListID As Long
Dim lngIndex As Long
Dim strSql As String
Dim recList As rdoResultset
Dim i As Integer
strName = cboInputItem.Text
If Trim(strName) = "所有栏目" Then
cmdOK(2).Enabled = False
txtListName.Text = ""
lngListID = frmSalaryEdit.ListID
Else
cmdOK(2).Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -