📄
字号:
VERSION 5.00
Begin VB.Form Qr_RsBscCndFrm
BorderStyle = 3 'Fixed Dialog
Caption = "人事信息查询条件"
ClientHeight = 3150
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5490
HelpContextID = 2213002
Icon = "查询_人事信息.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3150
ScaleWidth = 5490
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Cmd_Cond
Caption = "条件(&M)"
Height = 300
Left = 90
TabIndex = 13
Top = 2790
Width = 1120
End
Begin VB.CommandButton Cmd_OK
Caption = "确定(&O)"
Default = -1 'True
Height = 300
Left = 3045
TabIndex = 11
Top = 2790
Width = 1120
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 300
Left = 4275
TabIndex = 12
Top = 2790
Width = 1120
End
Begin VB.Frame Frame1
Height = 2610
Left = 75
TabIndex = 17
Top = 60
Width = 5310
Begin VB.Frame Frame2
Caption = "人员范围"
Height = 645
Left = 135
TabIndex = 31
Top = 1845
Width = 5040
Begin VB.OptionButton Opt_SelectNow
Caption = "现有人员"
Height = 180
Left = 165
TabIndex = 8
Top = 285
Value = -1 'True
Width = 1185
End
Begin VB.OptionButton Opt_SelectOld
Caption = "历史人员"
Height = 180
Left = 1950
TabIndex = 9
Top = 285
Width = 1185
End
Begin VB.OptionButton Option1
Caption = "所有人员"
Height = 180
Left = 3735
TabIndex = 10
Top = 285
Width = 1185
End
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 1
Left = 2460
Picture = "查询_人事信息.frx":1042
Style = 1 'Graphical
TabIndex = 15
TabStop = 0 'False
Top = 595
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 0
Left = 2445
Picture = "查询_人事信息.frx":13CC
Style = 1 'Graphical
TabIndex = 14
TabStop = 0 'False
Top = 180
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 7
Left = 4860
Picture = "查询_人事信息.frx":1756
Style = 1 'Graphical
TabIndex = 22
TabStop = 0 'False
Top = 1425
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 6
Left = 4860
Picture = "查询_人事信息.frx":1AE0
Style = 1 'Graphical
TabIndex = 21
TabStop = 0 'False
Top = 1040
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 5
Left = 4860
Picture = "查询_人事信息.frx":1E6A
Style = 1 'Graphical
TabIndex = 20
TabStop = 0 'False
Top = 595
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 4
Left = 4860
Picture = "查询_人事信息.frx":21F4
Style = 1 'Graphical
TabIndex = 19
TabStop = 0 'False
Top = 180
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 7
Left = 3645
TabIndex = 7
Text = "7"
Top = 1425
Width = 1215
End
Begin VB.TextBox LrText
Height = 300
Index = 6
Left = 3645
TabIndex = 6
Text = "6"
Top = 1040
Width = 1215
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 2
Left = 2460
Picture = "查询_人事信息.frx":257E
Style = 1 'Graphical
TabIndex = 16
TabStop = 0 'False
Top = 1040
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 5
Left = 3645
TabIndex = 5
Text = "5"
Top = 595
Width = 1215
End
Begin VB.TextBox LrText
Height = 300
Index = 4
Left = 3645
TabIndex = 4
Text = "4"
Top = 180
Width = 1215
End
Begin VB.TextBox LrText
Height = 300
Index = 2
Left = 960
TabIndex = 2
Text = "2"
Top = 1040
Width = 1500
End
Begin VB.TextBox LrText
Height = 300
Index = 0
Left = 975
TabIndex = 0
Text = "0"
Top = 180
Width = 1785
End
Begin VB.TextBox LrText
Height = 300
Index = 1
Left = 975
TabIndex = 1
Text = "1"
Top = 595
Width = 1785
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 3
Left = 2460
Picture = "查询_人事信息.frx":2908
Style = 1 'Graphical
TabIndex = 18
TabStop = 0 'False
Top = 1425
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 3
Left = 975
TabIndex = 3
Text = "3"
Top = 1425
Width = 1500
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "用工性质:"
Height = 180
Index = 7
Left = 2820
TabIndex = 30
Tag = "HireProp"
Top = 1485
Width = 810
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "职务:"
Height = 180
Index = 6
Left = 2820
TabIndex = 29
Tag = "Business"
Top = 1100
Width = 450
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "工号:"
Height = 180
Index = 0
Left = 135
TabIndex = 28
Top = 240
Width = 450
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "姓名:"
Height = 180
Index = 1
Left = 135
TabIndex = 27
Top = 655
Width = 450
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "性别:"
Height = 180
Index = 2
Left = 135
TabIndex = 26
Tag = "Gender"
Top = 1100
Width = 450
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "职工类别:"
Height = 180
Index = 3
Left = 135
TabIndex = 25
Tag = "EmpSort"
Top = 1485
Width = 810
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "部门:"
Height = 180
Index = 4
Left = 2820
TabIndex = 24
Top = 240
Width = 450
End
Begin VB.Label Lab_Note
AutoSize = -1 'True
Caption = "岗位:"
Height = 180
Index = 5
Left = 2820
TabIndex = 23
Tag = "Position"
Top = 685
Width = 450
End
End
End
Attribute VB_Name = "Qr_RsBscCndFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'* 模 块 名 称 :人员信息查询条件
'* 功 能 描 述 :人员信息查询条件
'* 程序员姓名 :苗鹏
'* 最后修改人 :苗鹏
'* 最后修改时间:2002-01-10
'* 备 注:
'******************************************************************
Public sSqlWhere As String '查询条件
Public sSqlWhereMe As String '本窗体查询条件
Public sSqlWhereMore As String '点查询按钮的条件
Public sSqlFrom As String 'From语句
Public frmQuery As Form '查询窗体
Dim coll As New Collection '集合
Dim bHelp(7) As Boolean '是否显示帮助按钮
'以下为固定使用变量(文本框)
Dim Tsxx As String '系统信息提示
Dim Textvar() As Variant '存储变体型文本框信息
Dim Textboolean() As Boolean '存储布尔型文本框信息
Dim Textint() As Integer '存储整型文本框信息
Dim Textstr() As String '存储字符型文本框信息
Dim Max_Text_Index As Integer '最大录入文本框索引值
Dim TextGroupCode As String '文本框录入分组编码
Dim TextValiLock As Boolean '文本框失去焦点是否进行有效性控制判断
Dim TextValiJudgeLock() As Boolean '文本框录入有效性判断控制锁
Dim CurTextIndex As Integer '当前文本框索引值
Dim TextChangeLock As Boolean '文本框内容变换控制锁
Dim Bln_Cancel As Boolean '取消按钮信息传递
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub Cmd_Cond_Click() '点击更多条件按钮,调用公用查询窗体返回条件
Dim frm As New Query_Frm
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -