数据库原理论文

摘要数据库技术是计算机科学技术中开展最快的领域之一，也是应用最广的技术之一。数据库管理系统〔简称DBMS〕是国家信息根底设施的重要组成局部，是国家信息平安的核心技术之一。数据库系统已成为计算机信息系统与应用系统的核心技术和重要根底。数据库技术是数据管理的最新技术，是计算机科学的重要分支。它是计算机科学技术中开展最快的领域之一，也是应用最广的技术之一。它已成为计算机信息系统的核心技术和重要根底。数据库已经成为人们存储数据、管理信息、共享资源的最先进最常用的技术。这个职工工资管理系统是用VB程序做成的，首先在SQL中建出员工的根本信息表，再将SQL与VB程序连接，在VB中实现各种查询、添加、删除等操作，从而实现对员工工资的管理，系统很简单而且方便浏览员工信息。关键词：数据库管理系统；职工工资管理系统；SQL;VB目录第1章系统功能概述 11.1系统功能 11.2系统结构总图 1第2章数据库设计 12.1需求分析 12.2职工工资管理系统的E-R模型 32.3关系模型 32.4表结构设计 4第3章系统各功能模块的详细设计 53.1欢送界面 63.2登陆界面 63.3主窗体 93.4文件菜单 113.5数据管理 143.6数据查询 20总结 24参考文献 25职工工资管理系统第1章系统功能概述1.1系统功能〔1〕实现登录系统，进入系统前方可进行各种操作〔2〕能够进行职工根本信息的浏览、编辑〔3〕能够进行职工工资信息的浏览、编辑 〔4〕能够按姓名、或部门、或职称查询职工的根本信息；查询职工工资信息1.2系统结构总图职工工资管理系统职工工资管理系统用户登录用户登录注册新用户信息查询按条件查询员工管理显示员工信息删除员工添加员工图1.1结构总图第2章数据库设计2.1需求分析本系统是用于统计，添加，查找，删除公司员工。本系统主要有两局部组成，一局部是数据库设计局部，另一局部为窗体设计局部。数据库中包含四个表，职工信息〔职工编号、姓名、性别、部门、出生日期、参加工作时间〕，职工工资〔工资号，根本工资、奖金、缴税、水电费、保险费、应发工资、实发工资〕,岗位信息〔编号，职称类别，薪酬标准〕，系统信息〔用户名、密码〕。(1).启动界面窗体及登录对话框的设计要求：图片背景、欢送类文字、单击显示“进入系统”的标签或按钮，将翻开“登录”对话框，用户输入用户名和密码，假设正确那么翻开下面的主窗体；否那么提示密码错误，请重新输入。最多允许输入3次；单击“注册新用户”标签或按钮，翻开对话框如图2。(2).主窗体设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。[文件]菜单包含以下子菜单及其功能：[注册新用户]菜单：翻开“注册新用户”窗体[退出]：结束程序运行[数据管理]包含以下子菜单：[职工根本信息]菜单：显示职工信息窗体[职工工资信息]菜单：显示工资信息窗体[岗位信息]菜单：显示岗位信息窗体[数据查询]包含以下子菜单：[查询职工信息]：显示职工信息查询窗体[查询工资信息]：显示工资信息查询窗体[查询岗位信息]：显示岗位信息查询窗体(3).注册新用户窗体用于添加新的用户名和密码。要求：假设新用户名与系统信息表原有用户名相同，那么提示“用户名已存在，重新输入”；判断二次输入密码假设不一致，那么提示用户“输入密码不一致，重新输入密码”；判断假设输入密码为空，那么提示“密码不能为空”；假设输入正确，那么将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。以下各窗体设为MDI主窗体的子窗体(4).分别设计各个信息窗体功能：浏览和编辑各信息。该窗体以文本框显示当前记录，用按钮[首记录]、[末记录]、[前一个]、[后一个]，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击[表格显示]按钮，显示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击[返回]按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。(5)．各种信息的查询窗体可以按各种条件查找，这些条件放在组合列表框Combo中,供用户选择。在文本框中输入要查询的内容，单击[查询]按钮，查询结果用网格控件显示.。2.2职工工资管理系统的E-R模型职工编号职工编号姓名性别部门出生日期参加工作时间职工信息工资信息职工工资工资号根本工资奖金缴税水电费保险费应发工资实发工资职工岗位岗位信息编号职称类别薪酬标准图2.1E-R模型2.3关系模型职工信息〔职工编号、姓名、性别、部门、出生日期、参加工作时间〕职工编号是主码职工工资〔工资号，根本工资、奖金、缴税、水电费、保险费、应发工资、实发工资〕工资号是主码岗位信息〔编号，职称类别，薪酬标准〕编号是主码系统信息〔用户名、密码〕2.4表结构设计(1)表的建立CREATETABLE职工信息〔职工编号VARCHAR(10)PRIMARYKEY,姓名VARCHAR(10)UNIQUE,性别VARCHAR(2),部门VARCHAR(10),出生日期DATETIME,参加工作时间DATETIME);CREATETABLE职工工资(工资号VARCHAR(10),根本工资VARCHAR(10),奖金VARCHAR(10),缴税VARCHAR(10),水电费VARCHAR(10),保险费VARCHAR(10),应发工资VARCHAR(10),实发工资VARCHAR(10));CREATETABLE岗位信息(编号VARCHAR(10),职称类别VARCHAR(10),薪酬标准VARCHAR(10));CREATETABLE系统信息(用户名VARCHAR(10),密码VARCHAR(10))〔2〕根本数据如下：表2.1职工信息表表2.2职工工资表表2.3岗位信息表表2.4系统信息表按如下步骤，根据向导配置系统数据源。开始→设置→控制面板→管理工具→数据源〔ODBC〕→系统DSN→添加→驱动程序选为SQLServer→成功→给出该数据源的名称、描述、效劳器→更改默认数据库为〔自己所建的数据库〕→测试→成功→确定→确定。第3章系统各功能模块的详细设计3.1欢送界面欢送界面，本界面应用VB中的Label控件输入以下字符，背景设为透明。点击“点击此处进入”便可进去本系统。图3.1欢送界面代码实现如下：PrivateSubCommand1_Click()Form2.ShowUnloadMeEndSub3.2登陆界面用户输入用户名和密码，假设正确那么翻开下面的主窗体；否那么提示密码错误，请重新输入。最多允许输入3次；单击“注册新用户”标签或按钮那么翻开注册新用户界面登陆界面：“用户名”、“密码”均由Label控件输入，背景设为image图片，之后介绍的界面中的字符均由此方法输入，故将不做说明。给出可以输入字符的空白由TextBox控件做成，可进行字体大小与颜色的修改。按钮由CommandButton设置，添加Adodc〔Visible=False〕，用来与数据库相连。图3.2登录界面代码实现如下：DimmiCountAsInteger'用于记录输入密码次数PrivateSubCmdLand_Click()DimsqlstrAsStringsqlstr="Select*From系统信息Where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThen'假设没找到符合条件的记录MsgBox"用户名错误，重新输入",vbExclamation,"警告"Text1.Text=""Text1.SetFocus'Text1获得焦点Else'判断密码是否正确IfAdodc1.Recordset.Fields("密码")=Text2ThenMDIForm1.ShowUnloadMeElseMsgBox"密码错误，重新输入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSubPrivateSubCommand1_Click()Form4.ShowUnloadMeEndSub用户名输入错误提示如下：图3.3错误提示密码输入错误提示如下：图3.4错误提示用户名和密码输入正确后，显示主界面如下：图3.5主界面单击“注册新用户”标签或按钮那么翻开注册新用户界面如下：图3.6注册界面3.3主窗体主窗体设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。[文件]菜单包含以下子菜单及其功能：[注册新用户]菜单：翻开“注册新用户”窗体[退出]：结束程序运行[数据管理]包含以下子菜单：[职工根本信息]菜单：显示职工信息窗体[职工工资信息]菜单：显示工资信息窗体[岗位信息]菜单：显示岗位信息窗体[数据查询]包含以下子菜单：[查询职工信息]：显示职工信息查询窗体[查询工资信息]：显示工资信息查询窗体[查询岗位信息]：显示岗位信息查询窗体图3.7主界面代码实现如下：PrivateSubcxgwxx_Click()Form9.ShowEndSubPrivateSubcxgzxx_Click()Form3.ShowEndSubPrivateSubcxzgxx_Click()Form8.ShowEndSubPrivateSubgwxx_Click()Form7.ShowEndSubPrivateSubtc_Click()UnloadMeEndSubPrivateSubzcxyh_Click()Form4.ShowEndSubPrivateSubzgjbxx_Click()Form5.ShowEndSubPrivateSubzzgzxx_Click()Form6.ShowEndSub3.4文件菜单文件菜单包含注册新用户和退出两个子菜单注册新用户：假设新用户名与系统信息表原有用户名相同，那么提示“用户名已存在，重新输入”；判断二次输入密码假设不一致，那么提示用户“输入密码不一致，重新输入密码”；判断假设输入密码为空，那么提示“密码不能为空”；假设输入正确，那么将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。退出：退出本系统图3.8注册界面代码实现如下：PrivateSubCmdCancel__Click()UnloadMeEndSubPrivateSubCmdOk_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"Text1.SetFocusExitSubElsesqlstr="Select*from系统信息where用户名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.Refresh'判断输入的用户名是否已存在：IfAdodc1.Recordset.EOF=FalseThenMsgBox"用户名已存在，请重新输入！",vbExclamation,"检验用户名"Text1=""Text1.SetFocusExitSubEndIfEndIf'判断二次输入密码是否一致：IfText2<>Text3ThenMsgBox"二次输入的密码不一致，请重新输入",vbExclamation,"检验密码"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密码不能为空！",vbExclamation,"检验密码"Text2.SetFocusElseAdodc1.Recordset.Fields("用户名")=Trim(Text1)Adodc1.Recordset.Fields("密码")=Trim(Text2)Me.HideMsgBox"成功注册新用户！",vbInformation,"添加用户"EndIfEndSub用户名存在提示如下：图3.9错误提示二次输入密码假设不一致提示如下:图3.10错误提示输入密码为空提示如下：图3.11错误提示注册新用户成功提示如下：图3.12成功提示注册新用户后然后进入主窗体3.5数据管理数据管理菜单包含职工根本信息，职工工资信息，岗位信息3个子菜单，在每个信息窗口都可以进行查询、添加、删除、前移、后移等操作，要实现此功能那么必须用Adodc〔Visible=False〕控件与数据库相连，在运行中隐藏此控件。(1)职工根本信息界面：图3.13职工信息界面删除截图如下：图3.14删除界面代码实现如下：PrivateSubCmdAdd_Click()CmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdDel_Click()x=MsgBox("确实要删除当前记录吗？",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenIfAdodc1.Recordset.EOFThenEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirst'记录指针移到首记录〔显示首记录〕CmdFirst.Enabled=False'让[首记录]按钮无效CmdPre.Enabled=False'让[前移]按钮无效CmdNext.Enabled=True'让[后移]按钮有效CmdLast.Enabled=True'让[末记录]按钮有效'在Label6上显示当前记录号/记录总数：EndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLast'移到末记录CmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'那么记录指针移到首记录上CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'那么记录指针移到末记录上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel7.Caption="记录EndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNext'记录指针移到下一条记录CmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast'那么记录指针移到末记录上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfEndSubPrivateSubCmdOk_Click()CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePrevious'记录指针移到前一条记录CmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst'那么记录指针移到首记录上CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfEndSubPrivateSubForm_Load()CmdFirst.Enabled=False'[首记录]按钮无效CmdPre.Enabled=False'[前移]按钮无效CmdNext.Enabled=True'[后移]按钮有效CmdLast.Enabled=True'[末记录]按钮有效CmdAdd.Enabled=True'[添加]按钮有效CmdDel.Enabled=True'[删除]按钮有效CmdOk.Enabled=False'[确定]按钮无效CmdEsc.Enabled=False'[取消]按钮无效EndSub(2)职工工资信息界面图3.15职工工资信息界面删除截图如下：图3.16删除界面职工工资信息的代码实现与职工信息的代码实现类似，故不再给出。(3)岗位信息界面:图3.17岗位信息界面删除截图如下：图3.18删除界面岗位信息的代码实现与职工信息的代码实现也相似，故也不再给出。3.6数据查询查询菜单包含查询职工信息、查询工资信息、查询岗位信息3个子菜单，职工信息查询，在职以上查询中可以对数据库中的数据进行查询，要实现此功能那么必须用Adodc〔Visible=False〕控件DateCombo〔Visible=True〕与数据库相连，在运行中隐藏Adodc控件(1)查询职工窗体图3.19查询职工界面查询操作窗口如下：代码实现如下：PrivateSubCmd1_Click()DimstrAsStringAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from职工信息where职工信息."&Combo1.Text&"like'%"&Text1.Text&"%'"Adodc1.RefreshEndSubPrivate