数据库课程设计---人事管理信息系统.doc

数据库课程设计 专 业： 工程管理 班 级： 学 号： 0314100303 姓 名： 谭蓉 重庆邮电大学移通学院 2012年 5月 说明： 本实验针对《数据库原理及应用》课程的要求，采用 VB6.0 + SQL Server2000对数据库的逻辑结构进行设计以及对人事管理系统的登陆、系统管理、员工基本信息管理进行实现。 内容： 人事管理信息系统 （2）选择“文件DSN”点击添加并选择“SQL Server”，如下图： （3）单击下一步，输入数据源名字并点击下一步。如下图： 点击完成后，在新出现的界面里将服务器设置为“TOSHIBA-PC\SQL2008”（这是我的本地服务器，我使用的是SQL server2008，仅输入local不可以。）并点击下一步，继续按默认选项点击下一步，直到出现下图，将默认数据库改为新建的RSGL。： （5）配置完成。 5，界面设计及系统实现 主窗体的设计 本实验使用了多文档界面，所以先添加一个 MDI 窗体。在属性窗体中将 MDI 窗体的 name 属性设置成“frmMain”，caption 属性设置成“人事管 理 信 息 系 统 ”， StartUpPosition选 择 成 “ 2-center screen ”， windowState选 择 成“2-maximized”。 在窗体中单击鼠标右键，选中菜单编辑器中编辑如下菜单： 系统管理（添加用户，修改用户密码，删除用户） 员工信息管理（添加员工信息，编辑员工信息，查询员工信息） 帮助（关于） 设计完成后如下图所示： 公共模块的实现 在 VB 的工程资源管理器的单击鼠标右键添加一个模块。在模块的代码窗口中输入以下代码： Option Explicit Public fMainForm As frmMain 程序主窗体 Public UserName As String 用户名 Public PWD As String 用户密码 Public Level As Boolean 用户级别 Public CONN As String 数据库连接字符串 Public flagEdit As Boolean Sub Main() CONN = FileDSN=renshi.dsn;UID=sa;PWD= Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then 登录失败后退出程序 End End If Unload fLogin Set fMainForm = New frmMain fMainForm.Show End Sub Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset 执行SQL语句并返回Recordset对象 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open CONN 打开连接 If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then cnn.Execute SQL MsgString = sTokens(0) 查询成功 Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查询到 rst.RecordCount 条记录 获取记录的条数 End If ExecuteSQL_Exit