📄 humanselect.frm
字号:
VERSION 5.00
Begin VB.Form frmSelect
BorderStyle = 1 'Fixed Single
Caption = "系统查询"
ClientHeight = 2385
ClientLeft = 5340
ClientTop = 6195
ClientWidth = 5280
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2385
ScaleWidth = 5280
Begin VB.CommandButton Command2
Caption = "取消(&C)"
Height = 375
Left = 2880
TabIndex = 2
Top = 1920
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
Height = 375
Left = 1200
TabIndex = 1
Top = 1920
Width = 1215
End
Begin VB.Frame Frame1
Height = 1815
Left = 120
TabIndex = 0
Top = 0
Width = 5055
Begin VB.TextBox txttiaojian
Height = 270
Left = 1440
TabIndex = 9
Top = 1320
Width = 3015
End
Begin VB.ComboBox comboyiju
Height = 300
ItemData = "HumanSelect.frx":0000
Left = 1440
List = "HumanSelect.frx":0072
TabIndex = 8
Top = 840
Width = 1935
End
Begin VB.OptionButton Optjinque
Caption = "精确查询"
Height = 255
Left = 2760
TabIndex = 5
Top = 360
Width = 1215
End
Begin VB.OptionButton Optmohu
Caption = "模糊查询"
Height = 255
Left = 1440
TabIndex = 4
Top = 360
Value = -1 'True
Width = 1095
End
Begin VB.Label lblsousuo
Caption = "高级搜索"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3600
TabIndex = 10
Top = 840
Width = 855
End
Begin VB.Label Label3
Caption = "查询条件："
Height = 255
Left = 240
TabIndex = 7
Top = 1320
Width = 1095
End
Begin VB.Label Label2
Caption = "查询依据："
Height = 255
Left = 240
TabIndex = 6
Top = 840
Width = 975
End
Begin VB.Label Label1
Caption = "查询方式："
Height = 255
Left = 240
TabIndex = 3
Top = 360
Width = 1095
End
End
End
Attribute VB_Name = "frmSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Search = 1 Then
Select_Person
frmHumanManage.Show
ElseIf Search = 2 Then
Select_Wage
ElseIf Search = 3 Then
Select_DefaultWage
ElseIf Search = 4 Then
Select_PersonLeave
ElseIf Search = 5 Then
Select_PersonTransfer
ElseIf Search = 6 Then
Select_PersonRework
ElseIf Search = 7 Then
Select_Leave_Rework
ElseIf Search = 8 Then
Select_TimeWage
End If
Unload Me
End Sub
Private Sub Command2_Click()
Search = 0
Unload Me
End Sub
Private Sub Select_Person()
Dim adors As New Recordset
Dim strSQL As String
Dim i As Integer
adors.ActiveConnection = ADOcn
If txttiaojian.Text = "" Then
MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
MsgBox "请输入要查询依据"
Else
frmHumanManage.MSFlexGrid1.Clear
frmHumanManage.MSFlexGrid1.Rows = 1
frmHumanManage.MSFlexGrid1.Cols = 34
frmHumanManage.MSFlexGrid1.FixedRows = 0 '不锁定第一行
'加表的标题
strTitle = "编号" + vbTab + "姓名" + vbTab + "性别" + vbTab + "身份证号" + vbTab + "出生年月" + vbTab + "民族" + vbTab + "婚姻状况" + vbTab + "政治面貌" + vbTab + "入党团时间" + vbTab + "籍贯" + vbTab + "家庭地址" + vbTab + "联系电话" + vbTab + "手机号码" + vbTab + "电子邮箱" + vbTab + "其它联系方式" + vbTab + "参加工作时间" + vbTab + "总工龄" + vbTab + "自定义项目1" + vbTab + "自定义项目2" + vbTab + "部门" + vbTab + "工种" + vbTab + "职务" + vbTab + "职称" + vbTab + "调入时间" + vbTab + "本单位工龄" + vbTab + "基本工资" + vbTab + "其它工资" + vbTab + "毕业院校" + vbTab + "专业" + vbTab + "文化程度" + vbTab + "特长" + vbTab + "简历" + vbTab + "登记日期" + vbTab + "登记人"
frmHumanManage.MSFlexGrid1.AddItem strTitle, 0
frmHumanManage.MSFlexGrid1.FixedRows = 1
If Optmohu.Value = True Then '模糊查询
strSQL = "select * from 人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%'"
Else '精确查询
strSQL = "select * from 人事档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "'"
End If
adors.Open strSQL
i = 1
Do While Not adors.EOF
strTitle = adors("编号") + vbTab + adors("姓名") + vbTab + adors("性别") + vbTab + adors("身份证号") + vbTab + LTrim(adors("出生年月")) + vbTab + adors("民族") + vbTab + adors("婚姻状况") + vbTab + adors("政治面貌") + vbTab + LTrim(adors("入党团时间")) + vbTab + adors("籍贯") + vbTab + adors("家庭地址") + vbTab + adors("联系电话") + vbTab + adors("手机号码") + vbTab + adors("电子邮箱") + vbTab + adors("其它联系方式") + vbTab + LTrim(adors("参加工作时间")) + vbTab + LTrim(adors("总工龄")) + vbTab + adors("自定义项目1") + vbTab + adors("自定义项目2") + vbTab + adors("部门") + vbTab + adors("工种") + vbTab + adors("职务") + vbTab + adors("职称") + vbTab + LTrim(adors("调入时间")) + vbTab + LTrim(adors("本单位工龄")) + vbTab + adors("基本工资") + vbTab + adors("其它工资") + vbTab + adors("毕业院校") + vbTab + adors("专业") + vbTab + adors("文化程度") + vbTab + adors("特长") + vbTab + adors("简历") + vbTab + LTrim(adors("登记日期")) + vbTab + adors("登记人")
frmHumanManage.MSFlexGrid1.AddItem strTitle, i
adors.MoveNext
i = i + 1
Loop
End If
End Sub
Private Sub Select_PersonLeave()
Dim adors As New Recordset
Dim strSQL As String
Dim i As Integer
adors.ActiveConnection = ADOcn
If txttiaojian.Text = "" Then
MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
MsgBox "请输入要查询依据"
Else
frmHumanLeave.MSFlexGrid1.Clear
frmHumanLeave.MSFlexGrid1.Rows = 1
frmHumanLeave.MSFlexGrid1.Cols = 34
frmHumanLeave.MSFlexGrid1.FixedRows = 0 '不锁定第一行
'加表的标题
strTitle = "编号" + vbTab + "姓名" + vbTab + "性别" + vbTab + "身份证号" + vbTab + "出生年月" + vbTab + "民族" + vbTab + "婚姻状况" + vbTab + "政治面貌" + vbTab + "入党团时间" + vbTab + "籍贯" + vbTab + "家庭地址" + vbTab + "联系电话" + vbTab + "手机号码" + vbTab + "电子邮箱" + vbTab + "其它联系方式" + vbTab + "参加工作时间" + vbTab + "总工龄" + vbTab + "自定义项目1" + vbTab + "自定义项目2" + vbTab + "部门" + vbTab + "工种" + vbTab + "职务" + vbTab + "职称" + vbTab + "调入时间" + vbTab + "本单位工龄" + vbTab + "基本工资" + vbTab + "其它工资" + vbTab + "毕业院校" + vbTab + "专业" + vbTab + "文化程度" + vbTab + "特长" + vbTab + "简历" + vbTab + "登记日期" + vbTab + "登记人"
frmHumanLeave.MSFlexGrid1.AddItem strTitle, 0
frmHumanLeave.MSFlexGrid1.FixedRows = 1
If Optmohu.Value = True Then '模糊查询
strSQL = "select * from 人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%'"
Else '精确查询
strSQL = "select * from 人事档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "'"
End If
adors.Open strSQL
i = 1
Do While Not adors.EOF
strTitle = adors("编号") + vbTab + adors("姓名") + vbTab + adors("性别") + vbTab + adors("身份证号") + vbTab + LTrim(adors("出生年月")) + vbTab + adors("民族") + vbTab + adors("婚姻状况") + vbTab + adors("政治面貌") + vbTab + LTrim(adors("入党团时间")) + vbTab + adors("籍贯") + vbTab + adors("家庭地址") + vbTab + adors("联系电话") + vbTab + adors("手机号码") + vbTab + adors("电子邮箱") + vbTab + adors("其它联系方式") + vbTab + LTrim(adors("参加工作时间")) + vbTab + LTrim(adors("总工龄")) + vbTab + adors("自定义项目1") + vbTab + adors("自定义项目2") + vbTab + adors("部门") + vbTab + adors("工种") + vbTab + adors("职务") + vbTab + adors("职称") + vbTab + LTrim(adors("调入时间")) + vbTab + LTrim(adors("本单位工龄")) + vbTab + adors("基本工资") + vbTab + adors("其它工资") + vbTab + adors("毕业院校") + vbTab + adors("专业") + vbTab + adors("文化程度") + vbTab + adors("特长") + vbTab + adors("简历") + vbTab + LTrim(adors("登记日期")) + vbTab + adors("登记人")
frmHumanLeave.MSFlexGrid1.AddItem strTitle, i
adors.MoveNext
i = i + 1
Loop
End If
End Sub
Private Sub Select_PersonTransfer()
Dim adors As New Recordset
Dim strSQL As String
Dim i As Integer
adors.ActiveConnection = ADOcn
If txttiaojian.Text = "" Then
MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
MsgBox "请输入要查询依据"
Else
frmHumanTransfer.MSFlexGrid1.Clear
frmHumanTransfer.MSFlexGrid1.Rows = 1
frmHumanTransfer.MSFlexGrid1.Cols = 34
frmHumanTransfer.MSFlexGrid1.FixedRows = 0 '不锁定第一行
'加表的标题
strTitle = "编号" + vbTab + "姓名" + vbTab + "性别" + vbTab + "身份证号" + vbTab + "出生年月" + vbTab + "民族" + vbTab + "婚姻状况" + vbTab + "政治面貌" + vbTab + "入党团时间" + vbTab + "籍贯" + vbTab + "家庭地址" + vbTab + "联系电话" + vbTab + "手机号码" + vbTab + "电子邮箱" + vbTab + "其它联系方式" + vbTab + "参加工作时间" + vbTab + "总工龄" + vbTab + "自定义项目1" + vbTab + "自定义项目2" + vbTab + "部门" + vbTab + "工种" + vbTab + "职务" + vbTab + "职称" + vbTab + "调入时间" + vbTab + "本单位工龄" + vbTab + "基本工资" + vbTab + "其它工资" + vbTab + "毕业院校" + vbTab + "专业" + vbTab + "文化程度" + vbTab + "特长" + vbTab + "简历" + vbTab + "登记日期" + vbTab + "登记人"
frmHumanTransfer.MSFlexGrid1.AddItem strTitle, 0
frmHumanTransfer.MSFlexGrid1.FixedRows = 1
If Optmohu.Value = True Then '模糊查询
strSQL = "select * from 人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%'"
Else '精确查询
strSQL = "select * from 人事档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "'"
End If
adors.Open strSQL
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -