网学网为广大网友收集整理了，vb酒店人事管理系统，希望对大家有所帮助！
5.2、数据库设计 通过对酒店人事信息管理系统的需求分析及验证和总体的规划设计，确定了设计本系统所需的各个模块及各模块所要的基本功能。就要设计数据库及数据库数据，并用数据库对各模块进行设计和编码。 （1） 用户数据表：
（2）部门数据表
（3）员工信息数据表：
（4）员工履历数据表：
（5）员工考评数据表
（6）员工工资数据表
6 系统实现 6.1.1用户登录对话框 图6-1-1 登陆界面 部分代码： ''登陆 Private Sub cmdLogin_Click() ''声明ADODB.Recordset对象变量 Dim objRecordset As ADODB.Recordset ''声明SQL字符串 Dim strSQL As String ''查找用户名 strSQL = "select UserName from Users where UserName=''" & _ Trim(txtUserName.Text) & "''" ''获得符合输入的用户记录集 Set objRecordset = ExeCuteSQL(strSQL, strMsgText) ''如果输入的用户不存在 If objRecordset.EOF = True Then MsgBox " 用户名错误！", vbExclamation + vbOKOnly, "警告" txtUserName.SetFocus txtUserName.SelStart = 0 txtUserName.SelLength = Len(txtUserName.Text) Exit Sub End If ''从数据库中获得用户名 UserName = objRecordset.Fields(0) ''查找用密码 strSQL = "select UserName from Users where Password=''" & _ Trim(txtPassword.Text) & "''" ''获得符合输入的密码记录集 Set objRecordset = ExeCuteSQL(strSQL, strMsgText) ''如果输入的密码不存在 If objRecordset.EOF = True Or Trim(UserName) <> Trim(objRecordset.Fields(0)) Then MsgBox "密码错误！", vbExclamation + vbOKOnly, "警告" txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) Exit Sub End If ''显示主界面 frmMain.Show ''卸载登陆窗体 Unload Me End Sub ''退出登陆 Private Sub cmdQuit_Click() Unload Me End Sub 功能：用户登录进入酒店人事管理系统。系统启动后，首先要做的就是用户登录。若不登录系统，所有功能都无法使用。 操作：进入该功能后，要求输入用户的登录名及其密码。只有其登录名和密码完全正确，才能进入酒店人事管理系统。 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
本文选自计算机毕业设计http://myeducs.cn
|
