烟花爆竹经销管理系统-毕业设计论文

1、烟花爆竹经销管理系统摘要 无论是哪个销售单位或是销售商店要进行商业活动，都有很多的销售数据需要管理。手工管理这些繁杂数据的方式已经不再适应时代的潮流，实现数据规范化、自动化的计算机管理是企事业单位高效运作的必然要求。针对这一需求，通过一个多月的学习，我开发了这个烟花爆竹经销管理系统。本系统是针对普通进销存系统的需求而设计的，可以有效地进行数据交易管理，包括进货登记管理、销售登记管理和数据的汇总、查询，以及管理员的管理。通过这一系统可使以后采购能有的放矢，很好地避免了采购时的盲目性。开发本系统我使用了Visual Basic +Access两个软件。 Visual Basic是一种可视化的、面向

2、对象和采用事件驱动的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。 Microsoft Access作为一种关系型数据库管理系统，是Windows 下最为流行的桌面数据库管理系统。具有功能强大、界面友好、操作简单、易学易用等优点，是中小型信息管理系统理想的开发环境。采用这两种工具，我开发了烟花爆竹经销管理这个系统。用户通过本系统可以方便的对数据进行查询和统计，使平时那些繁锁的数据变的简单，明了，方便了用户。目 录摘要1第一部分 系统设计 1-1 系统功能设计.2 1-2 功能模块划分.2 1-3 系统流程分析.3第二部分 数据库设计.3 2-1: 数据库需求分析.4 2

3、-2：数据库概念结构设计.5 2-3：数据库逻辑结构设计.7第三部分 设计工程框架 3-1 创建工程9 3-2 建立主界面9 3-3 建立公共模块11第四部分 建立窗体 4-1 登录窗体134-1-1 添加控件134-1-2 窗体图14 4-2 主窗体144-2-1 添加控件144-2-2 主窗体布局图15 4-3 建立交易管理窗体164-3-1 进货窗体164-3-2 销售登记174-3-3 商品管理19 4-4 建立用户管理窗体214-4-1 添加、删除用户.214-4-2 修改用户.23 4-5 创建浏览窗体.244-5-1 描述.244-5-2 添加控件.254-5-3 窗体图.25

4、4-6 创建查询窗体.26 4-6-1 描述.264-6-2 添加控件.274-6-3 窗体图.28第五部分 结束语29参考文献.29附录 ：源程序代码.30第一部分 系统设计1-1：系统功能设计 我由于长期的在日杂公司从事烟花爆竹的经销，并且使用手工管理，发现数据繁多，而且管理相当复杂，这样不仅容易出错，而且工作量很大，给管理人员带来了很大的麻烦。所以我就根据这一需求开发了烟花爆竹经销管理系统。希望它能为我们今后的工作带来方便。本系统总体的功能是实现销售公司销售管理的系统化、规范化和自动化。本系统要完成的功能有：系统登录 包括用户登录、修改密码、添加用户、删除用户等。交易管理包括进货登记、销

5、售登记、商品登记等。进货和销售的主要交易都是在此进行。每次交易（包括进货、销售）都需要对日期、商品编号、产地、单价、数量、实付款等各项信息进行记录。 查看数据表通过此功能，可以查看进货、出货、商品登记的各项记录。实现各种数据表的浏览，包括进货表、销售表、商品表。浏览时，此数据表的所有信息项全部显示。更直观的让经营人员了解商品的各项记录。查询通过此功能，可以查询到各种商品的利润，及各商品的库存量。帮助管理员了解数据。在进货时可以有的放矢。不会由于数据统计的不完善而造成不必要的损失，帮助经销人员在正当的经营中获得更好的收益。1-2：功能模块划分从功能描述的内容可以看到，本系统可以划分为5个完整的功

6、能。根据这些功能，设计出系统的功能模块，如图1所示。图1 系统功能模块划分1-3：系统流程分析 前述是对系统的功能模块的划分，这是系统总体设计的重要组成部分。为了对系统形成一个完整而全面的认识，现进行系统流程分析。本系统的流程分析，如图2所示。开始界面 失败 用户登录 失败达到3次 退出系统 成功 登记管理 进货登记 销售登记 商品登记 浏览管理 商品浏览 进货明细 销售明细查询管理 利润查询 库存查询系统管理 添加、删除用户 更改用户 图2 系统流程分析在系统流程分析图中可以看到，用户有3次机会进行身份认证。如果3次输入的用户名和密码都无法与数据库中的数据匹配，则强制退出系统，以防止非授权人

7、员进入系统，从而必须记录用户的错误登录次数。第二部分数据库设计 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高存储的效率，保证数据的完整性和一致性。另外，合理的数据库结构将非常有利于程序的实现。2-1: 数据库需求分析设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能够充分满足各种信息的输入和输出。收集基本数据、数据结构和数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。通过对

8、烟花爆竹经销管理的了解，总结出如下的需求信息：进货商品需要进行管理，所以需要一个jinhuobiao。销售商品需要进行管理，也需要一个xiaoshoubiao。所有的商品需要放到一起进行管理，同时也需要一个shangpingbiao。系统管理员需要进行统一管理，还需要一个guanliyuanbiao。只有管理员登录之后才可以使用系统。高级管理员不允许删除。进货、销售、商品信息都可进行浏览和删除。商品的利润和库存都可进行查询。经过上述系统功能分析和需求总结，考虑到将来功能上的扩展，设计如下的数据项和数据结构：“管理员表”中包括有管理员、密码字段。“进货表”中包括有ID、记录日期、商品编号、产地、

9、单价、数量、 实付款字段。“商品表”包括商品编号、商品名、产地、厂商、单价字段。“销售表”包括ID、记录日期、商品编号、产地、单价、数量、实付款 字段。 “管理员表”、“商品表”、“进货表”、“销售表”。由于开发时使用的数据量比较小，因此这些表都集中建立在同一个名为yhbzdate的数据库中。数据库建好以后，选择“工具”菜单“数据库实用工具”“转换数据库”“到早期Access数据库版本”，将数据库转换成早期数据库版本，以便实现兼容。2-2：数据库概念结构设计本实例根据上面的设计规划出的实体有：商品信息实体，进行信息实体，销售信息实体，管理员信息实体。各个实体具体的描述E-R图如下。商品信息实体

10、E-R图:商品信息商品编号商品名产地厂商单价 进货信息进货信息实体E-R图： 实付款数量单价产地商品编号记录日期ID销售信息销售信息实体E-R图：数量实付款单价产地商品编号记录日期ID管理员信息实体E-R图：管理员信息密码用户名2-3：数据库逻辑结构设计“管理员表”中包括有管理员、密码字段。结构如表1所示。表1 管理员表结构（guanliyuanbiao）编号字段名称数据类型说明1管理员文本主键2密码文本“进货表”中包括有ID、记录日期、商品编号、产地、单价、数量、实付款字段。结构如表2所示。表2 进货表结构（ jinhuobiao）编号字段名称数据类型说明1ID自动编号主键2记录日期日期、时

11、间3商品编号文本4产地文本5单价货币6数量数字7实付款货币“商品表”包括商品编号、商品名、产地、厂商、单价字段。结构如表3所示。表3 商品表结构（shangpingbiao）编号字段名称数据类型说明1商品编号文本2商品名文本3产地文本4厂商文本5单价货币“销售表”包括ID、记录日期、商品编号、产地、单价、数量、实付款字段。结构如表4所示。表4 销售表结构（xiaoshoubiao）编号字段名称数据类型说明1ID自动编号主键2记录日期日期、时间3商品编号文本4产地文本5单价货币6数量数字7实付款货币第三部分设计工程框架做好充分的系统设计准备工作以后，接着应该创建工程并设计工程的框架。3-1：创建

12、工程先创建工程存放的目录。运行Visual basic 6.0 主程序，并选择新建“标准EXE”工程。新建工程后，在Visual basic 窗体中有一个默认的窗体Form1,将在此基础上设计系统的主界面。并将此工程命名为jr，并与数据库文件存放在同一文件夹下。将form窗体保存为“”。3-2：建立主界面系统的主界面完成的功能：单击“进入”进入系统登录，显示登录窗体。单击“退出”退出系统，主窗体关闭。 用到的主要控件：timer控件为了使界面优化，“进入”和“退出”均采用标签label,且label的mousepointer 属性均设为99。Mouseicon属性都设为c:windowscur

13、sorsharrow.cur。各控件的属性值请参见表5 表5 控件属性设置 控件属性属性值Timerinterval210LabelNamejrlabelcaption进入LabelNamefqlabelcaption放弃imagestretchtrue说明： 在我们刚刚建立工程时，工程的名称最好用英文，工程中窗体的名称最好也用英文，以防止系统不兼容时出现乱码。Stretch是设置图片大小来适应image大小的，这样界面有多大，图片就多大，会使整体效果变好。窗体如图所示 图主界面图 为使工程在运行时更加美观，把除form1以外的窗体的mdichild属性均设为true,再为工程添加一个MDI窗

14、体，name属性设为form00。使这些窗体在form00中运行。其窗体如图4 窗体图4 form00窗体图 3-3 :建立公共模块在visual basic 中，我们用公共模块来存放整个工程项目公用的函数，全局变量,这样有利于代码的效率和维护。 选择“工程”菜单中的“添加模块”，为项目添加一个mypaid,保存为“”。这就可以为公共模块添加代码了。Option ExplicitPublic iflag As IntegerPu Dim strconnection As String Dim strarray() As String strconnection = provider =micr

15、osoft.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 Iftrans

16、actsql_exit: Set rs = Nothing Set cont = Nothing Exit Functiontransactsql_error: iflag = 2 Resume transactsql_exitEnd FunctionPublic Sub OpenTable(pAdo As Adodc, pRecordSource As String) 打开一个表，得到一个数据集 With pAdo .connectionstring = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & yhbzdate.m

17、db;Persist Security Info=False .CommandType = adCmdUnknown .RecordSource = pRecordSource .Refresh End WithEnd Sub说明：在系统中，每个模块都要使用数据库。通过transactsql函数，我们就不需要在每次数据库操作中都重复输入数据库的连接，取结果和数据库的关闭等类似操作的代码，做到了程序的模块化。这样，后面所有要用到的添加，删除，查询和修改等操作都可以通过调用该函数来完成，得到相应的结果.第四部分建 立 窗 体4-1: 登录窗体用户要使用本系统，首先要通过系统的身分验证，这个过程叫做

18、登录。登录窗体需要完成的任务是根据用户名和密码来判断是否能进入系统。创建一个新窗体，设置窗体名为“yanzhengform”。在系统流程分析图中可以看到，用户有3次机会进行身份认证。如果3次输入的用户名和密码无法与数据库中的数据匹配，则强制退出系统。4-1-1：添加控件为“登录界面”窗体加入各控件，其中各textbox控件的属性text都清空，其余控件的属性如表6所示。控件属性属性值LabelCaption用户名：LabelCaption密码：CommandNamecmdquedingCaption登录CommandNamecmdquxiaoCaption退出表6 控件属性设置4-1-2: 窗

19、体图 “登录界面”的窗体布局如图5示。图5 “登录界面”窗体4-2: 主窗体主窗体是负责连接进销存功能的通道，通过此窗体可以选择进入您需要的服务。主窗体完成的功能：单击“确定”进入您需要的服务，显示相应窗体。单击“退出”如果您选择提示框中的“确定”，则退出系统。如 果选择“取消”，则系统继续运行。4-2-1：添加控件在主窗体中主要用到了frame、combobox、image等控件。控件属性如表7所示。控件属性属性值FrameCaption选择您需要的服务ComboBoxText商品登记CommandNameCmdqdCaption确定CommandNamecmdtcCaption退出表7 控

20、件属性设置4-2-2：主窗体布局图主窗体布局图，如图6示 图6“主窗体”布局图4-3：建立交易管理窗体4-3-1：进货窗体 创建一个新窗体，设置窗体各为“jhdjform”。通过此窗体，您可以对进货商品的各项内容进行登记。1窗体功能描述对销售商品进行记录和删除。点击“添加”则对进货商品进行添加。如果在添写各项内容时有不完整的，则出现提示框“请完整填写各项数据！”。若有格式不正确的，则出现提示框“请正确输入！”。若各项内容均正确，则显示“记录添加成功”提示框。点击“返回”时，系统自动返回到主窗体中。.添加控件 在此窗体中用到的textbox控件的属性text都清空。其余控件的属性如表8所示。控件

21、属性属性值CommandNamecmdtianjiaCaption添加CommandNamecmdscCaption删除CommandNamecmdfanhuiCaption返回表8 控件属性设置窗体图“进货登记”的窗体如图7示图7“进货登记”窗体图 在此窗体中用到的Dtpicker控件，虽然集成在Visual basic 6.0中，但只是可选项。因此在创建项目后，需要为项目添加Dtpicker。添加方法如下：在“工具箱”单击鼠标右键，出现一个弹出式菜单。在弹出工菜单中单击“部件”选项，即出现可增加的控件列表。在“部件”对话框中列出了微软公司的一些控件类型，选择 “Microsoft”控件，确

22、定后可以发现控件已经加入到“工具箱”中，可以作为制作窗体的工具了。4-3-2: 销售登记创建一个新窗体，设置窗体名为“xiaoshouform”。通过此窗体，您可以对销售商品的各项内容进行登记。这样可以更方便的了解各种商品的销售情况。帮助管理员在进货时进行参考。这样就不会因为对销售的不了解而造成不必要的人力和财力的浪费。1窗体功能对销售商品进行记录和删除。点击“添加”则销售商品进行添加。如果在添写各项内容时有不完整的，则出现提示框“请完整填写各项数据！”。若有格式不正确的，则出现提示框“请正确输入！”。若各项内容均正确，则显示“记录添加成功”提示框。点击“返回”时，系统自动返回到主窗体中。添加

23、控件 在此窗体中用到的textbox控件的属性text都清空。其余控件的属性如表所示。控件属性属性值CommandNamecmdtianjiaCaption添加CommandNamecmdscCaption删除CommandNamecmdfanhuiCaption返回表 控件属性设置窗体图“销售登记”的窗体如图8所示。 图8“销售登记”窗体图4-3-3: 商品管理创建一个新窗体，设置窗体名为“shangpingform”。通过此窗体，您可以对商品进行统计。这样可以帮助管理员了解商品情况。窗体功能对商品进行添加，删除。当点击“添加”时，则商品各项内容进行添加。如果在添写各项内容时有不完整的，则出

24、现提示框“请完整填写各项数据！”。若有格式不正确的，则出现提示框“请正确输入！”。若所添内容在数据库中已经存在，则显示“有此编号！”。当各项内容均正确时，则显示“添加成功”提示框。点击“返回”时 动返回到主窗体中。添加控件在此窗体中用到的textbox控件的属性text都清空。其余控件的属性如表10所示。控件属性属性值CommandNamecmdtianjiaCaption添加CommandNamecmdscCaption删除CommandNamecmdfanhuiCaption返回表10 控件属性设置窗体图“销售登记”的窗体如图9所示。 图9“商品登记”4-4：建立用户管理窗体4-4-1：添

25、加、删除用户1描述 在此管理中，管理员之存在交接班，应该让多个管理员具有系统管理的权限，所以要根据需要添加/删除用户。添加一个普通窗体，caption属性为“添加/删除用户”。功能介绍：当点击“添加” 添加用户。如果在添加时，有不完整的内容，则出现提示框“用户名和密码不能为空！”；若输入的用户名在数据库中已经存在，则出现提示框“该用户已经存在！”；当两次密码输入不同时，出现提示框“两次输入密码不同！”；当各项内容均正确时，出现提示框“用户添加成功！”。当点击“删除” 删除用户。如果在输入内容时，有不完整的内容，则出现提示框“用户名和密码不能为空！”；若输入的用户名在数据库中不存在，则出现提示框

26、“该用户不存在！”；当两次密码输入不同时，出现提示框“两次输入密码不同！”；当各项内容均正确时，出现提示框“确定删除？”。当点击“确定”时，出现“删除成功！”提示框。当点击“取消”时，取消删除。当点击“返回” 系统自动返回主窗体。2添加控件 在此窗体中用到的textbox控件的属性text都清空。其余控件的属性如表11所示。控件属性属性值LabelCaption用户ID：LabelCaption用户密码：LabelCaption密码确认：CommandCaption添加CommandCaption删除CommandCaption返回表11控件属性设置3窗体图“添加/删除用户”窗体图，如图10所

27、示。图10 “添加/删除用户“窗体图4-4-2：修改用户1、描述为提高系统的安全性，防止密码泄露，合法用户应该不定时的修改自己的密码。为工程添加一个form窗体，caption为“修改密码”。功能：当点击“确定”时 修改用户密码。 如果输入的用户名在系统中不存在，则出现提示框“无此用户名！”；如果输入的用户名与系统中的符合，单击“确定”，text4和text2出现。此时输入新密码，若两次输入的密码不一致，则出现提示框“两次密码不一致！”；否则出现提示框“密码修改成功”。当点击“返回”时 系统自动返回主窗体。2、添加控件在此窗体中用到的textbox控件的属性text都清空。其余控件的属性如表1

28、2所示。控件属性属性值LabelCaption用户ID：LabelCaption用户旧密码：LabelCaption输入新密码：LabelCaption确认新密码：CommandCaption确定CommandCaption返回表12控件属性设置3、窗体图“修改用户”的窗体图，如图11所示。 图11 “修改用户”窗体图4-5： 创建浏览窗体 4-5-1：描述让管理员更直观的对数据进行分析，我们创建了此窗体，它可以显示数据库中所有进货登记，销售登记，商品登记的内容。功能介绍：当“checkbox”的属性为真时，相应的MSHFlxeGrid控件显示数据库中的全部内容。当“checkbox” 的属性

29、为假时，相应的MSHFlxeGrid将不显示数据。当点击“返回” 系统自动返回到主窗体。4-5-2： 添加控件 此窗体中主要用到了mshflxegrid ,checkbox控件。此浏览功能的实现，是通过MSHFlxeGrid控件实现的。在此窗体中用到mshflxegrid的控件，虽然集成在Visual basic 6.0中，但只是可选项。因此在创建项目后，需要为项目添加mshflxegrid。其添加方法如同前面所述。选择“Microsoft”其它控件的属性参见表13。控件属性属性值CheckboxCaption商品浏览CheckboxCaption进货明细CheckboxCaption出货明细

30、MshflxegridMshflxegridMshflxegridLabelCaption返回表13 控件属性设置4-5-3：窗体图“浏览窗体”如图12所示。 图12 “浏览窗体”窗体图4-6： 创建查询窗体4-6-1：描述此窗体是供管理员通过商品编号查询商品利润和库存量的。使用户可以在进货时有个很好的参考。不会因为对商品的不了解而造成不必要的财力浪费。能够在合法的经营中赢的更多的收益。创建一个新窗体，caption属性为“查询窗口”。功能描述：当checkbox属性为真，且combobox中有取值，点击“确定”时，在相应的Mshflxegrid中显示数据。当checkbox属性为假， Msh

31、flxegrid中不显示数据。当点击“返回”时 系统自动返回到主窗体。4-6-2： 添加控件 此窗体中主要用到了mshflxegrid ,checkbox，combobox控件。此浏览功能的实现，是通过MSHFlxeGrid控件实现的。由于MSHFlxeGrid控件已经在工程中出现，则不需要再次添加，可直接使用。其它控件属性参见表14。控件属性属性值CheckboxCaption利润查询Checkboxcaption库存查询LabelCaption输入商品编号LabelCaption输入商品编号ComboboxComboboxMSHFlxeGridMSHFlxeGridLabelCaption

32、确定labelCaption返回表14 控件属性设置4-6-3： 窗体图 “查询窗口”如图13所示。 图13 “查询窗口”窗体图第五部分结 束 语通过一个多月的努力学习，各位老师和同学的鼎力帮助，这份“烟花爆竹经销管理”系统终于“问世”了。希望它可以有自己的一片天地，为需要它的人做出一些贡献。在老师和同学的精心调试以后，它仍然存在一些不足，辟如： 查询窗体是一个高级窗口，一般管理员是不允许查看的，但是在设计时没有注意到这一点；浏览窗体中的删除方法不太合理。报表的设计有点过于简单等等。在这次毕业设计中，我学到了不少东西，同时也对Visual basic 6.0 和 Access 2002 更加的

33、了解了。给我以后的工作和生活帮助很大。在此我再次感谢各位老师和同学的鼎力帮助，希望我们的设计都有会有用武之地。更希望老师们在以后的工作中会更加顺利，生活美满幸福。同时也希望我们都能在毕业之后找到自己理想的工作。参 考 文 献1、Visual Basic +Access数据库项目开发实践 周国民编著 中国铁道出版社2、全国计算机等级考试二级教程-Visual Basic 语言程序设计 刘炳文、杨明福、陈定中 编 高等教育出版社附录：form1窗体代码。（jrform）Private Sub Form_Activate()Image1.Left = 0Image1.Top = 0End SubPr

34、ivate Sub fqlabel_Click() Unload MeEnd SubPrivate Sub jrlabel_Click() Form2.Left = 3500 Form2.Top = 2000 Unload MeEnd SubPrivate 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 * R

35、nd, 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 Su

36、bForm2窗体图代码（yanzhengform）:Dim CheckCount As IntegerPrivate Sub Form_Load()Dim connectionstring As String connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & yhbzdate.mdb conn.Open connectionstringEnd SubPrivate Sub Form_Unload(Cancel As Integer) Set rstemp = Nothing En

37、d SubPrivate 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 IfIf rstemp.EO

38、F = False Then MsgBox 登录成功！ Unload Me Form3.Left = 3500 Form3.Top = 1000Else MsgBox 密码错误！ Text1.Text = Text2.Text = End If CheckCount = CheckCount + 1If CheckCount = 3 Then MsgBox 错误输入已达三次，系统退出！, vbOKOnly + vbExclamation, 警告 End Exit SubEnd IfEnd SubPrivate Sub cmdquxiao_Click() End End SubForm3窗体图代

39、码（mainform）:Dim x As IntegerPrivate Sub Form_Load() Combo1.AddItem 进货登记 Combo1.AddItem 销售登记Combo1.AddItem 商品登记 Combo1.AddItem 浏览窗口 Combo1.AddItem 查询窗口 Combo1.AddItem 添加、删除用户 Combo1.AddItem 修改密码End SubPrivate Sub cmdtc_Click() msg$ = 确定退出系统吗？ Title$ = 提示 x = MsgBox(msg$, 33, Title$) If x = 1 Then End

40、 Else End IfEnd SubPrivate Sub cmdqd_Click() If Combo1.Text = 进货登记 Then Form4.Left = 3000Form4.Top = 500 ElseIf Combo1.Text = 销售登记 Then Form5.Left = 3000 Form5.Top = 500ElseIf Combo1.Text = 商品登记 Then Form6.Left = 3000 Form6.Top = 500 ElseIf Combo1.Text = 修改密码 Then Form7.Left = 3500 Form7.Top = 1000

41、ElseIf Combo1.Text = 添加、删除用户 Then Form8.Left = 3500 Form8.Top = 2000 ElseIf Combo1.Text = 浏览窗口 Then Form9.Left = 500 Form9.Top = 50 ElseIf Combo1.Text = 查询窗口 Then Form0.Left = 2000 Form0.Top = 50 End IfEnd SubForm4窗体代码(jfdjform)： Private Sub Form_Load() connectionstring = provider=Microsoft.Jet.oled

42、b.4.0; & _ data source= & App.Path & yhbzdate.mdb conn.Open connectionstring End Sub Private Sub Form_Unload(Cancel As Integer) Set rstemp = NothingSet fd = Nothing End Sub Sub cleardata() DTPicker1.Value = Date Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub Sub appendrecor

43、d() Dim bs_money As Long bs_money = Val(Text4.Text) * Val(Text5.Text)If Trim(DTPicker1.Value) = Or Trim(Text2.Text) = Or ext) = Or Text3.Text = Or Text4.Text = Or Text5.Text = Then MsgBox 请完整填写各项数据！ cleardata Exit Sub Else Text6.Text = bs_money Set rstemp = New ADO Dim sql As Stringsql = select * fr

44、om jinhuobiao where 商品编号= & Trim(Text2.Text) & Set rstemp.ActiveConnection = conn rstemp.Open sql, conn, adOpenKeyset, adLockPessimistic If IsNumeric(Text5.Text) And IsNumeric(Text4.Text) Then MsgBox 记录填写成功！ cleardata Else MsgBox 请正确输入！ Text4.Text = Text5.Text = Exit Sub End If End If End Sub Privat

45、e Sub cmdtianjia_Click() appendrecord End Sub Private Sub cmdfanhui_Click() Unload Me Set conn = Nothing End SubForm5窗体代码(xiaoshouform)： Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & yhbzdate.mdb conn.Open co

46、nnectionstrin 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(Text

47、5.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 Exit Sub Else Text6.Text = bs_money Dim sql As Stringsql = select * from xiaoshoubiao where 商品编号= xt) & Set rstemp.ActiveConnection = conn r

48、stemp.Open sql, conn, adOpenKeyset, adLockPessimistic If IsNumeric(Text5.Text) And IsNumeric(Text4.Text) Then MsgBox 记录填写成功！ cleardata Else MsgBox 请正确输入！Text4.Text = Text5.Text = Exit Sub End If End If End Sub Private Sub cmdfanhui_Click() Unload Me Fo Set conn = Nothing End Sub Private Sub cmdtianj

49、ia_Click() appendrecord End SubForm6窗体代码(shangpingform)： Private Sub Form_Load() 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 Su

50、b cleardata()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub Private Sub cmdfanhui_Click()Unload MecSet conn = Nothing End Sub Private Sub cmdtianjia_Click()If Trim(Text1.Text) = Or Trim(Text2.Text) = Or Trim(Text3.Text) = Or Text3.Text = Or Text4.Text = Or Text5.Text = Then

51、MsgBox 请完整填写各项数据！CleardatatFocus Exit SubElse Dim sql As String sql = select * from shangpingbiao where 商品编号= & Trim(Text1.Text) & Set rstemp.ActiveConnection = conn rstemp.Open sql, conn, adOpenKeyset, adLockPessimistic If IsNumeric(Text5.Text) Then If rstemp.EOF = True ThenMsgBox 记录填写成功！Cleardata

52、Else MsgBox 有此编号 Cleardata Exit Sub End If Else MsgBox 请正确输入！ Text5.Text = Exit SubEnd If End If End SubForm7窗体代码(xiugaiform)： Dim rs As Boolean Private Sub Form_Load()connectionstring = provider=Microsoft.Jet.oledb.4.0; &data source= & App.Path & yhbzdate.mdbconn.Open connectionstring rs = False En

53、d Sub Private Sub cmdqd_Click()Dim sql As StringIf rs = False Thenrstemp.CursorLocation = adUseClientrstemp.CursorType = adOpenStatic rstemp.LockType = adLockPessimisticsql = select * from guanliyuanbiao where 管理员= & Trim(text3.Text) & and 密码= & Trim(Text1.Text) & rstemp.Open sql, connIf rstemp.EOF

54、= True And rstemp.BOF = True ThenMsgBox 无此用户名！text3.Text = Text1.Text = Exit SubEnd IfIf rstemp.EOF = False ThenText4.Visible = TrueText2.Visible = Truers = TrueExit SubEnd IfElseIf Trim(Text4.Text) Trim(Text2.Text) Then MsgBox 两次密码不一致！, vbOKOnly + vbExclamation, xt = Text2.Text = End IfIf Text4.Tex

55、t And Text2.Text Thensql = select * from guanliyuanbiao where 管理员= & Trim(text3.Text) & rstemp.CursorLocation = adUseClientrstemp.Open sql, conn, adOpenKeyset, adLockPessimisticMsgBox 密码修改成功text3.Text = Text1.Text = Text4.Text = Text2.Text = Text4.Visible = FalseText2.Visible = False rs = FalseEnd I

56、f End If End Sub Private Sub cmdfh_Click()Unload Me End SubForm8窗体代码(tianjiaform)：Private Sub Form_Load() Text1.Text = Text2.Text = End SubPrivate Sub cleardata() Text1.Text = Text2.Text = text3.Text = End Sub Private Sub cmdsc_Click()Dim sql As String Dim sql2 As StringDim x As Integersql = select

57、* from guanliyuanbiaosql2 = select * from guanliyuanbiao where 管理员= & Text1.Text & If Trim(Text1.Text) = Or Trim(Text2.Text) = Or Trim(text3.Text) = Then MsgBox 用户名和密码不能为空！, vbOKOnly CleardataElse Set rs = transactsql(sql2) If rs.EOF = True ThenMsgBox 该用户不存在！, vbOKOnly + vbExclamation, 提示CleardataEx

58、it Sub ElseIf Text2.Text text3.Text Then MsgBox 两次输入密码不同！, vbOKOnly Cleardata ElseSet rs = transactsql(sql2) If Text1.Text = yjl Then MsgBox 些用户为高级用户,你无权删除! Cleardata Else msg$ = 确定删除？ Title$ = 提示 x = MsgBox(msg$, 33, Title$) If x = 1 Then MsgBox 删除成功！, vlokonly, 提示 Cleardata ElseIf x = 2 Then End I

59、f Exit SubEnd If End If End IfEnd If End Sub Private Sub cmdtj_Click()Dim sql As StringDim sql2 As Stringsql = select * from guanliyuanbiaosql2 = select * from guanliyuanbiao where 管理员= & Text1.Text & If Trim(Text1.Text) = Or Trim(Text2.Text) = Or Trim(text3.Text) = Then MsgBox 用户名和密码不能为空！, vbOKOnly

60、 CleardataElse Set rs = transactsql(sql2) If rs.EOF = False Then MsgBox 该用户已经存在！, vbOKOnly + vbExclamation, 提示 Cleardata Exit Sub Else If Text2.Text text3.Text ThenMsgBox 两次输入密码不同！, vbOKOnlyCleardata ElseSet rs = transactsql(sql)rs.Fields(0) = Trim(Text1.Text)rs.Fields(1) = Trim(Text2.Text)MsgBox 用户