中小型超市管理手册信息系统

1、目 录目 录I摘 要ABSTRACT1 系统可行性分析1 引言 11.1.开发工具1数据库后台支持1系统结构框图1项目可行性评估11.5.1.5.1.5.2 系统需求分析2项目要求2系统功能描述22.2.2.2.2.2.2.3.2.2.5 性能要求3系统基本流程图3数据字典3运行环境62.6.2.6.3 系统总体设计6引言63.1.1面向对象编程3.1.2系统总体结构7 任务的分配9数据库的设计9 3.4.1数据库的ER图9 3.4.2数据库3.4.3数据库表数据库的关系图14 4 系统详细设计、模块的实现与编码一五 引言一五“系统管理模块”设计说明一五 4.2.1模块描述一五 4.2.2功能

2、一五 4.2.3性能4.2.64.2.7软件的设计结果 一八 4.2.8测试计划模块描述22 4.3.2功能22 4.3.3性能22 4.3.4输入项4.3.7商品前台零售管理模块设计说明29 4.4.4.4.4.4.34.4.44.4.4.4.6流程逻辑4.4.74.4.4.4.9商品库存管理模块设计说明30 4.5.14.5.24.5.3输入项与输出项4.5.4.5.5测试计划31 5软件的测试什么是软件测试31 软件测试的目标与方法31 模块测试31致谢34 参考文献35 中小型超市管理系统摘 要 中小型超市管理系统，主要是针对中小型超市的销售管理。其有五大模块：1.系统管理模块；2.前

3、台零售管理模块；3.库存数据录入模块；4.库存管理模块；5.数据的统计报表模块。我们采用传统的瀑布原型（由上而下设计）对系统进行架构设计。 此系统的开发过程中采用了面向对象的分析设计方法，并用面向对象的编程语言VISUAL BASIC 来实现. 本论文从软件工程的角度描述了此系统的开发过程,从计划期的可行性研究和需求分析一直到开发期的概要设计、详细设计与编码及编码调试都进行了比较详细的介绍。在测试阶段，结合了软件工程的方法，进行了模块和整体测试。关键字：面向对象，ADO，OVT，数据库接口。SMALL SCALED AND SUPER MARKET INSIDE MANGEMENT SYSTE

4、M ABSTRACT A Sale for useding for small scaled and super municipal inside mangement system,primarily is merchandise to aim at the small scaled market in inside management that we develop. Its there is five greatest molds piece : management mold ; stage retails mold; stock data records mold; stock ma

5、ngement mold; covariance statement mold .We adopt the traditional cloth prototype (top-downdesign) to procee the It produced to use to face to the analysis of the object in the process of development of this system and design method ,counteract the plait distance language visual basic that face to o

6、bject to realize.This thesis described the process of development of this system form the angle of the software engineering ,from the possibility research that plan the period to analyze to has bees arriving the essentials design that develop the period with the need ,detailed design and code and th

7、e coding adjusted to try to all proceed the detailed introduction .Keyword Face to the object, ADO, OVT, the database connects 1 系统可行性分析 引言 1.1现在物流信息的流通量大，为了适应这种趋势，以便更有效地管理超市。目前超市系统在超市日常商品零售管理工作中具有的方便性、高效性和必要性，使它极大地提高了超市管理效率。这个中小型超市管理系统的开发很有针对性，主要针对中小型超市进行管理。并对国内现有的同类信息管理系统进行比较，具体分析了中小型超市管理系统的可行性。开发

8、工具 随着计算机的日益普及和计算机网络的发展，数据库的应用范围越来越广，数据库应用的功能也越来越强，因此编写数据库应用程序的难度日益加大。目前，用于数据库的开发工具更是层出不穷。包括Visual Basic、Microsoft Access、C语言、Visual C+、java以及ASP等等。要从这么多的数据库开发工具中选出适当的数据库开发平台不是一件很容易的事。sual Basic是最流行的数据库应用程序的开发工具之一，它除了具有简单易学等特点外，还具有强大的数据库操作功能。数据库后台支持我们选择SQL Server2000做后台支持。Microsoft SQL Server2000的特性有

9、：Internet集成、可伸缩性和可用性、企业级数据库功能、易于安装、部署和使用、数据仓库.系统结构框图用户身份验证 用户身份验证初始化重新验证 初始化重新验证功能选择异常退出功能选择异常退出 查询 前台零售数据更新统计报表正常退出系统维护查询 前台零售数据更新统计报表正常退出系统维护 项目可行性评估1.5根据现有的技术，采用Visual Basic和 SQL server2000技术完全快速、高效地实现该系统模型。1.5由于采用Visual Basic语言开发，其ADO开发方式能为我们尽可能地缩短开发周期、节约系统的开发费用，避免人力、物力上的浪费，而且参照其他MIS系统，界面上完全可以实现

10、与用户的良好交互，并尽可能地以最小的代价换取最大的利润。1.5综上所述，从技术、经济和操作可行性上分析，可以立即着手系统的需求分析工作。2 系统需求分析 项目要求中小型超市管理系统针对中小型超市的前台零售和库存管理的，对提高商场的工作效率，便于零售人员的操作，能有效地对前台商品的零售和库存数据进行更新、查询。 系统功能描述 2.包括用户登录、用户管理权限的设置、更改用户名和密码。 用户登录：必需输入正确的用户名和密码，确保系统的安全性。用户管理权限设置：超市管理员、管理员和售货员的权限设置，这样能更加好地管理商场的系统，使用不同的管理权限使商场中不同的人员更好地各司其职。 更改用户名和密码：方

11、便用户使用具有自己职责权限的用户名和密码。2.2方便性：能够方便售货员前台零售的操作，使用操作界面人性化。只要输入商品的条形码就可以知道这个商品的基本信息，再输入零售商品的数量，折扣。实时性：能够实时地反映商品库存数据的输出，并更新库存的商品数量。显示零售商品信息。 打印：打印零售商品的信息及总数量、金额，还有欢迎字样等。2.2只能输入有效的超市基本信息、商品供应商信息、商品信息，不能对原有的数据造成损坏或重复，即要求对录入的信息进行有效性验证，不合法的信息拒绝被录入。为用户提供智能词库功能，能不让用户手工输入的就尽量避免。2.2数据修改、数据删除，包括现有商品库存更新、过期报废商品处理、商品

12、退货处理、进货报表生成与历史进货表处理和零售商品库存表处理。数据修改：数据修改可直接在浏览窗体中(或检索结果中)的数据修改中进行，或者也可以单独提供一个修改窗体进行数据修改。数据删除：浏览过程中的数据删除(标记删除)：即在浏览过程中，发现仍有部分信息用户已不需要，可对这些信息进行标记删除处理。 修改窗体中彻底的删除，如在浏览或检索过程中，发现某些信息已没有任何价值 (如有些商品现已不存在等)，可在修改模块中，对该信息进行彻底删除处理。2.2根据用户的检索结果自动生成相应的报表，方便用户预览与打印(历史进货数据统计报表、零售数据统计报表、过期报废数据统计报表、客户退货数据统计报表和退还厂家商品数

13、据统计报表)。可将用户在浏览过程中的信息打印输出。 可将检索到的信息打印输出。 性能要求 方便、快捷、有效地完成用户的各项工作，录入数据合法性的校验程度高。 系统输入：用户可添加合法的数据记录，以及用户可以进行相关的查询。系统可以输出用户查询出的结果和打印报表(包括导出的Excel电子表格)。 用户界面：为用户提供标准的中文界面，内部设计及流程符合用户的习惯、使用标准的中文菜单、工具栏、状态条提示、友好的对话框与按钮，使得界面比较友好，操作人员基本只需很短的培训即可熟练使用该系统。 数据更新的及时性：输入输出数据后能及时地更新数据源，保证数据在传递与流动时的准确性。数据的准确性：要求用户输入输

14、出的数据准确，保证数据在传递与流动时的准确性。时间特征：要求能够快速响应用户的请求，以提高工作效率。 系统基本流程图D1 库存清单售货员零售采购员产生报表处理 定货售货员零售采购员产生报表处理 定货更新库存 定货信息 出货信息 D2 订货信息系统基本流程图数据字典 表 名：S001外部名：用户表。功 能：记录用户管理权限。字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00101s00102s00103s00104用户ID 密码管理权限x Intncharcharchar103010一五yesnonoyesYes1表 名：S002外部名：库存商品表。功 能：记录商

15、品信息字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00201s00202s00203s00204s00205s00206s00207s00208s00209s00210s00211s00212商品条形码ID 商品名商品数量商品种类商品生产厂商 商品 生产日期 商品过期日期商品进货日期进货单价零售单价备注doublevarcharlongncharvarcharvarchardatetimedatetimedatetimelonglongvarchar103010一五3030101010303050noyesyesyesyesyesnononoyesyesyes

16、Yes1表 名：S003外部名：供货厂商表功 能：记录厂商信息字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00301s00302s00303s00304厂商名称 厂商地址厂商x备注 varcharvarcharcharvarchar3030一五30nononoyesYes1表 名：S004外部名：商品历史进货表功 能：记录进货信息字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00401s00402s00403s00404s00405s00406s00407s00408商品条形码ID 商品名称商品数量商品生产厂商进货单价 经办人进

17、货日期备注intvarcharcharvarcharcharvarchardatetime一五302030203010nonoyesnoyesnonoYes1表 名：S005外部名：零售表。功 能：记录商品零售信息。字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00501s00502s00503s00504s00505s00506s00507s00508s00509s00510s00511s00512商品条形码ID 商品名商品数量商品种类零售价成本价 商品生产厂商 商品生产日期商品过期日期零售日期售货员备注doublevarcharlongncharlonglo

18、ngvarchardatetimedatetimedatetimevarcharvarchar203020302020301010103050noyesyesyesyesyesnononononosyesYes1表 名：S006外部名：商品过期、报废表功 能：过期报废信息字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00601s00602s00603s00604s00605s00606s00607s00608s00609s00610ID 商品名商品数量进货单价商品种类 商品生产厂商标识进货日期报废原因备注intvarcharcharlongcharvarchar

19、varchardatetimevarcharvarchar3030一五30203030103050noyesyesnoyesnoyesnonoyesYes1表 名：S007外部名：使用商场基本信息表功 能：记录商场信息字 段：内部名外部名类型长度允许空默认值标识标识种子标识递增量CHECK约束s00701s00702s00703s00704s00705商场名称 商场地址厂商x联系人欢迎词 varcharvarcharintvarcharvarchar3030一五3050YesYesyesyesyesYes1 运行环境 2.表2-5-1系统硬件要求最低配置CPU：Pentium I I 266M

20、HZ内存：64MB 硬盘：5GB显示:16M的显存推荐配置CPU：Pentium I I 1GHZ内存：128MB 硬盘：10GB显示:64M的显存较好配置CPU：Pentium I V 内存：512MB 硬盘：20GB显示:128M的显存2.6.2Windows 2000/xp/NTSQL Server 2000Office 2000/2002Microsft Visual Studio 2003系统软件要求3 系统总体设计引言经过需求分析阶段的工作，系统必须“做什么”已经清楚了，现在是决定“怎样做”的时候。总体设计的基本目的就是回答“从总体上说，系统应该如何实现”这个问题， 因此，总体设计

21、又称为概要设计或初步设计。通过这个阶段的工作将划分出组成系统的物理元素一一程序、文件、数据库、人工过程和文档等等+但是每个物理元素仍然处于黑盒子级，这些黑盒子里的具体内容将在以后进行详细的 设计。总体设计阶段的另一项重要任务是设计软件的结构，也就是要确定系统中每个程序是由哪些模块组成的，以及这些模块相互间的关系.3.面向对象编程是基于客观世界的对象模型化的软件开发方法。其基本概念为：对象、类、消息、封装性、继承性、多态性. 3. 模块是数据说明、可执行语句等程序对象的集合，它是单独命名的而且可通过名字来访问，例如：过程、函数、子程序、宏等等都可作为模块。模块就是把程序分成若干个模块，每个模块完

22、成一个子功能，把这些模块集合起来组成一个整体，可以完成指定的功能满足问题的要求。 系统总体结构中小型中小型超市管理系统系统管理模块基本数据的录入销售商品管理库存管理数据的统计与报表中小型超市管理系统模块划分系统管系统管理模块用户权限管理用户口令修改管理员撤换售货员撤换退出系统系统管理模块的子模块划分 基本数据基本数据录入模块供货厂商统信息录入使用商场基本信息录入商品库存信息录入数据录入模块的子模块划分 数据的统计与报表数据的统计与报表当天商品销售统计时间段商品销售统计某一种类商品销售统计某一零售的销售统计员当天客户退货统计时间段客户退货统计当天退还厂家统计时间段退还厂家统计当天过期报废商品统计

23、时间段过期报废统计数据的统计与报表模块划分库存管理库存管理库存查询A商品过期处理B退货处理C更新库存管理E库存修该管理进货报表生成修改D商品的报废处理D现库存商品查询历史进货的查询客户退货或退货厂家查询过期报废查询管理用户的查询商品的录入商品已过期处理商品快过期处理退还厂家商品处理客户退货处理零售数据的修改更新现有的库存商品修改更新进货数据的修改更新添加修改历史进货表库存管理的子模块划分基本数据流图 任务的分配 由小型超市管理系统分为五个模块.我认为这是一次锻炼自己的机会,所以负责完成了系统可行性分析需求分析和总体设计系统管理模块、商品录入模块、前台零售模块、商品库存管理模块。 数据库的设计3

24、.4.1 用户信息 x用户编号x用户编号密码用户权限用户名密码用户权限用户名用户信息E-R图生产厂商商品名称生产厂商商品名称商品数量商品种类商品条形码I D 商品数量商品种类商品条形码I D 库存商品信息库存商品信息备注备注进货单价生前日期进货单价生前日期进货日期过期日期零售单价进货日期过期日期零售单价库存商品信息E-R生产厂商商品名称生产厂商商品名称商品种类商品条形码I D商品数量商品种类商品条形码I D商品数量退货商品信息退货商品信息备注退货日期备注退货日期标识经办人退货原因标识经办人退货原因进货单价进货单价退货商品信息E-R图商品名称生产厂商商品名称生产厂商商品条形码I D商品种类商品数

25、量商品条形码I D商品种类商品数量过期报废商品信息过期报废商品信息备注过期、报废日期备注过期、报废日期标识经办人原因标识经办人原因进货单价进货单价过期报废商品信息E-R图商场基本信息商场基本信息欢迎词联系人商场名称欢迎词联系人商场名称x商场地址x商场地址商场基本信息E-R 图历史进货商品库存 历史进货商品库存入库商品库存入库商品库存入库存入库存入库入库存管理管理商品基本信息商品基本信息零售商品库存信息零售商品库存信息出库存管理出库存管理退货商品库存退货商品库存过期报废商品库存用户过期报废商品库存用户数据库E-R3.4.3用户表用户表超级管理员管理员售货员用户表字段字段类型字段大小字段说明Use

26、r-I Dvarchar20Not null,用户标识用户编号User-Namevarchar20Not null,唯一性用户名User-Passwordvarchar8Not null,用户密码User-Typevarchar10Not null,超级管理员，管理员，售货员用户权限User-Telvarchar20NULLx表3-5-11库存商品表字段字段类型字段大小字段说明Good-I DVarchar20Not null ,商品的唯一标识商品条形码IDGoods-NameVarchar20Not Null商品名称Goods-firmVarchar50Null生产厂商Goods-kindV

27、archar8Null商品种类Goods-numberInt4Not Null商品数量Goods-ProDateDatetime8Null生产的日期Goods-OutDateDatetime8Null过期的日期Goods-InterDateDatetime8Null进货日期Stock-priceFloat8Not Null进货单价Retair-priceFloat8Not Null零售单价commentVarchar100Null备注表3-5-12厂商表字段字段类型字段大小字段说明Firm-NameVarchar50Not Null厂商名称Firm-addressVarchar100Null厂

28、商地址Firm-manVarchar20Null联系人Firm-TelVarchar12Null联系人电话commentVarchar100Null备注表3-5-一三历史进货表字段字段类型字段大小字段说明Good-I Dvarchar一五Not Null商品条形码I DGood-Namevarchar20Not Null商品名称Good-Kindvarchar8Null商品种类Good-numberInt4Not Null商品数量Good-firmvarchar30Null商品生产厂商Stock-priceFloat8Null进货单价Stockman-Namevarchar20Not Null

29、经办人Goods-InterDatedatetime8Null进货日期Commentvarchar50Null备注零售表字段字段类型字段大小字段说明Goods-I Dvarchar20Not Null商品条形码I DGoods-Namevarchar20Not Null商品名Goods-kindvarchar8Not Null商品种类Retai-pricefloat8Not Null商品零售价Stock-pricefloat8Not Null成本价Goods-retail-numberInt4Not Null零售数量Goods-Firmvarchar30Not Null生产商名Goods-Pr

30、oDateDatetime8Not Null商品生产日期Goods-OutDateDatetime8Not Null商品过期日期Goods-retailDateDatetime8Not Null零售日期Goods-Namevarchar20Not Null售货员名Commentvarchar50Not Null备注商品退货表字段字段类型字段大小字段说明Goods-I Dvarchar10Not Null商品条形I DGoods-Namevarchar20Not Null商品名Goods-numbrint4Not Null商品数量Stock-pricefloat8Not Null进货单价Good

31、s-kindvarchar8Null商品种类Goods-firmvarchar30Null商品生产厂商Goods-Indatedatetime8Null进货日期Goods-Withdraw-datedatetime8Null退货日期Reasonvarchar30Null退货原因Fademan-namevarchar20Null退货经手人Re-marktinyint1Null客户退货还是退货回给厂商commentvarchar50Null备注表3-5-16 商品过期报废表字段字段类型字段大小字段说明Goods-I Dvarchar10Not NullGoods-I DGoods-Namevarc

32、har20Not Null商品名Stock-pricefloat8Not Null进货单价Goods-kindvarchar8Null商品种类Goods-firmvarchar30Null商品生产厂商Goods-munberdatetime8Not Null商品数量Goods-reasonvarchar30Null报废原因Goods-InterDatedatetime8Null进化日期Goods-reject-namevarchar20Not Null报废经手人Goods-rejectdatedatetime8Not Null报废日期Re-marktinyint1Not Null此标识商品过期

33、还是商品报废！commentvarchar50Null备注使用者基本信息表字段字段类型字段大小字段说明Userfirm-namevarchar50Not Null使用商场名称Userfirm-addressvarchar100Not Null使用商场地址Userfirm-manvarchar20Not Null联系人Userfirm-telvarchar12Not Nullxwellcomvarchar20Not Null欢迎字样 数据库的关系图零售表商品条形码商品名零售表商品条形码商品名商品数量库存商品表*商品条形码商品名商品数量过期报废表商品条形码商品名库存商品表*商品条形码商品名商品数量

34、过期报废表商品条形码商品名商品数量 1退货表商品条形码商品名商品数量退货表商品条形码商品名商品数量 N历史进货表商品条形码商品名历史进货表商品条形码商品名商品数量 超市信息表超市名超市地址超市信息表超市名超市地址联系人供货厂商表厂商名称厂商地址联系人数据库关系图 系统详细设计、模块的实现与编码引言详细设计是软件开发时期的第三个阶段，也是软件设计的第二步，在概要设计已经确定了软件系统的总体结构，给予了系统中各个组成模块的功能和模块建的联系。详细设计主要是考虑“怎样实现”这个软件 系统，给出各个模块的详细过程必描述。 “系统管理模块”设计说明4.系统管理模块的功能：超级管理员权限：超级管理员能够使

35、用系统的所有功能。零售员管理权限：零售员能够使用的功能是:进行前台零售、零售员换班管理、退货处理、登陆成管理员管理、登陆成超级管理员管理修改自身密码及库存商品的查询、商品退货的查询、历史进货存根的查询、商品过期报废的查询、快过期商品的查询、退货库存的管理等。管理员管理权限：其在零售员管理权限所能管理的功能外、可以进行用户成员查询、进行进货报表管理、库存商品各项数据统计报表管理。 4.2此模块的基本功能有：设置用户管理权限、添加、修改、删除用户管理、零售员换班管理、用户口令修改、超级管理员权限、零售员管理权限与管理员权限的切换管理、退出系统。4.2能够分清各个用户管理的权限，使得员工各司其职。4

36、.2下面这个窗体是中小型超市管理系统的登陆界面 根据程序的要求，用户要根据ComboBox控件中的内容进行登陆，因此在窗体打开时，为了尽量减少用户的输入出境，和减少程序的出错，ComboBox控件中就应该有相应的内容,这就需要在加载窗体时进行.因此在窗体创建的时候,初始化组件以后加入如下代码:initialComBol( ) 显示管理权限的ComboBox。initialComBo2( )依据管理权限的ComboBox的内容显示管理用户的名称ComboBox。在此，编写了一个子过程（以显示管理权限ComboBox为例子）：Private Sub initialComboBo1( )Dim sq

37、l As StringDim cmd As SqlcommandDim rd As SqlDataReaderDim I As IntegerTry )( )sql=“select distinct User-type form user-Info”cmd=New Sqlcommand(sql,cn) rd=向ComboBox中添加数据Do While Loop ex As ExceptionMsgBoxFinally()If = Then()End IfEnd TryEnd Sub界面上的管理权限与用户名的项目都是可选择的,而不可以直接输入.这样的输入较具有人性化!也方便可选用户输入.下面这

38、个界面是管理用户的权限设置与添加、修改、删除用户管理的。同样，用户和管理权限的一项是不可以直接输入的，是人性化选择输入的。其它的项目都是要人工输入的，具有较大的灵活性。我们通过以上两个窗体，简单地介绍了输入项的功能。像零售员换班管理、切换成管理用户、修改口令等等都体现了输入的人性化。4.2.5 用户登陆用户登陆选择管理权限选择管理权限 相互切换管理员超级管理员零售员管理员超级管理员零售员退出系统退出系统行使零售员权限的功能行使管理员权限的功能行使超级管理员的功能行使零售员权限的功能行使管理员权限的功能行使超级管理员的功能系统管理模块流程图4.2.6 用户登陆的窗体接口：是通过用户名与用户口令的

39、验证来显示。Private Sub Buttonl click(ByVal sender As , -ByVal e As -Handles .User= user-Info WHERE User-Name=”User AND User-Password= Password and User-type=AdminDim objDataRow AS DataRowTryObjDataRow=GetDataFromDB(sqlstr).tables(0).Rows(0)Catch+,“系统登录失败”） SubEnd TryUsername=UserUsertype = adminDim frmma

40、in As New Form1frmmainShow()MeFinalize()End Sub其返回的全局参数：一个是用户名（UserName），一个是管理的权限（Usertype）。这个是显示管理用户设置窗体的。Dim usermanage As Form16Private Sub MenuItem43_Click(ByVal sender As SystemObject,ByVal e As SystemEventArgs) Handles MenuItem43ClickIf Not (usermanage Is Nothing) Then 使此个窗体只能显示出现一次usermanageD

41、ispose()End IfUsermanage =New Form16UsermanageMdiParent = MeUsermanageShow()End Sub4.2.7 软件的设计结果用户管理设置窗体设计代码（已测试通过）：Private Sub Filldataview()Try ObjDataview = Nothing清空原来的数据视图ObDataset = New DataSet实例化一个数据集对象CnOpen() 打开数据库连接ObjDataaAdpter =New SqlDataAdapter(Usersqlstr,Cn) 将数据库的数据映射到数据适配器ObjDataAdp

42、terFill(ObjDataSet,”User_Info”) 填充数据集的数据Objdataview =New Dataview (ObjdatasetTables(“User_Info”) 初始化数据视图ObjcurrencymanagerCtype (MeBindingContext(ObjDataview),CurrencyManager) 获取设置当前窗体的绑定管理对象CnClose()关闭数据连接，这一点很重要Objdataset =Nothing 清空数据集的数据CatchEnd TryEnd SubPrivate Sub Bindsfield()MeTextbox1DataBi

43、ndingsClear()MeTextbox2DataBindingsClear()MeCombobox1DataBindingsClear()MeTextbox3DataBindingsClear()MeTextbox5DataBindingsClear()清除所有的数据绑定否则不能显示所有的数据而只能显示修改后的数据MeTextbox1DataBindingsAdd(“Text,Objdataview,”User_Id”)MeTextbox2DataBindingsAdd(“Text,Objdataview,”User_Name”)Mecombobox1DataBindingAdd(“Te

44、xt,Objdataview,”User_Type”)MeTextbox3DataBindingsAdd(“Text,Objdataview,”User_Password”)MeTextbox5DataBindingsAdd(“Text,Objdataview,”User_Tel”) 重新进行数据绑定End SubPrivate Sub ShowCurrectPosition()MeTextBox6Text = _objCurrencyManager. Position + 1& of & _objCurrencyManager. Count显示当前数据绑定的管理对象的数据位置 End Sub

45、Private Sub Form16_Load(ByVal sender As SystemObject, _Byval e As SystemEventArgs) Handles MyBase. Load FillDataView()BindsField()ShowCurrectPosition() = FalseEnd SubPrivate Sub btnLast_Click(ByVal sender As SystemObject, _Byval e As SystemEventargs) _Handles btnLastClickobjCurrencyManager. Position

46、 = objCurrencyManager. Count 1ShowCurrectPosition() 显示最后一条记录End Sub*修改控件的*Private Sub btnUpdate_Click(ByVal sender As SystemObject, _Byval e As SystemEventargs)_Handles Dim intPosition As Integer = objCurrencyManager. PositionOn Error Goto errorhandlerIf TextBox1Text And TextBox2Text And TextBox3Tex

47、t And Me. ThenIf TextBox5Text = ThenSqlstr = UPDATE user_Info SET user_ID= &_& MeTextBox1. Text. Trim & ,User_Name= & MeTextBox2. Text. Trim &,User_Password= & _ & MeTextBox3. Text. Trim & ,User_type= & MeTextBox1. Text. Trim & ElseSqlstr = UPDATE user_Info SET user_ID= & MeTextBox1. Text. Trim & ,U

48、ser_Name= & MeTextBox2. Text. Trim &,User_Password= & _ & MeTextBox3. Text. Trim & ,User_type= & MeComboBox1 . & ,User_Tel= MeTextBox5. Text. & End IfUpdateData(Sqlstr)FillDataView()BindsField()objCurrencyManager. Position = intPositionShowCurrectPosition()MsgBox(已经成功更新了该用户，MsgBoxStyleOkOnly + _MsgB

49、oxstyleExclamation,更新成功）ElseIf TextBox1Text = ThenMsgBox(编号不能为空，请输入编号，MsgBoxStyleOkOnly 添加确认）TextBox1Focus()Exit SubElseIf TextBox2Text = ThenMsgBox(用户名不能为空，请输入编号，MsgBoxStyleOkOnly 添加确认）TextBox2Focus()Exit SubElseIf MeComboBox1 .Test = ThenMsgBox(用户的管理权限不能为空，请输入用户的管理权限，MsgBoxStyleOkOnly 添加确认）MeCombo

50、Box1 . Focus()Exit SubEnd Iferrorhandler：Msgbox(ErrDescription)Resume NextEnd Sub*删除控件的*Private Sub btndelete_Click(ByVal sender As System Object,_Byval e As SystemEventargs)_Handles btnDeleteClickDim intPosition As Integerintposition =MeBindingcontext(ObjDataview),Position -1If Intposition 0 Thenin

51、tposition =0End IfSqlstr=“DELETE FROM User_Info Where User_Id =& MeTextbox1Text & Updatedata(Sqlstr)Filldataview()Bindsfield()ObjcurrencymannagerPosition =intpositionShowCurrectPosition()MsgBox(“已经成功删除了该用户”，MsgboxstyleOkonly +_)MsgBoxstyleExclamation,”删除成功”End Sub4.2.8 由于用户管理设置窗体的权限设置，用户的添加、修改、删除是要返

52、回源数据库的，这就要与源数据库存表字段设计相对应。测试数据都与数据库表设计相同时的情况。测试数据与数据库表设计有出入的各种情况。 “商品录入管理”模块设计说明4.3.1 模块描述数据录入模块比较简单，只是负责将数据添加到后台数据库中。但是要对数据记录是否存在和数据的有效性进行验证：存在的记录拒绝添加，无效的数据不得被添加。由于是用数据集DATASET，数据集在断开数据源时存储数据。数据集的结构类似于关系数据库的结构；它公开表、行和列的分层对象模型。另外，它包含为数据集定义的约束和关系。它极大的方便了对数据库进行操作。 商品退货录入（包括客房商品退货录入和退货厂家的录入）、过期报废录入和进货录入

53、、供货厂商信息录入等，共有五个窗体界面。上面这个仅是介绍了其中的一个窗体界面的功能（库存商品基本录入界面），下面也是如此，以库存商品基本录入界面功能作为范例。4.3功能有： 对数据进行有效地、方面地、人性化地录入。如果录入有误，可以对数据进行修改和删除。能高效地修改更新。4.3对必须输入的项目进行输入，对一些项目不必要输入（非必须输入项）。能够有效地确保输入的数据的准确性和方便性。4.3对数据记录是否存在和数据的有效性进行验证，存在的记录拒绝输入，无效的数据不得被添加。如日期值、数字值。以下是数字的输入限制编码实现：Private Sub TextBox6_KeyPress (ByVal se

54、nder As Object, Byval e As System. KeyPress Eventargs) Handles If = Chr And = Chr)Or _ = Chr Or = Chr Then e. Handled = FalseElsee. Handled = TrueEnd IfEnd Sub以下是日期输入限制的编码实现：Private Sub ComboBox6_LostFocus(ByVal sender As Object, Byval e As SystemEventargs) Handles ComboBox4_LostFocusIf Not IsDate O

55、r ThenMsgBox(请输入日期的格式！yyyy-mm-dd，MsgBoxStyleOkOnly, 确认） = ComboBox4. Focus()End IfEnd Sub以上的界面反映了数据基本信息的输入内容4.3.用 户用 户拒 绝 输 入错 误 报 告开 始 添 加录入目标数据结 束 操 作记录是否存在数据是否有效写入数据库商品基本信息输入逻辑流程图4.3.6依据数据库设计的表和字段和这个模块所要实现的功能，进行下列测试计划：依数据库设计的字段，测试输入的数据是否对应于数据库存的字段。依据此模块的功能，测试输入的数据是否能有效地返回给数据源。测试数据与数据库存设计有出入的各种情况，

56、也测试与其所要实现的功能能有出入的各种情况。测试二张数据库表间的数据是否输入一致。4.3.7 软件的设计结果如下：Imports System. Data. SqlClientImports System. ComponentModelImports System. Data. CommonPrivate ds As New DataSetPrivate sqladpt As SqlDaAdapter把窗体中控件的内容添加到dataset中Private Sub formtorow(ByVal row As DataRow)On Error GoTo errhandlerrow(商品条形码)

57、=Me. row(商品名称) =Me. row(商品类) =Me. row(数量) =Me. row(生产厂商) =Me. row(生产日期) = Me. row(过期日期) = Me. row(进货日期) = Me. row(生产日期) = Me. row(进货单价) = Me. row( 零售单价) =Me. row(备注) =Me. Exit SubErrhandler:MsgBox(Err. Description)Resume NextEnd Sub把窗体中控件的内容添加到dataset中Private Sub rowtoform(ByVal row As DataRow)On Er

58、ror GoTo errhandlerMe. =Set0bjToStr (row(商品条形码)Me. =Set0bjToStr (row( 商品名称)If Set0bjToStr (row(商品类) ThenMe. = Set0bjToStr (row(商品类)End IfMe. = Set0bjToStr (row(数量)If Set0bjToStr (row(生产厂商) ThenMe. = Set0bjToStr (row( 生产厂商)End IfIf Set0bjToStr (row(生产日期) ThenMe. = Set0bjToStr (row( 生产日期)End IfIf Set0

59、bjToStr (row(过期日期) ThenMe. = Set0bjToStr (row( 过期日期)End IfIf Set0bjToStr (row(进货日期) ThenMe. = Set0bjToStr (row( 进货日期)End IfIf Set0bjToStr (row(进货单价) ThenMe. = Set0bjToStr (row( 进货单价)End IfMe. = Set0bjToStr (row( 零售单价)If Set0bjToStr (row( 备注) Then = Set0bjToStr (row(备注)End IfExit SubErrhandler:MsgBox

60、Resume NextEnd Sub初始化窗体Private Sub iniform()Dim myTabMapping As New DataTableMappingTry FromStorage_goods_infoSgladpt = New SglDataAdapter(sql, cn)myTabMapping = New DataTableMapping(storage_goods_info, storage_goods_infoMap)myTabMapping. SourceTable = storage_goods_infomyTabMapping. SourceTable = s