期刊信息管理系统vb+sql代码维护

《期刊信息管理系统vb+sql代码维护》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、期刊信息管理系统——代码维护PrivateSubCommand1_Click(IndexAsInteger)IfIndex=0ThenIfUserName.Text="lyz"AndPassWord="123"ThenMDIForm1.ShowUnloadMeElseMsgBox"你输入的用户明或密码错误，请重新输入！"Form1.ShowUserName.Text=""PassWord=""EndIfEndIfIfIndex=1ThenEndEndSubPrivateSubLabel1_Click()EndSubPrivateSubLabel2_C

2、lick()EndSubPrivateConnAsADODB.ConnectionPrivateRSAsADODB.RecordsetPrivateSubCommand1_Click()DimaAsIntegerDimstrAsStringDimstAsStringDimstaAsStringSetRS.ActiveConnection=ConnRS.LockType=adLockOptimisticRS.CursorType=adOpenKeysetstr="select*fromreaderswhere读者编号="&Text2.TextRS.Op

3、enstrRS.Fields("已借刊数")=RS.Fields("已借刊数")+1'RS.Fields("备注")=Text5.TextRS.Update-17-期刊信息管理系统——代码维护RS.Closest="select*frommagazineinfowhere月份="&Text9.Text&"and书号="&Text1.TextRS.OpenstRS.Fields("开始期号")=Text3.TextRS.Fields("借出标记")="借出"RS.Fields("借出次数")=RS.Fields("借出次数")+1RS.Fields("

4、结束期号")=""'RS.Fields("部门")=Text4.Text'RS.Fields("备注")=Text5.TextRS.UpdateRS.Closesta="select*fromborrow@return"RS.OpenstaRS.AddNewRS.Fields("书号")=Text1.TextRS.Fields("读者编号")=Text2.TextRS.Fields("借期")=Text3.TextRS.Fields("月份")=Text9.TextRS.Fields("是否含盘")=Text8.Text'RS.Fields("部门"

5、)=Text4.TextRS.Fields("备注")=Text6.TextRS.UpdateRS.CloseAdodc1.RefreshAdodc3.RefreshAdodc2.RefreshEndSubPrivateSubCommand2_Click()MDIForm1.ShowUnloadMeEndSubPrivateSubCommand3_Click()IfAdodc1.Recordset.BOFOrText1.Text=EmptyThenMsgBox"这本书不存在"ElseAdodc1.CommandType=adCmdTextAdodc1

6、.RecordSource="select书号,刊名,是否含盘,入库标记,月份,借出标记frommagazineinfowhere借出标记='未借出'and书号="&"'"&Text1.Text&"';"-17-期刊信息管理系统——代码维护Adodc1.RefreshText4.Text=Text1.TextText5.Text=str(Date)Text7.Text=Text8.TextEndIfEndSubPrivateSubCommand4_Click()Adodc4.RecordSource="select*fromreaderswhere读

7、者编号="&Text2.TextAdodc4.RefreshAdodc3.RecordSource="select*fromreaderswhere读者编号="&Text2.TextAdodc3.RefreshDimstrAsStringSetRS.ActiveConnection=ConnRS.CursorType=adOpenForwardOnlystr="select*fromreaderswhere读者编号="&Text2.TextRS.OpenstrLabel8.Caption=5-RS.Fields("已借刊数")'RS.Fields("

8、姓名")=Text3.Text'RS.Fields("部门")=Text4.Text'RS.Fields("