超市管理系统参考.doc

呼伦贝尔学院 计算机科学与技术学院 本科生毕业论文本科生毕业论文 设计设计 题 目 小型超市管理系统的设计 与实现 学生姓名 布日格德 学 号 2009121429 专业班级 2009 计算机科学与技术蒙班 指导教师 包冬梅 完成时间 2013 年 5 月 20 日 目录目录 摘要 I ABSTRACT II 第 1 章 绪论 1 1 1 社会背景 1 1 2 超市背景 1 第 2 章 软件设计开发平台 2 2 1 SQL Server 2005 数据库简介 2 2 2 Microsoft Visual Studio 2010 简介 2 2 3 运行环境 2 第 3 章 系统可行性研究与需求分析 4 3 1 可行性研究 4 3 2 需求分析 5 第 4 章 系统总体设计 7 4 1 系统总体结构 7 4 2 数据库设计 8 第 5 章 系统详细设计与实现 11 5 1 用户登录模块 11 5 2 菜单操作模块 11 5 3 销售管理界面 12 5 4 进货管理界面 13 5 5 商品上柜界面 14 5 6 统计查询界面 15 结 束 语 18 文 献 19 致谢 20 I 摘要 小型超市管理系统 是专门针对小型超市的综合业务而开发的综合商品管 理系统 本软件的前台采用 VB Net 后台采用 SQL Server 2005 数据库 超市需要处理大量的库存信息并且要时刻更新商品的销售情况 不断的进货 上柜 销售 统计等 对于不同的信息 需要建立合理的数据结构来保存这些数 据 需要有效地程序结构支持各种数据操作的执行 超市进销存最主要的特点是 能够实时和准确的记录超市的销售情况 这样就可以有效的加速商品的周转和服 务质量的提高 而且可以减少商品售价不符等问题 顾客的消费要求是希望在超 市中基本上都能购买到所需的商品 并且要保证商品的质量还要享有优质 方便 的服务 该系统主要由销售管理 进货管理 人员管理 入库管理 上柜管理 统计 查询 密码修改等功能组成 关键字 VB Net SQL Server 2005 数据库 销售 超市管理系 II Abstract Integrated commodity small supermarket management system is designed to integrated services for small supermarket development The front platform of the software adopts VB Net the backstage adopts SQL Server 2005 database Supermarkets need to handle a large number of inventory information and update the sale of products continue to purchase OTC sale statistics etc For different information need to establish a reasonable data structure to store these data and to effectively program structure to support the operation of the various data The main characteristic of supermarket invoicing is that sales of real time and accurate records of the supermarket thus this can speed up the turnover of goods and service quality effectively improved but also can reduce the commodity price discrepancy and so on Consumption requirements of customers want to be able to buy needed goods in supermarkets basically and to guarantee the quality of goods but also enjoy high quality convenient service The system consists of sales management purchase management personnel management storage management OTC management statistical inquiry password changes and other functional components The system is mainly composed of sales management stock management personnel management storage management stock management statistical inquiries password changes and other functions Keywords VB Net SQL Server 2005 Database Sales Supermarket Management Syste 第 1 页 共 20 页 第 1 章 绪论 1 1 社会背景 随着信息时代的到来 计算机技术已渗透到各行各业 成为各个领域必不可 少的工具 特别是 Internet 技术的推广和信息高速公路的建立 使 IT 产业在市场 竞争中越发显示出其独特的优势 步入数字化时代 有巨大的数据信息等待着加 工处理和传输 这使得对数据库的进一步开发和利用显得尤为迫切 作为国内市 场的一些中小超市 他们在信息化过程中的步伐要落后大中型超市 而对于这些 企业的资源管理 信息的存储和处理也显的迫切需要 要适应市场竞争 就需要 有高效的处理方式和管理方法 因此加快超市的电算化进程是必不可少的 经过市场的调查 针对现在各中小超市对销售业务的实际需要 开发了这套 小型超市管理系统 在开发过程中 针对当前各超市管理特点和自己技术的实际 水平 采用 Windows 是基于图形界面这易学易用的操作系统环境 在系统设计过 程中 尽量采用一些易懂易读的接口界面 使用户可以在短期内完全掌握 在功 能方面 借鉴现在市场上流行的财务软件的特点 使设计的系统在功能上极贴近 中小超市的使用要求 在设计过程中 始终把系统的正确性放在首位 力求数据 的完整 处理的正确性 在此基础上优化程序代码 加速系统运行和减少对系统 资源的占用 作为一家小型超市 他们的主要业务是销售商品 目前系统运做中存在很多 题 所有的销售单都是人工填写 耗时而且易出现错误 库存也是人工记帐 无 法随时掌握最准确的存货情况 对于销售数据 往往要花好多时间和精力去计算 销售额 每项商品的销售状况 为了解决上述问题 提高经济效益 准备针对超 市进行计算机化管理 1 2 超市背景 超市形式在我国于 20 世纪 90 年代初期起步 现已成为我国零售业的一种重 要形态 随着超市的高速发展 其经营管理也变的愈加复杂 早期的售货员站柜 台的形式早已不能满足现有销售业的的发展这样就迫切地需要引入新的思想技术 和管理技术进入到超市管理之中 超市形态具有种种优点 但在目前状况下 它仍存在零售业商业企业所共有 的落后的一面 如 不能有效的管理每一种商品 收款结算速度慢 容易出现营 业差错 不宜进行商品调价 盘点效率底等 而且在超市日常管理中 商品进 销 存决策以经验为主 缺乏实时分析功能 管理人员对及时传递资料的要求始 终得不到满足 随着超市形态的高速发展 其经营管理也变的愈加复杂 日常所 需处理的数据量也逐渐增大 商业运转的中间环节也越来越多 原始的人工管理 已无法应对这复杂的市场 为此 我在本次设计之中选择了超市信息管理系统设 计 依靠现代化的计算机信息处理技术来管理超市 从而节省了大量的人力 物 力 改善了员工的工作条件 减轻了劳动强度 并且能够快速反映出商品的进销 第 2 页 共 20 页 存状况和各种反馈信息分析 使管理人员快速对市场的变化作出相应决策 加快 超市管理的效率 第 2 章 软件设计开发平台 2 1 SQL Server 2005 数据库简介 Microsoft SQL Server 2005 是一个全面的数据库平台 使用集成的商业智能 BI 工具提供了企业级的数据管理 Microsoft SQL Server 2005 数据库引擎为关系 型数据和结构化数据提供了更安全可靠的存储功能 可以构建和管理用于业务的 高可用和高性能的数据应用程序 数据引擎是该企业数据管理解决方案的核心 此外 Microsoft SQL Server 2005 结合了分析 报表 集成和通知功能 SQL Server 2005 引入了一些 Studio 帮助实现开发和管理任务 SQL Server Management Studio 和 Business Intelligence Development Studio 在 Management Studio 中 可以开发和管理 SQL Server 数据库引擎与通知解决方案 管理已部署 的 Analysis Services 解决方案 管理和运行 Integration Services 包 以及管理报 表服务器和 Reporting Services 报表与报表模型 在 BI Development Studio 中 可以使用以下项目来开发商业智能解决方案 使用 Analysis Services 项目开发多 维数据集 维度和挖掘结构 使用 Reporting Services 项目创建报表 使用报表模 型项目定义报表的模型 使用 Integration Services 项目创建包 因此选择 SQL Server2005 数据库作为开发本系统使用的数据库 2 2 Microsoft Visual Studio 2010 简介 Microsoft Visual Studio 2010 司推出的开发环境 是目前最流行的 Windows 平 台应用程序开发环境 其集成开发环境 IDE 的界面被重新设计和组织 变得更 加简单明了 Visual Studio 2010 同时带来了 NET Framework 4 0 Microsoft Visual Studio 2010 CTP Community Technology Preview CTP 并且支持开发面向 Windows 7 的应用程序 除了 Microsoft SQL Server 它还支持 IBM DB2 和 Oracle 数据库 Microsoft Visual Studio 2010 采用拖曳式便能完成软件的开发 简简单单 的操作便可以实现一个界面的生成 但拖曳的界面 也应当有相应的代码来实现 功能 Microsoft Visual Studio 2010 支持 C C VB 可以快速实现相应的功 能 所以所做的图书馆管理系统也就选择了这种开发平台 2 3 运行环境 2 3 1 硬件环境 处理器 双核 2 6G Hz 以上 内存 2G 内存 硬盘空间 最低 5400r min 建议 7200r min 或更快 2 3 2 软件环境 第 3 页 共 20 页 软件环境是一个系统开发的工具 它取决于开发人员对软件的熟悉程度 如 果开发人员选择一个不熟悉的软件开发会大大增加开发系统所需要投入的成本 所以说选择软件环境也是很重要的 操作系统 Windows XP 或 Windows 7 操作系统必须安装 Internet 信息服务 IIS 数据库 SQL Server 2005 软件开发语言 VB Net 开发软件 Microsoft Visual Studio 2010 第 4 页 共 20 页 第 3 章 系统可行性研究与需求分析 3 1 可行性研究 可行性分析是在用户的要求和系统调研的基础上进行的 对新系统的开发从 社会 技术 经济 管理等方面进行分析 并得出新系统的开发工作可行 不可 行 需要修改 追加投资 暂缓开发 分步实施等方案和结论 最后完成可行性 分析 可行性分析对拟议中的项目进行全面与综合的技术 经济能力的调查 判 断它是否可行可行性研究是程序员成功实施该系统的重要前提 是实施该系统的 重要前提 是实施必不可少的步骤 可行性研究的目的就是用最小的代价在尽可能短的时间内研究并确定提出的 问题是否行的通的解决办法 分析这些方案的通常从技术可行性 经济可行性 操作可行性 法律可行性等方面 分析这些方案的可行性 3 1 1 经济可行性 经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来 的经济效益进行比较 确认新系统是否会给超市带来一定的经济效益 现在 计 算机的价格已经十分低廉 性能逐渐强大 从长远角度来看 此系统的投入会给 超市带来管理简易化 信息统计完整化 数据处理智能化 经济预算科学化 业 务处理高效化等综合多方面考虑 对超市的顾客满意程度和超市的经济效益会有 长足的提高 分析如下 1 本系统的运行可以大大的提高管理员的工作效率 2 本系统的运行可以节省许多资源 3 本系统的运行可以代替人工进行许多繁杂的劳动 所以 本系统在经济上是可行的 3 1 2 技术可行性 在 IT 行业中从业的工作人员一般都要求掌握计算机技术 具有一定的软硬件 基础 能够维护和操纵计算机 会使用各种管理软件 熟悉 IT 产品至少精通的掌 握一门计算机编程语言 现在的这个行业中分的更细了 每个企业都有自己的架 构工程师 设计工程师 测试专家 以及高素质的编程人员 他们都有长期的项 目开发经验 就朝管理系统 只要通过实际的社会调查 和超市管理者的要求 就可以写出需求分析说明书 因此 可以说系统在开发人员上没有什么大的问题 并且现在很多超市对员工的素质要求比较高 从管理层到基层的销售导购人 员 都要求具有一定的计算机基础技术 所以在新系统投入使用时 只要对员工 进行少量的培训 在掌握了系统的功能和使用方法时 就基本上能够使系统顺利 的运行 为超市提供服务 第 5 页 共 20 页 3 1 3 操作可行性 系统采用基于 Windows 的图形用户界面 而该系统是大家熟悉的操作系统 对于那些有一般的计算机知识的人员就可以轻松上手 而整个超市管理系统采用 最友好的交互界面 简介明了 不需要对数据库进行深入的了解 由此 该系统的操作是可行的 有必要开发该系统 综合以上三方面 该系统具有很高的开发可行性 无论是从技术上或者经济 上还是操作上 因此 可以设计该系统 并设计开发过程 3 2 需求分析 计算机的运用能够准确记载和查阅关于超市经营活动的大量数据 帮助超市 经营者掌握和分析营销情况 及时作出正确决策 并且有利于超市内部人员管理 库存 销售情况等管理 超市管理系统应该满足以下需求 1 业务上满超市管理系统的基本需求 能够方便地进行销售管理 员工管理 商品管理和统计查询 2 与传统的手工管理相比 要添加基本数据的管理和用户权限的设置 3 所有的界面都要有信息的浏览功能 同时要保障数据的安全 可靠 4 系统应最大限度地实现易维护性性和易操作性 3 2 1 系统性能要求 1 系统安全 可靠 2 保证数据查询的灵活性 3 操作方便 界面友好 4 易于维护和扩充 3 2 2 系统的功能分析 根据系统的需求分析 为了保证系统的安全性 需对不同权限的人员分别设 置功能 本系统的功能要求如下 管理员 1 销售管理 主要进行交易信息的录入和收取相应款项通过销售终端的扫描 条形码方式或手工输入每次交易的详细情况 包括商品编号 名称 数量 交易 总金额等 自动计算本次交易的总金额并保存 2 进货管理 商品的入库 查询库存商品的数量 添加或删除供应商 3 人员管理 添加或删除员工 查询员工信息 4 商品上柜 进行上柜操作 并对柜存报警的商品安排上柜操作 5 统计查询 统计和查询销售清单 计算出总额与利润并打印 6 密码修改 管理员可自行修改密码 销售人员 第 6 页 共 20 页 1 销售管理 主要进行交易信息的录入和收取相应款项通过销售终端的扫描 条形码方式或手工输入每次交易的详细情况 包括商品编号 名称 数量 交易 总金额等 自动计算本次交易的总金额并保存 2 商品上柜 进行上柜操作 并对柜存报警的商品安排上柜操作 3 密码修改 售货员可自行修改密码 第 7 页 共 20 页 第 4 章 系统总体设计 4 1 系统总体结构 系统总体结构 图 4 1 所示 小型超市零售管理系统 销售员菜单管理员菜单 销售管理 密码修改 销售管理 进货管理 人员管理 商品上柜 商品上柜 密码修改 图 4 1 系统总体结构 销售管理功能描述 主要进行交易信息的录入和收取相应款项通过销售终端 的扫描条形码方式或手工输入每次交易的详细情况 本系统使用手工方式 包括 商品编号 名称 数量 交易总金额 对于同类多件商品采用一次录入数量的方 式 自动计算本次交易的总金额并保存 进货管理功能描述 添加新商品和已有商品 查询库存商品的数量 添加或 删除供应商 人员管理功能描述 添加或删除员工 查询员工信息 商品上柜功能描述 进行上柜操作 并对柜存报警的商品安排上柜操作 统计查询功能描述 统计和查询销售清单 可查询当天 当周 当月 当年 全部或筛选日期 计算出总额与利润并打印 第 8 页 共 20 页 密码修改功能描述 当前登陆者可进行修改密码 4 2 数据库设计 4 2 1 系统 ER 图 系统数据库 图 图 4 2 所示 供货商 供货商编号 ID 供货商名称 名称 联系人姓名 地址 供货商电话 电话 供货商电话 电话 销售 客户 出售数量 销售编号 商品编号 商品价格 销售日期 总金额 销售编号 商品名称 进货价格 库存数量 商品规格 报警数量 供应商编号 商品供货 上柜 商品编号 员工编号 用户密码 年龄 性别 员工电话 员工职位 m nm m 商品编号 商品名称 出售价格 出售价格 报警数量 n n 员工姓名员工 图 4 2 系统数据库 图 4 2 2 系统关系模型 1 库存表 商品编号 商品名称 进货价格 库存数量 商品规格 报警数量 供应商编号 2 员工表 员工编号 员工姓名 性别 年龄 登录密码 员工职位 员 工电话 3 柜存表 商品编号 商品名称 出售价格 柜存数量 报警数量 4 销售临时表 销售编号 商品编号 商品价格 出售数量 总金额 销 售日期 员工编号 第 9 页 共 20 页 5 供应商表 供应商编号 供应商名称 联系人姓名 供货商电话 供货 商地址 数据表结构 1 库存表 库存表主要用于存储各类商品 用于商品管理和查询的依据 具体设计如下 表 4 1 所示 表 4 1 库存表 字段名字段类型长度主 外键 商品编号char6P 商品名称varchar50 进货价格numeric 8 2 库存数量int 商品规格char10 报警数量int 供应商编号char6F 2 员工表 员工表主要用于员工的个人资料 此表同样用于管理员和员工进行管理和查 询的依据 具体设计如下表 4 2 所示 表 4 2 员工表 字段名字段类型长度主 外键 员工编号char10P 员工姓名char20 性别char2 年龄char10 登录密码char10 员工职位char10 员工电话char20 3 供应商表 供应商表主要用于记录供应商信息 管理员可进行查询 添加 删除 设计 如下表 4 3 所示 表 4 3 供应商表 字段名字段类型长度主 外键 供应商编号char10P 供应商的名称varchar50 联系人姓名varchar50 供应商电话char20 供应商地址varchar50 第 10 页 共 20 页 4 销售临时表 销售临时表主要是用于记录已售商品的信息 设计如下表 4 4 所示 表 4 4 销售临时表 字段名字段类型长度主 外键 销售编号char100P 商品编号char6F 商品价格numeric 8 2 出售数量int 总金额numeric 8 2 销售日期datetime 员工编号char 4F 5 柜存表 柜存表主要用于记录上柜的商品信息 方便管理员或销售员出售商品 具体 设计如下表 4 5 所示 表 4 5 柜存表 字段名字段类型长度主 外键 商品编号char6P 商品名称varchar50 出售价格numeric 8 2 柜存数量int 报警报警int 第 11 页 共 20 页 第 5 章 系统详细设计与实现 5 1 用户登录模块 本模块的主要功能是对用户身份进行验证 只有系统的合法用户才能进入系统 在进行系统登录过程中 登录模块将调用数据库里的用户清单 并对账号和密码 进行验证 只有输入了正确的账号和密码后 系统登录才会成功 其窗体如图 5 1 所示 图 5 1 用户登陆的界面 5 2 菜单操作模块 如果用户以 管理员 身份登录系统 则进入管理员主界面 如果用户以 销售员 身份登录系统 管理员菜单开放了所有界面 而销售眼菜单只开放了 销售管理 商品上柜和密码修改 如图 5 2 所示 第 12 页 共 20 页 图 5 2 菜单操作模块 5 3 销售管理界面 本模块主要进行交易信息的录入和收取相应款项通过销售终端的扫描条形码 方式或手工输入每次交易的详细情况 本系统使用手工方式 包括商品编号 名 称 数量 交易总金额 对于同类多件商品采用一次录入数量的方式 自动计算 本次交易的总金额并保存 如图 5 3 所示 图 5 3 销售管理界面 代码如下 Public Class 销售管理 Private Sub TextBox2 TextChanged ByVal sender As System Object ByVal e As System EventArgs Handles TextBox2 TextChanged Label12 Text Label24 Text dvs1 RowFilter 商品编号 like TextBox2 Text If TextBox2 Text Length 6 Then If dvs1 Count 0 Then MsgBox 商品编号输入有误 重新输入 TextBox2 Text TextBox2 Focus ElseIf dvs1 Count 1 Then Dim dr0 dr1 dr3 As DataRow dr0 ds Tables stock Rows Find TextBox2 Text dr1 ds Tables stock Rows Find TextBox2 Text 第 13 页 共 20 页 dr3 ds Tables stock Rows Find TextBox2 Text Label12 Text dr0 Item 商品名称 Label24 Text dr1 Item 出售价格 End If End If dvs1 RowFilter 商品编号 like TextBox2 Text End Sub Private Sub TextBox3 KeyPress ByVal sender As Object ByVal e As System Windows Forms KeyPressEventArgs Handles TextBox3 KeyPress If e KeyChar vbCr Then Dim dr1 dr3 As DataRow dr1 ds Tables stock1 NewRow dr1 Item 商品编号 TextBox2 Text dr1 Item 销售编号 DateTime Now dr1 Item 商品价格 Label24 Text dr1 Item 出售数量 TextBox3 Text dr1 Item 总金额 Label24 Text TextBox3 Text dr1 Item 销售日期 Now Date dr1 Item 员工编号 登录 TextBox1 Text ds Tables stock1 Rows Add dr1 dr3 ds Tables stock1 Rows Find TextBox2 Text TextBox4 Text Val TextBox4 Text dr1 Item 总金额 Dim dr As DataRow dr ds Tables stock Rows Find TextBox2 Text If dr Item 柜存数量 TextBox3 Text Then MsgBox 柜存数量不足 重新输入 TextBox3 Text Else dr Item 柜存数量 dr Item 柜存数量 TextBox3 Text Dim cmdU As New SqlCommand With Connection conn cmdU CommandText update 柜存表 set 柜存数量 柜存数量 TextBox3 Text where 商品编号 TextBox2 Text daap UpdateCommand cmdU daap Update ds Tables stock TextBox2 Text TextBox3 Text TextBox2 Focus Label12 Text End If End If End Sub End Class 第 14 页 共 20 页 5 4 进货管理界面 本模块主要是进货操作 可添加已有商品 新商品 如果新商品的供应商也 是新的可点击其他 从新添加供应商 如图 5 4 所示 图 5 4 进货管理界面 5 5 商品上柜界面 本模块主要是柜存表里的商品如果达到报警数量可提示信息 从库存表里取 商品添加到柜存表 如果有新的商品上柜 可填写数量 价格等 如图 5 5 所示 第 15 页 共 20 页 图 5 5 商品上柜界面 5 6 统计查询界面 本模块主要是统计和查询销售清单 计算出总额与利润并打印 查询可分为 快捷查询和日期筛选 快捷查询可查询当天 当周 当月 当年以及全部 而日 期筛选可查询某一天 如图 5 6 所示 图 5 6 统计查询 代码如下 Public Class 统计查询 Private Sub DateTimePicker1 ValueChanged ByVal sender As System Object ByVal e As System EventArgs Handles DateTimePicker1 ValueChanged ShowSelectedDetal sender value ShowSelectedSumXiaoshoue sender value ShowSelectedSumJinhuoe sender value End Sub Private Sub ShowSelectedDetal ByVal tm As DateTime Dim stime As DateTime Format tm yyyy MM dd ToString 00 00 00 00 Dim etime As DateTime Format tm yyyy MM dd ToString 23 59 59 99 Dim pr1 As New SqlParameter With DbType DbType DateTime ParameterName stime Value stime Dim pr2 As New SqlParameter With DbType DbType DateTime ParameterName etime Value etime Dim sqlstr As String select from 销售临时表 where 销售日期 between stime and etime Dim cmd As New SqlCommand cmd CommandText sqlstr 第 16 页 共 20 页 cmd Parameters Add pr1 cmd Parameters Add pr2 cmd Connection conn daap SelectCommand cmd Try ds Tables stock1 Clear Catch ex As Exception End Try Try If conn State ConnectionState Open Then conn Open daap Fill ds stock1 dg1 DataSource ds Tables stock1 Catch ex As Exception MsgBox ex Message Finally cmd Dispose daap Dispose End Try End Sub Private Sub ShowSelectedSumXiaoshoue ByVal tm As DateTime Dim stime As DateTime Format tm yyyy MM dd ToString 00 00 00 00 Dim etime As DateTime Format tm yyyy MM dd ToString 23 59 59 99 Dim pr1 As New SqlParameter With DbType DbType DateTime ParameterName stime Value stime Dim pr2 As New SqlParameter With DbType DbType DateTime ParameterName etime Value etime Dim sqlstr As String SELECT SUM 总金额 AS Expr1 FROM 销售临时表 where 销售日期 between stime and etime Dim cmd As New SqlCommand Dim rdr1 As SqlDataReader cmd CommandText sqlstr cmd Parameters Add pr1 cmd Parameters Add pr2 cmd Connection conn Try If conn State ConnectionState Open Then conn Open cmd Connection conn rdr1 cmd ExecuteReader If rdr1 Read Then TextBox5 Text rdr1 GetValue 0 End If Catch ex As Exception MsgBox ex Message Finally 第 17 页 共 20 页 Try rdr1 Close Catch ex As Exception End Try cmd Dispose End Try End Sub Private Sub ShowSelectedSumJinhuoe ByVal tm As DateTime Dim stime As DateTime Format tm yyyy MM dd ToString 00 00 00 00 Dim etime As DateTime Format tm yyyy MM dd ToString 23 59 59 99 Dim pr1 As New SqlParameter With DbType DbType DateTime ParameterName stime Value stime Dim pr2 As New SqlParameter With DbType DbType DateTime ParameterName etime Value etime Dim sqlstr As String SELECT sum 库存表 进货价格 销售临时表 出售数量 as expr1 FROM 库存表 销售临时表 WHERE 库存表 商品编号 销售临时表 商品编 号 and 销售日期 between stime and etime Dim cmd As New SqlCommand Dim rdr1 As SqlDataReader cmd CommandText sqlstr cmd Parameters Add pr1 cmd Parameters Add pr2 cmd Connection conn Try If conn State ConnectionState Open Then conn Open cmd Connection conn If conn State ConnectionState Open Then conn Open rdr1 cmd ExecuteReader If rdr1