VB课程设计书店图书销售系统 2.docx

1、VB课程设计书店图书销售系统 2沈 阳 航 空 航 天 大 学 课程设计 学 号 2009040601177 班 级 94060105_ 姓 名 吕 冰_ 指导教师 徐 晗_2011年3月21日沈阳航空航天大学课程设计任务书学院： 专业： 班级：学号： 题目：书店图书销售系统一、课程设计时间200708第2学期第12周，共计2周，40学时。二、课程设计内容模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。要求：能够随时显示库存情况和销售情况。能够随时计算书店累计利润。能够随时购进新书和出售图书，册数不限。提示：在Acce

2、ss中分别创建book_in和book_out 表，用以分别存储购进图书和出售图书2方面信息。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析 4设计分析 4技术要点 5主要界面截图 8总结 10

3、完整的源程序 12参考文献 15需求分析我做的软件可以让用户随心所欲地录入、修改和增删学生通讯录信息，能够按多种方式（例如：按学号、姓名）进行查询学生信息，而且还可以连接到数据库的信息进行查询并且可以显示全部同学信息，同学信息包括省份、专业、班级、学号和姓名。本软件设计简单，界面干净利落，操作简洁，可以让用户查到的信息第一时间进入用户大脑。设计分析（1）概述： 本软件涉及到使用SQL查询数据库、应用find方法进行学生信息查询，包括姓名、学号、班级、专业等。 我的软件要应用SQL查询语言实现连接数据库对学生通讯录信息进行查询，并尽可能的让用户用起来感觉方便和舒适，在VB环境中进行编程，把自己所

4、想的内容表达出来。（2）总体设计： （3）详细设计：技术要点1. 本软件应用到了VB中的SQL语句连接数据库，如源程序中的：Private Sub Form_Load() Dim mpath$, mlink$ mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + 学生信息.mdb 在数据库文件名前插入路径 Adodc1.Con

5、nectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） Adodc1.RecordSource = Select * from student Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End Sub2. 也应用到Find方法在数据库中查询学生信息，如源程序中的：Private Sub xm_Click() Dim a As String a = InputBox(请输入姓名, 姓名查询) Adodc1.Recordset.Find

6、姓名= & a & , , , 1 按姓名查询 Text1.Visible = True: Text2.Visible = True: Text3.Visible = True: Text4.Visible = True: Text5.Visible = True Label1.Visible = True: Label2.Visible = True: Label3.Visible = True: Label4.Visible = True: Label5.Visible = True If Adodc1.Recordset.EOF Then MsgBox 无此用户！, , 提示End Su

7、bPrivate Sub xh_Click() Dim b As String b = InputBox(请输入学号, 学号查询) Adodc1.Recordset.Find 学号= & b & , , , 1 按学号查询 Text1.Visible = True: Text2.Visible = True: Text3.Visible = True: Text4.Visible = True: Text5.Visible = True Label1.Visible = True: Label2.Visible = True: Label3.Visible = True: Label4.Vis

8、ible = True: Label5.Visible = True If Adodc1.Recordset.EOF Then MsgBox 无此用户！, , 提示End Sub3. 通过使用DataGrid控件和Adodc控件把数据库连接到VB软件上。1关于数据库的连接关于数据库的连接本软件应用的是SQL语句，SQL是结构化查询语言，是操作关系型数据库的标准语言，通过SQL命令，可以从数据库的多个表中获取数据，也可以对数据进行更新操作。2 SLQ语句的应用SQL具有结构简洁、功能强大、简单易学，无论是SQL sever、sybase、oracel这些大型的数据库管理系统，还是access、v

9、isual foxpro这些桌面数据库管理系统，都支持SQL，所以我设计的软件也应用到了SQL。在录入同学信息的时候，需要VB与access表格连接，本软件就是用了SQL语句；而在查询同学信息的时候也需要连接access表格，都用到SQL语句。主要界面截图图1 进入学生通讯录 管理系统图2 学生通讯录信息录入图3按姓名查找图4 按学号查找 图5 按姓名或学号查找结果图6 显示全部同学信息总结 这次课设我的题目是设计学生通讯录管理系统，通过这次课设让我了解了VB与学生通讯录的联系，期间应用了课上老师讲到的各种知识，例如对ComboBox的List属性进行设置和对检查框的应用等以及SQL语句和fi

10、nd方法。 同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。 在课设过程中，我也遇到了各种困难，比如如何应用SQL语句进行设计VB程序，但最终我还是通过看书和与同学探讨把问题解决了，从而我明白了只有自己和大家共同努力才会有进步。 通过这次的课设学习，使我认识到自己知识的浅薄，以后应尽自己最大努力学习计算机方面的知识，丰富自己。同时，也使我深刻的认识到，无论我们做什么事都要有克服困难的精神，只有这样，我们才能突破自己的界限，获取新的天地。完整的源程序Form1：Private Sub Command1_Click Form1.Hide

11、 Form2.ShowEnd SubForm2：Private Sub Form_Load() Dim mpath$, mlink$ mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + 学生信息.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.Co

12、mmandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） Adodc1.RecordSource = Select * from student Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub tc_Click() EndEnd SubPrivate Sub txxx_Click() Form2.Hide Form4.ShowEnd SubPrivate Sub xm_Click() Dim a As String a = InputBox(请输入姓名, 姓名查询) Adodc1

13、.Recordset.Find 姓名= & a & , , , 1 按姓名查询 Text1.Visible = True: Text2.Visible = True: Text3.Visible = True: Text4.Visible = True: Text5.Visible = True Label1.Visible = True: Label2.Visible = True: Label3.Visible = True: Label4.Visible = True: Label5.Visible = True If Adodc1.Recordset.EOF Then MsgBox 无

14、此用户！, , 提示End SubPrivate Sub xh_Click() Dim b As String b = InputBox(请输入学号, 学号查询) Adodc1.Recordset.Find 学号= & b & , , , 1 按学号查询 Text1.Visible = True: Text2.Visible = True: Text3.Visible = True: Text4.Visible = True: Text5.Visible = True Label1.Visible = True: Label2.Visible = True: Label3.Visible =

15、True: Label4.Visible = True: Label5.Visible = True If Adodc1.Recordset.EOF Then MsgBox 无此用户！, , 提示End SubPrivate Sub xxlr_Click() Form2.Hide Form3.ShowEnd SubForm3：Private Sub Command1_Click() Form2.Adodc1.Recordset.AddNew Form2.Adodc1.Recordset.Fields(班级) = Text1 Form2.Adodc1.Recordset.Fields(姓名) =

16、 Text2 Form2.Adodc1.Recordset.Fields(省份) = Text3 Form2.Adodc1.Recordset.Fields(学号) = Text4 Form2.Adodc1.Recordset.Fields(专业) = Text5End SubPrivate Sub Command2_Click() Form3.Hide Form2.ShowEnd SubForm4：Private Sub Command1_Click() Form2.Show Form4.HideEnd SubPrivate Sub Form_Load() Dim mpath$, mlink

17、$ mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + 学生信息.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） Adodc1.RecordSource = Select * from student Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End Sub参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，20032 龚沛曾 杨志强 陆慰民Visual Basic程序设计教程北京：高等教育出版社，2007.3