【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了FrmEmpMan.frm相关资料,希望对各位网友有所帮助!
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form FrmEmpMan
BorderStyle = 1 'Fixed Single
Caption = "员工信息管理"
ClientHeight = 5565
ClientLeft = 45
ClientTop = 330
ClientWidth = 11730
Icon = "FrmEmpMan.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5565
ScaleWidth = 11730
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox ComboState
Height = 300
ItemData = "FrmEmpMan.frx":0CCA
Left = 120
List = "FrmEmpMan.frx":0CE0
Style = 2 'Dropdown List
TabIndex = 53
Top = 2880
Width = 2415
End
Begin VB.Frame Frame2
BackColor = &H80000004&
Height = 495
Left = 120
TabIndex = 50
Top = 0
Width = 11535
Begin VB.CommandButton Cmd_Experience
Caption = "学历与工作经历"
Height = 285
Left = 2520
MouseIcon = "FrmEmpMan.frx":0D20
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 52
Top = 150
Width = 2025
End
Begin VB.CommandButton Cmd_Family
Caption = "家庭主要成员管理"
Height = 285
Left = 180
MouseIcon = "FrmEmpMan.frx":102A
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 51
Top = 150
Width = 1905
End
End
Begin VB.CommandButton Cmd_Trans
Caption = "部门调转"
Height = 400
Left = 6745
MouseIcon = "FrmEmpMan.frx":1334
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 49
Top = 4920
Width = 1300
End
Begin VB.CommandButton Cmd_Back
Cancel = -1 'True
Caption = "返 回"
Height = 400
Left = 8275
MouseIcon = "FrmEmpMan.frx":163E
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 48
Top = 4920
Width = 1300
End
Begin VB.CommandButton Cmd_Del
Caption = "删除职员"
Height = 400
Left = 5215
MouseIcon = "FrmEmpMan.frx":1948
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 47
Top = 4920
Width = 1300
End
Begin VB.CommandButton Cmd_Modi
Caption = "修改资料"
Height = 400
Left = 3700
MouseIcon = "FrmEmpMan.frx":1C52
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 46
Top = 4920
Width = 1300
End
Begin VB.CommandButton Cmd_Add
Caption = "添加职员"
Default = -1 'True
Height = 400
Left = 2155
MouseIcon = "FrmEmpMan.frx":1F5C
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 45
Top = 4920
Width = 1300
End
Begin
VB.Frame Frame1
BackColor = &H80000004&
ForeColor = &H00808000&
Height = 4215
Left = 2640
TabIndex = 0
Top = 480
Width = 9015
Begin VB.Line Line19
X1 = 3720
X2 = 3720
Y1 = 3840
Y2 = 4200
End
Begin VB.Line Line8
X1 = 2400
X2 = 2400
Y1 = 3840
Y2 = 4200
End
Begin VB.Line Line22
X1 = 3720
X2 = 3720
Y1 = 2760
Y2 = 3120
End
Begin VB.Line Line12
X1 = 5880
X2 = 5880
Y1 = 2040
Y2 = 2760
End
Begin VB.Label Lbl_Memo1
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "Memo"
DataField = "Memo1"
DataSource = "AdoEmpDetail"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 465
Left = 1320
TabIndex = 44
Top = 3240
Width = 7560
End
Begin VB.Label Label27
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "备注"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 120
TabIndex = 43
Top = 3240
Width = 390
End
Begin VB.Label Lbl_BadgeID
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "BadgeID"
DataField = "BadgeID"
DataSource = "AdoEmpDetail"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 225
Left = 6000
TabIndex = 42
Top = 1440
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "
工作证号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 4800
TabIndex = 41
Top = 1440
Width = 780
End
Begin VB.Line Line26
X1 = 0
X2 = 9000
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line25
X1 = 3360
X2 = 3360
Y1 = 1680
Y2 = 2040
End
Begin VB.Line Line21
X1 = 3360
X2 = 3360[b