vb课设报告样例

《vb课设报告样例》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、沈阳航空航天大学课程设计学号班级姓名指导教师沈阳航空工业学院课程设计任务书学院：航宇专业：工程力学班级：6403401学号：200604034020题目：书店图书销售系统一、课程设计时间2007-08第2学期第1〜2周，共计2周，40学时。二、课程设计内容模拟书店经营业务，主要指“购进图书”和“出售图书”2种业务。由于图书的出售价格高于图书的购进价格，所以系统能够计算累计利润。要求：①能够随时显示库存情况和销售情况。②能够随时计算书店累汁利润。③能够随时购进新书和出售图书，册数不限。提示：在Access中分别创建book_in和book_out表，用以分别存

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

3、购进图书”和“出售图书”2种业务。由于图书的出售价格高于图书的购进价格,所以系统能够计算累计利润。要求：①在Access中创建books表，以“购进图书”和“岀售图书”2方面信息。此表的结构应如下定义：图书编号，图书名称，出版社，购进册数，购进价格，出售册数，出售价格。①能够随时显示库存情况和销售情况。②能够随时计算书店累计利润。③能够随时购进新书和出售图书，册数不限。设计分析(1)基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。(2)总体设计：(3)详细设计:关键技术1建立与数据库的连接代码如下OptionExplicit

4、OptionBase1DimcnnAsADODB.Connection"声明变量作为连接对象DimtempsetAsADODB.Recordset"声明变量作为记录对象DimaAsSingle,bAsString,cAsString,dAsSingle,eAsSingle,fAsSingle,gAsSingle,mAsSingle,nAsString'声明变量属性PrivateSubForm_Load()Setcnn=NewADODB.Connectioncnn>ConnectionString=nProvider=MicrosofLJeLOLEDB>4>0

5、;H&_nDataSource=2031.mdbn/连接数据源cniieConnectionTimeout=30cnn.OpenEndSub2查询经营情况是SLQ语句在数据库中查找图书销售信息Select＜字段名表〉Fromv表名＞Wherev条件〉程序段如下：PrivateSubCommandl_Click()Dimsqlstr$厶声明变量m=Val(TextLText)Settempset=NewADODB.RecordsettempsetCursorTj^pe=adOpenKeysettempset.LockType=adLockOptimistic'

6、定义记录集属性，包括名，光标属性，锁类型sqlstr="SELECT图书名称，出版社，购进册数，购进单价,出售价格，出售册数FROM图书WHERE图书编号=”&m'进入数据表的途径tempseLOpensqlstr,cnn,,,adCmdUnknownIfNottempset.EOFThenb=tempset!图书名称c=tempset!出版社d=tempset!出售价格e=tempset!出售册数a=tempset!购进册数f=tempset!购进单价"将变量赋予数据库相应值tempset.MoveNextText2.Text=bText3.Text=cT

7、ext4.Text=aText5.Text=fText6.Text=eText7.Text=dText8・Text二a・eText9.Text=(a-e)(d-0'将变量值和公式值写入文本框中EndIftempset.Close"关闭记录集EndSub窗体•查询：iiLForml-Inlxi利润查询购进閣书3销售图书是更改数据库中图书信息Update＜表名〉Setv字段：＞=v表达式＞[，v字段＞=v表达式＞]Wherev条件〉程序段如下：PrivateSubCommand3_Click()DimcheshuAsInteger,sqlstrAsStringD

8、imiAsSingle，声明变量属性m=Val(Te