📄 frmemployeeshow.frm
字号:
VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmEmployeeShow
BorderStyle = 3 'Fixed Dialog
Caption = "职工查看"
ClientHeight = 7290
ClientLeft = 45
ClientTop = 435
ClientWidth = 9135
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7290
ScaleWidth = 9135
ShowInTaskbar = 0 'False
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4920
Top = 5040
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin CSCommand.Command cmdPrint
Height = 255
Left = 6480
TabIndex = 6
Top = 5880
Width = 975
_ExtentX = 1720
_ExtentY = 450
IconAlign = 0
Icon = "frmEmployeeShow.frx":0000
Caption = "打 印(&P)"
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 CSCommand.Command cmdSearch
Default = -1 'True
Height = 255
Left = 4080
TabIndex = 4
Top = 5880
Width = 1005
_ExtentX = 1773
_ExtentY = 450
Icon = "frmEmployeeShow.frx":001C
Caption = "查 询(&Q)"
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 CSCommand.Command cmdDelete
Height = 255
Left = 5280
TabIndex = 5
Top = 5880
Width = 1005
_ExtentX = 1773
_ExtentY = 450
IconAlign = 0
Icon = "frmEmployeeShow.frx":0038
Caption = "删 除(&D)"
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 CSCommand.Command cmdQuit
Cancel = -1 'True
Height = 255
Left = 7680
TabIndex = 7
Top = 5880
Width = 1005
_ExtentX = 1773
_ExtentY = 450
IconAlign = 0
Icon = "frmEmployeeShow.frx":0054
Caption = "返 回(Ese)"
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.Frame Frame1
Caption = "查询方式"
Height = 735
Left = 240
TabIndex = 9
Top = 5040
Width = 4095
Begin VB.CheckBox chkDate
Caption = "按日期"
Height = 375
Left = 4080
TabIndex = 1
Top = 240
Width = 855
End
Begin VB.TextBox txtName
Height = 270
Left = 1200
TabIndex = 0
Top = 280
Width = 1335
End
Begin MSComCtl2.DTPicker dtpToday
Height = 255
Left = 6720
TabIndex = 3
Top = 285
Width = 1335
_ExtentX = 2355
_ExtentY = 450
_Version = 393216
Format = 25034753
CurrentDate = 38596
End
Begin MSComCtl2.DTPicker dtpStart
Height = 255
Left = 4920
TabIndex = 2
Top = 360
Width = 1335
_ExtentX = 2355
_ExtentY = 450
_Version = 393216
Format = 25034753
CurrentDate = 36892
End
Begin VB.Label Label2
Caption = "至"
Height = 255
Left = 6375
TabIndex = 11
Top = 330
Width = 195
End
Begin VB.Label Label1
Caption = "按姓名"
Height = 255
Left = 480
TabIndex = 10
Top = 330
Width = 615
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid msgEmployee
Height = 3975
Left = 240
TabIndex = 8
Top = 960
Width = 8655
_ExtentX = 15266
_ExtentY = 7011
_Version = 393216
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Label Label4
Caption = "查询员工信息"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1440
TabIndex = 12
Top = 120
Width = 4335
End
End
Attribute VB_Name = "frmEmployeeShow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim con1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim EmpStr As String
Public EmpDel As String '删除员工信息传递变量
Dim i As Integer
Private Sub cmdDelete_Click()
EmpStr = "select * from employee where emp_id='" & EmpDel & "' "
If mdlCon.connectTotable(con1, rs1, EmpStr) Then
If MsgBox("要删除此条员工信息吗？", vbInformation + vbOKCancel, "员工信息删除") = vbOK Then
rs1.Delete
rs1.MoveNext
MsgBox "此员工信息被删除！"
End If
End If
ShowData
End Sub
Private Sub cmdPrint_Click()
CommonDialog1.ShowPrinter
End Sub
Private Sub cmdQuit_Click()
Unload Me
End Sub
Private Sub cmdSearch_Click()
If chkDate.Value = 1 Then '查找按日期查询方法是否打开
EmpStr = "select emp_id,emp_name,emp_dept,emp_workdate,emp_age,emp_sex,emp_nation,emp_cardId,emp_address,emp_graduate,emp_school,emp_specialty,emp_work1,emp_work2,emp_remark from employee where emp_workdate between'" & dtpStart.Value & "'and '" & dtpToday.Value & "' "
If mdlCon.connectTotable(con, rs, EmpStr) Then
ShowData '调用显示数据函数
Else
MsgBox "没有找到符合条件的信息", vbOKOnly, "员工查询"
End If
Else
EmpStr = "select emp_id,emp_name,emp_dept,emp_workdate,emp_age,emp_sex,emp_nation,emp_cardId,emp_address,emp_graduate,emp_school,emp_specialty,emp_work1,emp_work2,emp_remark from employee where emp_name like '%" & txtName.Text & "%' "
If mdlCon.connectTotable(con, rs, EmpStr) Then
ShowData
Else
MsgBox "没有找到符合条件的信息！", vbInformation + vbOKOnly, "员工查询"
End If
End If
txtName.SelStart = 0
txtName.SelLength = Len(txtName.Text)
End Sub
Private Sub Form_Activate()
dtpToday.Value = Date
txtName.SetFocus
End Sub
Private Sub Form_Load()
ShowTitle
Call cmdSearch_Click
End Sub
'表头排序、约束
Sub ShowTitle()
With msgEmployee
.Cols = 16
.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) = "毕业时间"
.TextMatrix(0, 11) = "毕业院校"
.TextMatrix(0, 12) = "毕业专业"
.TextMatrix(0, 13) = "工作经历1"
.TextMatrix(0, 14) = "工作经历2"
.TextMatrix(0, 15) = "备注"
.FixedRows = 1
For i = 0 To 15
.ColAlignment(i) = 0
Next i
.ColWidth(0) = 300
.ColWidth(1) = 800
.ColWidth(2) = 800
.ColWidth(3) = 800
.ColWidth(4) = 800
.ColWidth(5) = 800
.ColWidth(6) = 800
.ColWidth(7) = 800
.ColWidth(8) = 1800
.ColWidth(9) = 2000
.ColWidth(10) = 800
.ColWidth(11) = 2000
.ColWidth(12) = 1000
.ColWidth(13) = 2000
.ColWidth(14) = 2000
.ColWidth(15) = 2000
End With
End Sub
'显示数据函数
Sub ShowData()
With msgEmployee
.Rows = 2
If Not rs.EOF Then
For i = 1 To rs.Fields.Count
.TextMatrix(.Rows - 1, i) = rs.Fields(i - 1) & ""
Next i
rs.MoveNext
End If
Do While Not rs.EOF
.Rows = .Rows + 1
For i = 1 To rs.Fields.Count
.TextMatrix(.Rows - 1, i) = rs.Fields(i - 1) & ""
Next i
rs.MoveNext
Loop
End With
End Sub
Private Sub msgEmployee_Click()
EmpDel = Me.msgEmployee.TextMatrix(Me.msgEmployee.Row, 1)
End Sub
'启动员工信息修改表
Private Sub msgEmployee_DblClick()
mdlCon.EmpId = Me.msgEmployee.TextMatrix(Me.msgEmployee.Row, 1)
If mdlCon.EmpId = "" Then
MsgBox "没有选定员工信息,请重新选择！"
Else
frmEmployeeModify.Show vbModal
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -