书签分享收藏举报版权申诉 / 30

立即下载

当前位置：首页 > 技术资料 > 其他杂项 > vb+sql2000图书管理系统.doc

vb+sql2000图书管理系统.doc

上传人：asd****56

文档编号：70334790

上传时间：2023-01-19

格式：DOC

页数：30

大小：2.27MB

( 4.5 )

《vb+sql2000图书管理系统.doc》由会员分享，可在线阅读，更多相关《vb+sql2000图书管理系统.doc（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Vb+sql2000图书管理代码及控件主要控件：Commandbutton,textbox,frame,label, Toolbar, ProgressBar, CommonDialog, Timer, StatusBar, ImageList, Adodc, DataGrid主界面模型图：图书管理主界面图书信息管理图书借阅管理读者信息管理添加修改删除图书信息图书所有信息查询图书信息添加修改删除借阅信息图书借阅查询添加删除修改读者信息查询读者信息1.登录界面设计过程：用于输入用户名和密码登录，若是用户输入用户名和密码错误则不能进入系统。界面是一个GIF图片。来自于第三方控件。代码：Privat

2、e Sub cmdok_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As BooleanDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select username ,userp from user_infors.Open sql_str, cnWhile Not rs.EOFIf

3、 txtusername.Text = Trim(rs(0) And txtpassword.Text = Trim(rs(1) ThenMe.Hide form8.Showflag = TrueExit SubElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 输入的用户名或密码有误，请重新输入！, vbCritical + vbOKOnly, 错误rs.CloseEnd IfEnd SubPrivate Sub Command1_Click()If MsgBox(你确定要退出？, vbYesNo) = vbNo T

4、henfrmlogin.ShowElseUnload MeEnd IfEnd SubPrivate Sub txtpassword_GotFocus()txtpassword = txtpassword.PasswordChar = *End SubPrivate Sub txtusername_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Static Toogle As BooleanIf Toogle = False Thentxtusername = Toogle = TrueEnd If

5、2图书管理主界面设计过程：所有功能都在菜单中打开来实现。设计代码：Private Sub adu_Click(Index As Integer) form3.ShowEnd SubPrivate Sub b_Click()DataReport1.ShowEnd SubPrivate Sub BEI_Click() form4.ShowEnd SubPrivate Sub Command1_Click()frmaduinfo.ShowEnd SubPrivate Sub Command2_Click()frmseekxs.ShowEnd SubPrivate Sub Command3_Click

6、()frmaduclass_info.ShowEnd SubPrivate Sub Command4_Click()frmaduclass_info.ShowEnd SubPrivate Sub Command5_Click()frmadu_course.ShowEnd SubPrivate Sub Command6_Click()frminquire_course.ShowEnd SubPrivate Sub Command7_Click()frmmodify_result.ShowEnd SubPrivate Sub Command8_Click()frminquire_result.Sh

7、owEnd SubPrivate Sub MDIForm_Load()Me.Left = GetSetting(App.Title, setting, mainleft, 1000)Me.Top = GetSetting(App.Title, setting, maintop, 1000)Me.Width = GetSetting(App.Title, setting, mainwidth, 1000)Me.Height = GetSetting(App.Title, setting, mainheight, 1000)End SubPrivate Sub MDIForm_Unload(Can

8、cel As Integer)If Me.WindowState vbMinimized ThenSaveSetting App.Title, settings, mainleft, Me.LeftSaveSetting App.Title, settings, maintop, Me.TopSaveSetting App.Title, settings, mainwidth, Me.WidthSaveSetting App.Title, settings, mainheight, Me.HeightEnd IfEnd SubPrivate Sub cxbj_Click(Index As In

9、teger)frminquire_bj_info.ShowEnd SubPrivate Sub Command9_Click()DataReport1.ShowEnd SubPrivate Sub cxcj_Click(Index As Integer)frminquire_result.ShowEnd SubPrivate Sub c_Click()Form10.ShowEnd SubPrivate Sub cxkc_Click(Index As Integer) form6.ShowEnd SubPrivate Sub cxxs_Click(Index As Integer) form9.

10、ShowEnd SubPrivate Sub Form_Load()StatusBar1.Panels(3).Text = Format(Now, yyyy年mm月dd日 )StatusBar1.Panels(4).Text = Format(Now, hh点mm分ss秒)End SubPrivate Sub hai_Click() form5.ShowEnd SubPrivate Sub Label1_Click()Label1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)End SubPrivate Sub s

11、_Click()Form11.ShowEnd SubPrivate Sub tc_Click()Unload MeEndEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(3).Text = Format(Now, yyyy年mm月dd日 )StatusBar1.Panels(4).Text = Format(Now, hh点mm分ss秒)Label1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)End SubPrivate Sub tjbj_Click(Index

12、 As Integer) form2.ShowEnd SubPrivate Sub tjcj_Click(Index As Integer)frmmodify_result.ShowEnd SubPrivate Sub tjkc_Click(Index As Integer)form1.ShowEnd SubPrivate Sub tjxs_Click()frmadd_s_info.ShowEnd SubPrivate Sub xgcj_Click(Index As Integer)frmmodify_result.ShowEnd SubPrivate Sub Toolbar1_ButtonC

13、lick(ByVal Button As MSComctlLib.Button) Select Case Button.key Case tt form3.ShowCase ct form9.Show Case tj form2.Show Case xj form2.Show Case td form1.Show Case cd form6.Show Case exit End End SelectEnd Sub3.2.1图书信息管理 3.2.1.1添加修改删除图书信息添加修改删除图书信息设计过程：选择添加修改删除图书信息，在相应的栏目填入或选择相应的内容，点击相应的按钮可以实现添加修改删除

14、图书信息。设计代码：Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()rs.Deleters.AddNewrs(图书号) = Trim(Text1.Text)rs(书籍名称) = Trim(Text2.Text)rs(作者) = Trim(Text3.Text)rs(出版社) = Trim(Text4.Text)rs(订购价格) = Trim(Text5.Text)rs(附件) = Trim(Text6.Text)rs(条码号) = Trim(Text7.Text)rs(规定天数) = Trim(Text8.Text)rs(书的状

15、态) = Trim(Text9.Text)rs.UpdateMsgBox 修改信息成功!, vbExclamation + vbOKOnly, 提示End SubPrivate Sub Command2_Click()rs.DeleteMsgBox 删除成功!, vbExclamation + vbOKOnly, 提示End SubPrivate Sub Command3_Click(Index As Integer)Select Case IndexCase 0rs.MoveFirstFrame2.Caption = 当前位置 & rs.AbsolutePosition & / & rs.R

16、ecordCountCase 1rs.MovePreviousIf rs.BOF Thenrs.MoveFirstFrame2.Caption = 当前位置 & rs.AbsolutePosition & / & rs.RecordCountMsgBox 已经是第一条记录, vbExclamation, 提示End IfCase 2rs.MoveNextFrame2.Caption = 当前位置 & rs.AbsolutePosition & / & rs.RecordCountIf rs.EOF Thenrs.MoveLastMsgBox 已经是最后一条记录!, vbExclamation,

17、提示End IfCase 3rs.MoveLastFrame2.Caption = 当前位置 & rs.AbsolutePosition & / & rs.RecordCountEnd SelectText1.Text = rs(0)Text2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3)Text5.Text = rs(4)Text6.Text = rs(5)Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)End SubPrivate Sub Command4_Click()If

18、Text1.Text = ThenMsgBox 请输入图书号!, vbOKOnly + vbExclamation, 警告Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入书籍名称!, vbOKOnly + vbExclamation, 警告Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入作者!, vbOKOnly + vbExclamation, 警告Combo1.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox

19、请输入出版社!, vbOKOnly + vbExclamation, 警告Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入订购价格!, vbOKOnly + vbExclamation, 警告Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 请输入附件!, vbOKOnly + vbExclamation, 警告Text4.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 请输入条码号!, vbOKOnly + vbE

20、xclamation, 警告Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox 请输入规定天数!, vbOKOnly + vbExclamation, 警告Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox 请输入书的状态!, vbOKOnly + vbExclamation, 警告Text9.SetFocusExit SubEnd IfDim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As B

21、ooleanDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select *from 图书基本信息表rs.Open sql_str, cn, adOpenDynamic, adLockOptimisticrs.AddNewrs(图书号) = Trim(Text1.Text)rs(书籍名称) = Trim(Text2.Text)rs(作者) = Trim(Text3.Text)rs(出版社

22、) = Trim(Text4.Text)rs(订购价格) = Trim(Text5.Text)rs(附件) = Trim(Text6.Text)rs(条码号) = Trim(Text7.Text)rs(规定天数) = Trim(Text8.Text)rs(书的状态) = Trim(Text9.Text)rs.Updaters.CloseMsgBox 添加信息成功!, vbExclamation + vbOKOnly, 提示End SubPrivate Sub Form_Load()Dim cn As New ADODB.ConnectionDim cn_str As String, sql_s

23、tr As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select * from 图书基本信息表rs.CursorLocation = adUseClientrs.Open sql_str, cn_str, adOpenDynamic, adLockOptimisticText1.Text = rs(0)Text2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3)Text5.Text = rs(4)

24、Text6.Text = rs(5)Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)End SubPrivate Sub Form_Unload(Cancel As Integer)rs.CloseEnd Sub3.3.1.3查询图书信息查询图书信息图设计过程：选择查询图书信息，在相应的栏目输入要查询的图书号就能查询该图书的基本信息设计代码：Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As

25、 BooleanDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select * from 图书基本信息表rs.Open sql_str, cnWhile Not rs.EOFIf Text10.Text = Trim(rs(0) ThenText1.Text = rs(0)Text2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3)Tex

26、t5.Text = rs(4)Text6.Text = rs(5)Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)flag = TrueExit SubElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 没有找到此图书的信息,请确认所输入正确的图书号！, vbCritical + vbOKOnly, 错误rs.CloseEnd IfEnd Sub3.2.2图书借阅管理3.2.2.1添加修改删除借阅信息添加修改删除借阅信息图设计过程：选择添加修改删除借阅信息，在

27、相应的栏目填入或选择相应的内容，点击相应的按钮可以实现添加修改删除借阅信息。设计代码：Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()rs.Deleters.AddNewrs(条码号) = Trim(Text1.Text)rs(读者编号) = Trim(Text2.Text)rs(书籍名称) = Trim(Text3.Text)rs(图书作者) = Trim(Text4.Text)rs(规定天数) = Trim(Text5.Text)rs(借出日期) = Trim(Text6.Text)rs(还书日期) = Trim(Text7

28、.Text)rs(实还日期) = Trim(Text8.Text)rs(超出天数) = Trim(Text9.Text)rs.UpdateMsgBox 修改信息成功!, vbExclamation + vbOKOnly, 提示End SubPrivate Sub Command2_Click()rs.Deleters.UpdateMsgBox 删除成功!, vbExclamation + vbOKOnly, 提示End SubPrivate Sub Command3_Click(Index As Integer)Select Case IndexCase 0rs.MoveFirstCase 1

29、rs.MovePreviousIf rs.BOF Thenrs.MoveFirstMsgBox 已经是第一条记录, vbExclamation, 提示End IfCase 2rs.MoveNextIf rs.EOF Thenrs.MoveLastMsgBox 已经是最后一条记录!, vbExclamation, 提示End IfCase 3rs.MoveLastEnd SelectText1.Text = rs(0)Text2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3)Text5.Text = rs(4)Text6.Text = rs(5)

30、Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)End SubPrivate Sub Command4_Click()If Text1.Text = ThenMsgBox 请输入条码号!, vbOKOnly + vbExclamation, 警告Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入读者编号!, vbOKOnly + vbExclamation, 警告Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox

31、请输入书籍名称!, vbOKOnly + vbExclamation, 警告Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 请输入图书作者!, vbOKOnly + vbExclamation, 警告Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入规定天数!, vbOKOnly + vbExclamation, 警告Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 请输入借出日期!, vbOKOnly +

32、 vbExclamation, 警告Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 请输入还书日期!, vbOKOnly + vbExclamation, 警告Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox 请输入实还日期!, vbOKOnly + vbExclamation, 警告Text8.SetFocusExit SubEnd IfIf Text9.Text = ThenMsgBox 请输入超出天数!, vbOKOnly + vbExclamation, 警告Tex

33、t9.SetFocusExit SubEnd IfDim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As BooleanDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select * from 借阅信息表rs.Open sql_str, cn, adOpenDynamic, adLockOptimis

34、ticrs.AddNewrs(条码号) = Trim(Text1.Text)rs(读者编号) = Trim(Text2.Text)rs(书籍名称) = Trim(Text3.Text)rs(图书作者) = Trim(Text4.Text)rs(规定天数) = Trim(Text5.Text)rs(借出日期) = Trim(Text6.Text)rs(还书日期) = Trim(Text7.Text)rs(实还日期) = Trim(Text8.Text)rs(超出天数) = Trim(Text9.Text)rs.Updaters.CloseMsgBox 添加信息成功!, vbExclamation

35、 + vbOKOnly, 提示End SubPrivate Sub Form_Load()Dim cn As New ADODB.ConnectionDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select * from 借阅信息表rs.Open sql_str, cn_str, adOpenDynamic, adLockOptimisticText1.Text = rs(0)Tex

36、t2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3)Text5.Text = rs(4)Text6.Text = rs(5)Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)End Sub3.2.2.2图书借阅查询设计过程：选择图书借阅查询，在相应的栏目输入要查询的图书号就能查询该图书的借阅信息！设计代码：Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim f

37、lag As BooleanDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=QA2ONHYK7VWHRY2;DATABASE=librarycn.Open cn_strsql_str = select * from 借阅信息表rs.Open sql_str, cnWhile Not rs.EOFIf Text10.Text = Trim(rs(0) ThenText1.Text = rs(0)Text2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3

38、)Text5.Text = rs(4)Text6.Text = rs(5)Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)flag = TrueExit SubElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 没有找到此图书的信息,请确认所输入正确的图书号！, vbCritical + vbOKOnly, 错误rs.CloseEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.2.3读者信息管

39、理 3.2.3.1添加删除修改读者信息设计过程：选择添加删除修改读者信息，在相应的栏目填入或选择相应的内容，点击相应的按钮可以实现添加删除修改读者信息。设计代码：Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()rs.Deleters.AddNewrs(读者编号) = Trim(Text1.Text)rs(读者姓名) = Trim(Text2.Text)rs(性别) = Trim(Text3.Text)rs(出生日期) = Trim(Text4.Text)rs(单位) = Trim(Text5.Text)rs(家庭住址) = T

40、rim(Text6.Text)rs(电话) = Trim(Text7.Text)rs(Email) = Trim(Text8.Text)rs(证件类型) = Trim(Text9.Text)rs(证件号码) = Trim(Text10.Text)rs(登记日期) = Trim(Text11.Text)rs(读者级别) = Trim(Text12.Text)rs.UpdateMsgBox 修改信息成功!, vbExclamation + vbOKOnly, 提示End SubPrivate Sub Command2_Click()rs.DeleteMsgBox 删除成功!, vbExclamat

41、ion + vbOKOnly, 提示End SubPrivate Sub Command3_Click(Index As Integer)Select Case IndexCase 0rs.MoveFirstCase 1rs.MovePreviousIf rs.BOF Thenrs.MoveFirstMsgBox 已经是第一条记录, vbExclamation, 提示End IfCase 2rs.MoveNextIf rs.EOF Thenrs.MoveLastMsgBox 已经是最后一条记录!, vbExclamation, 提示End IfCase 3rs.MoveLastEnd Sele

42、ctText1.Text = rs(0)Text2.Text = rs(1)Text3.Text = rs(2)Text4.Text = rs(3)Text5.Text = rs(4)Text6.Text = rs(5)Text7.Text = rs(6)Text8.Text = rs(7)Text9.Text = rs(8)Text10.Text = rs(9)Text11.Text = rs(10)Text12.Text = rs(11)End SubPrivate Sub Command4_Click()If Text1.Text = ThenMsgBox 请输入要添加的读者编号!, v

43、bOKOnly + vbExclamation, 警告Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入要添加的读者姓名!, vbOKOnly + vbExclamation, 警告Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入要添加的性别!, vbOKOnly + vbExclamation, 警告Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 请输入出生日期!, vbOKOnly + vbExclamation, 警告Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入单位!, vbOKOnly + vbExclamation, 警告Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 请输入家庭住址!, vbOKOnly + vbExclamation, 警告Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 请输入要添加电话!, vbOKOnly + vb

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

15 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: vb sql2000 图书管理系统

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：vb+sql2000图书管理系统.doc
链接地址：https://www.taowenge.com/p-70334790.html