毕业设计论文、毕业设计答辩稿、开题报告、外文翻译稿-超市进销存管理系统(4个文件(编辑修改稿)

毕业设计论文、毕业设计答辩稿、开题报告、外文翻译稿-超市进销存管理系统(4个文件(编辑修改稿)内容摘要：

接数据库的主要方式以下几种方式：一是： 用 data 控件进行数据库链接 ，二是 利用 adodc（ ADO Data Control)进行数据库链接。 三是 : 利用 DataEnvironment 进行数据库链接 .四是 利用 ADO(ActiveX Data Objects)进行编程 :现在我们来大致对这几种技术应用介绍： 一、 用 data 控件进行数据库链接 . 第一步：给窗体添加一个 Data 控件。 第二步：用 Access 建立一个名为 Pad 的数据库，在库中建立一个表 Myset，给表添加四个 字段： backcolor（数据）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 注意：请将库文件存入程序所在目录。 如果你的机器没安装有 Access，可通过 VB 建库。 二、 利用 adodc（ ADO Data Control)进行数据库链接： 使用 adodata 控件访问数据库可以完全不用编写代码 ,只需要通过简单的设置和操作其属性就可以实现与数据库的连接 ,通过绑定数据感知控件 ,就能提供一个访问数据库的界面 ,用来实现对数据库的浏览 ,贴加 ,删除 ,修改等操作 . 三、 利用 DAO 对数据库进行操 纵 : 在 visual basic 中提供了两种与 jet数据引擎接口的方法 :data控件与数据访问对象 (DAO)DAO 是 database object 的英文缩写 ,要访问数据库一方面数据库要提供访问接口 ,另一方面要在编程环境中有对数据库的支持 . DAO 模型是设计关系数据库系统结构的对象类的集合 .他们提供了管理关系型数据库系统所需要的全部操作属性和方法 ,这其中包括建立数据库 ,定义表 ,字段和建立表间关系 ,定位和查询数据库等 . 关系数据库 介绍 : 关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理 数据库数据，是目前使用最广泛的数据库系统。 20 世纪 70 年代以后开发的数据库管理系统产品几乎都是基于关系的。 在数据库发展的历史上，最重要的成就就是关系模型。 关系数据库系统与非关系数据库系统的区别是：关系系统只有 “ 表 “ 这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。 结构化查询语言 SQL（ Structured Query Language）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。 目前已成为关 系数据库的标准语言 Microsoft Access 介绍 : 使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。 在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。 如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符 合指定条件的数据，包括来自多个表中的数据，就要创建查询。 查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。 在打开一个窗体时， Microsoft Access 将从一个或多个表中检索数据，并使用用户在 “ 窗体向导 ” 选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。 例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮 件标签的报表。 第 二 章 系统的分析 2． 1 系统开发的目标和思想 本系统开发目标是服务于 高速公路收费管理人员 ,方便工作人员 ,对过往车辆收费 ,发 放收费票据记录 ,对信息的分类管理等 . 同时力求做到界面人性化 ,功能齐全 ,数据存储安全 . 系统的可行性分析 技术上 :本系统采用 visual basic 与微软的 access 作为数据库 ,技术上开发难度一般 . 经济上 :本系统服务于 超市 管理人员 ,提高了工作人员办事效率 ,节省了开支 .所以具有经济上的可行性 . 社会上 :本系统同时也方便了广大 顾客 ,.所以具有社会可行性 . 第 三 章 系统的设计 3． 1 系统的功能结构设计 3． 2 系统的数据库设计 1:用户登陆表 : 程序登陆 主界面 商品类型管理 商品管理 报损管理 进货管理 销售管理 供货商管理 销售分析 帮助 退出 2:购入商品表 : 3:商品保损表 : 4:商品信息表 : 5:供应商表 : 6:销售表 : 界面设计与代码设计 1. 登陆界面设计 : 代码分析 : Option Explicit Private Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean Dim m_Admin As New clsAdmin Dim m_nErrCount As Integer Private Sub Form_Load() m_nErrCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private Sub cmdOK_Click() 39。 ToDo: 创建测试密码是否正确 39。 检查正确密码 Dim Account As String Dim Pwd As String Account = RealString() Pwd = RealString() 39。 判断密码是否正确 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 输入密码错误次数太多，请稍后重试 , vbExclamation End End If MsgBox 密码错误，再试一次。 还有 amp。 3 m_nErrCount amp。 次机会，注意密码区分大小写 , vbCritical, 登录 = 0 = Len() Else OK = True g_Account = Account End If End Sub 2:报损信息表 : 代码分析 : Option Explicit Private OK As Boolean 39。 确定用户按了 OK 还是 CANCEL 按钮 Private m_obj As clsDispose 39。 数据对象，用来存储用户输入数据 Public m_ViewType As gxcViewType 39。 显示状态，指添加还是修改 Private m_TypeId As Long Private m_Account As String 39。 调用此对话框的操作员 39。 根据是“新增”还是修改，确定显示内容 Private Sub SetStatus() 39。 设置控件默认值 Call SetDefaultValue 39。 设置状态 Select Case m_ViewType Case vtadd 39。 添加 = True = 确定 Case vtModify 39。 修改 = True = 保存 Case vtInfo 39。 查看 = False = 关闭 End Select End Sub 39。 打开对话框，并传出用户输入数据 Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType, _ Optional nTypeId As Long = 1, _ Optional strUser As String = ) As Boolean 39。 保存数据 Set m_obj = obj 39。 用户输入数据存放于此对 象中 m_ViewType = eViewType 39。 对话框状态 If nTypeId = 1 And (Not m_obj Is Nothing) Then m_TypeId = Else m_TypeId = nTypeId End If m_Account = strUser 39。 调用此对话框的用户账号 39。 根据新增、编辑或查看设置显示内容 SetStatus 39。 显示对话框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。 保存数据 Set obj = m_obj 39。 返回并释放对话框 ShowDlg = True Unload Me End Function 39。 设置控件默认值 Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。 如果是新增，则清空所有文本框 39。 此处判断 m_obj 为空与判断 m_ViewType = vtAdd 等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then = End If Next Else 39。 用传入对象的值更新数据 With m_obj = .Count = .Reason = .Remark = 0 = .RegDate For i = 0 To 1 If (i) = .MerchandiseID Then = i 39。 客户类型 Id Exit For End If Next i End With End If End Sub 39。 检查输入有效性 Private Function CheckValid() As Boolean CheckValid = False If = _ Or = _ Or = Then MsgBox 请填写完毕以上各项内容 Exit Function End If If = Then MsgBox 请填写完毕以上各项内容 Exit Function End If If Not IsNumeric() Then MsgBox 数量请输入数字 Exit Function End If If Not IsDate() Then MsgBox 请输入正确的日期格式 Exit Function End If CheckValid = True End Function 39。 保存数据 Private Sub SaveValue() 39。 给“成员变量”对象赋值 With m_obj 39。 注意以下利用 RealString 函数替换去除输入中的单引号 .Count = .Reason = RealString() .Remark = RealStr。