1、 期刊信息管理系统代码维护- 1 -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 SubPriva
2、te 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
3、where 读者编号 =“ “期刊信息管理系统代码维护- 3 -Adodc1.RefreshText4.Text = Text1.TextText5.Text = str(Date)Text7.Text = Text8.TextEnd IfEnd SubPrivate Sub Command4_Click()Adodc4.RecordSource = “select * from readers where 读者编号=“ uid=;pwd=“Conn.OpenConn.Execute “delete from borrowreturn where 书号=“ “Adodc1.RecordSour
4、ce = “select 书号,邮发代号,刊名,是否含盘,入库标记,月份,借出标记 from magazineinfo where 刊名=“ “Adodc1.RefreshEnd IfEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload Me期刊信息管理系统代码维护- 8 -End SubPrivate Sub Form_Load()Do While Adodc1.Recordset.EOF = FalseCombo1.AddItem Adodc1.Recordset(“刊名“)Adodc1.Recordset.MoveNextLoopE
5、nd 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
6、(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()期刊信息管理系统代码维护- 9 -Adodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()MDIFo
7、rm1.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 Su
8、bPrivate Sub Command1_Click()Set Conn = New ADODB.ConnectionSet RS = New ADODB.RecordsetConn.ConnectionString = “dsn=lyz;uid=;pwd=“Conn.OpenConn.Execute “delete from readers where 读者编号=“ “RS.Open strRS.MoveFirstLabel13.Caption = RS.Fields(“邮发代号“)RS.CloseEnd SubPrivate Sub Command1_Click()Text1.Text
9、= “Text3.Text = “Combo2.Text = “Label13.Caption = “Label12.Caption = “Text7.Text = “Text8.Text = “Text4.Text = “期刊信息管理系统代码维护- 12 -Combo1.Text = “Text2.Text = “End SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Command4_Click()Dim n As IntegerDim i As IntegerSet RS.ActiveConn
10、ection = 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 magazineinfo“RS.AddNewRS.Fields(“书号 “) = Text1.TextRS.Fields(“刊名 “) = Text3.TextRS.Fields(“入库标记 “) = Combo2.T
11、extRS.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 书号= “ uid=;p
12、wd=“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, adS
13、tatus 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(“读者编号“) = T
14、ext2.Text期刊信息管理系统代码维护- 14 -RS.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.Record
15、Source = “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 Ad
16、odc1_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 Sub期刊信息管理系统代码维护- 15 -Private Sub Command2_Click(
17、)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 S
18、ubPrivate Sub MDIForm_Load()menu1 (Caption = “期刊借还处理“)spc1 (Caption = “-“)End SubPrivate Sub 按刊名查询_Click()Form14.ShowEnd Sub期刊信息管理系统代码维护- 16 -Private Sub 按书号查询_Click()Form9.ShowEnd SubPrivate Sub 读者信息删除_Click()Form3.ShowEnd SubPrivate Sub 读者信息修改_Click()Form4.ShowEnd SubPrivate Sub 借还表查询_Click()Form1
19、2.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期刊信息管理系统代码维护- 17 -计算机专
20、业毕业设计开发环境：ASP.NET，VB，VB.NET VF，java 等，数据库：SQL。包括:开题报告、程序、论文、答辩 PPT，所有程序都是通过答辩的优秀作品，质量保证。也可代做。我是哈尔滨工业大学计算机专业毕业的学生我卖的毕业设计都是新做出来的而且是学生亲手做的符合学生要求如果你在别的店卖来的都是很专业的人员做的一看就不是学生自己亲手做出来的，而且其他店不提供售后我们提供售后服务及技术支持和答辩技巧.Q Q：982465840旺旺：诚信源代码之家 电话：13836381662店铺地址： 全天在线 各位学弟学妹联系我.本店购设计的优点: 1 价格合理便宜2 提供技术支持3 售后服务好4 成交速度快当时就可以完成调试功能5 东西齐全 (开题论文代码程序答辩 PPT售后服务)6 作品都是获得优秀的产品( 保证质量)期刊信息管理系统代码维护- 18 -
