frmgeren.frm
来自「人事管理系统 基本功能说明： 3．1数据录入 提供两种信息录入方式：列表录」· FRM 代码 · 共 1,435 行 · 第 1/4 页
FRM
1,435 行
Left = -74640
TabIndex = 59
Top = 4200
Width = 900
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "聘任时间"
Height = 180
Left = -71640
TabIndex = 58
Top = 3391
Width = 720
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "技术职务"
Height = 180
Left = -74640
TabIndex = 57
Top = 3391
Width = 720
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "开始时间"
Height = 180
Left = -71640
TabIndex = 56
Top = 2616
Width = 720
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "职称名称"
Height = 180
Left = -74640
TabIndex = 55
Top = 2664
Width = 720
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "任命时间"
Height = 180
Left = -71640
TabIndex = 54
Top = 1848
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "职务名称"
Height = 180
Left = -74640
TabIndex = 53
Top = 1872
Width = 720
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "具体科室"
Height = 180
Left = -71640
TabIndex = 52
Top = 1080
Width = 720
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "部门名称"
Height = 180
Left = -74640
TabIndex = 51
Top = 1080
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "邮政编码"
Height = 180
Left = 3600
TabIndex = 50
Top = 4560
Width = 720
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "联系地址"
Height = 180
Left = 360
TabIndex = 49
Top = 5160
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "医疗保险号"
Height = 180
Left = 3600
TabIndex = 48
Top = 3840
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "身份证号"
Height = 180
Left = 360
TabIndex = 47
Top = 3895
Width = 720
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "联系电话"
Height = 180
Left = 360
TabIndex = 46
Top = 4560
Width = 720
End
Begin VB.Label Label13
Caption = "Label13"
Height = 615
Left = 2400
TabIndex = 45
Top = -1440
Width = 2055
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "户口所在地"
Height = 180
Left = 3600
TabIndex = 44
Top = 3180
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "籍 贯"
Height = 180
Left = 360
TabIndex = 43
Top = 3230
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "加入时间"
Height = 180
Left = 3600
TabIndex = 42
Top = 2520
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "政治面貌"
Height = 180
Left = 360
TabIndex = 41
Top = 2565
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "婚姻状况"
Height = 180
Left = 3600
TabIndex = 40
Top = 1950
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "民 族"
Height = 180
Left = 360
TabIndex = 39
Top = 1995
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "出生日期"
Height = 180
Left = 3600
TabIndex = 38
Top = 1335
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "人员编号"
Height = 180
Left = 3600
TabIndex = 37
Top = 705
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "人员姓名"
Height = 180
Left = 360
TabIndex = 36
Top = 705
Width = 720
End
End
Begin VB.Label Label39
AutoSize = -1 'True
Caption = "请逐页添加以下个人基本信息"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000001&
Height = 285
Left = 1680
TabIndex = 71
Top = 120
Width = 3900
End
End
Attribute VB_Name = "form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then '用户姓名密码判断是否为空
a = MsgBox("人员姓名或人员编号不能为空", , "错误！")
Else
Adodc1.RecordSource = "select * from 人事基本信息表 where 人员编号 = '" & Text2.Text & "'"
'查询输入的用户姓名是否已经存在
Adodc1.Refresh
If Adodc1.Recordset.EOF Then ' 不存在此用户名，添加新人员信息
Text3.Text = Text3.Text + "年" + Text12.Text + "月" + Text15.Text + "日"
Text6.Text = Text6.Text + "年" + Text44.Text + "月" + Text45.Text + "日"
Text16.Text = Text16.Text + "年" + Text32.Text + "月" + Text33.Text + "日"
Text17.Text = Text17.Text + "年" + Text34.Text + "月" + Text35.Text + "日"
Text19.Text = Text19.Text + "年" + Text40.Text + "月" + Text41.Text + "日"
Text20.Text = Text20.Text + "年" + Text36.Text + "月" + Text37.Text + "日"
Text22.Text = Text22.Text + "年" + Text38.Text + "月" + Text39.Text + "日"
Text26.Text = Text26.Text + "年" + Text42.Text + "月" + Text43.Text + "日"
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("人员姓名") = Text1.Text
Adodc1.Recordset.Fields("人员编号") = Text2.Text
Adodc1.Recordset.Fields("性别") = Combo7.Text
Adodc1.Recordset.Fields("出生日期") = Text3.Text
Adodc1.Recordset.Fields("民族") = Text4.Text
Adodc1.Recordset.Fields("婚姻状况") = Combo1.Text
Adodc1.Recordset.Fields("政治面貌") = Text5.Text
Adodc1.Recordset.Fields("加入时间") = Text6.Text
Adodc1.Recordset.Fields("籍贯") = Text7.Text
Adodc1.Recordset.Fields("户口所在地") = Text8.Text
Adodc1.Recordset.Fields("身份证号") = Text9.Text
Adodc1.Recordset.Fields("医疗保险号") = Text10.Text
Adodc1.Recordset.Fields("联系电话") = Text11.Text
Adodc1.Recordset.Fields("联系地址") = Text13.Text
Adodc1.Recordset.Fields("邮政编码") = Text14.Text
Adodc1.Recordset.Fields("部门名称") = Combo2.Text
Adodc1.Recordset.Fields("具体科室") = Combo3.Text
Adodc1.Recordset.Fields("职务名称") = Combo5.Text
Adodc1.Recordset.Fields("任命时间") = Text16.Text
Adodc1.Recordset.Fields("职称名称") = Combo6.Text
Adodc1.Recordset.Fields("开始时间") = Text17.Text
Adodc1.Recordset.Fields("技术职务") = Text18.Text
Adodc1.Recordset.Fields("聘任时间") = Text19.Text
Adodc1.Recordset.Fields("参加工作时间") = Text20.Text
Adodc1.Recordset.Fields("连续工龄") = Text21.Text
Adodc1.Recordset.Fields("入校工作时间") = Text22.Text
Adodc1.Recordset.Fields("是否合同制") = Combo4.Text
Adodc1.Recordset.Fields("学历") = Text23.Text
Adodc1.Recordset.Fields("毕业院校") = Text24.Text
Adodc1.Recordset.Fields("所学专业") = Text25.Text
Adodc1.Recordset.Fields("毕业时间") = Text26.Text
Adodc1.Recordset.Fields("最高学位") = Text27.Text
Adodc1.Recordset.Fields("当前状况") = Text28.Text
Adodc1.Recordset.Fields("个人简介") = Text29.Text
Adodc1.Recordset.Fields("奖惩状况") = Text30.Text
Adodc1.Recordset.Fields("备注信息") = Text31.Text
Adodc1.Recordset.Update
a = MsgBox("人员信息添加成功！", , "操作成功！")
Else
a = MsgBox("已有此人员纪录！", , "错误！")
End If
End If
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "是"
Combo1.AddItem "否"
Combo2.AddItem "行政"
Combo2.AddItem "教学"
Combo3.AddItem "办公室"
Combo3.AddItem "团委"
Combo3.AddItem "资料室"
Combo3.AddItem "实验室"
Combo3.AddItem "会计系"
Combo3.AddItem "财政系"
Combo3.AddItem "工商管理系"
Combo3.AddItem "信息管理工程系"
Combo3.AddItem "图书馆学系"
Combo3.AddItem "档案学系"
Combo3.AddItem "旅游管理系"
Combo4.AddItem "是"
Combo4.AddItem "否"
Combo5.AddItem "科员"
Combo5.AddItem "副科长"
Combo5.AddItem "科长"
Combo5.AddItem "副处长"
Combo5.AddItem "处长"
Combo6.AddItem "助教"
Combo6.AddItem "讲师"
Combo6.AddItem "副教授"
Combo6.AddItem "教授"
Combo7.AddItem "男"
Combo7.AddItem "女"
frmgeren.Left = 2200
frmgeren.Top = 680
End Sub
Private Sub SSTab1_DblClick()
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?