vb开发小 型 书 店 管 理 系 统

《vb开发小 型 书 店 管 理 系 统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、某某学院计算机科学与技术系课程设计报告课程名SQLServer2005数据库管理与开发教程设计题目小型书店管理系统班级08级本科(2)班专业计算机科学与技术姓名张世俊指导教师孙海霞2011年6月16日制一．设计任务1.利用VisualBasic6.0和microsoftSQLserver2005建立“小型书店管理系统”2.查询购买书的数量超过10本的客户信息。3.按照输入图书名称和购买的月份，来查询该图书当月销售情况（总数量，总金额）任务分配：何洋洋负责小型书店管理系统需求分析、逻辑结构设计(ER图)。洪锐负责图书管理系统功能结构图设计。11万磊负责图书管理系统物理结构设计

2、(创建数据库)。张世俊负责图书管理系统的VB界面与代码设计，并完成测试二．完成任务的思路、方法与算法：首先完成“小型图书管理系统”的需求分析，在此基础上完成E-R模型设计，再次设计数据库，完成系统数据库的物理结构设计，建立相应的数据库；然后使用VB连接数据库，设计登录界面、主界面、以及系统主要功能界面，最后编写代码完成系统设计要求，并作测试、最总完成整个图书管理系统设计三．程序框图：1.系统功能结构图：2.系统E-R图：该图书管理系统的E-R图如下所示：11四．核心程序（对主要的语句要加注释)1.登陆界面代码：PublicFunctionconn()AsADODB.Conn

3、ectionOnErrorGoTo111Setconn=NewADODB.Connectionconn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=小型书店管理系统;DataSource=F301-63"ExitFunction1:MsgBoxErr.DescriptionEndEndFunctionPrivateSubCommand1_Click()IfTrim(Text1.Text)<>""AndTrim(Text2.Text)<>""

4、ThenDimrsAsNewRecordsetrs.Open"selectusernamefromtb_userwhereusername='"&Me.Text1&"'andpassword='"&Me.Text2&"'",conn,adOpenKeyset,adLockOptimisticIfNotrs.EOFThenFrm_Main.ShowUnloadMeElseMsgBox"用户名或密码不正确",vbCriticalEndIfrs.CloseSetrs=NothingElseMsgBox"请输入用户名和密码",vbCriticalEndIfEndSubPrivate

5、SubCommand2_Click()UnloadMe'卸载当前窗体EndSub2.主窗体代码：PrivateSubabout_Click()DimabAsNewFrm_aboutab.ShowEndSubPrivateSubadd_tsinfo_Click()DimadAsNewFrm_addbookinfoad.ShowEndSubPrivateSubde_tsinfo_Click()DimdeAsNewFrm_deletebookinfode.Show11EndSubPrivateSubExit_Click()UnloadMeEndSubPrivateSubgs10_

6、Click()Dimgs10AsNewFrm_gmcg10gs10.ShowEndSubPrivateSubmodify_tsinfo_Click()DimmmAsNewFrm_modifybookinfomm.ShowEndSubPrivateSubsearch_gmzinfo_Click()DimsgzAsNewFrm_searchgmzinfosgz.ShowEndSubPrivateSubsearch_monthxs_Click()DimsmxAsNewFrm_searchmonthxssmx.ShowEndSubPrivateSubsearch_tsinfo_Cl

7、ick()DimssAsNewFrm_searchinfoss.ShowEndSubPrivateSubsearch_xsinfo_Click()DimsxAsNewFrm_searchxsinfosx.ShowEndSub112.个子窗体代码：DimconAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCommand1_Click()DimdAsDoubled=Text3.Textrs.AddNewrs.Fields("图书编号")=Text1.Te