VB6.0课程设计采购管理系统.doc
课程设计任务书学 院信息科学与工程学院专 业计算机科学与技术学 生 姓 名学 号设 计 题 目采购管理系统内容及要求：内容：利用VB6.0及SQL Server2000自行设计一个采购管理系统，数据库里至少包括3个表：用户表、采购管理表表、退货管理表。用户表用于记录用于登录系统的用户名及密码；采购管理表用于记录采购的商品的基本信息；退货管理表用于记录职退货的商品的基本信息。要求：1.进货管理：对进货进行管理。包括编号、供货商号、进货日期、进货单号、进货数量、进价仓库等。2.退货管理：用于录入企业退货单。包括编号、商品名称、退货日期、退货数量、退货原因。3.历史查询：用于查询商品的采购历史，如按供货商、日期、商品编号查询。4.用户的登录和注册功能：5.打印报表，显示退货的情况。包括商品名称、退货日期、退货数量、退货原因。进度安排：第19周：系统需求分析，设计E-R图数据库设计和模块设计进行软件编码设计，实现各模块功能第20周：继续完成软件设计，调试与完善系统的各项功能书写课程设计报告。验收程序，答辩。指导教师（签字）：年 月 日学院院长（签字）：年 月 日目 录第1章 系统功能概述.21.1 系统功能.21.2 系统层次图.2第2章 数据库设计.32.1 需求分析.32.2 E-R模型.32.3 关系模型.42.4 表结构设计.4第3章 系统各功能模块的详细设计63.1 系统界面.63.2 主窗体界面.63.3 登录模块.73.4 文件模块.83.5 数据管理模块.103.6 数据查询模块.133.7 打印报表模块.14第4章 课设总结.15参考文献.15第1章 系统功能概述1.1 系统功能采购管理系统是针对系统服务对象的具体要求设计的，其主要任务是用计算机对商场采购的货物进行登记、查询、删除等操作以及对退货进行记录、生成报表等操作。本系统运用VB 6.0及SQL Server2000实现，主要设计了以下几大功能：(1)按某字段对采购商品信息的录入、浏览及删除。(2)按某字段对退货商品信息的录入、浏览及删除。(3)按查询条件对入库的商品进行查询。(4)利用DataReport设计器实现对退货信息的打印报表的生成。1.2 系统层次图采购管理系统用户管理数据管理数据查询打印报表注册用户退出 进货管理 退货管理退货情况查询工资信息图1.1系统层次图第2章 数据库设计2.1 需求分析本系统运用VB 6.0及SQL Server2000实现，拥有1个登录窗体、1个主窗体、9个子窗体、1个数据环境设计器及1个数据报表设计器。登录窗体里可以由单击事件调用注册窗体，登录成功后进入主窗体，主窗体有4个主菜单：用户管理、数据管理、数据查询、打印报表。1. 用户管理：用户管理包括注册新用户及退出2项子菜单。2. 数据管理：数据管理有2个子菜单，可实现进货管理，退货管理功能。3. 数据查询：数据查询中应用了DataGrid控件，用来根据查询条件查询进货商品信息。4. 打印报表：打印报表调用DataReport设计器，实现对退货信息的打印预览。本系统在SQL Server2000数据库里设计了3个数据表：用户表：(用户名，密码) 用于记录注册过的用户名及密码进货管理表：(编号，供货商号，进货日期，进货数量，进价，仓库)退货管理表：(编号，商品名称，退货日期，退货数量，退货原因)2.2 E-R模型1.用户实体：密码用户名用户图2.1 用户实体及其属性2.进货商品实体与退货商品实体的E-R模型：进货商品仓库进价供货商号编号进货数量进货日期 图2.2进货商品实体的E-R模型 退货商品退货原因退货数量商品名称编号退货日期图2.3退货商品实体的E-R模型2.3 关系模型本系统设计了3个实体，用户实体，进货商品实体，退货商品实体，三个实体是相对独立的，相互之间不存在联系。因此可将本系统的E-R模型转化为下述关系模型：用户：(用户名，密码) 职工：(编号，供货商号，进货日期，进货数量，进价，仓库)工资：(编号，商品名称，退货日期，退货数量，退货原因)2.4 表结构设计本系统在SQL Server2000数据库里共设计了3个数据表来记录数据：用户表，进货管理表，退货管理表。1.用户表：表2.1用户表的结构列名数据类型长度约束用户名char10主键密码char6不为空2.进货管理表：表2.2 进货管理表的结构列名数据类型长度约束编号char10主键供货商号char10不为空进货数量int4不为空进货日期datetime8不为空进价float8不为空仓库char10不为空3.退货管理表：表2.3 退货管理表的结构列名数据类型长度约束编号char10主键商品名称varchar50允许空退货日期datatime8不为空退货数量int4不为空退货原因varchar50允许空第3章 系统各功能模块的详细设计3.1 系统界面设计背景图片和欢迎文字，单击“进入系统”会弹出用户登录窗口。图3.1 系统界面3.2 主窗体界面主窗体设计了四个主菜单：用户管理，数据管理，数据查询，打印报表。用户管理可以实现注册新用户；数据管理可对数据库里的信息进行浏览、录入；数据查询可按某个字段查询数据；打印报表实现对数据的打印预览。图3.2 系统主窗体3.3 登录模块在正确输入用户表里的用户名以及对应的密码后，点击“登录”，才能进入主窗体，否则会提示相关的警告信息；按“取消”则退回系统界面。图3.3 用户登录窗体Private Sub CommandLand_Click()Dim sqlstr As StringIf Text1 = "" Then MsgBox "请输入用户名！", vbExclamation, "确认用户名" Text1.SetFocus Exit SubElsesqlstr = "select * from 用户表 where 用户名='" & Text1 & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then MsgBox "用户名不存在，请重新输入", vbExclamation, "警告" Text1.Text = "" Text1.SetFocusElse If Adodc1.Recordset.Fields("密码") = Text2 Then Form3.Show Form3.Label2.Caption = Adodc1.Recordset.Fields("用户名") Unload Me Else MsgBox "密码错误，请重新输入", vbExclamation, "警告" Text2.Text = "" Text2.SetFocus End IfEnd IfEnd IfEnd SubPrivate Sub CommandCancel_Click()Unload MeForm1.ShowEnd Sub3.4 文件模块3.4.1 用户注册本模块提供用户注册功能，并把文本框里的用户名、密码录入用户表里。图3.4 用户注册窗体Private Sub CommandOK_Click()Dim sqlstr As StringIf Text1 = "" Then MsgBox "请输入用户名！", vbExclamation, "确认用户名" Text1.SetFocus Exit SubElse sqlstr = "select * from 用户表 where 用户名= '" & Text1 & "'" Adodc1.RecordSource = sqlstr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox "用户已存在，请重新输入！", vbExclamation, "检验用户名" Text1 = "" Text1.SetFocus Exit SubEnd IfEnd IfIf Text2 <> Text3 Then MsgBox "两次输入的密码不一致，请重新输入", vbExclamation, "检验密码" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Trim(Text1) Adodc1.Recordset.Fields("密码") = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox "成功注册新用户！", vbInformation, "添加用户"End IfUnload MeForm2.ShowEnd Sub3.5 数据管理模块 (以进货管理模块为例)本模块可对进货信息表进行进货商品的录入，删除，浏览等操作，也可以生成进货信息的详细信息以表格形式浏览。图3.5 进货管理窗体Private Sub cmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled = Falsecmddel.Enabled = Falsecmdok.Enabled = Truecmdesc.Enabled = TrueText1.SetFocusLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmddel_Click()x = MsgBox("确定要删除当前记录吗?", vbYesNo + vbQuestion, "确认")If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfElseAdodc1.RefreshEnd IfLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdesc_Click()Adodc1.Refreshcmdadd.Enabled = Truecmddel.Enabled = Truecmdok.Enabled = Falsecmdesc.Enabled = FalseLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdfirst_Click()Adodc1.Recordset.MoveFirstcmdfirst.Enabled = Falsecmdpre.Enabled = Falsecmdnext.Enabled = Truecmdlast.Enabled = TrueLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdlast_Click()Adodc1.Recordset.MoveLastcmdfirst.Enabled = Truecmdpre.Enabled = Truecmdnext.Enabled = Falsecmdlast.Enabled = FalseLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdn_Click()Dim n As Integern = text.textAdodc1.Recordset.Move nLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdnext_Click()Adodc1.Recordset.MoveNextcmdfirst.Enabled = Truecmdpre.Enabled = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastcmdnext.Enabled = Falsecmdlast.Enabled = FalseEnd IfLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdok_Click()Adodc1.Recordset.Updatecmdadd.Enabled = Truecmddel.Enabled = Truecmdok.Enabled = Falsecmdesc.Enabled = FalseLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdpre_Click()Adodc1.Recordset.MovePreviouscmdnext.Enabled = Truecmdlast.Enabled = TrueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstcmdfirst.Enabled = Falsecmdpre.Enabled = FalseEnd IfLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click()Me.HideForm6.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd SubPrivate Sub Form_Load()cmdfirst.Enabled = Falsecmdpre.Enabled = Falsecmdnext.Enabled = Truecmdlast.Enabled = Truecmdadd.Enabled = Truecmddel.Enabled = Truecmdok.Enabled = Falsecmdesc.Enabled = FalseLabel7.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd Sub3.6 数据查询模块本模块用于对录入进货管理表中的信息按照查询条件进行查询以表格的形式显示。图3.6 查询职工信息窗体Private Sub Command1_Click()Dim str As Stringstr = "select * from 进货管理表 where " & Combo1.text & " = '" & Text1 & "'"Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "供货商号"Combo1.AddItem "日期"Combo1.AddItem "编号"Combo1.text = "供货商号"Text1.text = ""End Sub3.7 打印报表模块本模块利用数据环境设计器和数据报表设计器来实现对退货管理表的内容进行打印预览先在数据环境设计器中添加连接对象连接到相应的数据库，然后添加命令对象返回退货商品信息，在DataReport1的属性窗口中绑定数据源后将该命令对象拖放到报表设计器的细节区即可。图3.7 职工基本信息报表设计第4章 课设总结通过一周时间的努力，终于完成了本次VB数据库课程设计，这次课程设计让我学到了很多东西，比如对整体结构的设计，对细节的把握以及对全局的掌控等。经过几天的自学、查阅书籍、自我摸索及实践，让我掌握了VB数据库设计的基本思想，也学会了对VB 6.0的基本使用。同时我也对VB有了更深入的了解，对VB事件驱动的编程机制有了更熟练的运用。要做一个项目，首先要学会根据实际的问题抽象出概念模型和系统中各个实体的E-R模型；然后将其进行转化为与之相应的关系模型；再由此模型进行数据库的设计以及数据库的检测；有了这几道工序作铺垫，才能够尽善尽美地去编写程序代码来实现系统具体的功能。参考文献1 刘志妩，张焕君，马秀丽等著. 基于VB和SQL的数据库编程技术. 北京:清华大学出版社. 20082 杨志强著. Visual Basic 6.0 程序设计教程. 北京:高等教育出版社. 20083 赵斯思著. Visual Basic 数据库编程与实例. 北京:人民教育出版社. 2009
