资源目录
压缩包内文档预览：(预览前20页/共22页)
编号：6894986
类型：共享资源
大小：691.50KB
格式：RAR
上传时间：2018-01-02
上传人：专业****设计
认证信息
个人认证
葛**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
定做请加QQ：
1060741974
参考网站
http://www.bysj360.com/
http://www.bylw520.ne
- 资源描述：
-
VB011期刊信息管理系统VB+SQL,定做请加QQ：,1060741974,
,参考网站
,/
,http://www.bylw520.ne
- 内容简介：
-
期刊信息管理系统代码维护-1-PrivateSubCommand1_Click(IndexAsInteger)IfIndex=0ThenIfUserName.Text=lyzAndPassWord=123ThenMDIForm1.ShowUnloadMeElseMsgBox你输入的用户明或密码错误，请重新输入！Form1.ShowUserName.Text=PassWord=EndIfEndIfIfIndex=1ThenEndEndSubPrivateSubLabel1_Click()EndSubPrivateSubLabel2_Click()EndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubCommand1_Click()DimaAsIntegerDimstrAsStringDimstAsStringDimstaAsStringSetRS.ActiveConnection=ConnRS.LockType=adLockOptimisticRS.CursorType=adOpenKeysetstr=select*fromreaderswhere读者编号=&Text2.TextRS.OpenstrRS.Fields(已借刊数)=RS.Fields(已借刊数)+1RS.Fields(备注)=Text5.TextRS.Update期刊信息管理系统代码维护-2-RS.Closest=select*frommagazineinfowhere月份=&Text9.Text&and书号=&Text1.TextRS.OpenstRS.Fields(开始期号)=Text3.TextRS.Fields(借出标记)=借出RS.Fields(借出次数)=RS.Fields(借出次数)+1RS.Fields(结束期号)=RS.Fields(部门)=Text4.TextRS.Fields(备注)=Text5.TextRS.UpdateRS.Closesta=select*fromborrowreturnRS.OpenstaRS.AddNewRS.Fields(书号)=Text1.TextRS.Fields(读者编号)=Text2.TextRS.Fields(借期)=Text3.TextRS.Fields(月份)=Text9.TextRS.Fields(是否含盘)=Text8.TextRS.Fields(部门)=Text4.TextRS.Fields(备注)=Text6.TextRS.UpdateRS.CloseAdodc1.RefreshAdodc3.RefreshAdodc2.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubCommand3_Click()IfAdodc1.Recordset.BOFOrText1.Text=EmptyThenMsgBox这本书不存在ElseAdodc1.CommandType=adCmdTextAdodc1.RecordSource=select书号,刊名,是否含盘,入库标记,月份,借出标记frommagazineinfowhere借出标记=未借出and书号=期刊信息管理系统代码维护-3-Adodc1.RefreshText4.Text=Text1.TextText5.Text=str(Date)Text7.Text=Text8.TextEndIfEndSubPrivateSubCommand4_Click()Adodc4.RecordSource=select*fromreaderswhere读者编号=&Text2.TextAdodc4.RefreshAdodc3.RecordSource=select*fromreaderswhere读者编号=&Text2.TextAdodc3.RefreshDimstrAsStringSetRS.ActiveConnection=ConnRS.CursorType=adOpenForwardOnlystr=select*fromreaderswhere读者编号=&Text2.TextRS.OpenstrLabel8.Caption=5-RS.Fields(已借刊数)RS.Fields(姓名)=Text3.TextRS.Fields(部门)=Text4.TextRS.Fields(备注)=Text5.TextRS.UpdateRS.CloseIfLabel8.Caption1ThenMsgBox该读者已借满期刊，不能再借！form10.ShowEndIfAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand5_Click()Text1.Text=EndSubPrivateSubCommand6_Click()Adodc1.RecordSource=select*frommagazineinfoAdodc1.RefreshEndSubPrivateSubCommand7_Click()EndSub期刊信息管理系统代码维护-4-PrivateSubForm_Load()SetConn=NewADODB.ConnectionSetRS=NewRecordsetSetcomm=NewADODB.CommandConn.CursorLocation=adUseClientConn.Opendsn=lyz,Text3.Text=str(Date)EndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubCommand1_Click()DimstrAsStringDimsAsStringSetRS.ActiveConnection=ConnRS.LockType=adLockOptimisticRS.CursorType=adOpenKeysetstr=select*fromreaderswhere读者编号=&Text2.TextRS.OpenstrRS.Fields(已借刊数)=RS.Fields(已借刊数)-1RS.Fields(备注)=Text5.TextRS.UpdateRS.Closes=select*fromborrowreturnwhere书号=&Text1.Text&and月份=&Text3.TextRS.OpensRS.Fields(还期)=Text6.TextRS.Fields(备注)=Text5.TextRS.UpdateRS.CloseAdodc2.RecordSource=select*fromreaderswhere读者编号=&Text2.TextAdodc2.RefreshAdodc3.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSub期刊信息管理系统代码维护-5-PrivateSubCommand3_Click()DimstrAsStringDimstAsStringSetRS.ActiveConnection=ConnRS.LockType=adLockOptimisticRS.CursorType=adOpenKeysetst=select*frommagazineinfowhere书号=&Text1.Text&and月份=&Text3.TextRS.OpenstRS.Fields(开始期号)=Text3.TextRS.Fields(借出标记)=未借出RS.Fields(借出次数)=RS.Fields(借出次数)+1RS.Fields(结束期号)=Text6.TextRS.Fields(部门)=Text4.TextRS.Fields(备注)=Text5.TextRS.UpdateRS.CloseAdodc1.RefreshEndSubPrivateSubCommand4_Click()SetConn=NewADODB.ConnectionSetRS=NewADODB.RecordsetConn.ConnectionString=dsn=lyz;uid=;pwd=Conn.OpenConn.Executedeletefromborrowreturnwhere书号=&Text1.TextAdodc1.RefreshAdodc3.RefreshEndSubPrivateSubForm_Load()SetConn=NewADODB.ConnectionSetRS=NewRecordsetSetcomm=NewADODB.CommandConn.CursorLocation=adUseClientConn.Opendsn=lyz,Text6.Text=str(Date)Text5.Text=str(Date)EndSubPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)期刊信息管理系统代码维护-6-EndSubPrivateSubCommand1_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()Adodc1.Recordset.AddNewCommand1.Enabled=FalseCommand3.Enabled=TrueEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteAdodc1.RefreshCommand2.Enabled=FalseEndSubPrivateSubCommand3_Click()Adodc1.Recordset.AddNewAdodc1.RefreshCommand1.Enabled=TrueCommand3.Enabled=FalseEndSubPrivateSubCommand4_Click()Adodc1.Refreshform6.ShowUnloadMeEndSub期刊信息管理系统代码维护-7-PrivateSubDataGrid1_Click()Command2.Enabled=TrueEndSubPrivateSubForm_Load()Command3.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseAdodc1.Recordset.AddNewEndSubPrivateSubText2_Change()Command3.Enabled=TrueEndSubPrivateSubText2_Click()Command3.Enabled=TrueEndSubPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()IfAdodc1.Recordset.BOFOrCombo1.Text=EmptyThenMsgBox您输入的有误或期刊不存在ElseAdodc1.RecordSource=select书号,刊名,借出次数,借出标记,月份,是否含盘frommagazineinfowhere刊名=Adodc1.RecordSource=select书号,邮发代号,刊名,是否含盘,入库标记,月份,借出标记frommagazineinfowhere刊名=Adodc1.RefreshEndIfEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMe期刊信息管理系统代码维护-8-EndSubPrivateSubForm_Load()DoWhileAdodc1.Recordset.EOF=FalseCombo1.AddItemAdodc1.Recordset(刊名)Adodc1.Recordset.MoveNextLoopEndSubPrivateSubCommand1_Click()IfAdodc1.Recordset.BOFOrCombo1.Text=EmptyThenMsgBox您确定删除吗？ElseAdodc1.Recordset.DeleteAdodc1.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubForm_Load()EndSubPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshEndSubPrivateSubCommand4_Click()期刊信息管理系统代码维护-9-Adodc1.Recordset.AddNewEndSubPrivateSubCommand5_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubLabel1_Click()EndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()SetConn=NewADODB.ConnectionSetRS=NewADODB.RecordsetConn.ConnectionString=dsn=lyz;uid=;pwd=Conn.OpenConn.Executedeletefromreaderswhere读者编号=&Text1.TextText1.Text=Adodc1.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.Recordset期刊信息管理系统代码维护-10-PrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*fromreaderswhere读者编号=&Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()DimstrAsStringSetRS.ActiveConnection=ConnRS.LockType=adLockBatchOptimisticRS.CursorType=adOpenKeysetstr=select*fromreaderswhere读者编号=&Text1.TextRS.OpenstrRS.Fields(读者编号)=Text2.TextRS.Fields(姓名)=Text3.TextRS.Fields(部门)=Text4.TextRS.Fields(备注)=Text5.TextRS.UpdateRS.CloseAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand3_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubCommand4_Click()Adodc1.RecordSource=select*fromreadersAdodc1.RefreshEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubForm_Load()SetConn=NewADODB.Connection期刊信息管理系统代码维护-11-SetRS=NewRecordsetSetcomm=NewADODB.CommandConn.CursorLocation=adUseClientConn.Opendsn=lyz,EndSubPrivateSubCommand1_Click()Adodc1.RecordSource=select*fromreaderswhere读者编号=&Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubDataGrid1_Click()EndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubCombo2_Click()DimstrAsStringSetRS.ActiveConnection=ConnRS.CursorType=adOpenForwardOnlystr=select*frommagazinenamewhere刊名=RS.OpenstrRS.MoveFirstLabel13.Caption=RS.Fields(邮发代号)RS.CloseEndSubPrivateSubCommand1_Click()Text1.Text=Text3.Text=Combo2.Text=Label13.Caption=Label12.Caption=Text7.Text=Text8.Text=Text4.Text=期刊信息管理系统代码维护-12-Combo1.Text=Text2.Text=EndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubCommand4_Click()DimnAsIntegerDimiAsIntegerSetRS.ActiveConnection=ConnRS.LockType=adLockOptimisticRS.CursorType=adOpenKeysetAdodc1.Recordset.AddNewIfText8.Text=12Thenn=12IfText8.Text=24Thenn=24Fori=1TonRS.Openselect*frommagazineinfoRS.AddNewRS.Fields(书号)=Text1.TextRS.Fields(刊名)=Text3.TextRS.Fields(入库标记)=Combo2.TextRS.Fields(邮发代号)=Label13.CaptionRS.Fields(月份)=iRS.Fields(开始月)=Text7.TextRS.Fields(结束月)=Text8.TextRS.Fields(单价)=Text4.TextRS.Fields(是否含盘)=Combo1.TextRS.Fields(备注)=Text2.TextRS.UpdateRS.CloseNextiAdodc1.RecordSource=select*frommagazineinfowhere书号=&Text1.TextAdodc1.RefreshCommand4.Enabled=FalseEndSubPrivateSubForm_Load()SetConn=NewADODB.ConnectionSetRS=NewRecordsetSetcomm=NewADODB.Command期刊信息管理系统代码维护-13-Conn.CursorLocation=adUseClientConn.Opendsn=lyz,Command4.Enabled=FalseEndSubPrivateSubText1_Change()Command4.Enabled=TrueEndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubCommand1_Click()SetConn=NewADODB.ConnectionSetRS=NewADODB.RecordsetConn.ConnectionString=dsn=lyz;uid=;pwd=Conn.OpenConn.Executedeletefrommagazineinfowhere书号=&Text1.TextText1.Text=Adodc1.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()DimstrAsStringSetRS.ActiveConnection=ConnRS.LockType=adLockBatchOptimisticRS.CursorType=adOpenKeysetstr=select*fromreaderswhere读者编号=&Text1.TextRS.OpenstrRS.Fields(读者编号)=Text2.Text期刊信息管理系统代码维护-14-RS.Fields(姓名)=Text3.TextRS.Fields(部门)=Text4.TextRS.Fields(备注)=Text5.TextRS.UpdateRS.CloseAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubCommand4_Click()Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*frommagazineinfowhere书号=&Text5.TextAdodc1.RefreshEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubForm_Load()SetConn=NewADODB.ConnectionSetRS=NewRecordsetSetcomm=NewADODB.CommandConn.CursorLocation=adUseClientConn.Opendsn=lyz,EndSubPrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)EndSubPrivateSubCommand1_Click()Adodc1.RecordSource=select*frommagazineinfowhere书号=&Text1.TextAdodc1.RefreshEndSub期刊信息管理系统代码维护-15-PrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubdsaddsa_Click(IndexAsInteger)EndSubPrivateSubduzhechazhao_Click()Form5.ShowEndSubPrivateSubduzhedengji_Click()form2.ShowEndSubPrivateSubguihuan_Click()form11.ShowEndSubPrivateSubjieyue_Click()form10.ShowEndSubPrivateSubMDIForm_Load()menu1(Caption=期刊借还处理)spc1(Caption=-)EndSubPrivateSub按刊名查询_Click()Form14.ShowEndSub期刊信息管理系统代码维护-16-PrivateSub按书号查询_Click()Form9.ShowEndSubPrivateSub读者信息删除_Click()Form3.ShowEndSubPrivateSub读者信息修改_Click()Form4.ShowEndSubPrivateSub借还表查询_Click()Form12.ShowEndSubPrivateSub借还表删除_Click()Form15.ShowEndSubPrivateSub刊名的邮发代号入库_Click()Form13.ShowEndSubPrivateSub期刊入库_Click()form6.ShowEndSubPrivateSub期刊信息更改_Click()Form8.ShowEndSubPrivateSub期刊信息删除_Click()Form7.ShowEndSubPrivateSub退出_Click()Form1.ShowUnloadMeEndSub期刊信息管理系统,专业名称：计算机科学与技术 年 级：2001级 姓 名：骆勇臻 指导教师：金 华,简 介,期刊信息管理系统是以Visual Basic 6.0为前台，以SQL Server 2000为后台数据库的典型的信息管理系统。随着图书馆的规模不断扩大，期刊数量急剧增加，有关期刊的各种信息量也成倍增长。因此需要对读者资源、期刊资源、借刊信息、还刊信息进行管理。这就需要有期刊信息管理系统来提高期刊管理工作的效率。通过这样的系统，可以做到期刊信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。,需求分析,读者信息,期刊信息,借阅期刊,是否含盘,读者编号,姓名,部门,备注,借出标记,刊名,邮发代号,书号,单价,年份,月份,（是否含盘）,借期,还期,M,N,已借刊数,借出次数,总体设计,系统总体模块,详细设计,登录界面,主要功能的实现,期刊信息的录入,借刊操作,借刊数据流程图,开始,输入所借期刊书号、月份,判断是否已被借出,输入读者编号,判断是否存在,出借，并在期刊借还表中添入当前出借日期、书号、读者编号，再把期刊信息表中的借出标记改为已借出，借出次数每借一次加一。,结束,N,Y,Y,N,提示错误信息,提示错误信息,还刊操作,还刊数据流程图,N,期刊信息查询,数据库链接技术,Visual Basic 是专为各种数据库设计的客户端的应用开发工具，它可以和其它数据库服务器构成客户/服务器体系结构，也可以使用任何支持ODBC标准的数据库。在VB中，可用的数据访问接口有3种： ActiveX数据对象（ADO） 远程数据对象（RDO） 数据访问对象（DAO）这3种接口分别代表了数据访问技术的不同发展阶段。ADO是最新的技术，它是比RDO和DAO更加简单、更加灵活的对象模型。期刊信息管理系统就使用了ADO作为数据访问接口。,ADO控件,ADO Data控件（简称ADO控件）可以实现以下功能：连接本地数据库或远程数据库。打开指定的数据库表，或定义基于结构化查询语言（SQL）的查询、存储过程或该数据库中表的视图记录集合。将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。添加新记录，或根据更改显示在绑定的控件中数据来更新数据库。ADO Data控件的主要属性： ConnectionString属性：该属性用于建立到数据源的连接信息。在设置时，可以将ConnectionString属性设置为一个有效的连接字符串，也可以将其设置为定义连接的文件名。本系统使用创建系统DSN名称为lyz.dsn，选择“使用ODBC数据源名称”建立连接。 代码如下：ConnectString = “DSN=lyz.dsn;UID=sa;PWD=”,总 结,通过这次的毕业设计，我学到了很多东西。不仅对Visual Basic这一开发工具有所掌握，更重要的是对进行软件开发的整体设计流程及思维方法有了深刻的认识。由于时间和经验上的不足，遇到问题思路不够清晰，其中存在很多不足的地方，还有很多没有考虑到的地方。比如对数据库的设计考虑的不是很周全；用户界面设计不够美观；出错处理不够完善等多方面问题，这些都是有待改进、完善的地方。不足之处请各位老师多多批评指正！,致 谢,我要向我的指导老师金华老师在毕业设计过程中给予我细心指导和帮助表示衷心的感谢！ 老师：您辛苦了！,期刊信息管理系统使用手册-1-期刊信息管理系统用户使用手册指导教师：金华职称：讲师设计者：骆勇臻期刊信息管理系统使用手册-1-欢迎您使用“期刊信息管理系统”！下面让我来向您介绍一下关于本系统的一些功能与使用方法。期刊信息管理系统是以VisualBasic6.0为前台，以SQLServer2000为后台数据库的典型的信息管理系统。随着图书馆的规模不断扩大，期刊数量急剧增加，有关期刊的各种信息量也成倍增长。因此需要对读者资源、期刊资源、借刊信息、还刊信息进行管理。这就需要有期刊信息管理系统来提高期刊管理工作的效率。通过这样的系统，可以做到期刊信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。一、运行环境具有P41.6G处理器(或更高档处理器)的IBMPC兼容机一个鼠标、键盘足够的硬盘空间,最小安装需要50MB的空间256MB内存VGA或更高辨率的监视器WindowsXP操作系统或Windows2000操作系统二、进入登录界面：进入登录面后，在用户名和口令栏分别输入有效的用户名和密码（默认的用户名“lyz”，口令“123”），点击“确定”即可进入。如果用户名与口令不吻合，系统会提示用户或密码错误！如果用户名和口令验证成功，系统会进入主菜界面期刊信息管理系统使用手册-2-主菜单界面：主菜单：此模块提供菜单选择功能，供用户选择各模块。窗口：界面大方、简洁、直观、容易操作，一看就懂。按钮：各个按扭连接着各个相映的窗口。三、期刊信息录入、修改、删除模块（1）期刊信息录入本系统能够高效率、高质量地完成期刊信息录入工作，从根本上解决了期刊录入的标准化和规范化问题，完全摆脱了旧的工作方法和管理模式造成的束缚，把工作人员从繁重的重复劳动中解脱出来。在这里可以做期刊基本信息的入库操作。添加：首先输入期刊的刊名和邮发代号内容，单击“确定”输入信息直接入库，再单击“添加”重新输入界面信息，单击“确定”信息入库，重复以上操作。删除：从库中选择要删除的信息，单击“删除”则删除该记录。返回：回到期刊入库界面。期刊信息管理系统使用手册-3-添加：首先单击“添加”，输入界面中要求输入的各项内容，输入刊名之后邮发代号自动生成，再单击确定直接录入期刊信息，如果各项内容已经正确输入，系统将成自动完成该期刊的验收工作，期刊信息转入期刊信息库进行保存。返回：回到父菜单。（2）读者信息录入读者信息录入界面如上图所示，添加、确定、返回按钮功能的实现与期刊信息入库雷同。期刊信息管理系统使用手册-4-（3）期刊信息删除删除：输入要删除期刊的书号，单击“删除”则该期刊记录将被删除。返回：回到父菜单。（4）期刊信息修改确定：输入要修改期刊信息的书号，单击“确定”则会在界面中显示出要修改期刊的信息。更改：对要修改期刊的信息重新输入，单击“更改”则该期刊的基本信息将被更新并且更改的信息入库并保存。返回：回到父菜单。（3）读者信息的修改、删除和期刊信息的修改、删除雷同。四、期刊借还管理模块（1）借刊操作期刊信息管理系统使用手册-5-单击“浏览”可以显示出期刊信息表中的所有信息，可以查阅所要借期刊的出借情况。输入所借期刊书号，单击“确定”可以显示出所要借期刊的所有信息。然后输入要借期刊的月份。输入读者编号，单击“确定”可以显示出当前读者的信息（包括当前读者已借刊数、可借刊数）。最后单击“确定”此期刊已被当前读者借出。此时，在期刊信息表中自动显示出当前日期，也就是“借出日期”；借出标记将改为“已借出”。（2）还刊操作期刊信息管理系统使用手册-6-在这个界面输入期刊书号，单击“确定”，系统自动到“期刊借还表”中选取与输入的期刊书号相一致的期刊的出借信息并列出来。输入期刊月份、读者编号，按“确定”即可完成还刊操作，自动显示当前日期，也就是“还刊日期”，并把输入结果保存到“期刊借还表”中。这时“期刊信息表”中的期刊“借出标记”改为未借出。五、查询模块（1）读者信息查询输入读者编号，单击“确定”，系统到“读者信息表”搜索对应读者的相关信息，并列出来。（2）期刊信息查询本系统中期刊查询分为按期刊书号查询和按期刊书名查询，此界面是按期刊书号查询。输入期刊的书号，单击“查询”，系统到“期刊信息表”中搜索对应期刊的相关信息，并列出来。按期刊书名查询其系统流程和按期刊书号查询类似。六、系统退出本科毕业论文期刊信息管理系统作者：院系：工学院专业：计算机科学与技术年级：学号：指导教师：金华职称：讲师答辩日期：期刊信息管理系统-1-摘要本次毕业设计课题为“期刊信息管理系统”，该系统在正常运营中总是面对大量的读者信息、期刊信息以及两者相互作用产生的借刊信息，还刊信息。因此需要对读者资源、期刊资源、借刊信息、还刊信息进行管理，及时了解各个环节中信息的变更，有利于提高管理效率。此次毕业设计以VisualBasic6.0（以下简称VB）作为开发工具。它是Microsoft公司开发的可应用于客户机/服务器(C/S)模式下一种面向对象的图形化交互式开发工具。VB具有功能强大的集成开发环境、在应用程序开发上具有灵活和效率高的特点。数据库采用SQLServer2000，数据库访问接口采用ActiveX数据对象（ADO）。本论文中详细列出了该系统的设计开发过程包括可行性研究、需求分析、总体设计、详细设计、测试报告和关键技术分析等几个部分。关键字：ADO、期刊借还、信息管理、VisualBasic、SQLServer期刊信息管理系统-2-ABSTRACTThedesignofthecourseisMagazineInformationManagementSystem.Thereareagreatdealofreaderinformation,magazineinformationandmagazine-borrowinginformation,magazine-restoringinformationbroughtbyreadersandmagazineinformation.Inordertoimprovemanagementefficiency,itisnecessarytomanagereaderresource,magazineresource,magazine-borrowinginformation,andmagazine-restoringinformation,andrealizethechangesamongallthetaches.Inthedesign,VisualBasic6.0(shortforVB)istheimplodetool,whichisdevelopedforthemodeofclient/server(c/s)byMicrosoftanditisObjectOrientedandgraphic.VBhasapowerful,integrateddevelopmentenvironmentandisflexibleandefficientforapplication.ThedatabaseadoptsSQLServer2000andaccessinginterfaceofdatabaseadoptsADO.Itliststheprocesstodevelopthesysteminthepaper,forexample,feasibilityresearch,requirementanalysis,collectivitydesign,particulardesign,testingreport,pivotaltechnology,andsoon.KeyWords:ADO、Magazine-restoring、InformationManagement、VisualBasic、SQLServer期刊信息管理系统-3-目录第一章：绪论411开发工具简介412VisualBasic6.0和SQLServer2000的特性4第二章：课题可行性研究5第三章：需求分析531系统数据分析632系统功能分析6第四章：总体设计641数据库概念结构设计642数据库逻辑结构设计743系统功能模块设计944数据库连接技术10第五章：详细设计1151期刊信息录入、修改、删除模块1252期刊借还管理模块155.3查询模块18第六章：测试报告19第七章：总结20期刊信息管理系统-4-第八章：参考文献21第一章绪论期刊信息管理系统是以VisualBasic6.0为前台，以SQLServer2000为后台数据库的典型的信息管理系统。随着图书馆的规模不断扩大，期刊数量急剧增加，有关期刊的各种信息量也成倍增长。因此需要对读者资源、期刊资源、借刊信息、还刊信息进行管理。这就需要有期刊信息管理系统来提高期刊管理工作的效率。通过这样的系统，可以做到期刊信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。1.1开发工具简介VisualBasicforWindows(简称VisualBasic)是一种具有良好图形用户界面（GUI）的程序设计语言，同时又是一种完全支持面向对象程序设计（OOP）的语言。“Visual”指的是开发图形用户界面（GUI）的方法，不需要编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象拖放到窗体上即可。“Basic”指的BASIC语言，这是一种在计算机技术发展史上应用得最为广泛的语言。而“VisualBasic”则综合运用了Basic语言的结构化特点和GUI可视设计工具（控件、下拉式菜单、窗口、对话框等），既具有Windows丰富的图形窗口工作环境，又继承了Basic语言编程的简便性。SQLServer2000是由Microsoft开发和推广的关系数据库管理系统（DBMS）。SQLServer2000继承了SQLServer7.0的高性能、可靠性和可扩充性的优点，同时又引进了数据库和服武器增强功能，以及其他一些新的特性，使它成为一个杰出的数据库平台，可用于大型联机事务处理、数据仓库及电子商务等。1.2VisualBasic6.0和SQLServer2000的特性VisualBasic特性：（1）VisualBasic是一种面向对象的程序设计语言（OOP），因而它具有OOP语言所具有的对象创建机制、对象的继承性、对象的多态性及对象的可预见性等特性。（2）它采用了简单对象模型为显著特性的数据访问技术，ActiveX期刊信息管理系统-5-数据对象（ADO）可以更好地访问本地和远程数据库。（3）数据綁定功能有了更好的增强，可以将任意一个数据源同任意一个用户的数据控件綁定。（4）允许在远程机器上创建对象。SQLServer2000主要特点：（1）真正的客户机/服务器体系结构（2）图形化用户界面，使系统管理和数据库管理更加直观、简单。（3）丰富的编程接口工具，为用户进行程序设计提供了更大的选择余地。（4）SQLServer与WindowsNT完全集成，多线程体系结构设计提高了系统对多用户同时访问的响应速度。（5）具有很好的伸缩性。（6）对Web技术的支持，使用户很容易地将数据库中的数据发布到Web页面上。第二章课题可行性分析管理现代化、办公自动化和决策科学化，是现代化办公管理发展的必然趋势。期刊信息管理比较繁琐、复杂，产生的文档比较多，并且由于手工的操作，使这些文档无法有效的核对和管理，在汇总以及分析方面更加困难。因此，迫切需要应用计算机技术来辅助管理。在使用期刊信息管理系统后，可以提高期刊的各类信息的准确性，将信息无误地输入计算机并在数据库中存储起来。按照规范设定标准代码，大大保证了系统原始数据地准确性，在进行分析统计时，可以最大限度地减少人为影响，大大提高工作效率。期刊信息管理系统可以集存储、分析、统计、打印一身，节省人力物力，而且调用方便、统计快捷、准确性高，可以充分发挥管理系统地统计功能。第三章需求分析管理期刊信息工作的本身特点及特殊性质，单靠人力，会使从事这项工作的管理人员过度缠身于烦琐的业务中，难免会发生许多错误，难以做到管理的规范化，这不符合管理工作的今后发展趋势。因此，需要开发一种功能全面，操作简单的管理系统软件来辅助作用，人机配合，能够使机器承担部分工作，是管理员逐步摆脱一些无谓的，琐碎的业务，这对充分利用人力资源的主导作用及使管理工作逐步步入规范化轨道有着重要意义。期刊信息管理系统-6-下面简单介绍一下本系统的工作机理。31系统数据分析（1）系统开发的总体任务是实现各种信息的系统化、规范化和自动化。（2）能够对期刊信息进行登记，也就是要将期刊的基本信息（如：书号、邮发代号、年份、月份、刊名、价格等）预先存入数据库中，共以后检索。（3）对读者基本信息进行登记注册，包括读者编号、姓名、部门、已借刊数等信息。（4）记录每次的借还行为，主要包括：书号、读者编号、借期、还期、是否含盘。（5）提供方便的查询方法。如：可以方便地查出某读者所有的期刊借还记录以及某期刊目前被借还等信息。32系统功能分析根据以上功能，将期刊信息管理系统的数据分为：a、数据输入部分，主要包括期刊基本信息的录入、读者基本信息的录入。b、数据输出部分，主要是各种统计查询，包括：读者信息查询、期刊信息查询。c、数据处理部分，主要涉及期刊出借和归还的处理，如某期刊借出后，必须在数据库中将该期刊标记为已借出；某期刊一旦归还后，同样必须再数据库中将其标记为已经归还，以便再次借出。d、数据修改部分，对用户安全级别进行划分，分为“一般操作员”和“系统管理员”。系统管理员可以对期刊的基本信息进行修改、删除操作，一般管理员则不可以。第四章总体设计确定了软件需求，系统的主要功能有了明确的标准，就进入了设计阶段。下面详细介绍总体设计内容。期刊信息管理系统-7-41数据库概念结构设计根据以上需求分析和数据组织，开始设计数据结构，即根据需求分析勾画出实体/关系图（E/R）。在概念上，（E/R）图代表的是系统需要的数据及其这些数据之间的关系。读者信息期刊信息借阅期刊读者编号姓名部门备注书号邮发代号刊名单价月份年份借出标记（是否含盘）是否含盘借期还期mn图4-1系统的（E/R）图从图4-1中我们可以看出，在这个系统中实际存在的实体：期刊和读者，其中读者和期刊是多对多关系，针对本系统，通过对期刊信息管理的内容和数据流程分析，设计数据项如下：1.期刊基本信息，其数据项有书号、邮发代号、刊名、单价、年份、月份、借出标记、是否含盘、借出次数等。2.读者基本信息，其数据项有读者编号、姓名、部门、已借刊数、备注等。3.借阅期刊，通过读者对某一期刊进行借阅，产生相对应的借期、还期、是否需借光盘等信息。42数据库逻辑结构设计期刊信息管理系统-8-根据上面的数据库概念结构转化为SQLServer2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在此数据库基础上建立起如下表：期刊信息表（magazineinfo）说明：1借出标记Y表示为被租借，N表示为未被借出。2借出次数每借一次加一。刊名-邮发代号表（magazinename）说明：刊名和邮发代号一一对应，在“期刊信息表中”不必再输入邮发代号，输入刊名自动显示邮发代号。读者信息表（readersinfo）字段名类型长度可否为空主键外部键书号char10Notnull邮发代号char10Notnull年份char4Notnull月份char2Notnull刊名varchar50Notnull单价numeric4Null是否含盘char2Notnull入库标记char1Notnull借出标记char1Notnull借出次数int2Null备注varchar50Null字段名类型长度可否为空主键外部键刊名varchar50Notnull邮发代号char10Notnull字段名类型长度可否为空主键外部键读者编号char10Notnull姓名char10Notnull部门varchar50Null期刊信息管理系统-9-说明：1已借刊数表示当前读者已经借的期刊数，每出借一次自动加一。期刊借还表（borrowreturn）说明：1借期取当前借刊日期。2还期取当前还刊日期。3是否含盘与期刊信息表中的是否含盘不一样，它是通过读者和期刊之间的借阅关系产生的。43系统功能模块设计根据第三章的需求分析，将期刊信息管理系统功能设计分为三大模块，其系统功能模块图如下：已借刊数int2Null备注varchar50Null字段名类型长度可否为空主键外部键书号char10Notnull读者编号char10Notnull借期date8Notnull还期date8Notnull是否含盘char2Notnull期刊信息管理系统-10-期刊信息管理系统期刊借还管理期刊信息管理读者信息管理系统退出期刊借阅处理读者信息查阅期刊归还处理期刊预定处理期刊信息删除期刊信息更改期刊信息查找读者信息修改读者登记处理读者信息删除44数据库连接技术VisualBasic是专为各种数据库设计的客户端的应用开发工具，它可以和其它数据库服务器构成客户/服务器体系结构，也可以使用任何支持ODBC标准的数据库。ODBC是微软公司WOSA的组成部分，是微软公司提出的开放式数据库互连标准接口。ODBC接口以SQL作为标准查询语言来存取连接到的数据源。ODBC允许单个应用存取多个不同的数据库管理系统，这使得应用开发者可以开发，编辑和发行应用而不管它操作的数据库管理系统（DBMS）是什么。用户可以通过加载连接到不同数据库的驱动程序来建立与各种数据库的连接。期刊信息管理系统-11-在VB中，可用的数据访问接口有3种：ActiveX数据对象（ADO）远程数据对象（RDO）数据访问对象（DAO）数据访问接口就是数据库访问对象模型，它代表了访问数据库的各个方面。可以在任何应用程序中通过编程控制连接和语句生成器，也可以通过编程使用返回的数据。这3种接口分别代表了数据访问技术的不同发展阶段。ADO是最新的技术，它是比RDO和DAO更加简单、更加灵活的对象模型。期刊信息管理系统就使用了ADO作为数据访问接口。ADOData控件（简称ADO控件）可以实现以下功能：连接本地数据库或远程数据库。打开指定的数据库表，或定义基于结构化查询语言（SQL）的查询、存储过程或该数据库中表的视图记录集合。将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。添加新记录，或根据更改显示在绑定的控件中数据来更新数据库。ADOData控件的主要属性：ConnectionString属性：该属性用于建立到数据源的连接信息。在设置时，可以将ConnectionString属性设置为一个有效的连接字符串，也可以将其设置为定义连接的文件名。本系统使用创建系统DSN名称为lyz.dsn，选择“使用ODBC数据源名称”建立连接。代码如下：ConnectString=“DSN=lyz.dsn;UID=sa;PWD=”第五章详细设计本章将详细地对各个模块进行分解和剖析，系统分为四个模块，即下面依次对各个模块进行叙述。期刊信息管理系统-12-登录界面：主菜单界面：主菜单：此模块提供菜单选择功能，供用户选择各模块。窗口：界面大方、简洁、直观、容易操作，一看就懂。按钮：各个按扭连接着各个相映的窗口。51期刊信息录入、修改、删除模块（1）期刊信息录入本系统能够高效率、高质量地完成期刊信息录入工作，从根本上解决了期刊录入的标准化和规范化问题，完全摆脱了旧的工作方法和管理模式造成的束缚，把工作人员从繁重的重复劳动中解脱出来。期刊信息管理系统-13-在这里可以做期刊基本信息的预定操作。添加：首先输入期刊的刊名和邮发代号内容，单击“确定”输入信息直接存入“刊名-邮发代号表”中，再单击“添加”重新输入界面信息，单击“确定”信息再次存入“刊名-邮发代号表”中，重复以上操作。删除：从“刊名-邮发代号表”中选择要删除的信息，单击“删除”则删除该记录。返回：回到期刊入库界面。添加：首先单击“添加”，输入界面中要求输入的各项内容，输入刊名之后邮发代号在“刊名-邮发代号表”中自动显示，再单击确定直接录入期刊信息，如果各项内容已经正确输入，系统将成自动完成该期刊的验收工作，期刊信息转入“期刊信息表”进行保存。返回：回到父菜单。期刊信息管理系统-14-（2）读者信息录入读者信息录入界面如上图所示，添加、确定、返回按钮功能的实现与期刊信息入库雷同。（3）期刊信息删除删除：检查“期刊借还表”中该期刊是否借出，如果借出不能删除该期刊记录，没有借出可删除该期刊记录。返回：回到父菜单。期刊信息管理系统-15-（4）期刊信
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号