数据库课程设计--SQLVB小型超市管理系统设计

1、1绪论11课题研究意义11.2课题研究目的22 .系统开发工具22.1 visual basic 简介22.1.1面向对象的可视化22.12事件驱动的编程机制22.1.3.提供强大的数据库访问工具22.2. sql server 2005 数据库的简介33. 可行研究和需求分析性33可行性研究33.2需求分析43.3系统层次划分43.3.1系统层次划分如图3.1所示44. 系统总体设计54注册及登录54.1注册功能及代码（图4.1） 54.1.2登录功能代码64.1.3登录界面相关功能与数据库连接的代码74.2登录后主界面功能及界面及其相关功能代码74.2.2主界面相关功能代码74.3商品信息

2、查询界面及其相关功能代码84.3.1查询商品信息功能代码94.3.2 添力口商品功能代码94.3.3删除商品信息功能代码104.3.4商品信息功能与数据库连接代码114.4销售记录查询界面及其相关功能代码124.4.1查询已销售商品信息功能代码124.4.2添加己销售商品信息功能代码134.4.3删除已销售商品信息功能代码144.4.4销售商品信息表与数据库连接代码154.5员工信息查询界面及其相关功能代码154.5.1添加员工信息功能代码154.5.2查询员信息功能代码164.5.3删除员工信息功能代码174.5.4员工信息查询功能与数据库连接的代码185. 数据设计185.1数据库中各数据

3、表的说明1851登陆表功能说明及其创建的sql代码（表5.1） 185.2商品表说明及及其创建的sql代码（表5.2） 195.1.3销售表说明及及其创建的sql代码（表5.3） 205.1.3职工表说明及及其创建的sql代码（表5.4） 216 经验与体会22参考文献231.绪论随着科学技术的不断提高，计算机科学日渐成熟,其强大的功能己为人们深刻认识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。而当今时代是飞速发展的 信息时代，各行各业都离不开信息处理。计算机的最大好处在于可以利用它进行信息 管理。使用计算机进行信息管理，不仅提高了工作效率，而且大大的提高了其安全性。 超市管理是超

4、市中不可缺少的垂要部分，超市的管理信息量繁多，包含很多信息的数 据管理。现今，大多数大型超市商场都使用计算机进行信息管理，而小型超市商店仍 然采用传统的人工管理方式，这种管理方式存在着许多缺点，如：效率低、工作量大 等，而且，随着购买者与超市数量的增长，对于超市的销售、进货、退货、交易管理 等等，使更新和维护都带来了不少的困难。本系统就是为了改变传统的超市商店这种 现状所设计的。使用计算机对超市进行管理，有着手工管理所无法比拟的优点。例如:查看迅速、 查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够使超 市管理进入科学化、正规化的轨道。1.1课题研究意义首先，该课题屈于管

5、理信息系统范畴。而管理信息系统(management information system,简称mis)在现代社会已深入到各行各业，是1个不断发展的新学科，是由人 和计算机设备或其他信息处理手段组成并用于管理信息的系统。再加上行业信息化的 热潮才刚刚开始,特别是中小型企业的信息化建设步伐刚刚迈出第1步。管理信息系 统的开发的市场将是非常庞大的。这种需求对开发人员在数量上和素质上的要求也是 非常迫切的。为了满足市场的需求以及能在竞争中取胜，系统设计人员就不仅仅是单 纯地满足用户对功能的要求，还要从设计方法上来加以改进。其次，面向对象方法是1种非常实用的软件开发方法，它一出现就受到软件技术 人员的

6、青睐，现在已经成为计算机科学研究的一个重要领域，并逐渐成为软件开发的 1种主要方法。面向对象的程序设计将数据及对数据的操作方法封装在1起，作为1 个互相依存、不可分离的整体。采用这种方法来设计系统，可以增加系统的安全性。 同时通过继承与多态性,使程序具有很高的可重用性，使软件的开发和维护带来了方 便。由于面向对彖方法的突出优点，它才被广大用户所爱好。1.2课题研究目的研究该课题是为了通过对“小型超市管理系统”的设计与实现，熟悉这类的信息管 理系统的开发原理及流程。在设计过程，能够深入地理解而向对象设计方法的优越性, 获得这些方面的相关经验。对1个即将毕业的计算机专业本科生來说,又想在软件行 业

7、领域里有所发展，研究并应用面向对象设计方法是百益无1害的，可以使其走向社会 后能够快速地适应行业需求。这正是本次设计的根本目的所在。2. 系统开发工具2.1 visual basic 简介211面向对象的可视化在visual basic6.0中，应用面向对象的程序设计方法（oop）,把程序和数据库 封装在一起视为一个对象，而且每个对象都是可视的，程序员在设计时只需用现有的 工具根据界而设计的要求，直接在“窗体”上画出诸如“按扭”、“滚动条”、“文本框"等 不同类型的对彖，并为它们设置“属性"编写“事件”代码即可，从而大大简化了设计的 复杂度。2.1.2. 事件驱动的编程机制

8、visual basic6.0通过事件驱动來执行对彖的操作。在事件驱动的程序屮，代码不 是按照预定的路径执行，而是在响应不同的事件时执行不同的代码模块。每个对象都 有一个事件集，每个事件发生都要有有相应的程序代码来响应，即要执行一段程序代 码。事件可以由用户操作触发，也可以由操作系统或其他应用程序的消息触发，甚至 可以由应用程序木身的消息触发。这些事件的顺序决定了代码执行的顺序，因此应用 程序每次运行时所经过的代码的路径是不同的。在程序设计时，不需要建立明显的开 始和结束的大块应用程序，也不需要指出先执行哪部分代码和按什么顺序执行代码， 只需编写一些针对事件的许多小的模块子程序（也称过程）。2

9、.1.3. 提供强大的数据库访问工具随着计算机技术的发展，数据库越来越显示出其强大的数据存储和数据管理能 力。为了满足人们对数据库的需要，visual basic提供了强大的数据库程序设计能力。 它不仅能管理microsoft access格式的数据库，还能访问其他外部数据库，如foxpro,paradox等格式的数据库。另外，visual basic还提供了开放式数据库连接（odbc） 功能，可以通过直接访问或建立连接的方式使用并操作后台人型网络数据库，如sql server, oracle等。在应用程序中可以使用结构化查询语言（sql）直接访问server 上的数据库，并提供简单的面向对象

10、的库操作命令、多用户数据库的加锁机制和网络 数据库的编程技术，为单机上运行的数据库提供sql网络接口，以便于在分布式环 境中快速而有效地实现客户/服务器方案。22 sql server 2005数据库的简介sql是一种标准，是一门ansi的标准计算机语言，用来访问和操作数据库系 统。sql语句用于取回和更新数据库中的数据。sql可与数据库程序协同工作，比 如 ms access、db2、informix> ms sql server> oracle> sybase 以及其他数据库系 统。sql（structured query language）,结构化查询语言。sql语言的

11、主要功能就是同 各种数据库建立联系，进行沟通。按照ansi（美国国家标准协会）的规定，sql被作 为关系型数据库管理系统的标准语言。sql语句可以用来执行各种各样的操作，例 如更新数据库屮的数据，从数据库中提取数据等。绝大多数流行的关系型数据库管理 系统都采用了 sql语言标准。虽然很多数据库都对sql语句进行了再开发和扩展， 但是包括select, insert, update, delete, create,以及drop在内的标准的sql命令仍然 可以被用来完成几乎所有的数据库操作。3. 可行研究和需求分析性软件开发最初的工作就是问题定义，也就是确定超市中要求解决的问题是什么； 做好软件定

12、义时期的工作是降低软件成木提高软件质量的关键。在软件开发的不同阶 段进行修改需要付出的代价是很不相同的，越在早期改正错误，付出的代价就越小， 了解了它的重要性之后，我明白前期工作一定要做好才能更好地提高工作效率。我把 任务超市又仔细地研究了一遍，充分明白了它的要求后，接下来作可行性研究，只有 做好可行性研究才有可能把以后的工作做好。3.1可行性研究可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解 决。可行性研究的目的不是解决问题，而是确定问题是否值得去解决。不能靠主观猜想，只能靠客观分析。首先应该近一步地分析和澄清问题定义，如果正确则进一步加以肯定，如果有错 则应立刻改正，

13、经过仔细审查，然后从三方面分析它的可行性：(1) 技术可行性(即使用现有的技术能实现这个系统吗)：vb功能强大，能用简单的方法完成复杂的问题。(2) 操作可行性(系统的操作方式在这个用户组织能行的通吗)：本系统操作简单，系统的运行不需要特定的环境。(3) 经济可行性(系统的经济效益是否能超过它的开发成本)：产生的经济效益远超过它的开发成本。3.2需求分析需求分析是软件定义时期的最后一个阶段，它的基本任务是准确地回答“系统必 须做什么''这个问题，需求分析的任务述不是确定系统怎样完成它的工作，而仅仅是 确定系统必须完成哪些工作，也就是对fi标系统提出完整、准确、清晰、具体的要求。

14、 可行性研究阶段产生的文档是需求分析的出发点。需求分析阶段系统本人仔细研究超 市管理系统应实现的功能并将它们具体化。针对般超市管理系统的需求，通过对超市管理工作过程的内容分析与本人所要 承担的任务，设计出下面的数据项和数据结构：(1) 商品信息查询：包括商品号、商品名称、单价、商品类型、库存量、厂商等信息。(2) 销售记录查询：包括销售号、销售职工号、商品号和销售时间等信息。(3) 销售员工信息表，包含的数据项有职工号、姓名、性别和用户类型等3.3系统层次划分3.3.1系统层次划分如图3.1所示小型超市管理系统商品信息查询销售记录查询销售员工信息图3. 1系统层次划分图4系统总体设计4.1注册

15、及登录该功能可以实现用户的注册和登录逐 小璧趨市后台管理小型超市管理系统登陆界面退出411注册功能及代码（图4.1）国 i小型超市管理系统登陆界面用户名李敏龙密码登录注册退出图4.1用户注册注册功能代码private sub 注册_click()if text 1.text = ” or text2.text = ,h, thenmsgbox ”用户名和密码不能为空”，16 + 4, ”警告”elsedim rs as new adodb .recordsetstrl = "select * from 登录表 where 用户名& text 1.text & ”rs.

16、open strl, cn, 1, 3rs.addnewrs(”用户名 h) = text 1.textrs(”密码m) = text2.textrs.updatemsgbox ”注册成功”,64, ”信息提示”end ifend sub4.1.2登录功能代码private sub commandl_click()strsql = "select * from 登录表 where 用户名& text 1 .text & n," & "and 密码&text2.text & rs.open strsql, cn, 1, 3if

17、 rs.eof thenmsgbox ”用户名或密码错了”, 32, ”警告”elseform5.showunload meend ifend sub4.1.3登录界面相关功能与数据库连接的代码private sub form_load()cn.connectionstring = mprovider=sqloledb. 1 integrated security=sspi;persistsecurity info=false;initial catalog=超市管理”cn.openend sub4.2登录后主界面功能及界面及其相关功能代码4.2.1登录后主界面（图4.2）图4.2登录后主界面

18、4.2.2主界面相关功能代码dim cn as new adodb.connectiondim rs as new adodb .recordset'download by private sub command 1 _click()form2.showunload meend subprivate sub command2_click()form3.showunload meend subprivate sub command3_click()form5.showunload meend subprivate sub command4_click()form4.showunload

19、meend sub4.3商品信息查询界面及其相关功能代码4.3.1查询商品信息功能代码private sub command 1 _click（）strl = "select * from 商品表 where 商品号& text 1 .text &if rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3if rs.eof thenmsgbox ”该商品不存在”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodc 1. refreshel

20、setext 1 .text = rs（h 商品号"）text2.text = rs（n 商品名称”）text3.text = rs（"库存量”）text4.text = rs（”商品类型”）text5.text = rs（m 厂商 jtext6.text = rs（n 单价”）end ifend sub4.3.2添加商品功能代码private sub command2_click（）strl = "select * from 商品表 where 商品号& text 1.text &innuniif rs.state = 1 then rs.clo

21、seend ifrs.open strl, cn, 1,3ifrs.eofthenrs.addnewts（"商品号"）=text 1 .textrs（”商品名称”）二 text2.textrsc库存量”）二 text3.textrs（”商品类型h） = text4.textrs（”厂商”）=text5.textrs（” 单价h） = text6.textrs.updatemsgbox ”数据添加成功”,64, ”信息提示”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 商

22、品表”adodc 1. refreshtextl.text=,n,text2.text 二"ntext3.text=,u,text4.text = ”tex t5.text = ”text6.text = ”elsemsgbox ”该商品已经存在了”，16, ”警告”end ifend sub4.3.3删除商品信息功能代码private sub command4_click（）dim rs as new adodb.recordsetdim rsl as new adodb.recordsetif rs.state = 1 then rs.closeend ifif rs i.sta

23、te = 1 then rsl.closeend ifrsl.open "select * from 商品表 where 商品号三"& text 1 .text & "'and 商品名称三"& text2.text &, cn, 1,3if rsl.eof thenmsgbox "没有此种商品不能删除！”elsers.open "delete 商品表 where 商品号二"& text 1 .text & and 商品名称三” &text2.text&，

24、cn, 1,3msgbox ”确定删除吗”,32 + 4, ”警告”adodcl .commandtype = adcmdtextadodcl .recordsource = "select * from 商品表”adodcl. refreshend iftextl.text=,ntext2.text = n,'text 3.text = ,h,text4.text = ,m,text5.text=,h,text6.text = ”end sub4.3.4商品信息功能与数据库连接代码private sub form_load()cn.connectionstring =&qu

25、ot;provider=sqloledb. 1 integratedsecurity=sspi;persistsecurity info=false;initial catalog二超市管理”cn.openend sub4.4销售记录查询界面及其相关功能代码4.4.1查询已销售商品信息功能代码private sub command 1 _click（）strl = "select * from 销售表 where 销售号& text 1 .text & ,nif rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3

26、ifrs.eofthenmsgbox ”该销售商品不存在”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodc 1. refreshelsetext 1.text 二 rs（”销售号”）text2.text = rs（n 职工号”）text3.text = rs（n 商品号”）text4.text = rs（”销售数量”）text6.text = rs（”销售时间”）end ifend sub4.4.2添加已销售商品信息功能代码private sub command2_click（）strl = "sele

27、ct * from 销售表 where 销售号三” & text 1.text & 心if rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3if rs.eof thenrs.addnewrs（” 销售号 h）= text 1.textts（"职工号"）=text2.textts（"商品号"）=text3.textrs（” 销售数量"）=text4.textrs（”销售时间h） = text6.textrs.updatemsgbox ”数据添加成功”,64, ”信息提示”a

28、dodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 销售表”adodc 1. refreshtext 1.text 二”text2.text = ,mtext3.text = ,mtext4.text = "ntext6.text="nelsemsgbox ”该种销售商品已经存在了”，16, ”警告”end ifend sub443删除已销售商品信息功能代码private sub command3_click()if adodc 1 .recordset.eof = false

29、 thenc = msgbox("您确认要删除该记录吗?”, 32 + 4, ”特别提示”)x 二 adodc 1 .recordset.fields(o)if c = vbyes thenstrl = "select * from 销售表 where 销售号二乂 & if rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3'adodc 1 .recordset.deleteadodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "sel

30、ect * from 销售表”adodc 1. refreshmsgbox ”销售商品的所有信息成功删除”,64, ”信息提示”adodc 1. refreshtext 1.text 二"text2.text 二"text3.text=,h,text4.text =""text6.text =""end ifelsemsgbox ”当前数据库中己经没有可删除的记录j 64警告”end ifend sub4.4.4销售商品信息表与数据库连接代码private sub form_load() cn.connectionstring = h

31、provider=sqloledb. 1 integrated security=sspi;persistsecurity info=false;initial catalog二超市管理”cn.openend sub4.5员工信息查询界面及其相关功能代码private sub command 1 _click()strl = "select * from 销售人员表 where 职工号& text 1.text &if rs.state = 1 thenrs-closeend if rs.open strl, cn, 1,3ifrs.eofthenrs.addnewr

32、s（”职工号”）=text 1 .textrsc姓名”）二 text2.textrs（”性别”）二 text3.textrs（” 用户类型h） = text4.textrs.updatemsgbox ”用户添加成功”,64, ”信息提示”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 销售人员表”adodc 1. refreshtext 1.text 二”text2.text = ,mtext3.text 二"ntext4.text 二"nelsemsgbox ”该职工已

33、经存在了”，16, ”警告”end ifend sub4.5.2查询员信息功能代码private sub command2_click（）strl = "select * from 销售人员表 where 职工号='"&text 1 .textif rs. state = 1 thenrs.closeend ifrs.open strl, cn, 1，3if rs.eof thenmsgbox ”这个职工不存在”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodcl. refres

34、helsetext 1.text 二 rs（”职工号”）text2.text = rs（n 姓名 jtext3.text = rs（h 性别”）text4.text = rs（n 用户类型“）adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodcl. refreshend ifend sub4.5.3删除员工信息功能代码private sub command4_click（）if adodc 1 .recordset.eof = false thenc = msgbox（"您确认要删除该记录吗?蔦32 + 4

35、, ”特别提示”）x = adodc 1 .recordset.fields（o）if c = vbyes thenstrl = "select * from 销售人员表 where 职工号=,xn & nn,if rs.state = 1 thenrs.closeend ifrs.open str 1, cn, 1, 3adodcl .recordset. deleteadodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 销售人员表”adodcl. refreshmsgbox

36、”职工信息成功删除”,64, ”信息提示”adodcl. refreshtext 1.text 二”text2.text = hhtext3.text 二”text4.text 二 h"end ifelsemsgbox ”当前数据库中已经没有可删除的记录”,64, ”警告”end ifend sub4.5.4员工信息查询功能与数据库连接的代码private sub form_load()cn.connectionstring = mprovider=sqloledb. 1 integrated security=sspi;persistsecurity info=false;init

37、ial catalog二超市管理”cn.openend sub5数据设计5.1数据库中各数据表的说明5.1.1登陆表功能说明及其创建的sql代码（表5.1）用户名：存放用户登录系统的用户名密码：存放用户登录系统的密码列名数据类型允许null值甬戸召char(10)密码char(10)图5. 1登陆表创建登录表的sq1代码use 超市管理goset ansi nulls ongoset quoted_identifier ongoset ansi_padding ongocreate table dbo 登录表(用户名char (10) not null,密码char (10) not null

38、)on primarygoset ansi_padding offgo512商品表说明及及其创建的sql代码（表52）商品号：系统分配给商品的唯一的标示值（主键）商品名称：用于存放商品的名称的信息单价：用于存放商品的价格的信息商品类型：用于存放商品所屈的类型信息库存量：用于存放商品的库存的信息厂商：用于存放商品的生产商家的信息列名1数据类型允许null值varchar(50)商品名称varchar(50)单价float0商品类型varchar(50)0库存量char(10)0厂商varchar(50)0表5. 2商品表创建商品表的sql代码use 超市管理goset ansi_nulls on

39、goset quoted_identifier ongoset ansi_padding ongocreate table dbo.商品表商品号varchar (50) not null,商品名称varchar (50) not null,单价float null,商品类型varchar (50) null,库存量char (10) null,厂商varchar (50) null,constraint pk_商品表primary key clustered(商品号asc)with (pad_index = off, statistics_norecompute = off, ignore_d

40、up_key =off, allow_row_locks = on, allow_page_locks = on) on primary)on primarygoset anspadding offgo5丄3销售表说明及及其创建的sql代码（表53）销售号：系统分配给所销售商品的唯一编号职工号：存放销售该商品的职工编号销售数量：存放销售商品的数量销售时间：存放销售该商品的时间列名数据类型允许null值varchar(50)职工号varchar(50)商品号varchar(50)销售数星float销售时间datetime表5. 3销售表创建销售表的sql代码use 超市管理goset ansi_nulls ongoset quoted_identifier ongoset ansi_padding ongocreate table dbo.销售表(销售号varchar (50) not null