ImageVerifierCode 换一换
格式:DOCX , 页数:35 ,大小:1,017.89KB ,
资源ID:8946331      下载积分:10 金币
快捷注册下载
登录下载
邮箱/手机:
温馨提示:
快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。 如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

开通VIP
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.zixin.com.cn/docdown/8946331.html】到电脑端继续下载(重复下载【60天内】不扣币)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  

开通VIP折扣优惠下载文档

            查看会员权益                  [ 下载后找不到文档?]

填表反馈(24小时):  下载求助     关注领币    退款申请

开具发票请登录PC端进行申请

   平台协调中心        【在线客服】        免费申请共赢上传

权利声明

1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前可先查看【教您几个在下载文档中可以更好的避免被坑】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时联系平台进行协调解决,联系【微信客服】、【QQ客服】,若有其他问题请点击或扫码反馈【服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【版权申诉】”,意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:0574-28810668;投诉电话:18658249818。

注意事项

本文(超市管理系统课程设计.docx)为本站上传会员【xrp****65】主动上传,咨信网仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知咨信网(发送邮件至1219186828@qq.com、拔打电话4009-655-100或【 微信客服】、【 QQ客服】),核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载【60天内】不扣币。 服务填表

超市管理系统课程设计.docx

1、 题目:_小型超市管理系统____ 作 者 姓 名: 学 号:     系(院)、专业: 指导教师姓名:      2012 年 月 日 目 录 第1章 设计目的与要求 1 1.1设计背景和功能 1 1.2 设计环境 1 第2章 系统分析 2 2.1 需求分析 2 2.1.1 组织结构分析 2 2.1.2 业务流程分析 2 2.2 数据流图 3 2.3 数据字典

2、 4 第3章 系统设计 7 3.1 功能模块设计 7 3.2 数据库设计 9 3.2.1 概念结构设计 9 3.2.2 逻辑结构设计 11 第4章 系统实施 14 4.1注册及登录 14 4.1.1注册功能及代码(图4.1) 一五 4.1.2登录功能代码 16 4.1.3登录界面相关功能与数据库连接的代码 16 4.2登录后主界面功能及界面及其相关功能代码 16 4.2.2主界面相关功能代码 17 4.3商品信息查询界面及其相关功能代码 18 4.3.1查询商品信息功能代码 一八 4.3.2添加商品功能代码 19 4.3.3删除商品信息功能代码 20 4.3.

3、4商品信息功能与数据库连接代码 21 4.4销售记录查询界面及其相关功能代码 21 4.4.1查询已销售商品信息功能代码 22 4.4.2添加已销售商品信息功能代码 22 4.4.3删除已销售商品信息功能代码 23 4.4.4销售商品信息表与数据库连接代码 24 4.5员工信息查询界面及其相关功能代码 25 4.5.1添加员工信息功能代码 25 4.5.2查询员信息功能代码 26 4.5.3删除员工信息功能代码 27 4.5.4员工信息查询功能与数据库连接的代码 27 第五章 数据设计 28 5.1数据库中各数据表的说明 28 5.1.1登陆表功能说明及其创建的SQ

4、L代码(表5.1) 28 5.1.2商品表说明及及其创建的SQL代码(表5.2) 28 5.1.3销售表说明及及其创建的SQL代码(表5.3) 30 5.1.3职工表说明及及其创建的SQL代码(表5.4) 31 第六章 经验与体会 33 参考文献 33 第1章 设计目的与要求 1.1设计背景和功能 超市管理系统是市场上最流行的超市上常用的系统之一,它主要包含以下几个模块:用户登陆管理、商品类型及商品的管理、进货和销售的管理、销售分析等。从而,实现对进货、销售及员工信息等实现全面、动态、及时的管理。随着超市规模的发展和不断扩大,商品数量急剧增加,有关商品的各种信息量也

5、成倍增长。超市时时刻刻都需要对商品各种信息进行统计分析。而大型的超市管理系统功能过于强大而造成操作繁琐降低了小超市的工作效率。 小型超市管理系统按分类、分级的模式对仓库进行全面的管理和监控缩短了超市信息流转时间,使企业的物资管理层次分明、井然有序,为采购、销售提供依据,智能化的预警功能可以自动提示存货短缺、超储等异常状况;系统还可进行材料超市ABC分类汇总,减少资金积压。完善的小型超市管理功能,可对企业的存货进行全面的控制和管理,降低超市成本,增强企业的市场竞争力。 1.2设计环境 硬件环境:1.一台Pentium 4 cpu以上的计算机 软件环境: 1.WINDOWS xp操作系统

6、 2.Visual Basic6.0应用程序 3.SQL SERVER 2000应用程序 第2章 系统分析 2.2 需求分析 2.2.1 组织结构分析 小型超市分为销售部,库存管理部,财务部,人事部四个主要部门,超市的决策权和管理权归超市经营者拥有,超市的每个部门的管理都有专职人员负责。 小型超市管理系统的组织结构的描述如图2-1所示: 超市经营者 销售部 库存管理部 财务部 人事部 图 2-1组织结构图 组织功能表如图2-2所示: 登录界面 用户输入正确的用户名和相对应的密码即可进入,否则退出 系统维护 主要用于实现系统用户

7、设置、操作人员管理、密码修改 采购管理 主要用于实现采购数据和采购单查询、采购统计单查询 库存管理 主要用于实现商品出库、入库的添加修改,商品出库、入库的查询 销售管理 主要用于实现销售数据记录、客户退货记录和销售、退货信息查询 其他设置 主要用于实现员工管理,供应商的设置,省份的设置,商品的种类 报表 主要用于实现库存的盘点、销售的信息、供应商信息 图2-2 组织功能表 2.2.2 业务流程分析 超市管理系统工作流程为:登录系统后,超市管理员可对系统相关信息进行操作,包括商品基本信息、供应商信息、销售信息、库存信息、进货信息等过程进行管理。 本系统的业务流程图如图

8、2-3所示: 厂商 商品信息 营业员 订货信息 购买信息 顾客 销售信息 用户信息(员工) 商品信息 库存信息 超市管理员 图2-3 业务流程图 2.3 数据流图 数据流程图主要反映的是小型超市管理系统中各项功能模块之间的数据流程和简单的数据处理、加工过程和方法,为系统的设计打下基础。超市管理系统的数据流程:首先由系统管理员根据不同用户的需要将信息保存到数据库中,然后再进行发布。用户可以对这些库信息进行查询、添加、修改和删除处理。通过对本系统的需求分析,系统的基本功能已经确定。整个流程图如图2-4所示: 厂商 总经理 顾客 超 市

9、 管 理 系 统 总经理 F1商品信息 F5进货信息 F4库存信息 F3销售额信息 F1商品信息 F2用户信息 F6购买信息 图2-4 数据流图 2.4 数据字典 数据字典是关于数据的信息的集合,也就是对数据流图中包含的所有元素的定义的集合。数据流图和数据字典共同构成系统的逻辑模型。 1、数据字典列表——数据存储 数据名称 :管理员信息 简 述:用户注册填写的信息 数据来源:用户注册填写 数据去向:用户信息表 数据组成:管理员信息=管理信息唯一标识+管理员帐号+管理员密码+管理员权限+注册时间 描述:存储了管理员的基本信息 数据存

10、储名称:商品信息 简述:管理员填写的商品信息 数据来源: 管理员填写 数据去向:商品信息表 数据组成:商品信息=商品信息唯一标识+货物名称+供货编号+进价+售价+数量+厂商等 描述:存储了商品信息 数据存储名称:库存信息 简述:管理员填写的库存信息 数据来源: 管理员填写 数据去向:库存信息表 数据组成:库存信息=库存信息唯一标识+商品名称+价格+数量+添加时间+单位+编号等 描述:存储了库存信息 数据存储名称:销售信息 简述:管理员填写的商品销售信息 数据来源: 管理员填写 数据去向:销售信息表 数据组成:销售信息=销售信息唯一标识+货物名称+数量+价

11、格+时间等 描述:存储了销售详细信息 第3章 系统设计 系统设计的任务就是依据系统分析文档资料,采用正确的方法来确定系统各功能模块在计算机内应该由哪些程序组成,它们之间用什么方式联结在一起以构成一个最好的系统机内结构,同时还要使用一定的工具将所设计的成果表达出来,另外考虑到实现系统功能的需要,还要进行数据库的详细设计、编码设计、输入/输出界面设计等等 。 3.1 功能模块设计 根据系统功能分析,可以画出系统的功能模块图,从管理员界面对功能模块图加以描述。如图3-1所示: 系统管理 销售管理 库存管理 进货管理 供货商管理 基础信息 小型超市管理系统统 用户管理

12、 系统备份 系统维护 用户修改 商品信息 供应商信息 员工信息 销售查询 销售添加 销售报表 销售查询 库存查询 进货查询 进货报表 进货管理 供应商修改 供应商查询 图3-1 功能模块图 (1)系统维护模块 系统维护模块用于实现对用户的添加、修改、删除以及操作人员管理、密码修改。 (2)其他设置 其他设置主要用于实现员工的添加、修改、查询以及管理,供应商的设置,省份的设置,商品的种类。 3.2 数据库设计 3.2.1 概念结构设计 概念结构设计是整个数据库设计的关键,它能通过对需求进行综合,归纳与抽象,形成一个独立于具体

13、DBMS的概念模型,既E-R图如图所示: 密码表 用户名 类型 密码 图3-2管理员实体的E-R图 商品信息 商品编号 生产厂家 单价 种类 库存量 进货量 保质期 名称 图3-3商品信息的E-R图 供应商信息 商品编号 厂名 联系方式 省份 图3-4供应商实体的E-R图 入库表 商品编号 分类编码 入库时间 数量 商品厂家 图3-5仓库的E-R图 供货商号 厂名 商品编号

14、 供应商 联系方式 数量 商品 数量 商品编号 商品名称 保质期 单价 数量 客户 日期 仓库 编号 商品名称 库存量 n n n n 1 名称 类型 种类 网址 销售 存放 供应 商品名称 销售表 图3-6各个实体之间的联系图 3.2.2 逻辑结构设计 逻辑设计的任务是根据DBMS的特征把概念结构转换为相应的逻辑结构。概念设计所得到的E-R模型,是独立于DBMS的,这里的转换就是把表示概念结构的E-R图转换成关系模型的逻辑结构。将图转换为规范的关系模式为: 密码表(用户名,密码,类型

15、 员工表(员工编号,员工姓名,性别,职务,联系方式,家庭住址) 生产厂家表(供应商号,省份,厂名,联系方式,网址) 商品表(商品编号,商品名称,种类,单价,单位,净含量,库存量,保质期,生产时间,生产省份,生产厂家) 采购表(供货商号,商品编号,进货日期,商品名称,验收员,进货价,数量,金额) 入库表(商品编号,入库时间,商品厂家,数量) 销售表(商品编号,客户编号,销售日期,数量,商品名称,业务员,金额) 退货表(商品编号,商品名称,生产厂家,退货日期,退货数量,制单人,业务员,金额,客户编号) 将各实体内容的数据类型生成数据库如图5.3所示: 表3-7 密码表 字段名

16、 字段类型 字段宽度 说明 username Char 6 用户名 password1 Char 6 密码 leixing Char 6 类型 表3-8商品表 字段名 字段类型 字段宽度 说明 spbh Char 20 商品编号 spmc Char 20 商品名称 zl Char 10 种类 dw Char 10 单位 dj Int 4 单价 jhl Int 4 净含量 kcl Int 4 库存量 bzq Int 4 保质期 scsj Datetime 8 生产时间 scsf

17、 Char 20 生产省份 sccj Char 50 生产厂家 表3-9员工表 字段名 字段类型 字段宽度 说明 ygbh Char 6 员工编号 ygxm Char 6 员工姓名 xb Char 6 性别 zw Char 6 职务 lxfs Char 10 联系方式 jtzz Char 20 家庭住址 表3-10采购表 字段名 字段类型 字段宽度 说明 spbh Char 6 商品编号 ghsh Char 6 供货商号 jhrq Money 4 进货日期 spmc Char

18、10 商品名称 ysy Char 20 验收员 jhj Int 4 进货价 sl Char 4 数量 je Datetime 8 金额 表3-11销售表 字段名 字段类型 字段宽度 说明 spbh Char 6 商品编号 khbh Char 6 客户编号 xsrq Datetime 8 销售日期 xssl Int 4 销售数量 spmc Char 10 商品名称 ywy Char 10 业务员 zdr Char 10 制单人 je Char 6 金额

19、表3-12生产厂家表 字段名 字段类型 字段宽度 说明 ghsh Char 8 供应商号 sf Char 40 省份 cm Char 50 厂名 lxfs Char 20 联系方式 wz Char 20 网址 表3-一三 入库表 字段名 字段类型 字段宽度 说明 spbh Char 6 商品编号 rksj Datetime 8 入库时间 spcj Char 50 商品厂家 sl Int 4 数量 第四章.系统实施 4.1注册及登录 该功能可以实现用户的注册和登录 4.1.1注册功能及代

20、码(图4.1) 图4.1 用户注册 注册功能代码 Private Sub 注册_Click() If Text1.Text = "" Or Text2.Text = "" Then MsgBox "用户名和密码不能为空", 16 + 4, "警告" Else Dim rs As New ADODB.Recordset str1 = "select * from 登录表 where 用户名='" & Text1.Text & "'" rs.Open str1, cn, 1, 3 rs.AddNew rs("用户名") = Text1.Text rs("密码") = T

21、ext2.Text rs.Update MsgBox "注册成功", 64, "信息提示" End If End Sub 4.1.2登录功能代码 Private Sub Command1_Click() strsql = "select * from 登录表 where 用户名='" & Text1.Text & "'" & "and 密码='" & Text2.Text & "'" rs.Open strsql, cn, 1, 3 If rs.EOF Then MsgBox "用户名或密码错了", 32, "警告" Else Form5.Show Unload Me

22、 End If End Sub 4.1.3登录界面相关功能与数据库连接的代码 Private Sub Form_Load() cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理" cn.Open End Sub 4.2登录后主界面功能及界面及其相关功能代码 4.2.1登录后主界面(图4.2) 图4.2 登录后主界面 4.2.2主界面相关功能代码 Dim cn As New ADODB.

23、Connection Dim rs As New ADODB.Recordset 'Download by Private Sub Command1_Click() Form2.Show Unload Me End Sub Private Sub Command2_Click() Form3.Show Unload Me End Sub Private Sub Command3_Click() Form5.Show Unload Me End Sub Private Sub Command4_Click() Form4.Show Unload Me End

24、 Sub 4.3商品信息查询界面及其相关功能代码 4.3.1查询商品信息功能代码 Private Sub Command1_Click() str1 = "select * from 商品表 where 商品号='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 If rs.EOF Then MsgBox "该商品不存在" Adodc1xmandType = adCmdText Adodc1.RecordSource = str1 Adodc1

25、Refresh Else Text1.Text = rs("商品号") Text2.Text = rs("商品名称") Text3.Text = rs("库存量") Text4.Text = rs("商品类型") Text5.Text = rs("厂商") Text6.Text = rs("单价") End If End Sub 4.3.2添加商品功能代码 Private Sub Command2_Click() str1 = "select * from 商品表 where 商品号='" & Text1.Text & "'" If rs.State = 1

26、Then rs.Close End If rs.Open str1, cn, 1, 3 If rs.EOF Then rs.AddNew rs("商品号") = Text1.Text rs("商品名称") = Text2.Text rs("库存量") = Text3.Text rs("商品类型") = Text4.Text rs("厂商") = Text5.Text rs("单价") = Text6.Text rs.Update MsgBox "数据添加成功", 64, "信息提示" Adodc1xmandType = ad

27、CmdText Adodc1.RecordSource = "select * from 商品表" Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Else MsgBox "该商品已经存在了", 16, "警告" End If End Sub 4.3.3删除商品信息功能代码 P

28、rivate Sub Command4_Click() Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset If rs.State = 1 Then rs.Close End If If rs1.State = 1 Then rs1.Close End If rs1.Open "select * from 商品表 where 商品号='" & Text1.Text & "'and 商品名称='" & Text2.Text & "'", cn, 1, 3 If rs1.EOF Then MsgBox

29、"没有此种商品不能删除!" Else rs.Open "delete 商品表 where 商品号='" & Text1.Text & "' and 商品名称='" & Text2.Text & "'", cn, 1, 3 MsgBox "确定删除吗", 32 + 4, "警告" Adodc1xmandType = adCmdText Adodc1.RecordSource = "select * from 商品表" Adodc1.Refresh End If Text1.Text = "" Text2.Text =

30、 "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub 4.3.4商品信息功能与数据库连接代码 Private Sub Form_Load() cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理" cn.Open End Sub 4.4

31、销售记录查询界面及其相关功能代码 4.4.1查询已销售商品信息功能代码 Private Sub Command1_Click() str1 = "select * from 销售表 where 销售号='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 If rs.EOF Then MsgBox "该销售商品不存在" Adodc1xmandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Ref

32、resh Else Text1.Text = rs("销售号") Text2.Text = rs("职工号") Text3.Text = rs("商品号") Text4.Text = rs("销售数量") Text6.Text = rs("销售时间") End If End Sub 4.4.2添加已销售商品信息功能代码 Private Sub Command2_Click() str1 = "select * from 销售表 where 销售号='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End I

33、f rs.Open str1, cn, 1, 3 If rs.EOF Then rs.AddNew rs("销售号") = Text1.Text rs("职工号") = Text2.Text rs("商品号") = Text3.Text rs("销售数量") = Text4.Text rs("销售时间") = Text6.Text rs.Update MsgBox "数据添加成功", 64, "信息提示" Adodc1xmandType = adCmdText Adodc1.RecordSource = "select * fro

34、m 销售表" Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text6.Text = "" Else MsgBox "该种销售商品已经存在了", 16, "警告" End If End Sub 4.4.3删除已销售商品信息功能代码 Private Sub Command3_Click() If Adodc1.Recordset.EOF = False Then

35、 c = MsgBox("您确认要删除该记录吗?", 32 + 4, "特别提示") X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = "select * from 销售表 where 销售号='x" & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 'Adodc1.Records

36、et.Delete Adodc1xmandType = adCmdText Adodc1.RecordSource = "select * from 销售表" Adodc1.Refresh MsgBox "销售商品的所有信息成功删除", 64, "信息提示" Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" T

37、ext6.Text = "" End If Else MsgBox "当前数据库中已经没有可删除的记录", 64, "警告" End If End Sub 4.4.4销售商品信息表与数据库连接代码 Private Sub Form_Load() cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理" cn.Open End Sub 4.5员工信息查

38、询界面及其相关功能代码 4.5.1添加员工信息功能代码 Private Sub Command1_Click() str1 = "select * from 销售人员表 where 职工号='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 If rs.EOF Then rs.AddNew rs("职工号") = Text1.Text rs("姓名") = Text2.Text rs("性别") = Text3.Text rs("用户

39、类型") = Text4.Text rs.Update MsgBox "用户添加成功", 64, "信息提示" Adodc1xmandType = adCmdText Adodc1.RecordSource = "select * from 销售人员表" Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Else MsgBox "该职工已经存在了", 16, "警告"

40、End If End Sub 4.5.2查询员信息功能代码 Private Sub Command2_Click() str1 = "select * from 销售人员表 where 职工号='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 If rs.EOF Then MsgBox "这个职工不存在" Adodc1xmandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh

41、 Else Text1.Text = rs("职工号") Text2.Text = rs("姓名") Text3.Text = rs("性别") Text4.Text = rs("用户类型") Adodc1xmandType = adCmdText Adodc1.RecordSource = str1 Adodc1.Refresh End If End Sub 4.5.3删除员工信息功能代码 Private Sub Command4_Click() If Adodc1.Recordset.EOF = False Then c = Msg

42、Box("您确认要删除该记录吗?", 32 + 4, "特别提示") X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = "select * from 销售人员表 where 职工号='x" & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 Adodc1.Recordset.Delete

43、 Adodc1xmandType = adCmdText Adodc1.RecordSource = "select * from 销售人员表" Adodc1.Refresh MsgBox "职工信息成功删除", 64, "信息提示" Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End If Els

44、e MsgBox "当前数据库中已经没有可删除的记录", 64, "警告" End If End Sub 4.5.4员工信息查询功能与数据库连接的代码 Private Sub Form_Load() cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理" cn.Open End Sub 第五章.数据设计 5.1数据库中各数据表的说明 5.1.1登陆表功能说明及其创建的SQ

45、L代码(表5.1) 用户名:存放用户登录系统的用户名 密 码:存放用户登录系统的密码 图5.1 登陆表 创建登录表的SQl代码 USE [超市管理] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[登录表]( [用户名] [char](10) NOT NULL, [密码] [char](10) NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO 5.1.2

46、商品表说明及及其创建的SQL代码(表5.2) 商品号:系统分配给商品的唯一的标示值(主键) 商品名称:用于存放商品的名称的信息 单价:用于存放商品的价格的信息 商品类型:用于存放商品所属的类型信息 库存量:用于存放商品的库存的信息 厂商:用于存放商品的生产商家的信息 表5.2 商品表 创建商品表的SQL代码 USE [超市管理] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[商品表]( [商品号] [varch

47、ar](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_DUP_KEY = OFF, ALLOW_ROW_

48、LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO 5.1.3销售表说明及及其创建的SQL代码(表5.3) 销售号:系统分配给所销售商品的唯一编号 职工号:存放销售该商品的职工编号 销售数量:存放销售商品的数量 销售时间:存放销售该商品的时间 表5.3 销售表 创建销售表的SQL代码 USE [超市管理] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_

49、PADDING ON GO CREATE TABLE [dbo].[销售表]( [销售号] [varchar](50) NOT NULL, [职工号] [varchar](50) NOT NULL, [商品号] [varchar](50) NOT NULL, [销售数量] [float] NOT NULL, [销售时间] [datetime] NOT NULL, CONSTRAINT [PK_销售表] PRIMARY KEY CLUSTERED ( [销售号] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO 5.1.3职工表说明及及其创建的SQL代码(表5.4) 职工号:存放职工编号信息 姓名:存放职工的姓名 性别:存放职工的性别信息 用户类型:存放职工所属的类型 职工表(表5.4) 创建职工表的SQL代码 USE [超市管理] GO

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2026 宁波自信网络信息技术有限公司  版权所有

客服电话:0574-28810668  投诉电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服