资源目录
压缩包内文档预览：
编号：58736537
类型：共享资源
大小：691.61KB
格式：RAR
上传时间：2020-03-17
上传人：qq77****057
认证信息
个人认证
李**（实名认证）
江苏
IP属地：江苏
7.2
积分
- 关 键 词：
-
VB088
期刊
信息管理
系统
- 资源描述：
-
VB088期刊信息管理系统,VB088,期刊,信息管理,系统
- 内容简介：
-
期刊信息管理系统代码维护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 A
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号