📄 frmemployee.frm
字号:
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Left = 720
TabIndex = 72
Top = 840
Width = 255
End
Begin VB.Label Label21
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Left = 6600
TabIndex = 71
Top = 360
Width = 375
End
Begin VB.Label Label29
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 2
Left = 720
TabIndex = 63
Top = 360
Width = 135
End
Begin VB.Label Label29
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 1
Left = 3840
TabIndex = 62
Top = 360
Width = 135
End
Begin VB.Label Label29
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 0
Left = 9720
TabIndex = 61
Top = 2280
Width = 135
End
Begin VB.Label Label28
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Left = 960
TabIndex = 60
Top = 1800
Width = 135
End
Begin VB.Label Label27
Caption = "职员类型"
Height = 255
Left = 9000
TabIndex = 59
Top = 2280
Width = 735
End
Begin VB.Label Label22
Caption = "户口所在地"
Height = 255
Left = 8760
TabIndex = 44
Top = 3240
Width = 975
End
Begin VB.Label Label20
Caption = "档案编号"
Height = 255
Left = 6240
TabIndex = 42
Top = 3240
Width = 855
End
Begin VB.Label Label19
Caption = "邮政编码"
Height = 255
Left = 8880
TabIndex = 40
Top = 2760
Width = 735
End
Begin VB.Label Label18
Caption = "家庭住址"
Height = 255
Left = 240
TabIndex = 38
Top = 2760
Width = 735
End
Begin VB.Label Label17
Caption = "籍贯"
Height = 255
Left = 8880
TabIndex = 36
Top = 1320
Width = 615
End
Begin VB.Label Label16
Caption = "手机"
Height = 255
Left = 6240
TabIndex = 34
Top = 2280
Width = 615
End
Begin VB.Label Label15
Caption = "家庭电话"
Height = 255
Left = 3240
TabIndex = 32
Top = 2280
Width = 735
End
Begin VB.Label Label14
Caption = "办公电话"
Height = 255
Left = 240
TabIndex = 30
Top = 2280
Width = 735
End
Begin VB.Label Label13
Caption = "电子邮箱"
Height = 255
Left = 5160
TabIndex = 28
Top = 1800
Width = 855
End
Begin VB.Label Label12
Caption = "身份证号"
Height = 255
Left = 240
TabIndex = 26
Top = 1800
Width = 735
End
Begin VB.Label lbl
Caption = "入职时间"
Height = 255
Left = 240
TabIndex = 24
Top = 3240
Width = 735
End
Begin VB.Label Label11
Caption = "学历"
Height = 255
Left = 6120
TabIndex = 22
Top = 1320
Width = 495
End
Begin VB.Label Label10
Caption = "职务 "
Height = 255
Left = 3360
TabIndex = 20
Top = 3240
Width = 735
End
Begin VB.Label Label9
Caption = "所在部门"
Height = 255
Left = 240
TabIndex = 17
Top = 1320
Width = 735
End
Begin VB.Label Label8
Caption = "婚否"
Height = 255
Left = 8880
TabIndex = 15
Top = 840
Width = 495
End
Begin VB.Label Label7
Caption = "政治面貌"
Height = 255
Left = 6120
TabIndex = 13
Top = 840
Width = 735
End
Begin VB.Label Label6
Caption = "出生日期"
Height = 255
Left = 3120
TabIndex = 11
Top = 840
Width = 855
End
Begin VB.Label Label5
Caption = "民族"
Height = 255
Left = 240
TabIndex = 10
Top = 840
Width = 615
End
Begin VB.Label Label4
Caption = "年龄"
Height = 255
Left = 8880
TabIndex = 8
Top = 360
Width = 615
End
Begin VB.Label Label3
Caption = "性别"
Height = 255
Left = 6120
TabIndex = 6
Top = 360
Width = 495
End
Begin VB.Label Label2
Caption = "姓名"
Height = 255
Left = 240
TabIndex = 4
Top = 360
Width = 495
End
Begin VB.Label Label1
Caption = "职员编号"
Height = 255
Left = 3120
TabIndex = 2
Top = 360
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "查询条件"
Height = 855
Left = 240
TabIndex = 53
Top = 4440
Width = 11295
Begin VB.ComboBox cboRetrieveEdu
Height = 300
Left = 8040
TabIndex = 68
Top = 360
Width = 975
End
Begin VB.TextBox txtInComUntil
Height = 270
Left = 3360
TabIndex = 65
Top = 360
Width = 1455
End
Begin VB.TextBox txtInComFrom
Height = 270
Left = 1440
TabIndex = 57
Top = 360
Width = 1575
End
Begin VB.ComboBox cboRetriveDep
Height = 300
Left = 5760
TabIndex = 55
Top = 360
Width = 1455
End
Begin VB.Label Label23
Caption = "学历"
Height = 255
Left = 7560
TabIndex = 67
Top = 360
Width = 375
End
Begin VB.Label Label30
Caption = "TO"
Height = 255
Left = 3120
TabIndex = 66
Top = 360
Width = 375
End
Begin VB.Label Label25
Caption = "入职时间FROM"
Height = 255
Left = 240
TabIndex = 56
Top = 360
Width = 1215
End
Begin VB.Label Label24
Caption = "所在部门"
Height = 255
Left = 4920
TabIndex = 54
Top = 360
Width = 855
End
End
Begin VB.Label Label29
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 4
Left = 6120
TabIndex = 70
Top = 480
Width = 1455
End
Begin VB.Label Label29
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 3
Left = 6960
TabIndex = 69
Top = 480
Width = 135
End
End
Attribute VB_Name = "frmEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ******************************************************************************
'窗体公共变量定义
' ******************************************************************************
Option Explicit
Private txtSQL As String
Private txtTest As String
Private txtTestRetrDep As String
Private txtTestRetrEdu As String
Private rstEmployee As ADODB.Recordset
Private result As String 'ExecuteSQL的返回值
Private results As Integer 'viewData的返回值
Private str As String 'MsgBox的返回值
Private strDepId As String '与窗体上显示部分的部门名称对应的部门编号
Private strNation As String '与窗体上显示部分的民族名称对应的民族编号
Private strPosition As String '与窗体上显示部分的职务名称对应的职务编号
Private strEdu As String '与窗体上显示部分的学历名称对应的文化程度编号
Private strRetriveDepId As String '与查询部分的部门名称对应的部门编号
Private strRetriveEduId As String '与查询部分的学历名称对应的文化程度编号
Private dateBirth As Date '生日
Private dateInComp As Date '窗体上显示部分的入职时间
Private dateRetrieveFrom As Date '窗体上查询部分的入职时间from
Private dateRetrieveTo As Date '窗体上查询部分的入职时间to
Private Sub Form_Load()
If gUserName = "普通用户" Then
cmdAdd.Enabled = False
cmdDel.Enabled = False
cmdModify.Enabled = False
End If
Call cboDepData '部门名称ComboBox
Call cboNationData '民族名称ComboBox
Call cboEduData '学历名称ComboBox
Call cboDutyData '职务名称ComboBox
Call cboDepDataRetre '查询部分部门名称ComboBox
Call cboRerieveEduData '查询部分学历名称ComboBox
Call cboStateData '职员类型ComboBox
Call cboMerryData '婚姻状况ComboBox
Call cboPoliticData '政治面貌ComboBox
Call cboSexData '性别ComboBox
Call viewDataEmp
End Sub
Private Sub cmdAdd_Click()
If checkIn = False Then '检验输入值
Exit Sub
End If
Call getcboDepId '获取DepId
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -