毕业论文 小型商场管理系统-博泰典藏网
典藏文档　篇篇精品
毕业论文 小型商场管理系统
导读：数据库技术是在60年代未兴起的一种数据管理技术，它帮助处理和管理复杂的数据，2)文件系统阶段：这一阶段计算机不仅用于科学计算，还大量用于管理，操作系统中有了管理数据软件，3)数据库系统阶段：这一时期计算机应用广泛，2.数据库系统的组成：，数据库系统由数据库、软件系统、硬件系统、数据管理员四个要素组成，2）软件系统，软件系统包括了数据库管理系统DBMS、操作系统、应用程序开发工具及应用程序，数据数据库的基本概念数据库技术是在60年代未兴起的一种数据管理技术。数据库在英语中的称为Database.拆开来看，Data是数据。Base可译为基地。所以在通俗的意义上，数据库不妨理解为存储数据的基地或仓库。 1. 数据库的发展历史：在计算机不断发展的过程中，数据的处理量不断的增长，数据之间复杂程度也随着增加，这时出现了数据库技术，它帮助处理和管理复杂的数据，更能充分利用信息资源，数据库在20世纪60年代末出现，经过几十年的发展大致有三个阶段：1) 人工发展阶段：这一阶段的计算机主要用于单纯的科学计算2) 文件系统阶段：这一阶段计算机不仅用于科学计算，还大量用于管理，这时的计算机有了直接存取的存储设备，操作系统中有了管理数据软件，
处理方式有了能够联机实时处理。3) 数据库系统阶段：这一时期计算机应用广泛，数据量急剧增长，计算机的软硬件都发展很快。 2. 数据库系统的组成：数据库系统由数据库、软件系统、硬件系统、数据管理员四个要素组成。它们之间构成有机的整体，相互配合和依靠，为用户提供各类信息服务。1）数据库数据库是根据用户的需要按一定形式存储的数据的集合。集成不是简单的相加，而是统筹考虑各个相关应用领域的信息需求，除去不必要的冗余，实现数据的最大程度的共享。其内容主要分为两部分：一是物理数据库，记载了所有数据；二是数据字典，描述了不同数据之间的关系和数据组织的结构。2）软件系统软件系统包括了数据库管理系统DBMS、操作系统、应用程序开发工具及应用程序。 数据库管理系统是整个数据库系统的核心，由DBMS调用操作系统的相关部分来执行。操作系统创建并维护了DBMS的运行环境。应用程序开发工具用来开发数据库相关的应用程序，本次用来设计的VPF6.0就是一种优秀的工具，它功能全，有极高的处理数据速度。3）硬件系统硬件系统是指支持数据库系统运行的全部硬件，一般由CPU、主存、外存等组成。4）数据库管理员数据库管理员DBA是专门负责数据库系统设计、运行和维护的专职人员，他们在数据库系统的规划、设计、运行阶段担当着重要任务。数据库管理员的工作非常烦琐和复杂，往往由几人组成小组进行设计。3. 数据库设计概述：数据库设计是从用户对数据的需求为出发点，研究并构造数据库结构的过程，这里的数据结构是指数据库的逻辑和物理结构。数据库设计有两个重要的目标，既满足应用功能和好的数据库性能。满足应用功能，主要指用户当前与可预知的将来应用所需的数据和其联系准确地存放到数据库中，从而满足用户对所需对数据库的操作。好的数据库性能，主要指对数据的高效率和空间的节省，并具有好的数据共享性、完整性、一致性和安全性。数据库设计的好坏，不仅影响到当前的应用，也影响以后的维护工作。4. 数据库设计的过程：1）系统分析系统分析的目标是了解与分析用户的信息及应用处理的要求。并将结果形成需求说明书。2）概念设计概念设计的目标是对需求说明书提供的所有信息和应用处理要求进行抽象与综合处理，并按照一定的方法构造相应的概念模型。3）实现设计实现设计的目标是将概念模型转换成特定数据管理系统所接受的数据库逻辑结构。数据库逻辑结构通常由层次、网状和关系的数据模型表示。4）物理设计物理设计的目标是将数据库转换为特定计算机能接受的数据库。物理设计的主要内容是选择数据的存储方式及检索技术。 数据库的设计过程一、FoxPro概述：FoxPro是美国Fox Software公司推出的用于微机平台的关系数据库管理系统，可以帮助用户收集、恢复和描述数据。FoxPro的功能强大，速度高，有完整丰富的工具、非常友好的用户界面、简单的数据存取方式，并具有良好的兼容性、跨平台特性及可编择性。FoxPro是一种在微机上小型事物管理系统中广泛应用的数据库系统软件，它在FOXBASE的基础上引入集成不幸、报表自动生成和关系举例检索等功能，并且提高运行速度。FoxPro与FoxBASE百分之一百兼容，FoxBASE的命令及函数在FoxPro中均可使用。该系统分为单用户版本和多用户版。这两类版本各有一个32位增强型版本。FoxPro较ForBASE具有以下特点：1．FoxPro是当时DOS系统中唯一支持鼠标的数据库产品，它自动透明地支持鼠标，它无鼠标时一样可完善地进行工作。2．对FoxBASE的语句做了大量的扩展。例如FoxPro比FoxBASE增加了200余条命令和函数，增加了系统内部变量。增加了同时打开的工作区数和索引文件数3．FoxPro比其它数据库产品处理速度快。特别是进行某些查询时，其快速查找技术Rushmore可以使较大的数据库的查找速度比其它产品快几百倍甚至上千倍。4．FoxPro中的RQBE(relation puery by example)窗口，可使用与建立其它对象相同的方法来建立一个SQL查询，人一个或多个数据库中提取信息。5．ForPro中的使用两种索引文件：单索引文件和复合索引文件。单索引文件可以有效地减少索引文件所需的磁盘空间。建立复合索引后，每次修改数据库不必先打开索引文件，使用时分方便，且FoxPro的复合索引文件把一个数据库文件中的所有索引字段都放在一个唯一的索引文件中。6．FoxPro提供了工程文件来记录一个程序所需数据库文件、索引文件、屏幕、菜单、报表、查询、标签以及他格式的文件。用户还可以使工程文件建立一个在FoxPro内部使用的应用程序或程序员感兴趣的.EXE文件。7．FoxPro采用高级外部程序接口（API），使用户方便的运用C语言、汇编语言完成涉及系统底层的程序设计。8．FoxPro可以运行在MS DOS
UNIX等操作系统环境下，并保持其对每一级用户拥有相同的用户界面、工具和语言。其中Windows下的FoxPro支持动态数据库交换、目标链接与嵌入。9．使用FoxPro时，一切工作均可围绕工作菜单与窗口进行，可以利用界面对数据进行操作，也呆以利用界面编写、编译应用程序。操作时可能使用鼠标，也可使用键盘。应用程序的开发者可使用带有调试工具的集成开发环境、Xbase语言、项目管理工具及应用程序生成器，开发出功能和有强的图形应用程序，实现窗口技术、鼠标操作、各种形式的菜单等 二、在设计过程过遇到的问题和解决方案：1.程序的调试：我们在编程时难免都会出错，出错以后怎样找出错误的地方就变得很重要了，只有正确找出错误的地方才可以将其改正，下面我就谈一些查错的常用方法。如果在我们程序中有语法性的错误，当程序运行到错误的语句时系统就会停下来，并提示我们程序有错，往往还会说出是什么错误，如“命令中含有不能识别的短语或关键字”，并给出选择“取消”、“挂起”、“忽略”、“帮助”四个选择，它们的意思分别是：取消――中止程序运行，回到命令窗口，相当于执行了cancel命令，在程序中创建的所有变量被释放（除公共变量），但数据库及数据表一般保持当时的状态，您可以用browse命令查看数据表的内容即记录指针所在的位置等等；挂起――暂停程序，相当于执行了suspend命令，这时程序中的所有变量都保持原值，您可以用?命令查看变量的值，当然也可以查看数据表的情况；忽略――忽略所出现的错误，即跳过出错的语句继续执行后面的语句； 帮助――显示有关出错的帮助信息，对于错误做更详细的说明。不过很多时候都没什么帮助。如果你看出问题出在哪，那么您可以用取消，然后进到程序中找出错误所在，将其改正。在选择了取消后，可能这时有表单是打开的，那么用鼠标点一下该窗口，然后调菜单上的文件―关闭。如果菜单是您自己的自定义菜单，用set sysmenu to default回到系统菜单。改完后，再次运行程序前，最好将所有的数据库及表关闭，以免在程序打开一个数据表时出现表已打开的错误，比较好的办法是在程序开头先关闭所有的数据库及表。关闭所有数据库的命令是：close databases all，关闭所有表的命令是：close tables all。如果你不知道问题出在程序的哪个地方，那么就选择挂起，系统会弹出一个调试器窗口显示出错的语句，在跟踪窗口的黄色箭头所指的语句就是出错的语句。这时不要马上改程序，因为程序还没有结束运行，如要改程序应先终止程序运行，按调试中的终止按钮，然后退出调试器（菜单上的文件―退出），接下来与上面选择取消后的处理方法相同。 2. 模式表单的应用在运行表单时，往往因为打开了另一个表单，而造成一些库文件的使用冲突。通常的解决方法有两种。第一，在表单设计时把使用的库文件的BufferModeOverride属性设为5(开放式表缓冲)，并以tableupdate(.T.)来保存更改，这样就能在多个表单同时使用库文件时不会有冲突，但是这种方法有时会使程序进行中的数据更新不及时，而使程序进行不正常。因为在我的设计中使用了第二种方法把表单设置为模式表单。模式表单一般地被用来处理错误报告，或者请求用户确认操作等。在模式表单中，菜单不能使用（从而避免了重复打开表单的冲突）。如果需要，模式表单也提供应用'等待状态'。 3. 在应用程序中避免出现VFP的窗口标题在生成EXE文件后，进行程序时，程序的标题默认为MicrosoftVisualFOXPRO，改为自定义标题的方法如下：在CONFIG.FPW文件中，加&TITLE = 你的标题&行。另外， 也可以在主程序中加入：_SCREEN.Caption=&你的标题& 4. 当filter设置时，应该用locate代替seek当你的查找字段是建立了索引且当前索引是该索引时，SEEK 通常是查找单个记录的最快的方法。不过，当设置了filter时，SEEK 非常慢。理由是SEEK将查找符合你的搜索标准的第一个记录。FoxPro为了移动记录指针到相应的记录上，必须找到和你的标准相匹配且和filter条件相称的记录。和 SEEK不同, LOCATE 是可进行Rushmore优化的. 当一个可优化的filter 起作用时，LOCATE FOR CustId=m.CustId 通常比SEEK m.CustId 更快。在GO TOP 和 GO BOTTOM 中也存在相似的问题。用无子句的LOCATE来执行GO TOP，将会使记录指针移动到乎合filter 条件的第一个记录。要执行 GO BOTTOM, 设置当前索引标识的降序然后LOCATE, 在将索引设置为原来的升序。 5. 当所有窗口打开时，怎样才能看到VFP桌面上的内容在程序设计时，通常要开两个或以上的的窗口，但是这样一来，要使用VFP桌面上的东西就要一个个的缩小或关闭。这里有一个简单的方法：按ALT+CTRL+SHIFT将把全部打开的窗口隐藏起来，直到放开键。这样就能直接看到桌面了。 6.设置焦点为了使用户在使用程序时更加方法，通常会在一个文本框输入结果后，自动把光标指定在下一个应该输入的框中，其方法是在事件中使用setfocus()，但是setfocus()不能从一个对象的VALID事件中把焦点设置到另一个对象上。应该用LostFocus事件作为替代。（有特殊情况时可以使用其它事件代替）。7. DataSource 属性和 ControlSource 属性之间,以及 RowSource 属性和 RecordSource 属性的区别DataSource 属性可以影响存储在一个数据库 (.DBC) 中的 ODBC 视图。它包含了对连接到 ODBC 数据文件名称的引用，并且必须指向一个通过 ODBC 管理程序定义的有效的数据源。您可以使用 SQLSETPROP( ) 函数操作 DataSource 属性，而用 SQLGETPROP( ) 函数可以查看它的设置。ControlSource 属性用来确定一个对象所绑定的数据源；一个对象所绑定的表或者视图可以为任意类型，包括本地 Visual FoxPro 表，具有 ControlSource 属性的对象有：CheckBox、Column、ComboBox、CommandGroup、EditBox、ListBox、OLE Bound Control、 OptionButton、OptionGroup、Spinner 和 TextBox 控件。某些控件（ListBox 和 ComboBox）除了 ControlSource 属性之外，还有 RowSource 属性允许您一次显示多于一个字段和行。数据仍然是与单一的字段绑定的，这就是为什么这些控件需要 ControlSource 属性。表格控件是唯一具有 RecordSource 属性的控件，但是没有 ControlSource 属性。对于表格控件，数据是与一个完整的记录绑定的。 8. 迅速地在属性窗口中定位一般的情况下在表单的设计中，要对该控件的部分属性进行修改，但是由于控件的属性很多要找到想修改的属性要比较麻烦（用熟了可以知道大概位置）但这有一个小方法能迅速地在属性窗口中定位：热键Ctrl+Alt+key使在属性窗口中定位变得快而简单。例如，当表单对象选中时，在属性窗口中按下Ctrl+Alt+C将快速移动到Caption属性。以上方法是对单个控件进行属性设置，但有些表单的控件有十几个，所以就算使用热键还是比较麻烦。我的解决方法是，先想好表单中控件中基本上相同的属性，然后把该控件复制若干个，之后再逐个把不相同的属性改过来就行了。 9. 程序中建立'等待状态'有时编译后的程序运行时，屏幕一闪就退出了，要解决这种问题应该在程序中建立‘等待状态’。可以用READ EVENTS命令来建立等待状态。要清除等待状态，可使用CLEAR EVENTS命令。如果你只有一个屏幕，把表单的WindowState属性设置为Modal。这也提供等待状态，但是不允许你使用菜单。当模式表单被释放时，等待状态结束并返回至操作系统。三、常用命令函数，对象，属性，事件，方法：1．命令：假设(if...endif)循环(do while...enddo)分支(do case...endcase)调用表单(do form)返回调用程序(return)启动事件处理(read events)清除事件处理(clear events)开关命令执行状态(set talk on/off)
开关一个事务（begin/end transaction） 事务处理回复原状态（rollback）在表中添加记录（append[blank]）删除有删除标记的记录（pack）更新表记录（replace ..with..）定义全局内存变量（public）结束程序(cancel) 2．函数：字符转换数值(val())取系统日期(date())取年份(year())取月份(month())取天日(day())删除标记(delete())表结尾(eof())消除前后空格(alltrim ())返回字符串长度（len()） 3．对象(object)：表单(form)按钮(commandbutton)标签(label)文本框(text)表格(grid) 4．属性(property)：标题(caption)左起始位(left)上起始位(top)宽度(width)高度(hight)控制源(controlsource)值(value)包含总结汇报、自然科学、表格模板、教学研究、人文社科、出国留学、农林牧渔、高中教育、经管营销、求职职场、高等教育、行业论文、外语学习、工程科技、初中教育、IT计算机以及毕业论文 小型商场管理系统等内容。本文共8页
相关内容搜索写毕业论文，关于国外动态即国外学者发表过的文章中的观点做文献，实在找不到，我的论文题目是网上商店营_百度知道
写毕业论文，关于国外动态即国外学者发表过的文章中的观点做文献，实在找不到，我的论文题目是网上商店营
实在找不到写毕业论文，关于国外动态即国外学者发表过的文章中的观点做文献，帮我找找关于这方面的文献十个左右，或交我好的方法，我的论文题目是网上商店营销策略研究
这是一道待解决的难题
您的回答被采纳后将获得系统奖励20（财富值+经验值）+难题奖励20（财富值+经验值）
我有更好的答案
按默认排序
你知道知网吗，白天可能弄不了，今晚我帮你弄弄这个哈，白天的时候得去上班
中国知网没国外文献
等我晚上回去给你看看啊
其他类似问题
毕业论文的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁商场管理系统的设计与实现
阅读：2382次&&&时间： 00:00:00&&
要商场管理系统是典型的管理信息系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用 MICROSOFT公司的 VB.NET开发工具作前端的应用开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这能方便而简洁操纵数据库的智能化对象，利用ＳＱＬ作为 后台的数据库，WINXP作为系统。首先，在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键词：管理信息系统，商场管理，对象AbstractThe administrative system of the market is the typical the management information system (MIS), it develops two respects of main development including setting-up and maintenance and front application program of backstage supporter's database . Demand to set up the consistency of the data and integrality the storehouse of strong , data with good security to the former. Require to the latter the function of the application program is complete , apt characteristic of using etc. .
Through analyzing,we use VB. NET of MICROSOFT Company developing instrument makes the application developing instruments of the front, utilizes its various kinds of target -oriented developing instruments offered, data window this can convenient succinct to handle intelligent target of the database especially, utilize SQL as database of backstage supporter , as the system WINXP. First of all, set up the applied prototype of the system within short time, then, go on demand change and take the place of to initial prototype system , revise and improve constantly, until forming the feasible system that users are satisfied with.Keyword: The management information system, the market manages, the object目
课题发展进程和最新动向(综述)2.1 课题来源 2.3 当前同类系统存在的问题及解决办法 2.4 本课题要达到的目标 第3章 设计方案或方案论证 3.1研究设计中要解决的问题 3.2具体实现中采用的关键技术及复杂性分析 第4章 系统设计4.1系统结构、站点结构设计 4.2模块划分 4.3数据库结构的设计 4.3.1 数据库需求分析 4.3.2 数据库概念结构设计 4.3.3 数据库逻辑结构设计 4.3.4 数据库结构的实现 第5章
系统的实现5.1 开发环境及工具 5.1.1软硬件环境 5.1.2开发工具 5.2 模块说明及程序流程设计 5.2.1模块说明 5.2.2流程设计 5.3 关键技术（代码）分析 5.3.1商场管理信息系统主窗体的创建 5.3.2商品管理信息模块的代码 5.3.3商品类型信息模块的代码 5.3.4销量查询信息模块代码 5.3.5任命人事信息代码 5.3.6商场客户端主窗体的创建 5.3.7商场客户端登录窗体的创建 第 6 章 系统运行效果（系统测试）6.1 系统运行效果
6.2 自我总体评价 6.3 测试结果 6.4 改进意见 参考文献 致谢 第1章 前言计算机技术、网络技术、多媒体技术的成熟与发展，为商场管理自动化提供了强有力的技术支持企业的物资供应管理往往是很复杂，繁琐的。由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同。各类统计计划报表繁多，因此商场管理必须实现计算机化，而且必须根据企业的具体情况制定相应的方案以便提高工作效率,所以我选择这个题目做一定的研究并最终实现。商场管理涉及到大量的信息处理,如商品信息,查询信息，购买信息等，商品的流动是否合理，是否畅通，对企业的生产经营活动有着直接影响，商品管理水平的高低直接影响着企业的成本，如今的商场作业和商场控制作业已多样化，复杂化，靠人工去记忆去处理十分困难，如果不能正确的进货,验收,质量保证及销售,就会导致浪费时间,产生库存,延迟销售增加成本,以至失去为客户服务的机会,为了解决上问题,开发一个智能的商场管理系统显得十分必要,本文将以一个典型的商场管理系统为例，讲述如何实现商场管理系统。开发本系统的目的是对自己的四年学习计算机技术的一种总结，通过对本系统的开发使自己所掌握的计算机技术更加的牢固。本论文包括系统设计、数据库设计、数据库结构的设计以及系统的实现。自己在本系统中的设计中担任主体设计工作，在指导老师谢旭升的指导下，在同学王丽娜和朱凌的帮助下设计出该系统。第2章 课题发展进程和最新动向（综述）2.1课题来源和朋友逛街，一开始对商品序号直接扫描在电脑上进行结算挺好奇的，加上自己也学了数据库之方面的知识，正好在这个时候自己要写毕业论文，所以就以这个商场管理信息系统做为自己毕业论文的题目。2.2用户的需求分析用户的需求分析主要是商品信息包括类型的增加、删除，修改，及管理员对商品的查询。2.3当前同类系统存在的问题及解决办法
当前同类系统存在的问题还不是很完善，在某些功能还必须借助于人工手段，各个企业还不能通过网络共享数据库。解决办法是开发一个智能商场管理系统，使得系统更加方便用户简单操作。2.4本课题要达到的目标
本课题要达到的目标是要设计一个商场管理信息系统，实现商品基本信息的查询、商品出售找零、商品管理和类型管理等功能。第3章 设计方案或方案论证3.1研究设计中要解决的问题设计中要解决的问题是需求分析、可行性研究、软件概要设计、软件详细设计、软件编码、软件测试以及软件维护。3.2具体实现中采用的关键技术及复杂性分析具体实现中采用的关键技术是数据库原理、软件工程等技术。第四章 系统设计4.1系统结构、站点结构设计不同的商场对商场管理的流程和要求不尽相同。一般而言，商场管理系统需要具备以下功能：商场管理端：l 资源管理：主要包括商品管理、商品类型、退出系统。商品管理用来对商品的增加、删除、修改。商品类型用来对商品类型的增加、删除。l 查询信息：主要用于对商品的销量查询。l 人事管理：主要用于对商场人员的添加、删除。商场客户端：主要是收银员对商品销售的收钱、找零等。4.2模块划分根据系统功能分析和物资仓库的管理特点，经过模块下的分析得到如下图所示商场管理系统功能模块结构图:.4.3数据库结构的设计设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能需要增加的需求。数据库设计一般包括如下几个步骤：l 数据库需要分析。l 数据库概念结构设计。l 数据库逻辑结构设计。4.3.1数据库需求分析根据系统功能和数据流图，可以确定以下数据项和数据结构：l 商品信息：商品编号、商品名称、商品类型编号、商品价格、商品折扣、商品折扣等。l 部门信息：部门编号、部门名称等。l 员工级别信息：员工级别、员工级别备注等。l 员工信息：员工编号、员工姓名、员工级别、员工所在部门编号、员工是否在职、员工密码等。l 销售信息：商品编号、商品数量、商品价格、销售日期及时间、收银员编号、货单编号等。l 商品类型信息：商品类型编号、商品名称等。4.3.2数据库概念结构设计根据上面的分析得到如下图所示的实体E-R图：
…实体之间关系E-R图如下图所示。04.3.3数据库逻辑结构设计：根据要求商场管理系统需要建立6个数据，包括：货物信息、部门信息、员工级别信息、员工信息、销售信息、商品类型信息。数据表结构如表4.1至4.6所示：表4.1
商品信息表字段名 数据类型 是否可空 说明SN CHAR(15) NOT NULL 商品编号NAME CHAR(20) NOT NULL 商品名称TYPE_ID SMALLINT(2) NOT NULL 商品类型编号PRICE INT(4) YES 商品价格DISCOUNT TINYINT(1) YES 商品折扣MEMORY CHAR(30) YES 商品折扣表4.2
部门信息表 字段名 数据类型 是否可空 说明ID CHAR(1) NOT NULL 部门编号DEPARTMENT CHAR(10) NOT NULL 部门名称表4.3
员工级别信息表字段名 数据类型 是否可空 说明CLASS CHAR（！） NOT NULL 员工级别MEMORY CHAR（10） YES
员工级别备注表4.4
员工信息表字段名 数据类型 是否可空 说明ID CHAR（9） NOT NULL 员工编号NAME CHAR（8） NOT NULL 员工姓名CLASS_ID CHAR（1） NOT NULL 员工级别DEPARTMENT CHAR(1) NOT NULL 员工所在部门编号EXIST
BIT(1) YES
员工是否在职PASSWORD CHAR(6) YES
员工密码表4.5
销售信息表字段名 数据类型 是否可空 说明SN INT(4) NOT NULL 商品编号NUMBER SMALLINT(2) NOT NULL 商品数量PRICE MONEY(8) NOT NULL 商品价格DATAS DATETIME(8) NOT NULL 销售日期TIMES DATETIME(8) NOT NULL 销售时间SALERS_ID CHAR(4) NOT NULL 收银员编号SERIAL_NO DHAR(4) NOT NULL 货单编号表4.6
商品类型信息表字段名 数据类型 是否可空 说明TYPE_ID SMALLINT(2) NOT NULL 商品类型编号TNAME CHAR(10) NOT NULL 商品名称4.3.4数据库结构的实现1．创建商品信息表 CREATE TABLE [GOODS] ( [SN] [char] (15) COLLATE Chinese_PRC_CI_AS NOT NULL , [NAME] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [TYPE_id] [smallint] NOT NULL , [PRICE] [int] NULL , [DISCOUNT] [tinyint] NULL , [MEMORY] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]2．创建部门信息表
CREATE TABLE [DEPARTMENT] ( [ID] [char] (1) COLLATE Chinese_PRC_CI_AS NOT NULL , [department] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON [PRIMARY]3．创建员工级别信息表 CREATE TABLE [CLASSDESCRIPTION] ( [class] [char] (1) COLLATE Chinese_PRC_CI_AS NOT NULL , [memory] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]4．创建员工信息表 CREATE TABLE [OPERATOR] ( [ID] [char] (4) COLLATE Chinese_PRC_CI_AS NOT NULL , [NAME] [char] (8) COLLATE Chinese_PRC_CI_AS NOT NULL , [CLASS_ID] [char] (1) COLLATE Chinese_PRC_CI_AS NOT NULL , [DEPARTMENT] [char] (1) COLLATE Chinese_PRC_CI_AS NOT NULL , [EXIST] [bit] NULL , [PASSWORD] [char] (6) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]5 .创建销售信息表
CREATE TABLE [SALES] ( [SN] [int] NOT NULL , [NUMBER] [smallint] NOT NULL , [price] [money] NOT NULL , [datas] [datetime] NOT NULL , [times] [datetime] NOT NULL , [salers_id] [char] (4) COLLATE Chinese_PRC_CI_AS NOT NULL , [serial_no] [int] NOT NULL ) ON [PRIMARY]6．创建商品类型信息表CREATE TABLE [TYPE] ( [type_id] [smallint] NOT NULL , [Tname] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON [PRIMARY]第5章 系统实现5.1 开发环境及工具5.1.1软硬件环境软件环境：兼容当前主流操作系统 Windows 95/98/NT/Me/2000/XP 等。硬件环境：586以上计算机，打印机、扫描仪等。5.1.2开发工具前台开发环境：Microsoft Visual Basic.net后台数据库环境：SQL Server 2000用Microsoft Visual Basic.net作前台，用SQL Server 2000作后台开发商场管理系统从而使系统更加完善。5.2 模块说明及程序流程设计5.2.1 模块说明商场管理信息系统包括的模块有：1． 源管理模块，用于商品管理和类型管理。2． 查询管理模块，用于对商品销量查询。3． 人事管理模块，用于对商场人员的管理。4． 商品销售管理模块，用于对商品的出售和找零。5.2.2流程设计仔细分析调查有关商场管理信息需求的基础上，将得到如下图所示的本系统所处理的数据流程:
5.3 5.3关键技术（代码）分析5.3.1商场管理信息系统主窗体的创建
上面的SQL语句在SQL Server 2000 中的查询分析器的执行，将自动产生需要的所有的表格。有关数据库结构的所有的后台工作已经完成。现在将实现商场管理信息系统中各个功能模块。商场管理端主窗体的创建：主窗体的构架及所需控件属性设置
Name Form1Form
Text Apple商场管理端
StartPosition WindowsDefaultLocation
WindowsState Normal创建好的窗体如下图所示： 商场管理端主窗体的菜单格式如下：
创建公用模块：在Visual Basic.Net中可以用公用模块来存放整个系统的公用的函数、过程和全局变量等，这样可以提高代码的效率。增加的公用模块的代码如下： Module _public
Public company As String
Function checksum(ByVal string1) As Boolean
Dim i As Integer
checksum = False
For i = 1 To Len(string1)
If Mid(string1, i, 1) > "0" And Mid(string1, i, 1) < "9" Or Mid(string1, i, 1) = "." Then
checksum = True
End FunctionEnd Module5.3.2商品管理信息模块的代码如下：Public Class Form2
Inherits System.Windows.Forms.FormDim reader1 As SqlClient.SqlDataReader
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlDataAdapter2.Fill(DataSet11)
SqlDataAdapter3.Fill(DataSet11)
DataGrid1.RowHeadersVisible = False
SqlConnection1.Close()
ComboBox1.SelectedIndex = 0
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "select * from good where 产品号='" & Trim(TextBox1.Text) & "'"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
If reader1.Read Then
TextBox2.Text = reader1.GetString(1)
ComboBox1.Text = reader1.GetString(3)
Dim l, j As Integer
l = reader1.GetInt32(2) \ 100
j = reader1.GetInt32(2) Mod 100
If j > 9 Then
TextBox3.Text = Str(l) & "." & Trim(Str(j))
TextBox3.Text = Str(l) & ".0" & Trim(Str(j))
TextBox4.Text = reader1.GetString(4)
TextBox4.Text = ""
TextBox2.Text = ""
TextBox2.Focus()
TextBox3.Text = ""
TextBox4.Text = ""
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "delete from goods where sn='" & Trim(TextBox1.Text) & "'"
SqlCommand1.ExecuteNonQuery()
DataSet11.GOOD.Clear()
SqlDataAdapter2.Fill(DataSet11)
DataGrid1.Refresh()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SqlConnection1.Close()
SqlConnection1.Open()
If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then
MsgBox("有记录为空")
If Not checksum(TextBox3.Text) Then
TextBox3.Text = ""
mandText = "select * from goods where sn='" & Trim(TextBox1.Text) & "'"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
If reader1.Read Then
MsgBox("商品已存在")
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "insert into goods values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "'," & _
(ComboBox1.SelectedValue) & "," & Val(TextBox3.Text) * 100 & "," & "NULL" & ",'" & TextBox4.Text & "')"
SqlCommand1.ExecuteNonQuery()
DataSet11.GOOD.Clear()
SqlDataAdapter2.Fill(DataSet11)
DataGrid1.Refresh()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SqlConnection1.Close()
SqlConnection1.Open()
If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then
MsgBox("有记录为空")
If Not checksum(TextBox3.Text) Then
TextBox3.Text = ""
mandText = "delete from goods where sn='" & Trim(TextBox1.Text) & "'"
SqlCommand1.ExecuteNonQuery()
mandText = "insert into goods values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "'," & _
(ComboBox1.SelectedValue) & "," & Val(TextBox3.Text) * 100 & "," & "NULL" & ",'" & TextBox4.Text & "')"
SqlCommand1.ExecuteNonQuery()
DataSet11.GOOD.Clear()
SqlDataAdapter2.Fill(DataSet11)
DataGrid1.Refresh()
Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
TextBox1.Text = DataGrid1.CurrentRowIndex
End SubEnd Class5.3.3商品类型信息模块的代码如下：Public Class TYPEInherits System.Windows.Forms.FormDim reader1 As SqlClient.SqlDataReader
Private Sub TYPE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlDataAdapter1.Fill(DataSet11)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ListBox1.SelectedIndex = Val(TextBox1.Text)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(TextBox1.Text)
Dim i As Integer = 0
Dim string1 As String
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "select * from type"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
While reader1.Read
i = reader1.GetInt16(0)
If Trim(reader1.GetString(1)) = Trim(TextBox1.Text) Then
MsgBox("该品种已存在")
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "insert into type values(" & i & ",'" & Trim(TextBox1.Text) & "')"
SqlCommand1.ExecuteNonQuery()
DataSet11.Clear()
SqlDataAdapter1.Fill(DataSet11)
ListBox1.Refresh()
Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
TextBox1.Text = ListBox1.SelectedValue
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("是否删除类型" & TextBox1.Text, 1) = 1 Then
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "delete from type where tname='" & Trim(TextBox1.Text) & "'"
SqlCommand1.ExecuteNonQuery()
DataSet11.Clear()
SqlDataAdapter1.Fill(DataSet11)
ListBox1.Refresh()
TextBox1.Text = " "
End SubEnd Class5.3.4销量查询信息模块代码如下：Public Class salesInherits System.Windows.Forms.FormPrivate Sub sales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlDataAdapter1.Fill(DataSet11)
SqlDataAdapter3.Fill(DataSet11)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim string1, string2, string3, string4 As String
SqlConnection1.Close()
SqlConnection1.Open()
If TextBox1.Text = "" Then
string1 = "%"
string1 = TextBox1.Text
If CheckBox1.Checked = True Then
string2 = ComboBox1.Text
string2 = "%"
If CheckBox2.Checked = True Then
string3 = ComboBox2.Text
string3 = "%"
SqlDataAdapter2.SelectCommand.Parameters("@param1").Value = string1
SqlDataAdapter2.SelectCommand.Parameters("@param2").Value = string2
SqlDataAdapter2.SelectCommand.Parameters("@param3").Value = string3
SqlDataAdapter2.SelectCommand.Parameters("@param4").Value = DateTimePicker1.Value
SqlDataAdapter2.SelectCommand.Parameters("@param5").Value = DateTimePicker2.Value
DataSet11.SALE.Clear()
SqlDataAdapter2.Fill(DataSet11)
DataGrid1.Refresh()
SqlConnection1.Close()
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
ComboBox1.Enabled = True
ComboBox1.Enabled = False
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
ComboBox2.Enabled = True
ComboBox2.Enabled = False
End SubEnd Class5.3.5任命人事信息代码如下：Public Class personnelInherits System.Windows.Forms.FormPrivate Sub personnel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
StatusBarPanel1.Text = "公司：" & company
Gettreeview()
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Select Case Getb(TreeView1.SelectedNode.FullPath())
StatusBarPanel2.Text = ""
StatusBarPanel3.Text = ""
GroupBox1.Hide()
Button1.Hide()
Label3.Hide()
Label2.Hide()
StatusBarPanel2.Text = "部门：" & TreeView1.SelectedNode.Text
StatusBarPanel3.Text = ""
GroupBox1.Text = "部门：" & TreeView1.SelectedNode.Text
TextBox1.Text = ""
Button1.Show()
Button3.Hide()
Label3.Hide()
Label2.Hide()
StatusBarPanel2.Text = "部门：" & TreeView1.SelectedNode.Parent.Text
StatusBarPanel3.Text = "员工：" & TreeView1.SelectedNode.Text
GroupBox1.Text = "部门：" & TreeView1.SelectedNode.Parent.Text
GroupBox1.Show()
TextBox1.Text = TreeView1.SelectedNode.Text
Button1.Hide()
Button3.Show()
SqlConnection1.Close()
SqlConnection1.Open()
Dim reader1 As SqlClient.SqlDataReader
mandText = "select id from
operator where name='" & Trim(TreeView1.SelectedNode.Text) & "'"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
If reader1.Read Then
Label3.Text = reader1.GetString(0)
Label3.Show()
Label2.Show()
End Select
Function Getb(ByVal string1) As Integer
Dim i As Integer
For i = 1 To Len(string1)
If Mid(string1, i, 1) = ":" Then
End Function
Sub Gettreeview()
Dim reader1, reader2 As SqlClient.SqlDataReader
Dim node1 As New TreeNode(company)
Dim node2 As New TreeNode()
Dim string1, string2 As String
SqlConnection1.Close()
SqlConnection1.Open()
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add(node1)
mandText = "select * from department"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
While reader1.Read
string1 = Trim(reader1.GetString(1))
string2 = reader1.GetString(0)
node2 = TreeView1.Nodes(0).Nodes.Add(string1)
mandText = "select * from operator where department='" & string2 & "'"
SqlConnection2.Close()
SqlConnection2.Open()
reader2 = SqlCommand2.ExecuteReader(CommandBehavior.CloseConnection)
While reader2.Read
If reader2.GetBoolean(4) = 0 Then
node2.Nodes.Add(reader2.GetString(1))
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "update operator set exist=1 where name='" & Trim(TextBox1.Text) & "'"
SqlCommand1.ExecuteNonQuery()
Label4.Text = "删除员工" & TextBox1.Text
Gettreeview()
TextBox1.Text = ""
GroupBox1.Hide()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(TextBox1.Text) = "" Then
SqlConnection1.Close()
SqlConnection1.Open()
Dim reader1, reader2 As SqlClient.SqlDataReader
Dim i As Integer
Dim string1 As String
mandText = "select id from operator"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
While reader1.Read
i = Val(reader1.GetString(0))
mandText = "select id from department where department='" & Trim(TreeView1.SelectedNode.Text) & "'"
SqlConnection2.Close()
SqlConnection2.Open()
reader2 = SqlCommand2.ExecuteReader(CommandBehavior.CloseConnection)
If reader2.Read Then string1 = reader2.GetString(0)
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "insert into operator values('" & Str(i + 1) & "','" & Trim(TextBox1.Text) & "','1','" & _string1 & "',0,'00000')"
SqlCommand1.ExecuteNonQuery()
Gettreeview()
Label4.Text = "增加员工
工号：" & Str(i + 1) & "
姓名" & TextBox1.Text
TextBox1.Text = ""
GroupBox1.Hide()
End SubEnd Class5.3.6商场客户端主窗体的创建主窗体的构架及所需控件属性设置控件 属性 属性取值 Name SalesForm Text Apple商场客户端 WindowsState Normal StatusBarPanel1 TextStatusBar StatusBarPanel2 Text StatusBarPanel3 Date
StatusBarPanel4 Time创建好的窗体如下图所示： 代码如下：Public Class salesInherits System.Windows.Forms.FormDim reader1, reader2 As SqlClient.SqlDataReader
Dim dataset1 As New DataSet()
Dim table1 = New DataTable("sales_temp")
Dim row(100) As DataRow
Dim count, sn As Integer
Dim timer As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Text = company & "商场客户端"
SetBounds(0, 0, System.Windows.Forms.Screen.GetBounds(Me).Width, System.Windows.Forms.Screen.GetBounds(Me).Height)
SqlConnection1.Close()
Dim firstname As DataColumn = New DataColumn("商品号")
Dim secondname As DataColumn = New DataColumn("商品名称")
Dim thirdname As DataColumn = New DataColumn("单价")
Dim forthname As DataColumn = New DataColumn("数量")
firstname.DataType = System.Type.GetType("System.String")
table1.columns.add(firstname)
secondname.DataType = System.Type.GetType("System.String")
table1.columns.add(secondname)
thirdname.DataType = System.Type.GetType("System.String")
table1.columns.add(thirdname)
forthname.DataType = System.Type.GetType("System.String")
table1.columns.add(forthname)
dataset1.Tables.Add(table1)
DataGrid1.SetDataBinding(dataset1, "sales_temp")
sn = GETSN() + 1
StatusBarPanel1.Text = " 当前流水号：" & Str(sn)
StatusBarPanel2.Text = "销售员：" & user_name
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "select * from goods where sn='" & Trim(TextBox1.Text) & "'"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
If reader1.Read Then
TextBox2.Text = reader1.GetString(1)
reader1.GetInt32(3)
Dim l, j As Integer
l = reader1.GetInt32(3) \ 100
j = reader1.GetInt32(3) Mod 100
If j > 9 Then
TextBox5.Text = Str(l) & "." & Trim(Str(j))
TextBox5.Text = Str(l) & ".0" & Trim(Str(j))
TextBox3.Focus()
TextBox1.Text = ""
RichTextBox1.Text = "商品号无效"
SqlConnection1.Close()
If e.KeyChar = Chr(27) Then
TextBox7.Focus()
Dim zhongjia As Single
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
If checksum(TextBox3.Text) = False Then
TextBox3.Text = ""
RichTextBox1.Text = "错误的数量,请重输入"
zhongjia += Val(TextBox5.Text) * Val(TextBox3.Text)
row(count) = table1.newrow()
row(count).Item(0) = TextBox1.Text
row(count).Item(1) = TextBox2.Text
row(count).Item(2) = TextBox5.Text
row(count).Item(3) = TextBox3.Text
table1.rows.add(row(count))
count += 1
TextBox4.Text = zhongjia
TextBox1.Text = ""
TextBox2.Text = ""
TextBox5.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
timer = Today.Year & "/" & Today.Month & "/" & Today.Day
StatusBarPanel4.Text = "
StatusBarPanel5.Text = "
" & TimeOfDay
Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
Dim i As Decimal
Dim j As Integer
If e.KeyChar = Chr(13) Then
If Not checksumd(TextBox7.Text) Then
TextBox7.Text = ""
i = Val(TextBox7.Text) - zhongjia
If i > 0 Then
TextBox6.Text = i
TextBox6.Focus()
Private Function GETSN() As Integer
SqlConnection1.Close()
SqlConnection1.Open()
MsgBox("无法连接数据库")
mandText = "select serial_no from sales"
reader2 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
While reader2.Read
GETSN = reader2.GetInt32(0)
End Function
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If e.KeyChar = Chr(13) Then
SqlConnection1.Close()
SqlConnection1.Open()
Dim tmp As Integer
For tmp = 0 To count - 1
mandText = "insert into sales values('" & row(tmp).Item(0) & "'," & row(tmp).Item(3) & "," & _
row(tmp).Item(2) * 100 & ",'" & timer & "','" & TimeOfDay & "'," & MEMBER_ID & "," & sn & ")"
SqlCommand1.ExecuteNonQuery()
StatusBarPanel1.Text = " 当前流水号：" & Str(sn)
TextBox6.Text = ""
TextBox7.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
table1.rows.clear()
zhongjia = 0
Function checksum(ByVal string1) As Boolean
Dim i As Integer
checksum = True
For i = 1 To Len(string1)
If Mid(string1, i, 1)
checksum = False
End Function
Protected Overrides Sub OnClosed(ByVal e As System.EventArgs)
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = 123 Then
End SubEnd Class5.3.7商场客户端登录窗体的创建登录窗体的构架及所需控件属性设置控件 属性 属性取值
Name Form1Form
Text 请输入用户号及密码
WindowsState NormalButton1 Text 确定Button2 Text 取消代码如下：Public Class Form1
Inherits System.Windows.Forms.FormPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Then
MsgBox("请输入用户名及密码")
Dim reader1 As SqlClient.SqlDataReader
Dim password, string1 As String
SqlConnection1.Close()
SqlConnection1.Open()
mandText = "select * from operator where id='" & Trim(TextBox1.Text) & "'"
reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)
If reader1.Read Then
password = reader1.GetString(5)
user_name = reader1.GetString(1)
If password = Trim(TextBox2.Text) Then
If reader1.GetString(3)
MsgBox("用户无权限")
Dim sales1 As New sales()
sales1.Show()
MsgBox("密码错误")
TextBox2.Focus()
MsgBox("用户名不存在")
TextBox1.Text = ""
TextBox1.Focus()
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
If Trim(TextBox1.Text)
TextBox2.Focus()
End IfEnd Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
If Trim(TextBox2.Text)
Button1.Focus()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus()
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.F12 Then
End SubEnd Class第六章 系统运行效果（系统测试）6.1系统运行效果现在已经完成了程序各个功能模块的创建，现在运行整个系统。运行程序，出现如下图所示的登录窗口。输入用户号和密码后，进入客户端系统。进入商场管理端主窗体后选择“资源管理│商品管理”菜单，出现如下图所示的窗体：
进入商场管理端主窗体后选择“资源管理│商品类型”菜单，出现如下图所示的窗体：
进入商场管理端主窗体后选择“查询信息│销量查询”菜单，出现如下图所示的窗体 进入商场管理端主窗体后选择“人事管理│任命人事”菜单，出现如下图所示的窗体： 6．2自我总体评价
我在做这个系统的过程中，运用自己四年所学到的知识和经验到这个系统当中，但是自己掌握的知识还不够全面，经验还不够丰富，这个系统做得还有一些缺陷，希望老师给予指导。6．3测试结果
把商品数据加进系统后，能够按照系统的功能要求进行管理和出售找零，并且能够得到正确的结果。6．4改进意见
这个系统的许多的功能还不够完善，商品查询等操作应该更完善一些，比如说现在的商场管理系统集采购、管理、销售为一体，这个系统还不能完全达到这个要求。结束语
在整个毕业论文的写作过程中，觉得在编程的过程当中必须掌握非常扎实的计算机知识，需要掌握比较健全的数据库原理的知识和较好的软件工程思想，经过写这个系统的过程提高了自己的编程水平，对Visual Basic.net和SQL Server 2000、数据库原理和软件工程的一些知识有了更大的认识。参考文献1. 作者：[美] Steven Holzner 著《21天学通Visual Basic.NET 2003》人民邮电出版社。2. 作者：程晓林、宋苗云、黄志超著《Visual Basic.NET数据库高级教程》清华大学出版社。3. 作者：刘韬、骆娟、何旭洪编著《Visual Basic 6.0数据库系统开发实例导航》人民邮电出版社。4. 作者：陆丽娜主编《软件工程》经济科学出版社。5. 作者：萨师煊 王珊/著《数据库系统概论》高等教育出版社。
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
[商业源码]&
Copyright &
All Rights Reserved