qef[高等教育]1 VB程序设计——课程实训指导书.docVIP

Visual Basic课程实训指导书 ? 一、课程实训的意义： 1）? 学会综合运用VB有关的控件、函数和对象的知识。 2）? 学习各种数据处理控件的使用方法，掌握数据库应用程序的开发技术。 3）? 学会运用VB进行程序设计的特点和方法。 4）? 在学会运用VB进行面向对象程序设计步骤和方法的基础上，能够设计其他的实际应用系统，从而达到一定的应用程序设计水平。 二、课程实训的内容：设计并实现图书馆管理的应用程序。 三、课程实训的要求：建立一个图书馆管理数据库，包含书目表、读者表和借阅表，设计并实现图书馆管理的应用程序，要求能完成1）图书入库和图书查找及图书信息的维护2）读者登记和查找3）借阅查找，可以查找某读者借阅的全部图书4）借书和还书处理。 四、课程实训的步骤：1）、分析要解决的问题，明确管理系统的目的和系统应具备的功能，划分功能模块，并画出系统功能模块图。2）分析所管理的信息，设计数据库的结构。3）根据各程序模块的功能分别画出程序的详细流程图。4）分模块编写程序。5）程序编写完，分模块调试，各模块调试通过之后，在联起来调试，调试通过之后试运行无错误时，编译生成可执行文件。6）写出完整的课程实训报告。 五、课程实训的过程1、建立数据库1）启动数据管理器在VB集成开发环境中，单击“外接程序”/“可视化数据管理器”，打开数据管理器VisData窗口。2）新建Jet数据库①选择“文件”/“新建”②选择命令“Microsoft Access…..”/”Version 7.0MDB…”③保存，数据库名为：library.mdb3)数据表设计：书目表Book　：bookid(馆藏书号、booktype（类别）、ISBN(国际书号)、bookname（书名）、publisher(出版社)、pubdate(出版日期)、author(作者)、size(尺寸)、price(价格)、pages(页数)、stocks(库存总量)、spare(可借数量)、abstract(简介)、location(馆藏位置)。读者表reader：readerid(读者编号)、readername(读者姓名)、allownum(最多可借书数量)、borrownum((已借数量)。借阅表 borrow：readerid(读者编号)、bookid(馆藏书号)、borrowdate(借书日期)。4)建立表结构5)输入数据2、按模块编写程序1）添加标准模块conn.bas在标准模块conn.bas中定义全局connection对象变量dbconnection，作为数据库对象的活动连接，供整个工程使用。2）主窗体包括主菜单的制作和窗体加载及卸载过程的编程。主窗体加载时打开数据库连接，卸载时关闭连接，并释放对象。并释放对象。’加载主窗体private sub form_load()dbconnection.ConnectionString = provider=microsoft.jet.OLEDb.4.0;data source=d:\案例\library.mdb;persist security info=false dbconnection.Openend sub’ 卸载主窗体private sub form_unload(cancel as integer)dbconnection.closeset dbconnection=nothingend sub主菜单的结构：书目管理：包括新书登记、旧书淘汰和书目查询。 读者管理：包括读者登记和读者删除。 借书管理：包括借书、还书和借阅查询三项功能。3）书目管理①新书登记界面设计：其中图书类别用组合框表示，可以选择输入。逻辑设计：在窗体层定义变量 booksize,表示书的开本尺寸。’界面初始化Private Sub Form_Load() Cbobooktype.AddItem 哲学 Cbobooktype.AddItem 政治 Cbobooktype.AddItem 军事 Cbobooktype.AddItem 经济 Cbobooktype.AddItem 文学 Cbobooktype.AddItem 历史地理 Cbobooktype.AddItem 数理化 Cbobooktype.AddItem 工业技术 Cbobooktype.AddItem 生物化学 Cbobooktype.AddItem 其他 booksize = 16开 End Sub’改变尺寸Private Sub Optsize_Click(Index As Integer) booksize=optsize(index).Caption End Sub