📄 frmrenadd.frm
字号:
Top = 4500
Width = 1215
End
Begin VB.Label label
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "院系"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 7
Left = 480
TabIndex = 28
Top = 2700
Width = 975
End
Begin VB.Label label
BackStyle = 0 'Transparent
Caption = "出生日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 6
Left = 3960
TabIndex = 27
Top = 3300
Width = 1335
End
Begin VB.Label label
BackStyle = 0 'Transparent
Caption = "教研室"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 210
Index = 5
Left = 3900
TabIndex = 26
Top = 2700
Width = 675
End
Begin VB.Label label
BackStyle = 0 'Transparent
Caption = "学历"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 4
Left = 3900
TabIndex = 25
Top = 1500
Width = 1215
End
Begin VB.Label label
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "职务"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 3
Left = 480
TabIndex = 24
Top = 2100
Width = 975
End
Begin VB.Label label
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "职称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 2
Left = 3900
TabIndex = 23
Top = 900
Width = 975
End
Begin VB.Label label
BackStyle = 0 'Transparent
Caption = "性别"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 1
Left = 480
TabIndex = 22
Top = 900
Width = 855
End
Begin VB.Label label
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Index = 0
Left = 3900
TabIndex = 21
Top = 360
Width = 975
End
Begin VB.Label Label1
BackColor = &H8000000D&
Caption = "工作日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 495
Left = 3900
TabIndex = 20
Top = 2100
Width = 1335
End
Begin VB.Label Label2
BackColor = &H8000000D&
Caption = "政治面貌"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 375
Left = 360
TabIndex = 19
Top = 1500
Width = 1335
End
End
End
Attribute VB_Name = "FrmRenadd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''rili
Option Explicit
Dim UserDate As Date
Dim UserDategong As Date
''''''''''''''''''''''''''''''''''''''
Private Sub cmdCalendar_Click()
Frmcalborn.Show
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
'定义数据集对象
Dim mrc As ADODB.Recordset
'定义字符串变量，表示查询语句
Dim txtSQL As String
'定义字符串变量，返回查询信息
Dim MsgText As String
'判断是否输入编号,编号是主键，不能为空
If Not Testtxt(txtbh.Text) Then
MsgBox "请输入编号！", vbOKOnly + vbExclamation, "警告"
txtbh.SetFocus
Exit Sub
End If
'判断性别输入是否符合要求
If Testtxt(comsex.Text) Then
If Trim(comsex.Text) = "男" Or Trim(comsex.Text) = "女" Then
Else
MsgBox "性别只输入 男 或 女！", vbOKOnly + vbExclamation, "警告"
comsex.SetFocus
Exit Sub
End If
End If
'判断身份证号码输入是否正确
If Testtxt(TxtShfzh.Text) Then
If Len(Trim(TxtShfzh.Text)) <> 15 And Len(Trim(TxtShfzh.Text)) <> 18 Then
MsgBox "身份证号码长度不正确！", vbOKOnly + vbExclamation, "警告"
TxtShfzh.SetFocus
Exit Sub
Else
If Not IsNumeric(left$(TxtShfzh.Text, 17)) Then
MsgBox "身份证号码不正确！", vbOKOnly + vbExclamation, "警告"
TxtShfzh.SetFocus
Exit Sub
End If
End If
End If
'判断是否有重复的记录
txtSQL = "select * from personnel_Infor where personnel_id = '" & Trim(txtbh.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox "该编号记录已存在！请重新输入", vbOKOnly + vbExclamation, "警告"
mrc.Close
txtbh.SetFocus
Else
mrc.Close
'判断是否输入出生日期？
If Testtxt(TxtBorndate.Text) Then
'判断输入的出生日期是否按照格式
If Not IsDate(TxtBorndate.Text) Then
MsgBox "出生日期应输入日期格式（yyyy—mm—dd）！", vbOKOnly + vbExclamation, "警告"
TxtBorndate.SetFocus
Exit Sub
Else
TxtBorndate = Format(TxtBorndate, "yyyy-mm-dd")
End If
Else
TxtBorndate.Text = "1900-01-01"
TxtBorndate = Format(TxtBorndate, "yyyy-mm-dd")
End If
If Testtxt(Txtgongzuo.Text) Then
If Not IsDate(Txtgongzuo.Text) Then
MsgBox "工作时间应输入日期格式（yyyy—mm—dd）！", vbOKOnly + vbExclamation, "警告"
Txtgongzuo.SetFocus
Exit Sub
Else
Txtgongzuo = Format(Txtgongzuo, "yyyy-mm-dd")
End If
Else
Txtgongzuo.Text = "1900-01-01"
Txtgongzuo = Format(Txtgongzuo, "yyyy-mm-dd")
End If
txtSQL = "select * from personnel_Infor"
'执行查询操作
Set mrc = ExecuteSQL(txtSQL, MsgText)
'添加记录
mrc.AddNew
mrc.Fields(0) = Trim(txtbh.Text)
mrc.Fields(1) = Trim(txtName.Text)
mrc.Fields(2) = Trim(comsex.Text)
mrc.Fields(3) = Trim(Comzhch.Text)
mrc.Fields(4) = Trim(TxtZhw.Text)
mrc.Fields(5) = Trim(Comxue.Text)
mrc.Fields(6) = Trim(TxtJysh.Text)
mrc.Fields(7) = Trim(TxtBorndate.Text)
mrc.Fields(8) = Trim(Commian.Text)
mrc.Fields(9) = Trim(Txtgongzuo.Text)
mrc.Fields(10) = Trim(Txtyuanxi.Text)
mrc.Fields(11) = Trim(Txtjianzhi.Text)
mrc.Fields(12) = Trim(TxtJg.Text)
mrc.Fields(13) = Trim(TxtShfzh.Text)
mrc.Update
MsgBox "添加信息成功", vbOKOnly + vbExclamation, "警告"
'关闭数据集对象
mrc.Close
txtbh.Text = ""
txtName.Text = ""
comsex.Text = ""
Comzhch.Text = ""
Commian.Text = ""
Comxue.Text = ""
TxtZhw.Text = ""
Txtyuanxi.Text = ""
TxtJysh.Text = ""
TxtShfzh.Text = ""
TxtJg.Text = ""
Txtjianzhi.Text = ""
Me.Hide
End If
End Sub
Private Sub Command1_Click()
Frmcalgong.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -