📄 humantranfer.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmHumanTransfer
BorderStyle = 1 'Fixed Single
Caption = "员工人事调动"
ClientHeight = 5940
ClientLeft = 3015
ClientTop = 3330
ClientWidth = 8925
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5940
ScaleWidth = 8925
Begin VB.Frame Frame1
Caption = "现所处人事信息"
Height = 1215
Left = 120
TabIndex = 1
Top = 600
Width = 8655
Begin VB.TextBox txtPost
Height = 270
Left = 6480
Locked = -1 'True
TabIndex = 13
Top = 720
Width = 1575
End
Begin VB.TextBox txtPart
Height = 270
Left = 6480
Locked = -1 'True
TabIndex = 12
Top = 360
Width = 1935
End
Begin VB.TextBox txtPosition
Height = 270
Left = 3720
Locked = -1 'True
TabIndex = 9
Top = 720
Width = 1455
End
Begin VB.TextBox txtName
Height = 270
Left = 3720
Locked = -1 'True
TabIndex = 8
Top = 360
Width = 1455
End
Begin VB.TextBox txtWorkType
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 5
Top = 720
Width = 1335
End
Begin VB.TextBox txtNum
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 4
Top = 360
Width = 1335
End
Begin VB.Label Label6
Caption = "原职称："
Height = 255
Left = 5520
TabIndex = 11
Top = 720
Width = 975
End
Begin VB.Label Label5
Caption = "原部门："
Height = 255
Left = 5520
TabIndex = 10
Top = 360
Width = 855
End
Begin VB.Label Label4
Caption = "原职务："
Height = 255
Left = 2760
TabIndex = 7
Top = 720
Width = 855
End
Begin VB.Label Label3
Caption = "姓 名："
Height = 255
Left = 2760
TabIndex = 6
Top = 360
Width = 975
End
Begin VB.Label Label2
Caption = "原工种："
Height = 375
Left = 240
TabIndex = 3
Top = 720
Width = 855
End
Begin VB.Label Label1
Caption = "编 号："
Height = 255
Left = 240
TabIndex = 2
Top = 360
Width = 735
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 8925
_ExtentX = 15743
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "Select"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全部"
Key = "All"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "调动"
Key = "Transfer"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Back"
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 3915
Left = 120
TabIndex = 14
Top = 1920
Width = 8595
_ExtentX = 15161
_ExtentY = 6906
_Version = 393216
Cols = 40
FixedCols = 0
ScrollTrack = -1 'True
SelectionMode = 1
End
End
Attribute VB_Name = "frmHumanTransfer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MyRefresh()
Dim strTitle As String
Dim adors As New Recordset
Dim strSQL As String
Dim i As Integer
adors.ActiveConnection = ADOcn
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 34
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 + "登记人"
MSFlexGrid1.AddItem strTitle, 0
MSFlexGrid1.FixedRows = 1 ' 锁定第一行
'MSFlexGrid1.CellAlignment = 2 '在表格中是否居中
strSQL = "Select * From 人事档案 order by 编号"
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("登记人")
MSFlexGrid1.AddItem strTitle, i
adors.MoveNext
i = i + 1
Loop
End Sub
Private Sub Form_Activate()
MSFlexGrid1_Click
End Sub
Private Sub Form_Load()
MyRefresh_frmHumanTransfer
End Sub
Private Sub MSFlexGrid1_Click()
Dim adors As New Recordset
Dim strSQL As String
Set adors.ActiveConnection = ADOcn
Dim mystr As String
MSFlexGrid1.Col = 0
mystr = MSFlexGrid1.Text
strSQL = "Select * From 人事档案 Where 编号='" + mystr + "'"
adors.Open strSQL
If Not adors.EOF Then
txtNum = adors("编号")
txtName = adors("姓名")
txtPart = adors("部门")
txtWorkType = adors("工种")
txtPosition = adors("职务")
txtPost = adors("职称")
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Select"
Search = 5
frmSelect.Show
Case "All"
MyRefresh_frmHumanTransfer
Case "Transfer"
Dim mystr As String
MSFlexGrid1.Col = 0
mystr = MSFlexGrid1.Text
frmTransferWindows.lblKey.Caption = mystr
frmTransferWindows.Show
Case "Back"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -