资源目录
压缩包内文档预览：(预览前20页/共22页)
编号：67366905
类型：共享资源
大小：809.50KB
格式：ZIP
上传时间：2020-04-05
上传人：独**
认证信息
个人认证
王**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
资料
VB
期刊
信息管理
系统
- 资源描述：
-
毕设资料-VB期刊信息管理系统,资料,VB,期刊,信息管理,系统
- 内容简介：
-
期刊信息管理系统代码维护Private Sub Command1_Click(Index As Integer)If Index = 0 ThenIf UserName.Text = lyz And PassWord = 123 ThenMDIForm1.ShowUnload MeElseMsgBox 你输入的用户明或密码错误，请重新输入！Form1.ShowUserName.Text = PassWord = End IfEnd IfIf Index = 1 Then EndEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Label2_Click()End SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Command1_Click()Dim a As IntegerDim str As StringDim st As StringDim sta As StringSet RS.ActiveConnection = ConnRS.LockType = adLockOptimisticRS.CursorType = adOpenKeysetstr = select * from readers where 读者编号 = & Text2.TextRS.Open strRS.Fields(已借刊数) = RS.Fields(已借刊数) + 1RS.Fields(备注) = Text5.TextRS.UpdateRS.Closest = select * from magazineinfo where 月份 = & Text9.Text & and 书号= & Text1.TextRS.Open stRS.Fields(开始期号) = Text3.TextRS.Fields(借出标记) = 借出RS.Fields(借出次数) = RS.Fields(借出次数) + 1RS.Fields(结束期号) = RS.Fields(部门) = Text4.TextRS.Fields(备注) = Text5.TextRS.UpdateRS.Closesta = select * from borrowreturn RS.Open staRS.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.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Command3_Click()If Adodc1.Recordset.BOF Or Text1.Text = Empty ThenMsgBox 这本书不存在ElseAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 书号,刊名,是否含盘,入库标记,月份,借出标记 from magazineinfo where 借出标记=未借出 and 书号= & & Text1.Text & ;Adodc1.RefreshText4.Text = Text1.TextText5.Text = str(Date)Text7.Text = Text8.TextEnd IfEnd SubPrivate Sub Command4_Click()Adodc4.RecordSource = select * from readers where 读者编号= & Text2.TextAdodc4.RefreshAdodc3.RecordSource = select * from readers where 读者编号= & Text2.TextAdodc3.RefreshDim str As StringSet RS.ActiveConnection = ConnRS.CursorType = adOpenForwardOnlystr = select * from readers where 读者编号 = & Text2.TextRS.Open strLabel8.Caption = 5 - RS.Fields(已借刊数)RS.Fields(姓名) = Text3.TextRS.Fields(部门) = Text4.TextRS.Fields(备注) = Text5.TextRS.UpdateRS.CloseIf Label8.Caption 1 ThenMsgBox 该读者已借满期刊，不能再借！form10.ShowEnd IfAdodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Command5_Click()Text1.Text = End SubPrivate Sub Command6_Click()Adodc1.RecordSource = select * from magazineinfoAdodc1.RefreshEnd SubPrivate Sub Command7_Click()End SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionSet RS = New RecordsetSet comm = New ADODB.CommandConn.CursorLocation = adUseClientConn.Open dsn=lyz, , Text3.Text = str(Date)End SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Command1_Click()Dim str As StringDim s As StringSet RS.ActiveConnection = ConnRS.LockType = adLockOptimisticRS.CursorType = adOpenKeysetstr = select * from readers where 读者编号 = & Text2.TextRS.Open strRS.Fields(已借刊数) = RS.Fields(已借刊数) - 1RS.Fields(备注) = Text5.TextRS.UpdateRS.Closes = select * from borrowreturn where 书号 = & Text1.Text & and 月份= & Text3.TextRS.Open sRS.Fields(还期) = Text6.TextRS.Fields(备注) = Text5.TextRS.UpdateRS.CloseAdodc2.RecordSource = select * from readers where 读者编号 = & Text2.TextAdodc2.RefreshAdodc3.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Command3_Click()Dim str As StringDim st As StringSet RS.ActiveConnection = ConnRS.LockType = adLockOptimisticRS.CursorType = adOpenKeysetst = select * from magazineinfo where 书号 = & Text1.Text & and 月份= & Text3.TextRS.Open stRS.Fields(开始期号) = Text3.TextRS.Fields(借出标记) = 未借出RS.Fields(借出次数) = RS.Fields(借出次数) + 1RS.Fields(结束期号) = Text6.TextRS.Fields(部门) = Text4.TextRS.Fields(备注) = Text5.TextRS.UpdateRS.CloseAdodc1.RefreshEnd SubPrivate Sub Command4_Click()Set Conn = New ADODB.ConnectionSet RS = New ADODB.RecordsetConn.ConnectionString = dsn=lyz;uid=;pwd=Conn.OpenConn.Execute delete from borrowreturn where 书号= & Text1.TextAdodc1.RefreshAdodc3.RefreshEnd SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionSet RS = New RecordsetSet comm = New ADODB.CommandConn.CursorLocation = adUseClientConn.Open dsn=lyz, , Text6.Text = str(Date)Text5.Text = str(Date)End SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteAdodc1.RefreshCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.AddNewAdodc1.RefreshCommand1.Enabled = TrueCommand3.Enabled = FalseEnd SubPrivate Sub Command4_Click()Adodc1.Refreshform6.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click()Command2.Enabled = TrueEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseAdodc1.Recordset.AddNewEnd SubPrivate Sub Text2_Change()Command3.Enabled = TrueEnd SubPrivate Sub Text2_Click()Command3.Enabled = TrueEnd SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()If Adodc1.Recordset.BOF Or Combo1.Text = Empty ThenMsgBox 您输入的有误或期刊不存在ElseAdodc1.RecordSource = select 书号,刊名,借出次数,借出标记,月份,是否含盘 from magazineinfo where 刊名= & & Combo1.Text & ;Adodc1.RecordSource = select 书号,邮发代号,刊名,是否含盘,入库标记,月份,借出标记 from magazineinfo where 刊名= & & Combo1.Text & ;Adodc1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Do While Adodc1.Recordset.EOF = FalseCombo1.AddItem Adodc1.Recordset(刊名)Adodc1.Recordset.MoveNextLoopEnd SubPrivate Sub Command1_Click()If Adodc1.Recordset.BOF Or Combo1.Text = Empty ThenMsgBox 您确定删除吗？ElseAdodc1.Recordset.DeleteAdodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()End SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Label1_Click()End SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()Set Conn = New ADODB.ConnectionSet RS = New ADODB.RecordsetConn.ConnectionString = dsn=lyz;uid=;pwd=Conn.OpenConn.Execute delete from readers where 读者编号= & Text1.TextText1.Text = Adodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from readers where 读者编号= & Text1.TextAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Dim str As StringSet RS.ActiveConnection = ConnRS.LockType = adLockBatchOptimisticRS.CursorType = adOpenKeysetstr = select * from readers where 读者编号 = & Text1.TextRS.Open strRS.Fields(读者编号) = Text2.TextRS.Fields(姓名) = Text3.TextRS.Fields(部门) = Text4.TextRS.Fields(备注) = Text5.TextRS.UpdateRS.CloseAdodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Command3_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Command4_Click()Adodc1.RecordSource = select * from readers Adodc1.RefreshEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionSet RS = New RecordsetSet comm = New ADODB.CommandConn.CursorLocation = adUseClientConn.Open dsn=lyz, , End SubPrivate Sub Command1_Click()Adodc1.RecordSource = select * from readers where 读者编号= & Text1.TextAdodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Combo2_Click()Dim str As StringSet RS.ActiveConnection = ConnRS.CursorType = adOpenForwardOnlystr = select * from magazinename where 刊名 = & & Text3.Text & ;RS.Open strRS.MoveFirstLabel13.Caption = RS.Fields(邮发代号)RS.CloseEnd SubPrivate Sub Command1_Click()Text1.Text = Text3.Text = Combo2.Text = Label13.Caption = Label12.Caption = Text7.Text = Text8.Text = Text4.Text = Combo1.Text = Text2.Text = End SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Command4_Click()Dim n As IntegerDim i As IntegerSet RS.ActiveConnection = ConnRS.LockType = adLockOptimisticRS.CursorType = adOpenKeysetAdodc1.Recordset.AddNewIf Text8.Text = 12 Then n = 12If Text8.Text = 24 Then n = 24For i = 1 To nRS.Open select * from magazineinfoRS.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.CloseNext iAdodc1.RecordSource = select * from magazineinfo where 书号= & Text1.TextAdodc1.RefreshCommand4.Enabled = FalseEnd SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionSet RS = New RecordsetSet comm = New ADODB.CommandConn.CursorLocation = adUseClientConn.Open dsn=lyz, , Command4.Enabled = FalseEnd SubPrivate Sub Text1_Change()Command4.Enabled = TrueEnd SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Command1_Click()Set Conn = New ADODB.ConnectionSet RS = New ADODB.RecordsetConn.ConnectionString = dsn=lyz;uid=;pwd=Conn.OpenConn.Execute delete from magazineinfo where 书号= & Text1.TextText1.Text = Adodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Conn As ADODB.ConnectionPrivate RS As ADODB.RecordsetPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()Dim str As StringSet RS.ActiveConnection = ConnRS.LockType = adLockBatchOptimisticRS.CursorType = adOpenKeysetstr = select * from readers where 读者编号 = & Text1.TextRS.Open strRS.Fields(读者编号) = Text2.TextRS.Fields(姓名) = Text3.TextRS.Fields(部门) = Text4.TextRS.Fields(备注) = Text5.TextRS.UpdateRS.CloseAdodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Command4_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from magazineinfo where 书号= & Text5.TextAdodc1.RefreshEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionSet RS = New RecordsetSet comm = New ADODB.CommandConn.CursorLocation = adUseClientConn.Open dsn=lyz, , End SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub Command1_Click()Adodc1.RecordSource = select * from magazineinfo where 书号= & Text1.TextAdodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub dsaddsa_Click(Index As Integer)End SubPrivate Sub duzhechazhao_Click()Form5.ShowEnd SubPrivate Sub duzhedengji_Click()form2.ShowEnd SubPrivate Sub guihuan_Click()form11.ShowEnd SubPrivate Sub jieyue_Click()form10.ShowEnd SubPrivate Sub MDIForm_Load()menu1 (Caption = 期刊借还处理)spc1 (Caption = -)End SubPrivate Sub 按刊名查询_Click()Form14.ShowEnd SubPrivate Sub 按书号查询_Click()Form9.ShowEnd SubPrivate Sub 读者信息删除_Click()Form3.ShowEnd SubPrivate Sub 读者信息修改_Click()Form4.ShowEnd SubPrivate Sub 借还表查询_Click()Form12.ShowEnd SubPrivate Sub 借还表删除_Click()Form15.ShowEnd SubPrivate Sub 刊名的邮发代号入库_Click()Form13.ShowEnd SubPrivate Sub 期刊入库_Click()form6.ShowEnd SubPrivate Sub 期刊信息更改_Click()Form8.ShowEnd SubPrivate Sub 期刊信息删除_Click()Form7.ShowEnd SubPrivate Sub 退出_Click()Form1.ShowUnload MeEnd Sub- 16 -期刊信息管理系统 专业名称 计算机科学与技术年级 2001级姓名 骆勇臻指导教师 金华 简介 期刊信息管理系统是以VisualBasic6 0为前台 以SQLServer2000为后台数据库的典型的信息管理系统 随着图书馆的规模不断扩大 期刊数量急剧增加 有关期刊的各种信息量也成倍增长 因此需要对读者资源 期刊资源 借刊信息 还刊信息进行管理 这就需要有期刊信息管理系统来提高期刊管理工作的效率 通过这样的系统 可以做到期刊信息的规范管理 科学统计和快速的查询 从而减少管理方面的工作量 需求分析 读者信息 期刊信息 借阅期刊 是否含盘 读者编号 姓名 部门 备注 借出标记 刊名 邮发代号 书号 单价 年份 月份 是否含盘 借期 还期 M N 已借刊数 借出次数 总体设计 系统总体模块 详细设计 登录界面 主要功能的实现 期刊信息的录入 借刊操作 借刊数据流程图 开始 输入所借期刊书号 月份 判断是否已被借出 输入读者编号 判断是否存在 出借 并在期刊借还表中添入当前出借日期 书号 读者编号 再把期刊信息表中的借出标记改为已借出 借出次数每借一次加一 结束 N Y Y N 提示错误信息 提示错误信息 还刊操作 还刊数据流程图 N 期刊信息查询 数据库链接技术 VisualBasic是专为各种数据库设计的客户端的应用开发工具 它可以和其它数据库服务器构成客户 服务器体系结构 也可以使用任何支持ODBC标准的数据库 在VB中 可用的数据访问接口有3种 ActiveX数据对象 ADO 远程数据对象 RDO 数据访问对象 DAO 这3种接口分别代表了数据访问技术的不同发展阶段 ADO是最新的技术 它是比RDO和DAO更加简单 更加灵活的对象模型 期刊信息管理系统就使用了ADO作为数据访问接口 ADO控件 ADOData控件 简称ADO控件 可以实现以下功能 连接本地数据库或远程数据库 打开指定的数据库表 或定义基于结构化查询语言 SQL 的查询 存储过程或该数据库中表的视图记录集合 将数据字段的数值传递给数据绑定的控件 可以在这些控件中显示或更改这些数值 添加新记录 或根据更改显示在绑定的控件中数据来更新数据库 ADOData控件的主要属性 ConnectionString属性 该属性用于建立到数据源的连接信息 在设置时 可以将ConnectionString属性设置为一个有效的连接字符串 也可以将其设置为定义连接的文件名 本系统使用创建系统DSN名称为lyz dsn 选择 使用ODBC数据源名称 建立连接 代码如下 ConnectString DSN lyz dsn UID sa PWD 总结 通过这次的毕业设计 我学到了很多东西 不仅对VisualBasic这一开发工具有所掌握 更重要的是对进行软件开发的整体设计流程及思维方法有了深刻的认识 由于时间和经验上的不足 遇到问题思路不够清晰 其中存在很多不足的地方 还有很多没有考虑到的地方 比如对数据库的设计考虑的不是很周全 用户界面设计不够美观 出错处理不够完善等多方面问题 这些都是有待改进 完善的地方 不足之处请各位老师多多批评指正 致谢 我要向我的指导老师金华老师在毕业设计过程中给予我细心指导和帮助表示衷心的感谢 老师 您辛苦了 期刊信息管理系统使用手册期刊信息管理系统用户使用手册指导教师：金华职 称：讲师设 计 者：骆勇臻- 6 -欢迎您使用“期刊信息管理系统”！下面让我来向您介绍一下关于本系统的一些功能与使用方法。期刊信息管理系统是以Visual Basic 6.0为前台，以SQL Server 2000为后台数据库的典型的信息管理系统。随着图书馆的规模不断扩大，期刊数量急剧增加，有关期刊的各种信息量也成
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号