📄 employeesingform.frm
字号:
Height = 240
Left = 9360
TabIndex = 77
Top = 5040
Width = 120
End
Begin VB.Label Label3
Caption = "kg"
Height = 255
Left = 2055
TabIndex = 73
Top = 1800
Width = 255
End
Begin VB.Label Label2
Caption = "cm"
Height = 255
Left = 4455
TabIndex = 72
Top = 1800
Width = 255
End
Begin VB.Label Label1
Caption = "备 注："
Height = 255
Index = 33
Left = 120
TabIndex = 63
Top = 6000
Width = 975
End
Begin VB.Label Label1
Caption = "健康状况："
Height = 255
Index = 32
Left = 4920
TabIndex = 62
Top = 1200
Width = 975
End
Begin VB.Label Label1
Caption = "家庭地址："
Height = 255
Index = 31
Left = 4920
TabIndex = 61
Top = 4560
Width = 975
End
Begin VB.Label Label1
Caption = "邮政编码："
Height = 255
Index = 30
Left = 2760
TabIndex = 60
Top = 8280
Width = 975
End
Begin VB.Label Label1
Caption = "现 住 址："
Height = 255
Index = 29
Left = 120
TabIndex = 59
Top = 4560
Width = 975
End
Begin VB.Label Label1
Caption = "Email："
Height = 255
Index = 28
Left = 5160
TabIndex = 58
Top = 4080
Width = 615
End
Begin VB.Label Label1
Caption = "手 机："
Height = 255
Index = 27
Left = 120
TabIndex = 57
Top = 3600
Width = 975
End
Begin VB.Label Label1
Caption = "家庭电话："
Height = 255
Index = 26
Left = 4920
TabIndex = 56
Top = 3600
Width = 975
End
Begin VB.Label Label1
Caption = "公司电话："
Height = 255
Index = 25
Left = 360
TabIndex = 55
Top = 8040
Width = 975
End
Begin VB.Label Label1
Caption = "加盟时间："
Height = 255
Index = 24
Left = 120
TabIndex = 54
Top = 5520
Width = 975
End
Begin VB.Label Label1
Caption = "职 称："
Height = 255
Index = 23
Left = 4920
TabIndex = 53
Top = 5040
Width = 975
End
Begin VB.Label Label1
Caption = "职 位："
Height = 255
Index = 22
Left = 2520
TabIndex = 52
Top = 5040
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "部 门："
ForeColor = &H00000000&
Height = 180
Index = 21
Left = 120
TabIndex = 51
Top = 5040
Width = 900
End
Begin VB.Label Label1
Caption = "个人网站："
Height = 255
Index = 20
Left = 120
TabIndex = 50
Top = 4080
Width = 975
End
Begin VB.Label Label1
Caption = "婚姻状况："
Height = 255
Index = 19
Left = 4920
TabIndex = 49
Top = 1800
Width = 975
End
Begin VB.Label Label1
Caption = "计算机水平："
Height = 255
Index = 18
Left = 4920
TabIndex = 48
Top = 7920
Width = 1095
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "昵 称："
Height = 180
Index = 17
Left = 120
TabIndex = 47
Top = 720
Width = 900
End
Begin VB.Label Label1
Caption = "提成系数："
Height = 255
Index = 16
Left = 7320
TabIndex = 46
Top = 5040
Width = 975
End
Begin VB.Label Label1
Caption = "政治面貌："
Height = 255
Index = 15
Left = 7440
TabIndex = 45
Top = 7920
Width = 975
End
Begin VB.Label Label1
Caption = "毕业学校："
Height = 255
Index = 14
Left = 120
TabIndex = 44
Top = 2520
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "生日："
Height = 180
Index = 13
Left = 3360
TabIndex = 43
Top = 5520
Width = 540
End
Begin VB.Label Label1
Caption = "学 历："
Height = 255
Index = 12
Left = 4920
TabIndex = 42
Top = 2520
Width = 975
End
Begin VB.Label Label1
Caption = "户口地址："
Height = 255
Index = 11
Left = 4920
TabIndex = 41
Top = 3120
Width = 975
End
Begin VB.Label Label1
Caption = "体 重："
Height = 255
Index = 10
Left = 120
TabIndex = 40
Top = 1800
Width = 975
End
Begin VB.Label Label1
Caption = "身 高："
Height = 255
Index = 9
Left = 2520
TabIndex = 39
Top = 1800
Width = 975
End
Begin VB.Label Label1
Caption = "身份证号："
Height = 255
Index = 8
Left = 120
TabIndex = 38
Top = 3120
Width = 975
End
Begin VB.Label Label1
Caption = "血 型："
Height = 255
Index = 7
Left = 2520
TabIndex = 37
Top = 1200
Width = 975
End
Begin VB.Label Label1
Caption = "员工编号："
Height = 255
Index = 6
Left = 120
TabIndex = 36
Top = 1200
Width = 975
End
Begin VB.Label Label1
Caption = "民 族："
Height = 255
Index = 5
Left = 2520
TabIndex = 35
Top = 720
Width = 975
End
Begin VB.Label Label1
Caption = "离职时间："
Height = 255
Index = 4
Left = 6120
TabIndex = 34
Top = 5520
Width = 975
End
Begin VB.Label Label1
Caption = "性 别："
Height = 255
Index = 3
Left = 2520
TabIndex = 33
Top = 240
Width = 975
End
Begin VB.Label Label1
Caption = "密 码："
Height = 255
Index = 2
Left = 2520
TabIndex = 32
Top = 240
Visible = 0 'False
Width = 975
End
Begin VB.Label Label1
Caption = "姓 名："
Height = 255
Index = 1
Left = 120
TabIndex = 31
Top = 240
Width = 975
End
Begin VB.Label Label1
Caption = "员工编号"
Height = 255
Index = 0
Left = 240
TabIndex = 0
Top = 240
Visible = 0 'False
Width = 735
End
End
Attribute VB_Name = "employeeSingform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'* 模 块 名 称 :员工资料管理用户操作界面
'* 功 能 描 述 :员工资料管理用户操作界面
'* 程序员姓名 : 石春晓
'* 最后修改人 : 石春晓
'* 最后修改时间:2005/09/02
'**************************************
Option Explicit
Public m_operatorType As Integer ' 操作类型 0 - 新增 1 - 修改
Public m_employeeId As String ' 修改时其它窗体传递过来的参数
Private m_EmployeeDAO As employeeDAO ' 数据库操作类
Private m_recordset As ADODB.Recordset ' 数据操作数据集对象
Private imageDataArr() As Byte ' 图像文件读入后保存的字节数组
Private imageName As String ' 图像文件名
Private pictureid As String
Private m_dao As ImageDAO
Private m_departmentDAO As DepartmentDAO
Private g_recordset As ADODB.Recordset ' 数据操作数据集对象
Public f As String
Private Sub c_cancel_Click()
Unload Me
End Sub
Private Sub c_new_Click()
Call Check
If m_operatorType = 0 Then
If f = "0" Then
Exit Sub
Else
Call NewEmployee
clear
End If
ElseIf m_operatorType = 1 Then
Call ModifyEmployee
clear
m_operatorType = 0
End If
End Sub
Private Sub c_save_Click()
Call Check
If m_operatorType = 0 Then
If f = "0" Then
Exit Sub
Else
Call NewEmployee
End If
ElseIf m_operatorType = 1 Then
If f = "0" Then
Exit Sub
Else
Call ModifyEmployee
End If
End If
Unload Me
End Sub
Private Sub Command1_Click()
Dim filename1 As String ' 用户选择的文件的路径及文件名字符串
Dim fileLen As Long ' 文件长度
Dim file_num As Long ' 文件数据
Dim bufferfile As Long
Dim current As String
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen '显示打开文件对话框
filename1 = CommonDialog1.FileName '获取所选择的文件名
If filename1 = "" Then
Exit Sub
End If
file_num = FreeFile()
Open filename1 For Binary Access Read As #file_num
fileLen = LOF(file_num) '求文件长度
ReDim imageDataArr(fileLen) '根据文件长度定义动态数组大小
Get #file_num, , imageDataArr '将一个已打开的磁盘文件读入数组变量之中
bufferfile = FreeFile()
Open "tempfile.bmp" For Binary Access Read Write As #bufferfile '打开一个临时文件
Put bufferfile, , imageDataArr '将动态数组FileArr中的数据写入临时文件tempfile中
current = CurDir & "\tempfile.bmp" '获取临时文件的全路径
' WebBrowser1.Navigate current '在WebBrowser控件中显示文件内容
Picture1.Picture = LoadPicture(current)
End Sub
Private Sub Command2_Click()
Call Drbmhelp(1, Trim(Text3.text)) ' 根据设置选择显示编码和名称,并进行存储
If Len(XT_calendar.Xtfhcs) <> 0 Then
Text3.text = XT_calendar.Xtfhcs ' 将日历窗体里取得的值传给建档日期的文本框
End If
End Sub
Private Sub Command3_Click()
Call Drbmhelp(1, Trim(Text2.text)) ' 根据设置选择显示编码和名称,并进行存储
If Len(XT_calendar.Xtfhcs) <> 0 Then
Text2.text = XT_calendar.Xtfhcs ' 将日历窗体里取得的值传给建档日期的文本框
End If
End Sub
Private Sub Command4_Click()
Call Drbmhelp(1, Trim(Text1(12).text)) ' 根据设置选择显示编码和名称,并进行存储
If Len(XT_calendar.Xtfhcs) <> 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -