数据库管理课程设计报告

数据库管理课程设计报告内容摘要：

理模块和帮助模块组成。 工资管理系统模块图 系统管理模块 这一模块主要完成一些用户的管理和员工信息的管理以及系 统的退出和重新登录。 系统管理模块 结构图 工资管理模块 这一模块主要实现个人工资管理、工资批量设置和工资计算公式的功能。 工资管理模块 结构图 报表管理模块 这一模块主要完成 对工资管理系统中公司中的员工信息和工资信息的制表， 为企业领导提系统管理模块 用户管理 员工信息管理 重新登录 退出 用户管理 注册用户 注销用户 密码修改 工资管理 个人工资管理 工资批量设置 工资计算公式 工资管理系统 系统管理模块 工资管理模块 报表管理模块 帮助模块 南华大学计算机科学与技术学院 课程设计报告 第 12 页 共 33 页 供所需的数据。 主要包括： 员工工资表 、员工信息表和员工工资条 报表管理模块 结构图 界面设计 由于 工资 管理系统的最终用户是对计算机技术并不精通的管理人员，从他们的应用需求出发，应该本着用户操作界面友好、清晰 、易学易用、易于维护的原则来进行设计。 登录窗口 进入系统时要进行安全性检验。 需输入你的用户名，密码。 本系统由管理员负责 注册和注销 用户 ， 您可以使用管理员登录系统，初始密码为 jsjmz。 通过数据库的安全认证，您还可以限制他人以管理员登录，只能以来宾的用户登录系统，初始密码为 123456。 系统用户登录 窗体 设计如下： 主界面 窗体 本系统主要有三个功能：系统管理、工资管理、报表管理。 其中系统管理中包含用户管理、员工信息管理、重新登录系统功能，工资管理包含员工工资管理、工资批量设置、工资计算公式，报表中由员工信 息表、员工工资表、员工工资条，本系统可以让您轻松地了解本公司员工的基本信息和工资管理。 主界面 窗体 设计如下： 报表管理 员工工资表 员工信息表 员工工资条 南华大学计算机科学与技术学院 课程设计报告 第 13 页 共 33 页 注册用户 您可以通过管理员用户注册其他用户（注册成功的用户为非管理员权限），而非管理员用户没有此项功能。 注册用户窗体如下： 员工信息管理 您可以通过此功能查看或修改员工的基本信息。 其中管理员拥有添加、修改、删除及查询员工信息的权利，而非管理员只能查询员工信息，而不能拥有添加、修改和删除的权利。 南华大学计算机科学与技术学院 课程设计报告 第 14 页 共 33 页 个人工资管理 您可以通过此功能查看或修改员工的工资信息。 其中管理员拥有修改 和查询员工工资信息的权利，而非管理员只能查询员工工资信息，而不能拥有修改员工工资的权利。 员工工资条 您可以打印员工的工资信息发放给各员工。 南华大学计算机科学与技术学院 课程设计报告 第 15 页 共 33 页 关于 注：此系统中还有许多 窗体 因篇幅有限，不能一一显示，只显示了一些主要窗 体 ，若要进一步了解这些窗口及其它窗口，请查看系统应用设计和运行界面。 应用系统实施 开发工具的选择 本系统采用 Visual Basic 和 SQL Server 2020 编写，为了您能够轻松使用本系统请您在使用前请看怎样配置您的系统（包括 配置 SQL Server 2020 服 务器（导入数据库文件） 和 配置数据源（使用数据源 ODBC 方法） ） 代码部分 南华大学计算机科学与技术学院 课程设计报告 第 16 页 共 33 页 系统登录窗体代码： Dim TIM As Integer Dim myval As String Private Sub Command1_Click() = adCmdUnknown = select *from 用户 where [user]=39。 + + 39。 If = 0 Then MsgBox (暂无此用户，请重新选择用户。 ) Exit Sub End If If And And = Trim((password)) Then loginflag = 0 usename = If (right) = 管理员 Then loginuserflag = 1 Else loginuserflag = 0 End If Unload Me Else If TIM = 3 Then myval = MsgBox(密码输入错误，请向系统管理员查询。 ) If myval = vbOK Then End End If If = Then MsgBox (请选择用 户 ) Else If = Then MsgBox (用户密码不能为空 ,请输入用户密码。 ) Else If (password) Then MsgBox (密码错误，请查证后重新输入密码。 ) = 0 = Len() TIM = TIM + 1 End If End If 南华大学计算机科学与技术学院 课程设计报告 第 17 页 共 33 页 End If End If End Sub Private Sub Command2_Click() If loginflag = 1 Then End Else End If = = 请选择用户 End Sub Private Sub DataCombo1_Change() TIM = 1 = End Sub Private Sub DataCombo1_Click(Area As Integer) = adCmdUnknown = select * from 用户 End Sub Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Activate() TIM = 1 If loginflag 1 Then = 工资管理系统 —— 重新登录窗体 End If End Sub Private Sub Form_Unload(Cancel As Integer) If loginflag = 1 Then End Else End If End Sub Private Sub Picture1_Click() Call ShellAbout(hWnd, 工 资 管 理 系 统 —— 木 子 制 作 , 欢 迎 提 出 建 议 ：(:506817493), ) End Sub 南华大学计算机科学与技术学院 课程设计报告 第 18 页 共 33 页 Private Sub Picture2_Click() SendKeys {F1} End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1_Click If KeyCode = vbKeyUp Then End Sub 主 窗体代码： Private Declare Function ShellExecute Lib Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Activate() (2).Text = 当前登录的是 amp。 usename If loginuserflag = 1 Then = True = True = True = True Else = False = False = False = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) i = MsgBox(您 真的退出工资管理系统。 , vbYesNo + vbExclamation) If i = vbYes Then End End If End Sub Private Sub mnuAbout_Click() Call ShellAbout(hWnd, 工 资 管 理 系 统 —— 木 子 制 作 , 欢 迎 提 出 建 议 ：(:506817493), ) End Sub Private Sub mnuAdduser_Click() End Sub Private Sub mnuAssist_Click(Index As Integer) ShellExecute , vbNullString, amp。 \ 帮助 .chm, vbNullString, , SW_SHOWNORMAL 南华大学计算机科学与技术学院 课程设计报告 第 19 页 共 33 页 End Sub Private Sub mnuBatchset_Click() End Sub Private Sub mnuChange_Click() End Sub Private Sub mnuDeleteuser_Click() End Sub Private Sub mnuEMP_Click(Index As Integer) End Sub Private Sub mnuExit_Click() i = MsgBox(您真的退出工资管理系统。 , vbYesNo + vbExclamation) If i = vbYes Then End End If End Sub Private Sub mnuFormulae_Click() End Sub Private Sub mnuInfotable_Click() End Sub Private Sub mnuPersalaryset_Click() End Sub Private Sub mnuRlogin_Click() End Sub Private Sub mnuWagebar_Click() End Sub Private Sub mnuWagetable_Click() 南华大学计算机科学与技术学院 课程设计报告 第 20 页 共 33 页 End Sub Private Sub Pic。