ateSubcmdOK_Click()
DimSQLAsString
DimrsAsADODB.Recordset
IfTrim(OldPWD.Text)=""Then'判断是否输入旧密码
MsgBox"请输入旧密码!",vbOKOnly+vbExclamation,"警告"
OldPWD.SetFocus
ExitSub
Else
IfTrim(NewPWD.Text)=""Then'判断是否输入新密码
MsgBox"请输入新密码!",vbOKOnly+vbExclamation,"警告"
NewPWD.SetFocus
ExitSub
ElseIfTrim(NewPWD.Text)<>Trim(ConfirmPWD.Text)Then'判断两次密码是否相同
MsgBox"两次密码不同!",vbOKOnly+vbExclamation,"警告"
NewPWD.Text=""
ConfirmPWD.Text=""
NewPWD.SetFocus
Else
'修改密码
SQL="updateUserInfosetUserPWD='"&NewPWD&"'whereUserID='"
SQL=SQL&gUserName&"'"
TransactSQL(SQL)
MsgBox"密码已经修改!",vbOKOnly+vbExclamation,"修改结果"
UnloadMe
EndIf
EndIf
EndSub
PrivateSubForm_Load()
OldPWD.Text=""
NewPWD.Text=""
ConfirmPWD.Text=""
EndSub
添加员工基本信息
其确定按钮的源码如下:
OptionExplicit
PrivateSubcmdCancel_Click()
UnloadMe
ExitSub
EndSub
PrivateSubaddNewRecord()
DimSQLAsString
DimrsAsNewADODB.Recordset
SQL="select*fromStuffInfo"
Setrs=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
EndSub
PrivateSubinit()'初始化
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
EndSub
PrivateSubcmdOK_Click()
DimSQLAsString
DimtempAsString
DimnumAsInteger
DimrsAsNewADODB.Recordset
IfTrim(Me.StuffName)=""Then'判断员工姓名是否为空
MsgBox"请输入员工姓名!",vbOKOnly+vbExclamation,"警告!"
Me.StuffName.SetFocus
ExitSub
EndIf
IfTrim(Me.Age)=""Then'判断年龄是否为空
MsgBox"请输入员工年龄!",vbOKOnly+vbExclamation,"警告!"
Me.Age.SetFocus
ExitSub
EndIf
IfTrim(Me.Birthday)=""Then'判断生日是否为空
MsgBox"请输入员工生日!",vbOKOnly+vbExclamation,"警告!"
Me.Birthday.SetFocus
ExitSub
EndIf
IfTrim(Me.Dept)=""Then'判断部门是否为空
MsgBox"请输入员工所在部门!",vbOKOnly+vbExclamation,"警告!"
Me.Dept.SetFocus
ExitSub
EndIf
IfTrim(Me.Position)=""Then'判断职务是否为空
MsgBox"请输入员工职务!",vbOKOnly+vbExclamation,"警告!"
Me.Position.SetFocus
ExitSub
EndIf
IfNotIsDate(Me.Birthday)Then'判断生日的格式
MsgBox"生日请按照(yyyy-mm-dd)方式输入!",vbOKOnly+vbExclamation,"警告!"
Me.Birthday.SetFocus
ExitSub
Else
Me.Birthday=Format(Me.Birthday,"yyyy-mm-dd")
EndIf
IfNotIsDate(Me.WorkTime)Then'判断参加工作时间的格式
MsgBox"参加工作时间请按照(yyyy-mm-dd)方式输入!",vbOKOnly+vbExclamation,"警告!"
Me.WorkTime.SetFocus
ExitSub
Else
Me.WorkTime=Format(Me.WorkTime,"yyyy-mm-dd")
EndIf
IfNotIsDate(Me.InTime)Then'判断加入本公司时间格式
MsgBox"进入本公司时间请按照(yyyy-mm-dd)方式输入!",vbOKOnly+vbExclamation,"警告!"
Me.InTime.SetFocus
ExitSub
Else
Me.InTime=Format(Me.InTime,"yyyy-mm-dd")
EndIf
IfNotIsDate(Me.PayTime)Then'判断起薪时间格式
MsgBox"起薪时间请按照(yyyy-mm-dd)方式输入!",vbOKOnly+vbExclamation,"警告!"
Me.PayTime.SetFocus
ExitSub
Else
Me.PayTime=Format(Me.PayTime,"yyyy-mm-dd")
EndIf
Ifflag=1Then'添加操作
SQL="select*fromStuffInfowhereSName='"&Trim(Me.StuffName)
SQL=SQL&"'andSGender='"&Gender.Text&"'andSBirthday='"
SQL=SQL&Trim(Me.Birthday)&"'andSDept='"&Trim(Me.Dept)
SQL=SQL&"'andSPosition='"&Trim(Me.Position)&"'"
Setrs=TransactSQL(SQL)
Ifrs.EOF=FalseThen'判断是否已经存在员工记录
MsgBox"已经存在这个员工的记录!",vbOKOnly+vbExclamation,"警告!"
Me.StuffName.SetFocus
Me.StuffName.SelStart=0
rs.Close
Else
CalladdNewRecord
MsgBox"记录已经成功添加!",vbOKOnly+vbExclamation,"添加结果!"
SQL="updatePersonNumsetNum=Num+1"'计数器加1
TransactSQL(SQL)
SQL="select*fromPersonNum"'员工编号初始化
Setrs=TransactSQL(SQL)
num=rs(0)
num=num+1
temp=Right(Format(100000000+num),7)
Me.ID="P"&temp
rs.Close
Callinit
SQL="select*fromStuffInfo"'显示信息列表
frmResult.createList(SQL)
frmResult.Show
frmResult.ZOrder0
Me.ZOrder0'显示窗体继续添加
EndIf
ElseIfflag=2Then'修改操作
SQL="updateStuffInfosetSGender='"&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)&"'whereSID='"&Trim(Me.ID)&"'"
TransactSQL(SQL)
MsgBox"记录已经成功修改!",vbOKOnly+vbExclamation,"修改结果!"
UnloadMe
SQL="select*fromStuffInfo"
frmResult.createList(SQL)
frmResult.Show
EndIf
EndSub
PrivateSubCode_Change()
EndSub
PrivateSubForm_Load()
DimrsAsNewADODB.Recordset
DimSQLAsString
DimnumAsInteger
上一篇:
VB流动资金贷款业务系统(论文和程序)
下一篇:
ASP小区停车管理系统(Access)(含录像)