移通学院数据库原理课程设计(满分版)解决方案.docVIP

数据库原理课程设计报告 学 生：张红宇 学 号：2012211056 班 级 专 业：软件工程 重庆邮电大学移通学院 2014年6月 1 实验目的 熟练地掌握有关数据库的基本知识，学习使用数据库管理系统和Visual Basic编程语言。 建立并调试运行人事管理系统软件。2 实验内容 员工基本信息（： 员工基本信息表： 员工考勤信息（E-R图）： 员工考勤信息表：  员工工资信息（E-R图）： 员工工资信息表： 员工培训信息（E-R图）： 员工培训信息表： 员工福利信息（E-R图）： 员工福利信息表： 账户管理（E-R图）： 账户管理表： ⑵Visual Basic的设计与实现：Module1代码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 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: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: _ Err.Description Resume ExecuteSQL_Exit End Function Public Function Testtxt(txt As String) As Boolean If Trim(txt) = Then Testtxt = False Else Testtxt = True End If End Function frmlogin代码Option Explicit Public OK As Boolean 记录确定次数 Dim miCount As Integer Private Sub cmdCancel_Click() OK = False Me.Hide End Sub Private Sub cmdOK_Click() Dim txtSQL As String