图书馆管理系统VB课程设计(共52页)

1、精选优质文档-倾情为你奉上图书馆管理系统课程设计任务书一、设计目的1学习和巩固VB程序设计的方法（面向过程的程序设计方法和面向对象的程序设计方法），充分体会VB在程序设计方面的强大功能和独特之处；2了解用VB开发项目的一般过程，培养运用VB解决实际问题的工作能力。二、设计课题图书馆管理系统三、设计任务本系统包括对书商和出版社等在内的基础数据管理、新书订购管理、图书借阅管理、图书归还管理、读者续借图书管理、图书丢失管理、统计打印和系统管理等几部分，通过将海量资源和信息管理系统进行有机的结合，可以让读者随时随地地获取知识。四、设计要求在各大省市图书馆和各大高校的图书馆当中，都普遍存在着这样几个共有

2、的问题：（1） 图书馆管理员的工作内容重复、工作效率低、工作量大。（2）办理图书借阅与归还的速度过慢。（3）查询、统计困难。为了解决以上问题，我们从读者和图书馆的角度出发，本着以读者借书、还书快捷方便和图书馆管理员管理图书方便的原则，开发了图书馆管理系统。设计的系统基本功能包括：（1）维护图书馆管理中的基础信息，如书商、出版社、印刷厂的相关信息。此外，还可以维护图书类别信息。（2）管理订购新书信息，验收订购的新书信息，查询并检索库存图书信息。（3）对读者信息进行管理，同时还能够管理读者借书、还书、图书续借等。如果有超期的图书，还提供了超期提醒的功能，从而实现对读者借阅图书的相关事项进行管理的功

3、能。（4）根据查询条件打印符合查询条件的数据，并且能够打印书目分类信息。（5）维护系统数据，如添加操作员、修改操作员、更改操作员口令等。（5）维护系统数据，如添加操作员、修改操作员、更改操作员口令等。读者丢失读者赔书读者还书是否图书馆图书查询读者借书库存图书图书入库开票/付款图书分类统计供应商图书馆管理系统业务流程图        五、设计时间20092010学年第二学期：第19-21周共计3周。六、设计成果经调试成功的源程序和EXE文件，设计报告。设计报告包括：课题简介、功能要求、设计思路、各功能模块（或子程序）

4、描述、各功能的实现方法、重点难点设计方法、软件运行方法、设计小结等。程序功能简介根据前面的功能分析，应用Visual Basic与Access数据库相关知识和软件的操作方法，设计实现一个图书馆管理系统，实现基础数据维护、新书订购管理、图书借阅管理、统计打印、系统维护5大功能。1、根据系统所要实现的功能设计各个界面，利用ADO接口实现VB与Access的连接，利用command、connection、recordset实现对数据库的操作，如果能够直接显示数据就算成功。2、为了更完善地利用图书馆管理系统，方便查询各种信息，设置了一个主页面，通过单击相应的选项能够实现各种功能。3、设计实现用户登录窗

5、口，需要在数据库中建立一个用户表，在里面保存用户名称和密码，然后才能与用户在窗口输入的信息进行校验。4、可以从新书订购窗体中编辑数据记录，包括添加、保存、清除、删除、退出，可以实现数据的各种编辑功能。5、在库存管理中。可以实现对图书的验收入库、入库查询，对照输入边框上的提示信息，依次输入，就可以实现相应的功能。6、实现了读者借书管理、读者还书管理、图书丢失管理、超期提醒各种必要功能。7、实现了生成报表功能，该项功能的目的是为了使用户能够更直观地、形象地了解该系统的主要信息、通过生成报表的形式，了解系统信息。操作方法（流程）介绍1、 启动单击或者【运行】【启动】或者F5，将运行图书馆管理系统，出

6、现如下界面：图12、用户登录启动界面过后就是用户登录界面，该界面提供了对名称和密码的核对功能。如果输入名称错误（如下图这样），点击登陆，系统将会提示。图2图3如果输入密码错误，系统将提示如下图：图4当名称和密码都正确时，系统出现主界面：图53、新书订购新书订购在添加订单信息时，图书订单号根据当前系统日期和4位数字编码自动生成，在触发添加按钮的Click事件后，首先到数据库中的Newtb数据表中检索订单号与当前系统格式化后的日期（yyyymmdd）字符串相同的记录，如果有记录，那么移到最后一条，这时“订单号”为当前系统日期和4位数字编码加1的组合；如果无记录，那么“订单号”为当前系统日期和“00

7、01”的组合，单击主界面【订购新书】，出现如下新书订购界面：图6该界面提供添加新书功能，如果正确输入各信息，如下：图7点击保存，出现以下界面：图8通过以上方法生成的订单号有一定的规律，并能够看出图书订购的日期，如果在输入信息不全或者输入信息有误时，点击保存，将出现以下界面：图9此时若点击删除，出现以下界面：图104、库存管理库存管理主要完成将采购进来的图书进行验收入库，只有经过验收的图书才能正式入库。验收新书的设计思路是：通过在验收新书检索窗体中输入购进新书的订单号，从订单表中提取未被验收的数据，如果检索到此订单，那么该订单的图书信息将显示在验收入库窗体中，数据验证后，单击该窗体上的保存按钮，

8、将购进的新书信息保存到入库信息表中，同时查询库存表中是否存在这种图书，如果存在，那么更新该图书的库存数量；否则，将购进的新书信息保存到库存表中。另外，为了区分验收和未验收的图书，应将验收过的图书信息标记为“验收”。按下面图单击【库存管理】【图书验收入库】将出现检索订单界面：图11图12如果该订单号不能从订单表中提取未被验收的数据，即出现下面界面：图13如果该订单号已被验收入库，出现下面提示： 图14如果输入的订单号（4），能从订单表中提取未被验收的数据，则出现下面界面：图15点击保存，出现下面界面：图16点击是，出现如下界面：图17点击【库存管理】【入库查询】，出现界面如下：图18该界面提供了

9、通过单一的“订单号”、“订购人”、“书籍名称”、“作者”、“出版社”对书目的查找或“订购日期”的查找，同时也满足它们之间的组合查找，选中方法前的复选框（如果不选中，系统将自动提示），填好信息后，单击【查询】，可显示查询信息，结果如下图：图19选择组合查找时，下面为正在查找的界面：图205、读者借书管理在读者借书管理中，通过读者编号和图书条形码确定读者所借阅的图书信息。当用户输入读者编号和借阅图书的条形码时，通过文本框TextBox的LostFocus事件下的语句检索读者信息和其借阅图书的信息；通过AddNew方法保存借阅信息，读者借书管理界面，如下： 图21如下图，输入读者编号，姓名，借阅图书

10、条码号。图22系统自动与数据库连接，出现下面界面：图23点击借出当前图书，出现下面界面：图246、读者还书管理在读者还书管理窗体中，通过输入读者编号和书籍的条码号，利用文本框的LostFocus事件下的语句在借书表（dzjstb）中检索该读者借阅的图书信息，如果检索到数据，那么将其显示在窗体上，然后通过AddNew方法保存还书记录；通过Update方法更新借书信息和库存图书信息。点击【借阅管理】【读者还书管理】读者还书管理界面出现，如输入信息不完整，出现下面界面：图25输入正确信息后，再点击归还图书，则成功归还图书。7、图书丢失管理图书丢失管理主要对图书馆丢失的图书进行管理，通过输入读者编号和

11、书籍的条形码，检索读者丢失的图书。如果图书确认丢失，那么使用AddNew方法保存丢书记录，同时更新读者借书信息和库存信息。点击【借阅管理】【图书丢失管理】，读者编号和书籍的条形码，出现下面界面：图26点击丢失，出现下面界面：图27点击确定，出现下面界面：图28点确定，出现界面如下：图29丢失图书查询：输入读者编号，点击查询，出现图308、图书验收报表图书馆管理系统中的报表主要使用了VB中的数据环境设计器Data Environment和数据报表设计器Data Report，在图书验收报表打印的过程中，首先在图书验收报表窗体中根据订购日期统计并查询指定日期范围内的图书验收信息，单击打印按钮，即可

12、打印查询、统计后的图书验收信息，如下操作：图31出现图书验收报表如下：图32选择订购日期，点击查询，出现如下界面：图33点击打印，则生成报表：图349、超期提醒最后，相关经验在开发图书馆管理系统的过程中，可能遇到这样一个问题：如果在借完图书之后，忘记了还书日期，那么就有可能造成所借图书超期。为了解决这个问题，系统设计了一个超期提醒功能，即在选择日期的同时，能够显示出所选日期、时间范围内所有借书超期和到期未还图书信息。点击【借阅管理】【超期提醒】，出现界面如下：图35单击【每日到期】，则出现以下：图36【参考文献】1.Visual Basic程序设计教程作者：刘瑞新 等主编出 版 社：电子工业出

13、版社出版时间： 2007-8 2、isual BASIC+Access数据库项目开发实践（附CD-ROM光盘一张）作者： 周国民 编著出 版 社： 中国铁道出版社出版时间： 2005-1-1 3、B数据库程序设计实验指导作者： 刘白林主编出 版 社： 西安交通大学出版社出版时间： 2009-3-1 4、isual Basic+Access 数据库开发与实例（含光盘）作者： 刘文涛 编著出 版 社： 清华大学出版社出版时间： 2006-7-1 5、Access数据库教程作者： 刘文涛 编著出 版 社： 清华大学出版社出版时间： 2006-7-1 6、VB数据库项目设计模块化教程作者：刘玉山 刘宝

14、山 编著出 版 社： 机械工业出版社出版时间： 2009-8 设计体会三周的课程设计，到今天接近尾声了。回想这三周的学习与设计，有苦有甜，苦的是，之前学过的关于VB和数据库的知识都忘得差不多了，感觉学的东西很少，很零散，不知该怎么练到一起，做课程设计，是不是太难为我们了。因此一时有些胆怯，怀疑自己是否能够顺利完成这个任务，确实很像退缩，几次打退堂鼓，但最后，也因为看到如此多同学在一丝不苟地为课程设计奉献自己，我才认识我，自己也该好好做下自己的事了，只要多一份坚持，多一份努力，再大的困难又怎么样，有了解决困难，直面挫折的勇气，没有什么可怕的了。于是，就这样，我坚持下来了，或者在机房，或者在寝室，

15、或者背着笨重的笔记本找个舒适的地方，一天天，下来了，过去了，虽然天确实很热，总汗流浃背的，交大的学生真的很苦，没有空调，没有风扇，只是这么干热着，也真的很佩服自己，一直也想着，把设计做完了，得好好犒赏下自己，可当真正快完的时候，更多的是感激，感激同学的帮助，感激大家的鼓励，我才坚持下来了，真的，“要功夫深，铁杵磨成针”，深深地体会到了这句话的内涵。这个过程中所学到的知识和所坚持下来的毅力，我将一生受用，我尝到了自己动手，自己的事自己做的甜头，真的很好，值得一生品味，一直自己也情不自禁地说了“VB真是强大，以后再慢慢研究，编个益智游戏”。 在这些艰辛的日子里，我大量查阅了相关的资料和网张，在课程

16、设计过程中，我懂得了很多人生的哲理，懂得怎样去制定计划，怎样去实现这个计划，并掌握了在执行过程中怎样去克服心理上的不良情绪，经过自己的琢磨，还查阅了很多的书籍，才做到了心中有数，才了解VB程序设计的真正用途，培养自学能力，养成编程的好习惯，课程是主要培养学生综合运用所学知识、发现、提出、分析和解决实际问题和锻炼实践能力的重要环节，也是对学生实际工作能力的具体训练和考察过程，一段时间的实践后，确实掌握了不少知识。在不断地是在借书，看书，上图书馆查阅资料，动手编辑中，我学会了运用VB解决实际工作的能力，图书馆管理系统设计了很多数据库、数组控件、循环等很多方面的内容，符合设计的基本要求，实现了铁路运

17、输设备的查询功能，可以方便的查询数据，实现了从系统中编辑数据记录，包括保存、删除、清除等，实现了生成报表的功能。一切的一切，都凝结了我这个劳动人民的心血。设计开始，不断鼓励自己，给自我以心理暗示，just do it，也就如此，认识到了自己以前的事业太狭小了，我们周围还有好多我们可以利用的资源，书籍、网站。都给我们提供了很好的资料，就等着我们去查找和利用，从这次图书馆管理系统设计中我也收获了很多，了解了图书管理员的一些工作，也让我进一步对VB及其数据库有了深一步的了解，学到了太多太多，受益匪浅。图书馆管理系统这一课程设计的完成，有效的加强了我的基础知识。在设计的过程中，难免会遇到各种各样的问题

18、，我都会努力去克服这些困难，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握的不够牢固，在做设计的时候才发现自己的知识太凌乱，不够系统，而且对很多知识点都是一知半解，没有系统仔细地去挖掘，导致在做设计的时候出现了好多平时容易出现的小错误，一个很小的错误，也许会导致整个程序运行不出来。以前，我并没有太注意这些。通过这次课程设计之后，我认为一定把以前学到的知识重新整理，认真回顾下，这才会对以后的学习起到举足轻重的作用。从此次课程设计中，给我留下最深印象的就是如果自己有了兴趣，就赶紧着手去做，这种心境却是是难能可贵的，也许，我这么做了，以后走更少的弯路，寻找更多的捷径。

19、也由于出于对知识的渴望，出于对未知的求知，我完成了这次课程设计，不过这只是成长道理上的一个小插曲，以后，更多的会来的，任重而道远，“书山有路勤为径，学海无涯苦作舟”。从理论到实践，三周的时间，不进温习巩固了以前的旧知识，也在不断地摸索和探求中体会到了自学能力培养的重要性，自学的魅力是无穷的。最后，从这次课程设计中，本人对VB和Access数据库有了更深入的理解和领悟，同时也看到了不起眼的红蜻蜓抓图精灵作用不可小觑，我更坚定地认识到VB在以后学习中的重要性，这将是我受益终生。附件（程序源代码）main_Startup 源代码Private Sub Timer1_Timer() frmLogin.

20、Show Unload MeEnd SubfrmLogin源代码Option ExplicitDim rs As New ADODB.RecordsetPrivate Sub Combo_Click() txtPassword.Text = "" txtPassword.SetFocusEnd SubPrivate Sub Combo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then txtPassword.SetFocusEnd SubPrivate Sub Form_L

21、oad()Adodc1.ConnectionString = cnn.ConnectionStringDim rec Dim i As Integer rs.Open "select * from usertb", cnn, adOpenKeyset, adLockOptimistic rec = rs.RecordCount ReDim Asc(rec - 1) rs.MoveFirst For i = 1 To rec Combo.AddItem rs.Fields("名称") Asc(i - 1) = Val(rs.Fields("密码&

22、quot;) rs.MoveNext If rs.EOF Then Exit For Next rs.CloseEnd SubPrivate Sub labExit_Click() EndEnd SubPrivate Sub labLogin_Click() Adodc1.RecordSource = "select * from usertb where 名称='" + Trim(Combo) + "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then If Trim

23、(txtPassword) = Adodc1.Recordset.Fields("密码").Value Then frmmain.Show frmmain.StatusBar1.Panels(2).Text = "当前系统用户：" & Adodc1.Recordset.Fields("名称").Value Unload Me Else MsgBox "密码不正确！", vbExclamation + vbOKOnly End If Else MsgBox "无此用户或者密码不正确！",

24、vbExclamation End IfEnd Subfrmmain源代码Private Sub mnucqtx_Click() frmcqtx.Show 1End SubPrivate Sub mnudown_Click() frmgua.Show 1End SubPrivate Sub mnuedit_Click() frmupdata.Show 1End SubPrivate Sub mnuexit_Click() EndEnd SubPrivate Sub mnufind_Click() Unload frmupdate frmupdate.Refresh frmupdate.Show

25、 frmupdate.SSTab1.Tab = 1 frmupdate.SSTab1.TabCaption(0) = "" open_i = 1End Subfrmaddnew源代码Dim rs1 As New ADODB.RecordsetPrivate Sub combo1_Click() Adodc1.ConnectionString = cnn.ConnectionString Adodc2.ConnectionString = cnn.ConnectionString Adodc1.RecordSource = "select * from lbtb w

26、here 书籍类别='" & Trim(Combo1.Text) & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Text4.Text = Adodc1.Recordset.Fields(0) Text12.Text = Adodc1.Recordset.Fields(2) End IfEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode =

27、 vbKeyReturn Then Text4.SetFocusEnd SubPrivate Sub Command11_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = ""

28、 Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Then MsgBox "输入的信息不能为空!", vbCritical ElseIf IsNumeric(Text7.Text) = False Or IsNumeric(Text8.Text) = False Or IsNumeric(Text9.Text) = False Or IsNumeric(Text11.Text) = Fa

29、lse Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox "输入的信息类型不正确！", vbInformation Else Adodc2.RecordSource = "select * from newtb where 条码号='" & Text11.Text & "'" Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then MsgBox &quo

30、t;此条码号已经存在!", vbCritical Adodc2.RecordSource = "select * from newtb" Adodc2.Refresh Else rs1.Open "select * from newtb where 订单号='" & Text1.Text & "'", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount > 0 Then MsgBox "订单号已存在！", vb

31、Information Else Dim sql, temp As String temp = "0" sql = "insert into newtb values('" & Text1 & "','" & DT1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "

32、;','" & Text5 & "','" & DT2 & "','" & Text6 & "','" & Text7 & "'," & Text8.Text & ",'" & Text9 & "','" & Text10 & "','

33、" & Text11 & "','" & Text12 & "','" & Text13 & "','" & temp & "')" cnn.Execute (sql) MsgBox "数据保存成功!", 64 Adodc2.RecordSource = "select * from newtb where 是否验收='0' order by

34、 订单号" Adodc2.Refresh End If rs1.Close End If End IfEnd SubPrivate Sub Command1_Click()If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Tex

35、t8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Then MsgBox "输入的信息不能为空!", vbCritical ElseIf IsNumeric(Text7.Text) = False Or IsNumeric(Text8.Text) = False Or IsNumeric(Text9.Text) = False Or IsNum

36、eric(Text11.Text) = False Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox "输入的信息类型不正确！", vbInformation Else Adodc2.RecordSource = "select * from newtb where 条码号='" & Text11.Text & "'" Adodc2.Refresh If Adodc2.Recordset.RecordCount &

37、gt; 0 Then MsgBox "此条码号已经存在!", vbCritical Adodc2.RecordSource = "select * from newtb" Adodc2.Refresh Else rs1.Open "select * from newtb where 订单号='" & Text1.Text & "'", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount > 0 Then MsgBox &

38、quot;订单号已存在！", vbInformation Else Dim sql, temp As String temp = "0" sql = "insert into newtb values('" & Text1 & "','" & DT1 & "','" & Text2 & "','" & Text3 & "','" &

39、amp; Text4 & "','" & Text5 & "','" & DT2 & "','" & Text6 & "','" & Text7 & "'," & Text8.Text & ",'" & Text9 & "','" & Text10 &

40、amp; "','" & Text11 & "','" & Text12 & "','" & Text13 & "','" & temp & "')" cnn.Execute (sql) MsgBox "数据保存成功!", 64 Adodc2.RecordSource = "select * from newtb where 是否验

41、收='0' order by 订单号" Adodc2.Refresh End If rs1.Close End If End IfEnd SubPrivate Sub Command2_Click() clearEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Command4_Click() If Adodc2.Recordset.EOF = False Then c = MsgBox("您确认要删除该记录吗?", 17) If c = vbOK Then Adodc2

42、.Recordset.Delete Adodc2.Refresh Unload Me Me.Show End If Else MsgBox "当前数据库中已经没有可删除的记录", 64 End IfEnd SubPrivate Sub Command5_Click() clear Dim temp1 temp1 = Format(Now, "yyyymmdd") Adodc2.RecordSource = "select * from newtb where 订单号 like '%" + temp1 + "%'

43、; order by 订单号" Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then Adodc2.Recordset.MoveLast Text1.Text = Val(Adodc2.Recordset.Fields("订单号") + 1 Else Text1.Text = temp1 + "0001" End If Adodc2.RecordSource = "select * from newtb where 是否验收='0' order by 订单

44、号" Adodc2.Refresh DT1.SetFocusEnd SubPrivate Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocusEnd SubPrivate Sub DT1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub DTPicker2_KeyDow

45、n(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text6.SetFocusEnd SubPrivate Sub DT2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text6.SetFocusEnd SubPrivate Sub Form_Activate() Adodc1.ConnectionString = cnn.ConnectionString Adodc2.ConnectionString = cnn.

46、ConnectionStringDim temp1 temp1 = Format(Now, "yyyymmdd") Adodc2.RecordSource = "select * from newtb where 订单号 like '%" + temp1 + "%' order by 订单号" Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then Adodc2.Recordset.MoveLast Text1.Text = Val(Adodc2.Recor

47、dset.Fields("订单号") + 1 Else Text1.Text = temp1 + "0001" End If Adodc2.RecordSource = "select * from newtb where 是否验收='0' order by 订单号" Adodc2.Refresh Set DataGrid1.DataSource = Adodc2 clearEnd SubPrivate Sub Form_Load() Me.Caption = Me.Caption & " "

48、; & frmmain.StatusBar1.Panels(2).Text rs1.Open "lbtb", cnn, adOpenStatic, adLockOptimistic, adCmdTable If rs1.RecordCount > 0 Then rs1.MoveFirst Do While rs1.EOF = False Combo1.AddItem rs1.Fields("书籍类别") rs1.MoveNext If rs1.EOF Then Exit Do Loop End If rs1.Close clear DT1.

49、Value = Date Set DataGrid1.DataSource = Adodc2End SubSub clear() Text2.Text = ":"Text3.Text = ":"Text4.Text = ":"Text5.Text = ":"Text6.Text = ":"Text7.Text = ":"Text8.Text = ":"Text9.Text = ":"Text10.Text = ":"

50、Text11.Text = ":"Text12.Text = ":"Text13.Text = ""End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then DTPicker1.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then

51、Text3.SetFocusEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Combo1.SetFocusEnd SubPrivate Sub Text3_LostFocus() If Not IsNumeric(Text3.Text) Then Exit Sub Else MsgBox "书籍名称不能为数字", vbInformation Text3.Text = "" Text3.SetFocus

52、End IfEnd SubPrivate Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text5.SetFocusEnd SubPrivate Sub text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then DT2.SetFocusEnd SubPrivate Sub Text6_KeyDown(KeyCode As Integer, Shift As Inte

53、ger) If KeyCode = vbKeyReturn Then Text7.SetFocusEnd SubPrivate Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text8.SetFocusEnd SubPrivate Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text9.SetFocusEnd SubPrivate Sub Te

54、xt9_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text10.SetFocusEnd SubPrivate Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text11.SetFocusEnd SubPrivate Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbK

55、eyReturn Then Text12.SetFocusEnd SubPrivate Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text13.SetFocusEnd Subfrmupdate源代码Dim rs1 As New ADODB.RecordsetDim rs2 As New ADODB.RecordsetPrivate Sub combo1_Click() Adodc1.RecordSource = "select * from lbtb w

56、here 书籍类别='" & Trim(Combo1.Text) & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Text12.Text = Adodc1.Recordset.Fields(2) End IfEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text4.SetFocusEnd SubP

57、rivate Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Combo3.SetFocusEnd SubPrivate Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text14.SetFocusEnd SubPrivate Sub Command1_Click() Dim myval As String myval = MsgBox(&qu

58、ot;是否验收订单！", vbYesNo + vbOKOnly) If myval = vbYes Then cnn.Execute ("insert into rkb values('" & Text1 & "','" & DTPicker1 & "','" & Text2 & "','" & Text3 & "'," & Text4 & &

59、quot;,'" & Text5 & "','" & DTPicker2 & "','" & Text6 & "'," & Text7 & "," & Text8.Text & "," & Text9 & ",'" & Text10 & "'," & Text11 & "," & Text12 & "," & Text13 & ")") Dim rs As New ADODB.Recordset rs.Open "select * from rkb", cnn, adOpenKeyset, adLockOptimistic' If rs.RecordCount > 0 Thenrs.AddNew rs.Fields(0) = Text1.Text rs.Fields(1) = DTPicker1.Valuers.Fi