📄 frmempothermessage.frm
字号:
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
Begin vsOcx6LibCtl.vsElastic vsElastic4Search
Height = 1455
Left = 0
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 9420
_ExtentX = 16616
_ExtentY = 2566
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Enabled = -1 'True
Appearance = 1
MousePointer = 0
_ConvInfo = -1
Version = 600
BackColor = -2147483633
ForeColor = -2147483630
FloodColor = 192
ForeColorDisabled= -2147483631
Caption = "查询条件"
Align = 1
Appearance = 1
AutoSizeChildren= 8
BorderWidth = 6
ChildSpacing = 4
Splitter = 0 'False
FloodDirection = 0
FloodPercent = 0
CaptionPos = 1
WordWrap = -1 'True
MaxChildSize = 0
MinChildSize = 0
TagWidth = 0
TagPosition = 0
Style = 1
TagSplit = 0 'False
PicturePos = 4
CaptionStyle = 0
ResizeFonts = 0 'False
GridRows = 4
GridCols = 6
_GridInfo = $"frmEmpOtherMessage.frx":6DEE
Begin VB.TextBox Text4Name
Height = 300
Left = 1275
TabIndex = 17
Top = 345
Width = 1770
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4UseWork
Height = 315
Left = 1275
TabIndex = 16
Top = 1050
Width = 1770
_ExtentX = 3122
_ExtentY = 556
_Version = 65536
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.TextBox Text4EmpID
Height = 285
Left = 1275
TabIndex = 4
Top = 705
Width = 1770
End
Begin ActiveInput.SSComboBoxEx SSComboBoxEx4Organ
Height = 300
Left = 4410
TabIndex = 5
Top = 345
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 65536
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 ActiveInput.SSComboBoxEx SSComboBoxEx4Company
Height = 300
Left = 7425
TabIndex = 6
Top = 345
Width = 1905
_ExtentX = 3360
_ExtentY = 529
_Version = 65536
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 ActiveInput.SSComboBoxEx SSComboBoxEx4Large
Height = 300
Left = 4410
TabIndex = 7
Top = 705
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 65536
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 ActiveInput.SSComboBoxEx SSComboBoxEx4Small
Height = 300
Left = 7425
TabIndex = 8
Top = 705
Width = 1905
_ExtentX = 3360
_ExtentY = 529
_Version = 65536
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 Label4UseWork
Caption = "用工形式"
Height = 315
Left = 90
TabIndex = 15
Top = 1050
Width = 1125
End
Begin VB.Label Label4EmpName
Caption = "姓名"
Height = 300
Left = 90
TabIndex = 14
Top = 345
Width = 1125
End
Begin VB.Label Label4EmpID
Caption = "身份证号"
Height = 285
Left = 90
TabIndex = 13
Top = 705
Width = 1125
End
Begin VB.Label Label4Small
Caption = "小队级单位"
Height = 285
Left = 6285
TabIndex = 12
Top = 705
Width = 1080
End
Begin VB.Label Label4Large
Caption = "大队级单位"
Height = 285
Left = 3105
TabIndex = 11
Top = 705
Width = 1245
End
Begin VB.Label Label4Company
Caption = "公司级单位"
Height = 300
Left = 6285
TabIndex = 10
Top = 345
Width = 1080
End
Begin VB.Label Label4FactoryOrgan
Caption = "厂(处)级单位"
Height = 300
Left = 3105
TabIndex = 9
Top = 345
Width = 1245
End
End
End
Attribute VB_Name = "frmEmpOtherMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4This As New ADODB.Recordset
Private m_strSQL As String
Private CurrentTab As Long
Private bIsDataSource As Boolean
Dim VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid
Private Sub Form_Load()
Me.Height = 5460
Me.Width = 9540
Set VSFlexGrid4Group = Me.VSFlexGroup1.FlexGrid
FillComboBox Me.SSComboBoxEx4UseWork, "t_usework_type", "useworke_type_no", "usework_type_name"
With Me.VSFlexGrid4This
.FixedCols = 1
.FixedRows = 1
.ColWidth(0) = .RowHeight(0)
.Editable = flexEDNone
.ExtendLastCol = True
.AllowBigSelection = False
.AllowSelection = False
.SelectionMode = flexSelectionByRow
.AllowUserResizing = flexResizeColumns
.ExplorerBar = flexExSort
End With
PrcessSSComboxExFormLoad Me.SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).text = "查看"
SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
End If
VSFlexGrid4This.Tag = 0
Me.vsIndexTab4This.CurrTab = 0
CurrentTab = 0
VSFlexGrid4This_AfterDataRefresh
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
If bIsDataSource = False Then .Rows = 1
.FixedCols = 0
Select Case CurrentTab
Case 0
.Cols = 21
.ColWidth(0) = .RowHeight(0)
.ColDataType(0) = flexDTBoolean
.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) = "工种"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -