JSJ06-281@VB烟花爆竹经销管理系统设计(源代码+系统)
收藏
资源目录
压缩包内文档预览：(预览前20页/共57页)
编号：507603
类型：共享资源
大小：4.87MB
格式：ZIP
上传时间：2015-11-11
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-281@VB烟花爆竹经销管理系统设计(源代码+系统),毕业设计论文
- 内容简介：
-
1 摘要 无论是哪个销售单位或是销售商店要进行商业活动，都有很多的销售数据需要管理。手工管理这些繁杂数据的方式已经不再适应时代的潮流，实现数据规范化、自动化的计算机管理是企事业单位高效运作的必然要求。 针对这一需求，通过一个多月的学习，我开发了这个烟花爆竹经销管理系统。本系统是针对普通进销存系统的需求而设计的，可以有效地进行数据交易管理，包括进货登记管理、销售登记管理和数据的汇总、查询，以及管理员的管理。通过这一系统可使以后采购能有的放矢，很好地避免了采购时的盲目性。 开发本系统我使用了 Visual Basic +Access 两个软件。 Visual Basic 是一种可视化的、面向对象和采用事件驱动的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。 Microsoft Access 作为一种关系型数据库管理系统，是 Windows 下最为流行的桌面数据库管理系统。具有功能强大、界面友好、操作简单、易学易用等优点，是中小型信息管理系统理想的开发环境。 采用这两种工具，我开发了烟花爆竹经销管理这个系统。用户通过本系统可以方便的对数据进行查询和统计，使平时那些繁锁的数据变的 简单，明了，方便了用户。 nts 2 第一部分 系统设计 1-1：系统功能设计 我由于长期的在日杂公司从事烟花爆竹的经销，并且使用手工管理，发现数据繁多，而且管理相当复杂，这样不仅容易出错，而且工作量很大，给管理人员带来了很大的麻烦。所以我就根据这一需求开发了烟花爆竹经销管理系统。希望它能为我们今后的工作带来方便。 本系统总体的功能是实现销售公司销售管理的系统化、规范化和自动化。本系统要完成的功能有： 系统登录 包括用户登录、修改密码、添加用户、删除用户等。 交易管理 包括进货登记、销售登记、商品登记等。进 货和销售的主要交易都是在此进行。每次交易（包括进货、销售）都需要对日期、商品编号、产地、单价、数量、实付款等各项信息进行记录。 查看数据表 通过此功能，可以查看进货、出货、商品登记的各项记录。实现各种数据表的浏览，包括进货表、销售表、商品表。浏览时，此数据表的所有信息项全部显示。更直观的让经营人员了解商品的各项记录。 查询 通过此功能，可以查询到各种商品的利润，及各商品的库存量。帮助管理员了解数据。在进货时可以有的放矢。不会由于数据统计的不完善而造成不必要的损失，帮助经销人员在正当的经营中获得更好的收益。 1-2：功能模块划分 nts 3 从功能描述的内容可以看到，本系统可以划分为 5 个完整的功能。根据这 些功能，设计出系统的功能模块，如图 1 所示。 图 1 系统功能模块划分 1-3：系统流程分析 前述是对系统的功能模块的划分，这是系统总体设计的重要组成部分。为了对系统形成一个完整而全面的认识，现进行系统流程分析。 本系统的流程分析，如图 2 所示。 nts 4 失败 用户登录 失败达到 3 次 退出系统 成功 登记管理 进货登记 销售登记 商品登记 浏览管理 商品浏览 进货明细 销售明细 查询管理 利润查询 库存查询 系统管理 添加、删除用户 更改用户 图 2 系统流程分析 在系统流程分析图中可以看到，用户有 3 次机会进行身份认证。如果 3 次输入的用户名和密码都无法与数据库中的数据匹配，则强制退出系统，以防止非授权人员进入系统，从而必须记录用户的错误登录次数。 第二部分 数据库设计 数据库在一个信息 管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高存储的效率，保证数据的完整性和一致性。另外，合理的数据库结构将非常有利于程序的实现。 开始界面 nts 5 2-1: 数据库需求分析 设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。 用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能够充分满足各种信息的输入和输出。收集基本数据、数据结构和数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打 下基础。 通过对烟花爆竹经销管理的了解，总结出如下的需求信息： 进货商品需要进行管理，所以需要一个 jinhuobiao。 销售商品需要进行管理，也需要一个 xiaoshoubiao。 所有的商品需要放到一起进行管理，同时也需要一个 shangpingbiao。 系统管理员需要进行统一管理，还需要一个 guanliyuanbiao。 只有管理员登录之后才可以使用系统。 高级管理员不允许删除。进货、销售、商品信息都可进行浏览和删除。 商品的利润和库存都可进行查询。 经过上述系统功能分析和需求总结，考虑到将来功能上的 扩展，设计如下的数据项和数据结构： “管理员表”中包括有管理员、密码字段。 “进货表”中包括有 ID、记录日期、商品编号、产地、单价、数量、 实付款字段。 “商品表”包括商品编号、商品名、产地、厂商、单价字段。 nts 6 “销售表”包括 ID、记录日期、商品编号、产地、单价、数量、实付款 字段。 “管理员表”、“商品表”、“进货表”、“销售表”。由于开发时使用的数据量比较小，因此这些表都集中建立在同一个名为 yhbzdate 的数据库中。 数据库建好以后，选择“工具”菜单 “数据库实用工具” “转换数据库” “到 早期 Access 数据库版本”，将数据库转换成早期数据库版本，以便实现兼容。 2-2：数据库概念结构设计 本实例根据上面的设计规划出的实体有：商品信息实体，进行信息实体，销售信息实体，管理员信息实体。各个实体具体的描述 E-R 图如下。商品信息实体 E-R图 : 进货信息实体 E-R 图： 商品信息 进货信息 ID 记录 日期 商品编号 产地 单价 数量 实付款 商品编号 商品名 产地 厂商 单价 nts 7 销售信息实体 E-R 图： 管理员信息实体 E-R 图： 2-3：数据库逻辑结构设计 “管理员表”中包括有管理员、密码字段。结构如表 1 所示。 表 1 管理员表结构（ guanliyuanbiao） “进货表”中包括有 ID、记录日期、商品编号、产地、单价、数量、实付款字段。结构如表 2 所示。 编号 字段名称 数据类型 说明 1 管理员 文本 主键 2 密码 文本 ID 记录 日期 商品编号 产地 单价 数量 实付款 销售信息 管理员信息 用户名 密码 nts 8 表 2 进货表结构（ jinhuobiao） 编号 字段名称 数据类型 说明 1 ID 自动编号 主键 2 记录日期 日期、时间 3 商品编号 文本 4 产地 文本 5 单价 货币 6 数量 数字 7 实付款 货币 “商品表”包括商品编号、商品名、产地、厂商、单价字段。结构如表 3 所示。 表 3 商品表结构（ shangpingbiao） 编号 字段名称 数据类型 说明 1 商品编号 文本 2 商品名 文本 3 产地 文本 4 厂商 文本 5 单价 货币 “销售表”包括 ID、记录日期、商品编号、产地、单价、数量、实付款字段。结构如表 4 所示。 nts 9 表 4 销售表结构（ xiaoshoubiao） 编号 字段名称 数据类型 说明 1 ID 自动编号 主键 2 记录日期 日期、时间 3 商品编号 文本 4 产地 文本 5 单价 货币 6 数量 数字 7 实付款 货币 第三部分 设计工程框架 做好充分的系统设计准备工作以后，接着应该创建工程并设计工程的框架。 3-1：创建工程 nts 10 先创建工程存放的目录。运行 Visual basic 6.0 主程序，并选择新建“标准 EXE”工程。新建工程后，在 Visual basic 窗体中有一个默认的窗体 Form1,将在此基础上设计系统的主界面。并将此工程命名为 jr，并与数据库文件存放在同一文件夹下。将form窗体保 存为“ jrform.frm”。 3-2：建立主界面 系统的主界面完成的功能： 单击“进入” 进入系统登录，显示登录窗体。 单击“退出” 退出系统，主窗体关闭。 用到的主要控件： timer 控件 为了使界面优化，“进入”和“退出”均采用标签 label,且 label的 mousepointer 属性均设为 99。 Mouseicon 属性都设为 c:windowscursorsharrow.cur。各控件的属性值请参见表 5 表 5 控件属性设置 控件 属性 属性值 Timer interval 210 Label Name jrlabel caption 进入 Label Name fqlabel caption 放弃 image stretch true 说明： 在我们刚刚建立工程时，工程的名称最好用英文，工程中窗体的名称最好nts 11 也用英文，以防止系统不兼容时出现乱码。 Stretch 是设置图片大小来适应 image 大小的，这样界面有多大，图片就多大，会使整体效果变好。 窗体如图所示 图 主界面图 为使工程在运行时更加美观，把除 form1 以外的窗体的 mdichild 属性均设为true,再为工程添加一个 MDI 窗体， name 属性设为 form00。使这些窗体在 form00中运行。其窗体如图 4 nts 12 窗体图 4 form00 窗体图 3-3 :建立公共模块 在 visual basic 中，我们用公共模块来存放整个工程项目公用的函数，全局变量 ,这样有利于代码的效率和维护。 选择“工程”菜单中的“添加模块”，为 项目添加一个 mypaid,保存为“ mypaid.bas”。这就可以为公共模块添加代码了。 Option Explicit Public conn As New ADODB.Connection Public rstemp As New ADODB.Recordset Public iflag As Integer Public Function transactsql(ByVal sql As String) As ADODB.Recordset Dim cont As ADODB.Connection Dim rs As ADODB.Recordset Dim strconnection As String Dim strarray() As String Set cont = New ADODB.Connection Set rs = New ADODB.Recordset strconnection = provider =microsoft.jet.oledb.4.0; data source= & App.Path & yhbzdate.mdb; strarray = Split(sql) cont.Open strconnection If StrComp(UCase$(strarray(0), select, vbTextCompare) = 0 Then rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic Set transactsql = rs iflag = 1 Else cont.Execute sql iflag = 1 End If transactsql_exit: Set rs = Nothing Set cont = Nothing Exit Function nts 13 transactsql_error: MsgBox 查询错误： & Err.Description iflag = 2 Resume transactsql_exit End Function Public Sub OpenTable(pAdo As Adodc, pRecordSource As String) 打开一个表，得到一个数据集 With pAdo .connectionstring = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & App.Path & yhbzdate.mdb; Persist Security Info=False .CommandType = adCmdUnknown .RecordSource = pRecordSource .Refresh End With End Sub 说明： 在系统中，每个模块都要使用数据库。通过 transactsql 函数，我们就不需要在每次数据库操作中都重复输入数据库的连接，取结果和数据库的关闭等类似操作的代码，做到了程序的模块化。这样，后面所有要用到的添加，删除，查询和修改等操作都可以通过调用该函数来完成，得到相应的结果 . 第四部分 建 立 窗 体 nts 14 4-1: 登录窗体 用户要使用本系统，首先要通过系统的身分验证，这个过程叫做登录。登录窗体需要完成的任务是根据用户名和密码来判断是否能进入系统。 创建一个新窗体，设置窗体名为“ yanzhengform”。在系统流程分析图中可以看到，用户有 3 次机会进行身份认证。如果 3 次输入的用户名和密码无法与数据库中的数据匹配，则强制退出系统。 4-1-1：添加控件 为“登录界面”窗体加入各控件，其中各 textbox 控件的属性 text 都清空，其余控件的属性如表 6所示。 控件 属性 属性值 Label Caption 用户名： Label Caption 密码： Command Name cmdqueding Caption 登录 Command Name cmdquxiao Caption 退出 表 6 控件属性设置 4-1-2: 窗体图 “登录界面”的窗体布局如图 5 示。 nts 15 图 5 “登录界面”窗体 4-2: 主窗体 主窗体是负责连接进销存功能的通道，通过此窗体可以选择进入您需要的服务。 主窗体完成的功能： 单击“确定” 进入您需要的服 务，显示相应窗体。 单击“退出” 如果您选择提示框中的“确定”，则退出系统。如 果选择“取消”，则系统继续运行。 4-2-1：添加控件 在主窗体中主要用到了 frame、 combobox、 image 等控件。控件属性如表 7 所示。 控件 属性 属性值 nts 16 Frame Caption 选择您需要的服务 ComboBox Text 商品登记 Command Name Cmdqd Caption 确定 Command Name cmdtc Caption 退出 表 7 控件属性设置 4-2-2：主窗体布局图 主窗体布局图，如图 6 示 图 6“主窗体”布局图 nts 17 4-3：建立交易管理窗体 4-3-1：进货窗体 创建一个新窗体，设置窗体各为“ jhdjform”。通过此窗体，您可以对进货商品的各项内容进行登记。 1窗体功能描述 对销售商品进行记录和删除。 点击“添加” 则对进货商品进行添加。 如果在添写各项内容时有不完整的，则出现提示框“请完整填写各项数据！”。若有格式不正确的，则出现提示框“请正确输入！”。若各项内容均正确，则显示“记录添加成功”提示框。 点击“返回”时，系统自动返回到主窗体中。 . 添加控件 在此窗体中用到的 textbox 控件的属性 text 都清空。其余控件的属性如表 8 所示。 控件 属性 属性值 Command Name cmdtianjia Caption 添加 Command Name cmdsc Caption 删除 Command Name cmdfanhui Caption 返回 nts 18 表 8 控件属性设置 窗体图 “进货登记”的窗体如图 7 示 图 7“进货登记”窗体图 在此窗体中用到的 Dtpicker 控件，虽然集成在 Visual basic 6.0 中，但只是可选项。因此在创建项目后，需要为项目添加 Dtpicker。 添加方法如下： 在“工具箱”单击鼠标右键，出现一个弹出式菜单。 在弹出工菜单中单击“部件 ”选项，即出现可增加的控件列表。 在“部件”对话框中列出了微软公司的一些控件类型，选择 “ Microsoftwindows common controls-2 6.0”控件，确定后可以发现控件已经加入到“工具箱”中，可以作为制作窗体的工具了。 nts 19 4-3-2: 销 售登记 创建一个新窗体，设置窗体名为“ xiaoshouform”。通过此窗体，您可以对销售商品的各项内容进行登记。这样可以更方便的了解各种商品的销售情况。帮助管理员在进货时进行参考。这样就不会因为对销售的不了解而造成不必要的人力和财力的浪费。 1窗体功能 对销售商品进行记录和删除。 点击“添加” 则销售商品进行添加。 如果在添写各项内容时有不完整的，则出现提示框“请完整填写各项数据！”。若有格式不正确的，则出现提示框“请正确输入！”。若各项内容均正确，则显示“记录添加成功”提示框。 点击“返回”时，系 统自动返回到主窗体中。 添加控件 在此窗体中用到的 textbox 控件的属性 text 都清空。其余控件的属性如表所示。 控件 属性 属性值 Command Name cmdtianjia Caption 添加 Command Name cmdsc Caption 删除 Command Name cmdfanhui Caption 返回 nts 20 表 控件属性设置 窗体图 “销售登记”的窗体如图 8 所示。 图 8“销售登记”窗体图 4-3-3: 商品管理 创建一个新窗体，设置 窗体名为“ shangpingform”。通过此窗体，您可以对商品进行统计。这样可以帮助管理员了解商品情况。 窗体功能 对商品进行添加，删除。 当点击“添加”时，则商品各项内容进行添加。 如果在添写各项内容时有不完整的，则出现提示框“请完整填写各项数据！”。若有格式不正确的，则出现提示框“请正确输入！”。若所添内容在数据库中已经存在，则显示“有此编号！”。nts 21 当各项内容均正确时，则显示“添加成功”提示框。 点击“返回”时 动返回到主窗体中。 添加控件 在此窗体中用到的 textbox 控件的属性 text 都清空。其余控件的属性如表 10 所示。 控件 属性 属性值 Command Name cmdtianjia Caption 添加 Command Name cmdsc Caption 删除 Command Name cmdfanhui Caption 返回 表 10 控件属性设置 窗体图 “销售登记”的窗体如图 9 所示。 nts 22 图 9 “商品登记” 4-4：建立用户管理窗体 4-4-1：添加、删除用户 1描述 在此管理中，管理员之存在交接班，应该让多个管理员具有系统 管理的权限，所以要根据需要添加 /删除用户。添加一个普通窗体， caption 属性为“添加 /删除用户”。 功能介绍： 当点击“添加” 添加用户。 如果在添加时，有不完整的内容，则出现提示框“用户名和密码不能为空！”；若输入的用户名在数据库中已经存在，则出现提示框“该用户已经存在！”；当两次密码输入不同时，出现提示框“两次输入密码不同！”；当各项内容均正确时，出现提示框“用户添加成功！”。 nts 23 当点击“删除” 删除用户。 如果在输入内容时，有不完整的内容，则出现提示框“用户名和密码不能为空！”；若输入的用户名 在数据库中不存在，则出现提示框“该用户不存在！”；当两次密码输入不同时，出现提示框“两次输入密码不同！”；当各项内容均正确时，出现提示框“确定删除？”。当点击“确定”时，出现“删除成功！”提示框。当点击“取消”时，取消删除。 当点击“返回” 系统自动返回主窗体。 2添加控件 在此窗体中用到的 textbox 控件的属性 text 都清空。其余控件的属性如表 11所示。 控件 属性 属性值 Label Caption 用户 ID： Label Caption 用户密码： Label Caption 密码确 认： Command Caption 添加 Command Caption 删除 Command Caption 返回 表 11 控件属性设置 3窗体图 “添加 /删除用户”窗体图，如图 10 所示。 nts 24 图 10 “添加 /删除用户“窗体图 4-4-2：修改用户 1、描述 为提高系统的安全性，防止密码泄露，合法用户应该不定时的修改自己的密码。为工程添加一个 form窗体， caption 为“修改密码”。 功能： 当点击“确定”时 修改用户密码。 如果输入的用 户名在系统中不存在，则出现提示框“无此用户名！”；如果输入的用户名与系统中的符合，单击“确定”， text4 和 text2 出现。此时输入新密码，若两次输入的密码不一致，则出现提示框“两次密码不一致！”；否则出现提示框“密码修改成功”。 nts 25 当点击“返回”时 系统自动返回主窗体。 2、添加控件 在此窗体中用到的 textbox 控件的属性 text 都清空。其余控件的属性如表 12 所示。 控件 属性 属性值 Label Caption 用户 ID： Label Caption 用户旧密码： Label Caption 输入新密码： Label Caption 确认新密码： Command Caption 确定 Command Caption 返回 表 12 控件属性设置 3、窗体图 “修改用户”的窗体图，如图 11 所示。 nts 26 图 11 “修改用户”窗体图 4-5： 创建浏览窗体 4-5-1：描述 让管理员更直观的对数据进行分析，我们创建了此窗体，它可以显示数据库中所有进货登记，销售登记，商品登记的内容。 功能介绍： 当“ checkbox”的属性为真时，相应的 MSHFlxeGrid 控件显示数据库中的全部内容。当“ checkbox” 的属性为假时，相应的 MSHFlxeGrid 将不显示数据。 当点击“返回” 系统自动返回到主窗体。 4-5-2： 添加控件 此窗体中主要用到了 mshflxegrid ,checkbox 控件。此浏览功能的实现，是通过nts 27 MSHFlxeGrid 控件实现的。 在此窗体中用到 mshflxegrid 的控件，虽然集成在 Visual basic 6.0 中，但只是可选项。因此在创建项目后，需要为项目添加 mshflxegrid。 其添加方法如同前面所述。选择“ Microsoft hierarchical flexgrid control 6.0” 其它控件的属性参见表 13。 控件 属性 属性值 Checkbox Caption 商品浏览 Checkbox Caption 进货明细 Checkbox Caption 出货明细 Mshflxegrid Mshflxegrid Mshflxegrid Label Caption 返回 表 13 控件属性设置 4-5-3：窗体图 “浏览窗体”如图 12 所示。 nts 28 图 12 “浏览窗体”窗体图 4-6： 创建查询窗体 4-6-1：描述 此窗体是供管理员通过商品编号查询商品利润和库存量的。使用户可以在进货时有个很好的参考。不会因为对商品的不了解而造成不必要的财力浪费。能够在合法的经营中赢的更多的收益。 创建一个新窗体， caption 属性为“查询窗口”。 功能描述： 当 checkbox 属性为真，且 combobox 中有取值，点击“确定”时，在相应的Mshflxegrid 中显示数据。当 checkbox 属性为假， Mshflxegrid 中不显示数据。 nts 29 当点击“返回”时 系统自动返回到主窗体。 4-6-2： 添加控件 此窗体中主要用到了 mshflxegrid ,checkbox， combobox 控件。 此浏览功能的实现，是通过 MSHFlxeGrid 控件实现的。 由于 MSHFlxeGrid 控件已经在工程中出现，则不需要再次添加，可直接使用。 其它控件属性参见表 14。 控件 属性 属性值 Checkbox Caption 利润查询 Checkbox caption 库存查询 Label Caption 输 入商品编号 Label Caption 输入商品编号 Combobox Combobox MSHFlxeGrid MSHFlxeGrid Label Caption 确定 label Caption 返回 nts 30 表 14 控件属性设置 4-6-3： 窗体图 “查询窗口”如图 13 所示。 图 13 “查询窗口”窗体图 nts 31 第五部分 结 束 语 通过一个多月的努力学习，各位老师和同学的鼎力帮助，这份“烟花爆 竹经销管理”系统终于“问世”了。希望它可以有自己的一片天地，为需要它的人做出一些贡献。 在老师和同学的精心调试以后，它仍然存在一些不足，辟如： 查询窗体是一个高级窗口，一般管理员是不允许查看的，但是在设计时没有注意到这一点； 浏览窗体中的删除方法不太合理。报表的设计有点过于简单等等。 在这次毕业设计中，我学到了不少东西，同时也对 Visual basic 6.0 和 Access 2002 更加的了解了。给我以后的工作和生活帮助很大。 在此我再次感谢各位老师和同学的鼎力帮助，希望我们的设计都有会有用武之地 。更希望老师们在以后的工作中会更加顺利，生活美满幸福。同时也希望我们都能在毕业之后找到自己理想的工作。 参 考 文 献 1、 Visual Basic +Access 数据库项目开发实践 周国民编著 中国铁道出版社 2、全国计算机等级考试二级教程 -Visual Basic 语言程序设计 刘炳文、杨明福、陈定中 编 高等教育出版社 nts 32 附录： form1 窗体代码。（ jrform） Private Sub Form_Activate() Image1.Left = 0 Image1.Top = 0 Image1.Height = Form1.Height Image1.Width = Form1.Width End Sub Private Sub fqlabel_Click() Unload Me End Sub Private Sub jrlabel_Click() form00.Show Form2.Show Form2.Left = 3500 Form2.Top = 2000 Unload Me End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label2.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label3.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label4.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label5.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label6.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label7.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Label8.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) End Sub Form2窗 体图代码（ yanzhengform） : Public conn As New ADODB.Connection Public rstemp As New ADODB.Recordset nts 33 Dim CheckCount As Integer Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & yhbzdate.mdb conn.Open connectionstring End Sub Private Sub Form_Unload(Cancel As Integer) Set rstemp = Nothing conn.Close End Sub Private Sub cmdqueding_Click() Dim sql As String sql = select * from guanliyuanbiao where 管理员 = & Trim(Text1.Text) & and 密码 = & Trim(Text2.Text) & Set rstemp.ActiveConnection = conn rstemp.Open (sql) If Text1.Text = Or Text2.Text = Then MsgBox 请完整的填写各项！ Text1.Text = Text2.Text = End If If rstemp.EOF = False Then MsgBox 登录成功！ rstemp.Close Unload Me Form3.Show Form3.Left = 3500 Form3.Top = 1000 Else MsgBox 密码错误！ Text1.Text = Text2.Text = Text1.SetFocus rstemp.Close End If CheckCount = CheckCount + 1 nts 34 If CheckCount = 3 Then MsgBox 错误输入已达三次，系统退出！ , vbOKOnly + vbExclamation, 警告 Form1.Hide End form00.Hide Exit Sub End If End Sub Private Sub cmdquxiao_Click() form00.Hide End Form1.Show End Sub Form3窗体图代码（ mainform） : Dim x As Integer Private Sub Form_Load() Combo1.AddItem 进货登记 Combo1.AddItem 销售登记 Combo1.AddItem 商品登记 Combo1.AddItem 浏览 窗口 Combo1.AddItem 查询窗口 Combo1.AddItem 添加、删除用户 Combo1.AddItem 修改密码 End Sub Private Sub cmdtc_Click() msg$ = 确定退出系统吗？ Title$ = 提示 x = MsgBox(msg$, 33, Title$) If x = 1 Then End MDIForm1.Hide Else form00.Show Form3.Show End If nts 35 End Sub Private Sub cmdqd_Click() Me.Hide If Combo1.Text = 进货登记 Then Form4.Show Form4.Left = 3000 Form4.Top = 500 ElseIf Combo1.Text = 销售登记 Then Form5.Show Form5.Left = 3000 Form5.Top = 500 ElseIf Combo1.Text = 商品登记 Then Form6.Show Form6.Left = 3000 Form6.Top = 500 ElseIf Combo1.Text = 修改密码 Then Form7.Show Form7.Left = 3500 Form7.Top = 1000 ElseIf Combo1.Text = 添加、删除用户 Then Form8.Show Form8.Left = 3500 Form8.Top = 2000 ElseIf Combo1.Text = 浏览窗口 Then Form9.Show Form9.Left = 500 Form9.Top = 50 ElseIf Combo1.Text = 查询窗口 Then Form0.Show Form0.Left = 2000 Form0.Top = 50 End If End Sub Form4窗体代码 (jfdjform)： Dim fd As ADODB.Recordset Dim rstemp As ADODB.Recordset Private Sub Form_Load() nts 36 connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & yhbzdate.mdb conn.Open connectionstring End Sub Private Sub Form_Unload(Cancel As Integer) Set rstemp = Nothing Set fd = Nothing End Sub Sub cleardata() DTPicker1.Value = Date Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub Sub appendrecord() Dim bs_money As Long bs_money = Val(Text4.Text) * Val(Text5.Text) If Trim(DTPicker1.Value) = Or Trim(Text2.Text) = Or Trim(Text3.Text) = Or Text3.Text = Or Text4.Text = Or Text5.Text = Then MsgBox 请完整填写各项数据！ cleardata DTPicker1.SetFocus Exit Sub Else Text6.Text = bs_money Set rstemp = New ADODB.Recordset Dim sql As String sql = select * from jinhuobiao where 商品编号 = & Trim(Text2.Text) & Set rstemp.ActiveConnection = conn rstemp.Open sql, conn, adOpenKeyset, adLockPessimistic If IsNumeric(Text5.Text) And IsNumeric(Text4.Text) Then nts 37 rstemp.AddNew rstemp.Fields(1) = DTPicker1.Value rstemp.Fields(2) = Text2.Text rstemp.Fields(3) = Text3.Text rstemp.Fields(4) = Text4.Text rstemp.Fields(5) = Text5.Text rstemp.Fields(6) = Text6.Text rstemp.Update MsgBox 记录填写成功！ cleardata rstemp.Close Else MsgBox 请正确输入！ Text4.Text = Text5.Text = Exit Sub End If End If End Sub Private Sub cmdtianjia_Click() appendrecord End Sub Private Sub cmdfanhui_Click() Form3.Show Unload Me conn.Close Set conn = Nothing End Sub Form5窗体代码 (xiaoshouform)： Dim fd As ADODB.Recordset Dim rstemp As ADODB.Recordset Private Sub Form_Load() Dim connectionstring As String nts 38 connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & yhbzdate.mdb conn.Open connectionstrin End Sub Private Sub Form_Unload(Cancel As Integer) Set rstemp = Nothing Set fd = Nothing End Sub Sub cleardata() DTPicker1.Value = Date Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub Sub appendrecord() Dim bs_money As Long bs_money = Val(Text4.Text) * Val(Text5.Text) If Trim(DTPicker1.Value) = Or Trim(Text2.Text) = Or Trim(Text3.Text) = Or Text3.Text = Or Text4.Text = Or Text5.Text = Then MsgBox 请完整填写各项数据！ cleardata DTPicker1.SetFocus Exit Sub Else Text6.Text = bs_money Set rstemp = New ADODB.Recordset Dim sql As String sql = select * from xiaoshoubiao where 商品编号 = & Trim(Text2.Text) & Set rstemp.ActiveConnection = conn rstemp.Open sql, conn, adOpenKeyset, adLockPessimistic If IsNumeric(Text5.Text) And IsNumeric(Text4.Text) Then rstemp.AddNew rstemp.Fields(1) = DTPicker1.Value nts 39 rstemp.Fields(2) = Text2.Text rstemp.Fields(3) = Text3.Text rstemp.Fields(4) = Text4.Text rstemp.Fields(5) = Text5.Text rstemp.Fields(6) = Text6.Text rstemp.Update MsgBox 记录填写成功！ cleardata rstemp.Close Else MsgBox 请正确输入！ Text4.Text = Text5.Text = Exit Sub End If End If End Sub Private Sub cmdfanhui_Click() Unload Me Form3.Show conn.Close Set conn = Nothing End Sub Private Sub cmdtianjia_Click() appendrecord End Sub Form6 窗体代码 (shangpingform)： Dim fd As ADODB.Recordset Dim rstemp As ADODB.Recordset Private Sub Form_Load() connectionstring = provider=Microsoft.Jet.oledb.4.0; & data source= & App.Path & yhbzdate.mdb conn.Open connectionstring Set rstemp = New ADODB.Recor
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号