📄 frmstuff_info.frm
字号:
Caption = "出生日期："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 5
Top = 2040
Width = 1095
End
Begin VB.Label Label4
Caption = "性 别："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 4
Top = 960
Width = 1095
End
Begin VB.Label Label3
Caption = "员工姓名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 3
Top = 720
Width = 1335
End
Begin VB.Label Label2
Caption = "员工编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 2
Top = 360
Width = 1335
End
End
Begin VB.Label Label1
Caption = "员工基本信息"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2760
TabIndex = 0
Top = 120
Width = 1935
End
End
Attribute VB_Name = "frmStuff_info"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
Private Sub addNewRecord()
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "select * from StuffInfo"
Set rs = TransactSQL(SQL)
rs.AddNew '添加新记录
rs.Fields(0) = Trim(Me.ID)
rs.Fields(1) = Trim(Me.StuffName)
rs.Fields(2) = Gender.Text
rs.Fields(3) = Trim(Me.Place)
rs.Fields(4) = Trim(Me.Age)
rs.Fields(5) = Trim(Me.birthday)
rs.Fields(6) = Trim(Me.Degree)
rs.Fields(7) = Trim(Me.Speciality)
rs.Fields(8) = Trim(Me.Address)
rs.Fields(9) = Trim(Me.Code)
rs.Fields(10) = Trim(Me.Tel)
rs.Fields(11) = Trim(Me.Email)
rs.Fields(12) = Trim(Me.workTime)
rs.Fields(13) = Trim(Me.intime)
rs.Fields(14) = Trim(Me.Dept)
rs.Fields(15) = Trim(Me.paytime)
rs.Fields(16) = Trim(Me.Position)
rs.Fields(17) = Trim(Me.Remark)
rs.Update
rs.Close
End Sub
Private Sub init() '初始化
Me.StuffName = ""
Me.Gender.ListIndex = 0
Me.Place = ""
Me.Age = ""
'Me.birthday = ""
Me.Degree = ""
Me.Speciality = ""
Me.Address = ""
Me.Code = ""
Me.Tel = ""
Me.Email = ""
'Me.workTime = ""
Me.intime = ""
Me.Dept = ""
' Me.paytime = ""
Me.Position = ""
Me.Remark = ""
Me.StuffName.SetFocus
End Sub
Private Sub cmdOK_Click()
Dim SQL As String
Dim temp As String
Dim num As Integer
Dim rs As New ADODB.Recordset
If Trim(Me.StuffName) = "" Then '判断员工姓名是否为空
MsgBox "请输入员工姓名！", vbOKOnly + vbExclamation, "警告！"
Me.StuffName.SetFocus
Exit Sub
End If
If Trim(Me.Age) = "" Then '判断年龄是否为空
MsgBox "请输入员工年龄！", vbOKOnly + vbExclamation, "警告！"
Me.Age.SetFocus
Exit Sub
End If
If Trim(Me.birthday) = "" Then '判断生日是否为空
MsgBox "请输入员工生日！", vbOKOnly + vbExclamation, "警告！"
Me.birthday.SetFocus
Exit Sub
End If
If Trim(Me.Dept) = "" Then '判断部门是否为空
MsgBox "请输入员工所在部门！", vbOKOnly + vbExclamation, "警告！"
Me.Dept.SetFocus
Exit Sub
End If
If Trim(Me.Position) = "" Then '判断职务是否为空
MsgBox "请输入员工职务！", vbOKOnly + vbExclamation, "警告！"
Me.Position.SetFocus
Exit Sub
End If
If Not IsDate(Me.birthday) Then '判断生日的格式
MsgBox "生日请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
Me.birthday.SetFocus
Exit Sub
Else
Me.birthday = Format(Me.birthday, "yyyy-mm-dd")
End If
If Not IsDate(Me.workTime) Then '判断参加工作时间的格式
MsgBox "参加工作时间请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
Me.workTime.SetFocus
Exit Sub
Else
Me.workTime = Format(Me.workTime, "yyyy-mm-dd")
End If
If Not IsDate(Me.intime) Then '判断加入本公司时间格式
MsgBox "进入本公司时间请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
Me.intime.SetFocus
Exit Sub
Else
Me.intime = Format(Me.intime, "yyyy-mm-dd")
End If
If Not IsDate(Me.paytime) Then '判断起薪时间格式
MsgBox "起薪时间请按照(yyyy-mm-dd)方式输入！", vbOKOnly + vbExclamation, "警告！"
Me.paytime.SetFocus
Exit Sub
Else
Me.paytime = Format(Me.paytime, "yyyy-mm-dd")
End If
If flag = 1 Then '添加操作
SQL = "select * from StuffInfo where SName='" & Trim(Me.StuffName)
SQL = SQL & "' and SGender='" & Gender.Text & "' and SBirthday='"
SQL = SQL & Trim(Me.birthday) & "' and SDept='" & Trim(Me.Dept)
SQL = SQL & "' and SPosition='" & Trim(Me.Position) & "'"
Set rs = TransactSQL(SQL)
If rs.EOF = False Then '判断是否已经存在员工记录
MsgBox "已经存在这个员工的记录！", vbOKOnly + vbExclamation, "警告！"
Me.StuffName.SetFocus
Me.StuffName.SelStart = 0
rs.Close
Else
Call addNewRecord
MsgBox "记录已经成功添加！", vbOKOnly + vbExclamation, "添加结果！"
SQL = "update PersonNum set Num= Num+1" '计数器加1
TransactSQL (SQL)
SQL = "select * from PersonNum" '员工编号初始化
Set rs = TransactSQL(SQL)
num = rs(0)
num = num + 1
temp = Right(Format(100000 + num), 5)
Me.ID = "A" & temp
rs.Close
Call init
SQL = "select * from StuffInfo" '显示信息列表
frmResult.createList (SQL)
frmResult.Show
frmResult.ZOrder 0
Me.ZOrder 0 '显示窗体继续添加
End If
ElseIf flag = 2 Then '修改操作
SQL = "update StuffInfo set SGender='" & Gender.Text & "',SPlace='"
SQL = SQL & Trim(Me.Place) & "', SAge=" & Trim(Me.Age)
SQL = SQL & ",SBirthday='" & Trim(Me.birthday) & "',"
SQL = SQL & "SDegree='" & Trim(Me.Degree) & "',"
SQL = SQL & "SSpecial='" & Trim(Me.Speciality) & "',"
SQL = SQL & "SAddress='" & Trim(Me.Address) & "',"
SQL = SQL & "SCode='" & Trim(Me.Code) & "',"
SQL = SQL & "STel='" & Trim(Me.Tel) & "',SEmail='" & Trim(Me.Email) & "',"
SQL = SQL & "SWorkTime='" & Trim(Me.workTime) & "',"
SQL = SQL & "SInTime='" & Trim(Me.intime) & "',"
SQL = SQL & "SDept='" & Trim(Me.Dept) & "',SPayTime='" & Trim(Me.paytime)
SQL = SQL & "',SPosition='" & Trim(Me.Position) & "',"
SQL = SQL & "SRemark='" & Trim(Me.Remark) & "' where SID='" & Trim(Me.ID) & "'"
TransactSQL (SQL)
MsgBox "记录已经成功修改！", vbOKOnly + vbExclamation, "修改结果！"
Unload Me
SQL = "select * from StuffInfo"
frmResult.createList (SQL)
frmResult.Show
End If
End Sub
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim SQL As String
Dim num As Integer
Dim temp As String
With Gender '添加性别选项
.AddItem "男"
.AddItem "女"
End With
Data1.DatabaseName = App.Path & "\person.MDB"
If flag = 1 Then '判断为添加信息
Me.Caption = "添加" + Me.Caption
Gender.ListIndex = 0
SQL = "select * from PersonNum"
Set rs = TransactSQL(SQL)
num = rs(0)
num = num + 1
temp = Right(Format(100000 + num), 5)
Me.ID = "A" & temp
rs.Close
ElseIf flag = 2 Then '判断为修改信息
Set rs = TransactSQL(gSQL)
If rs.EOF = False Then
With rs
Me.ID = rs(0)
Me.StuffName = rs(1)
Me.Gender = rs(2)
Me.Place = rs(3)
Me.Age = rs(4)
Me.birthday = rs(5)
Me.Degree = rs(6)
Me.Speciality = rs(7)
Me.Address = rs(8)
Me.Code = rs(9)
Me.Tel = rs(10)
Me.Email = rs(11)
Me.workTime = rs(12)
Me.intime = rs(13)
Me.Dept = rs(14)
Me.paytime = rs(15)
Me.Position = rs(16)
Me.Remark = rs(17)
End With
rs.Close
Me.Caption = "修改" & Me.Caption
Me.ID.Enabled = False
Me.StuffName.Enabled = False
Else
MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -