数据库课程设计-饭卡管理系统

PAGE20-数据库课程设计题目：饭卡管理系统姓名：学号：专业：指导老师：完成时间：信息工程学院计算机系目录第一章概述………………………3需求分析…………………4数据库设计………………5概念结构设计………………5逻辑结构设计………………6物理结构设计………………6表的创建……………………8关系图、触发器……………7系统程序实现………………9第五章小结…………19参考文献………………20第一章概述饭卡管理系统是针对大学校园食堂交费和一般消费等方面的信息管理系统，它包括持卡者在校内的消费的各方面内容：刷卡消费、查询、存款和持卡者的信息管理等，方便对饭卡信息进行各项操作，定时进行数据的备份和更新，保持数据的一致性和准确性。另外，各方面的内容应该相互联系，最终产生各种查询统计报表，以供持卡者进行检查。对于此系统的任务就是把人们从繁琐的交费、找零工作中解放出来，用计算机实现存款、消费、查询、修改、删除以及存储等功能。同时，用计算机能够快速准确的完成资料的统计和汇总工作，迅速的打印出各种报表资料以供使用。本系统的工作原理如下：先建立数据库和数据库的驱动程序在使用时，有管理员输入账号和密码。然后通过饭卡管理系统选择相应的管理事务管理员事务将根据提供的信息在数据库中查找相应的记录返回相应的记录给管理员允许管理员在相应的权限下对数据进行更改通过终端把得到的内容显示到相应的界面上管理员登录管理员登录界面添加信息删除信息交费查询信息添加学生信息添加饭卡信息删除学生信息删除饭卡信息查询饭卡信息查询学生信息第二章需求分析一、本系统需求的软硬件配置如下：操作系统：windows2000、windowsxp或更高操作系统数据库平台：SQL2000开发平台：VisualBasic6.0CPU：PentiunII266或更高内存：64M或以上硬盘：2G以上显示器：VGA或更高外设：报表打印机等二、总体功能需求：1、添加学生和饭卡信息这需要在数据库中建立两张表：学生信息和饭卡信息。学生信息表中包括以下信息：姓名、性别、出生日期、身份证号、卡号。饭卡信息包括：卡号、余额、办卡日期。而饭卡信息的卡号是学生信息表中的外码。2、管理员登录信息在数据库中建立一张管理员信息表属性如下：账号、密码。只有当账号和密码都匹配的情况下，管理员才能登录成功然后对系统进行管理。3、删除这是对学生信息和饭卡信息两张表的操作。分别更具需求删除相应的学生信息和饭卡信息。当删除饭卡信息时，学生信息表中对应的学生信息也被删除。4、充费当卡中余额不足时持卡者需要对饭卡进行充费，管理员可是通过充费这一功能对饭卡信息表中的余额属性进行更改。5、查询：管理员通过输入需要的查询信息，可以实现对饭卡信息和学生信息的查询。三、性能需求：1、精度要求饭卡管理系统对精度要求较高，饭卡信息表中的余额是浮点型数据。学生信息表中的身份证号属性必须是十八位的字符型数据。2、时间特性要求在软件方面，响应时间、更新处理时间都要求比较快速以满足要求。3、灵活性当用户需求，如操作方式、运行环境、结果精度、数据结构与其他软件接口等发生变化时，设计的软件要求能做适当的调整。4、规模使用于小规模的食堂的饭卡管理工作。数据库设计3.1概念结构设计持卡者与饭卡是一对一的绑定关系。即一张饭卡只能被一个学生使用，一个学生也只能同时使用一张饭卡。饭卡信息表属性：卡号、余额、办卡日期。学生表属性：卡号、身份证号、出生日期、性别、姓名。管理员表属性：账号、密码。其E-R图如下：饭卡信息E-R图：饭卡信息卡号饭卡信息卡号余额办卡日期学生信息E-R图：账号管理员信息密码学生卡号姓名账号管理员信息密码学生卡号姓名出生日期性别身份证号管理员信息E-R图：3.2逻辑结构设计在学生表中身份证号是主键，卡号作为外码。在饭卡信息表中卡号是主键。管理员信息表中账号为主键。将E-R图转化为关系模式如下：学生（身份证号，姓名，性别，出生日期，卡号）饭卡信息（卡号，余额，办卡日期）管理员信息（账号，密码）属性一览表：名子定义描述位置身份证号数字学生信息唯一标识符学生表姓名汉字学生属性学生表性别男or女学生属性学生表出生日期日期学生属性学生表卡号数字饭卡信息唯一标识学生表、饭卡信息表余额浮点型数据饭卡属性饭卡信息表办卡日期日期饭卡属性饭卡信息表账号字符管理员唯一标识符管理员信息表密码字符管理员登录条件管理员信息表登录信息账号+密码管理员登录必备条件管理员信息表学生信息身份证号+出生日期+性别+姓名+卡号办卡信息和学生本身信息饭卡信息表+学生信息表饭卡信息卡号+余额+办卡日期饭卡相关信息饭卡信息表3.3物理结构设计学生表饭卡信息表管理员信息表3.4表的创建（1）创建学生表：CREATETABLE学生( [身份证号][char](20)primarykeyNOTNULL, [姓名][char](10)notNULL, [性别][char](10)check性别=‘男’or性别=‘女’notnull,[出生日期][datetime]（8）null，[卡号][char]（20）foreignkeynull）GO（2）创建饭卡信息表：Createtable饭卡信息（卡号char（20）primarkeynotnull，余额float（8）null，办卡日期datetime（8）null）Go(3)创建管理员信息表：Createtable管理员信息（）账号char（20）primarykeynotnull，密码char（20）notnull）Go3.4关系图、触发器（1）关系图：（2）触发器：CREATETRIGGERinsert_strON学生FORINSERTASbeginifEXISTS(selecta.卡号frominserteda,学生bwherea.卡号=b.卡号anda.身份证号!=b.身份证号)BEGINprint'该卡已被使用'rollbackENDEnd第四章系统程序实现一、登录界面：DimCNAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()IfCN.State=0ThenCN.OpenEndIfstr1="select*from用户where用户名='"&Text1.Text&"'"rs.Openstr1,CN,1,3Ifrs.EOFThenMsgBox"用户名错误"ElseIfrs("密码")=Val(Text2.Text)ThenForm2.ShowUnloadMeElseMsgBox"密码错误"Text1.Text=""Text2.Text=""Text1.SetFocusText2.SetFocusEndIfEndIfEndSubPrivateSubForm_Load()CN.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"CN.OpenEndSub二、复选界面：PrivateSubCommand1_Click()Form3.ShowUnloadMeEndSubPrivateSubCommand2_Click()Form4.ShowUnloadMeEndSubPrivateSubCommand3_Click()Form5.ShowUnloadMeEndSubPrivateSubCommand4_Click()Form6.ShowUnloadMeEndSubPrivateSubCommand5_Click()Form1.ShowUnloadMeEndSubPrivateSubCommand6_Click()Form9.ShowUnloadMeEndSub三、添加信息界面：DimCNAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimchooseAsNewADODB.RecordsetDimcsAsNewADODB.RecordsetPrivateSubCombo1_Change()EndSubPrivateSubCommand1_Click()str3="select*from学生where身份证号='"&Text4.Text&"'"rs.Openstr3,CN,1,3Ifrs.EOFThenrs.AddNewrs.Fields("姓名")=Trim(Text1.Text)rs.Fields("性别")=Trim(Text2.Text)rs.Fields("出生日期")=Trim(Text3.Text)rs.Fields("身份证号")=Trim(Text4.Text)rs.Fields("卡号")=Trim(Text5.Text)rs.Updatesql="select*from卡信息"cs.Opensql,CN,1,3cs.Fields("办卡日期")=Datecs.UpdateMsgBox("添加成功")ElseMsgBox("用户已存在")Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text1.SetFocusText2.SetFocusText3.SetFocusText4.SetFocusText5.SetFocusEndIfEndSubPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSubPrivateSubForm_Load()IfCN.State=1ThenCN.CloseEndIfCN.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"CN.OpenEndSub四、删除信息窗体：DimconAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCommand1_Click()Form2.Show:Form4.HideEndSubPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSubPrivateSubText2_Change()EndSubPrivateSubCommand3_Click()Form7.Show:Form4.HideEndSubPrivateSubCommand4_Click()Form8.Show:Form4.HideEndSub五、查询窗口：DimconAsNewADODB.ConnectionDimrs_cardAsNewADODB.RecordsetPrivateSubCommand1_Click()con.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"Ifcon.State=0Thencon.OpenEndIfsql="select姓名,余额,卡信息.卡号from卡信息,学生where卡信息.卡号='"&Text1.Text&"'"rs_card.Opensql,con,1,3DataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_cardEndSubPrivateSubCommand2_Click()Form2.Show:Form5.HideEndSub六、充费窗口：DimaAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCommand1_Click()a.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"Ifa.State=0Thena.OpenEndIfDimsqlAsStringsql="select*from卡信息where卡号='"&Text1.Text&"'"rs.Opensql,a,1,3rs.Fields("余额")=Text2.Textrs.UpdateMsgBox"充值成功！"EndSubPrivateSubCommand2_Click()Form2.Show:Form6.HideEndSub七、删除学生信息窗口：DimconAsNewADODB.ConnectionDimabcAsNewADODB.RecordsetPrivateSubCommand1_Click()con.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"Ifcon.State=0Thencon.OpenEndIfsql="select*from学生where姓名='"&Text1.Text&"'"abc.Opensql,con,1,3abc.DeleteMsgBox"删除成功！",vbOKCancel+vbExclamation,""EndSubPrivateSubCommand2_Click()Form7.Hide:Form4.ShowEndSub八、删除饭卡信息窗口：DimaAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCommand1_Click()a.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"Ifa.State=0Thena.OpenEndIfDimanswerAsStringDimsqlAsStringsql="select*from卡信息where卡号='"&Text1.Text&"'"rs.Opensql,a,1,3IfTrim(Text1.Text)=""ThenMsgBox"输入不能为空"Elseanswer=MsgBox("确定要删除吗？",vbYesNo,"")Ifanswer=vbYesThenrs.DeleteElseExitSubEndIfEndIfEndSubPrivateSubCommand2_Click()Form4.Show:Form8.HideEndSub九、添加饭卡信息窗口：DimCAsNewADODB.ConnectionDimRAsNewADODB.RecordsetPrivateSubCommand1_Click()str1="select*from卡信息where卡号='"&Text1.Text&"'"R.Openstr1,C,1,3IfR.EOFThenR.AddNewR.Fields("卡号")=Trim(Text1.Text)R.UpdateMsgBox("添加成功")ElseMsgBox("卡已存在，添加失败")EndIfEndSubPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSubPrivateSubForm_Load()IfC.State=1ThenC.CloseEndIfC.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=饭卡管理系统;DataSource=stud51"C.OpenEndSub第五章小结经过这几天数据库的设计，基本掌握数据库中触发器，视图，存储过程的概念。学会了怎样去做一