📄 form7.frm
字号:
Width = 660
End
Begin VB.Label Label44
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = -68880
TabIndex = 73
Top = 1800
Width = 180
End
Begin VB.Label Label45
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = -68160
TabIndex = 72
Top = 1800
Width = 180
End
Begin VB.Label Label46
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = -69600
TabIndex = 71
Top = 2607
Width = 180
End
Begin VB.Label Label47
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = -68880
TabIndex = 70
Top = 2580
Width = 180
End
Begin VB.Label Label48
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = -68160
TabIndex = 69
Top = 2561
Width = 180
End
Begin VB.Label Label49
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = -69600
TabIndex = 68
Top = 4147
Width = 180
End
Begin VB.Label Label50
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = -68880
TabIndex = 67
Top = 4140
Width = 180
End
Begin VB.Label Label51
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = -68160
TabIndex = 66
Top = 4158
Width = 180
End
Begin VB.Label Label52
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = -69600
TabIndex = 65
Top = 4920
Width = 180
End
Begin VB.Label Label53
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = -68880
TabIndex = 64
Top = 4920
Width = 180
End
Begin VB.Label Label54
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = -68160
TabIndex = 63
Top = 4920
Width = 180
End
Begin VB.Label Label55
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = -69600
TabIndex = 62
Top = 3377
Width = 180
End
Begin VB.Label Label56
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = -68880
TabIndex = 61
Top = 3360
Width = 180
End
Begin VB.Label Label57
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = -68160
TabIndex = 60
Top = 3315
Width = 180
End
Begin VB.Label Label33
AutoSize = -1 'True
Caption = "毕业时间"
Height = 180
Left = -71400
TabIndex = 59
Top = 1200
Width = 720
End
Begin VB.Label Label58
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = -69720
TabIndex = 58
Top = 1200
Width = 180
End
Begin VB.Label Label59
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = -69000
TabIndex = 57
Top = 1200
Width = 180
End
Begin VB.Label Label60
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = -68280
TabIndex = 56
Top = 1200
Width = 180
End
Begin VB.Label Label61
AutoSize = -1 'True
Caption = "年"
Height = 180
Left = 5520
TabIndex = 55
Top = 2520
Width = 180
End
Begin VB.Label Label62
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = 6240
TabIndex = 54
Top = 2520
Width = 180
End
Begin VB.Label Label63
AutoSize = -1 'True
Caption = "日"
Height = 180
Left = 6960
TabIndex = 53
Top = 2520
Width = 180
End
End
Begin VB.Label Label39
Caption = "请逐页添加以下个人基本信息"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 375
Left = 2040
TabIndex = 115
Top = 120
Width = 3975
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 "女"
Form7.Left = 1000
Form7.Top = 680
End Sub
Private Sub SSTab1_DblClick()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -