仓库管理系统的VISAULFOXPRO实现.doc

仓库管理系统的VISAUL FOXPRO实现（上）日期：2008-07-23来源: 作者：未知字体：大 中 小 【 内容 摘要】仓库管理系统是采用VISAUL FOXPRO开发的一个数据库管理系统。本设计说明书主要讲述了VISAUL FOXPRO的基本功能及设计 方法 .紧接着以本系统为例,逐一介绍开发本系统系统的步骤:系统 分析 、系统设计、系统实现、系统维护。在系统分析中先后用数据流图、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块。所需的数据库表及表字段。菜单的设计等。在系统的实现中,给出了实现表单中相应的功能控件的事件及代码.以及菜单实现的方法。文章的最后则给出了本系统的主要功能运行界面图. 关键字：仓库管理 仓库 管理系统 VISAUL FOXPRO 面向对象 目录 内容提要 引言 第一章 管理信息系统概述 第二章 系统设计 21 系统目标设计 22 开发设计思想 23 开发和运行环境选择 24 系统功能分析 25 系统功能模块设计 第三章 数据库设计 31 数据库需求分析 32 数据库概念结构设计 33 数据库逻辑结构设计 34 数据库结构的实现 第四章 系统主要功能模块的创建 41 功能选择界面的设计 42 设备入库模块的设计 43 设备出库模块的设计 44 设备还库模块的设计 45 设备需求模块的设计 46 设备采购模块的设计 47 显示报表模块的设计 48 开发中的难点和解决技巧 第五章 系统的编译和发行 总结 致谢（ 参考 文献 ) 附录 前言 企业 的物资供应管理往往是很复杂的,烦琐的。由于所掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同,各类统计计划报表繁多，因此物资管理必须实现 计算 机化，而且必须根据企业的具体情况制定相应的方案. 根据当前的企业管理体制，一般物资供应管理系统，总是根据所掌握的物资类别，相应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需要来发放物资设备，并随时按期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季度，年来进行统计分析,产生相应报表。为了加强关键物资，设备的管理，要定期掌握其储备，消耗情况，根据计划定额和实际消耗定额的比较,进行定额的管理，使得资金使用合理，物资设备的储备最佳. 所以一个完整的企业物资供应管理系统应该包括计划管理，合同托收管理，仓库管理，定额管理,统计管理，财务管理等模块。其中仓库管理是整个物资供应管理系统的核心. 鉴于Visual Foxpro6。0有强大的数据库管理功能，我们选用Visual Foxpro6.0来完成这个仓库管理系统. 第1章 管理信息系统基础 管理信息系统就是我们常说的MIS（Management Information System），在强调管理，强调信息的 现代 社会 中它越来越得到普及。MIS是一门新的学科，它跨越了若干个领域，比如管理 科学 、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。 1。1 管理信息系统概述 20世纪,随着全球 经济 的蓬勃 发展 ，众多经济学家纷纷提出了新的管理 理论 。20世纪50年代，西蒙提出管理依赖于信息和决策的思想.同时期的维纳发表了控制论，他认为管理是一个控制过程。1958年,盖尔写到：“管理将以较低的成本得到及时准确的信息，做到较好的控制。”这个时期，计算机开始用于 会计 工作，出现数据处理一词。 1970年，Walter T.Kennevan给刚刚出现的管理信息系统一词下了一个定义:“以口头或书面的形式，在合适的时间向经理、职员以及外界人员提供过去的、现在的、预测未来的有关企业内部及其环境的信息，以帮助他们进行决策.”在这个定义里强调了用信息支持决策,但并没有强调 应用 模型，没有提到计算机的应用。 1985年，管理信息系统的创始人，明尼苏达大学的管 理学 教授Gordon B.Davis给了管理信息系统一个较完整的定义，即“管理信息系统是一个利用计算机软硬件资源,手工作业，分析、计划、控制和决策模型以及数据库的人-机系统。它能提供信息支持企业或组织的运行、管理和决策功能。”这个定义全面地说明了管理信息系统的目标、功能和组成，而且反映了管理信息系统在当时达到的水平。 1.2 管理信息系统的特点 1.2。1 管理信息系统的组成 管理信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。 人是指企业领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。 计算机技术是MIS得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。 第三个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。试想要计算一台机床的生产成本，需要按时输入每个部件、每个零件甚至每个螺钉螺帽的费用，涉及企业的生产车间、采购、库房、工艺设计和财务等多个部门，必须有一整套管理制度做保证。 1。2.2 管理信息系统的界面特点 在计算机软件技术中，人机界面已经发展成为一个重要的分支。 MIS人机界面设计一般遵循以下一些基本原则： 1. 以通信功能作为界面设计的核心 人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取 自然 的方式;另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面混在一起，以免互相干扰， 影响 速度。 设计MIS时，针对每一个功能,都要按照“IP-O”的模块化思想,使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护。 报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护. 2. 界面必须始终一致 统一的人机界面不致于会增加用户的负担,让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换一套操作命令与操作方法。 例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等. 3. 界面必须使用户随时掌握任务的进展情况 人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等. 目前 ，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴. 4。 界面必须能够提供帮助 一个优秀的MIS软件应该提供在线求助功能，甚至提供使用向导，这将给用户带来极大的方便。在多媒体环境下，以语音提示作为操作向导，不会干扰屏幕信息，是一个极佳的选择。 5. 界面友好、使用方便 多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入（特别是汉字），而应让用户用鼠标轻松选择.例如,人事管理系统中的“文化程度”是相对固定的数据，其值一般取“小学”、“初中”、“高中”、“大专”、“大本”、“硕研”、“博研”等。录入这类数据之前，MIS软件应在相应位置弹出一个列表框,待用户以鼠标点击，而不应让用户每次都输入这些汉字. 另外,开发者应编写一个错误实时记录程序，自动记录何日、何时、何程序出了何种错误。 总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度，同时也要减少用户的干预量。实践证明,用户干预愈少,MIS系统的满意程度愈高. 6。 输入画面尽可能接近实际 如果某个电算会计软件的凭证录入画面是表格式的，一屏可录入多条记录，而且与实际凭证一模一样,甚至连颜色都无异，用户在终端上录入凭证,仿佛用笔在纸上填写凭证，以增加人机亲和力。 7. 具有较强的容错功能 误操作、按键连击等均有可能导致数据误录.巧妙地进行程序设计，可以避免此类因素造成的错误。例如，录入学生成绩时,我们可以对其范围进行限定,使用户无法输入0100以外的数据；录入学生年龄时，不妨根据实际情况将范围限制在1520之间。 1.3 管理信息系统的开发 管理信息系统开发方法主要有:结构化生命周期开发方法、原型法、面向对象的开发方法等。 1. 结构化生命周期开发方法 目前较为流行的MIS开发方法是结构化生命周期开发方法,其基本思想是：用系统的思想和系统工程的方法,按用户至上的原则,结构化、模块化地自上而下对生命周期进行分析与设计。 用结构化生命周期开发方法开发一个系统,将整个开发过程划分为5个依次连接的阶段： l 系统规划阶段：主要任务是明确系统开发的请求，并进行初步的调查，通过可行性 研究 确定下一阶段的实施.系统规划方法有战略目标集转化法（SST，Strategy Set Transformation）、关键成功因素法（CSF,Critical Success Factors）和企业规划法（BSP,Business System Planning）。 l 系统分析阶段：主要任务是对组织结构与功能进行分析，理清企业业务流程和数据流程的处理,并且将企业业务流程与数据流程抽象化，通过对功能数据的分析，提出新系统的逻辑方案。 l 系统设计阶段：主要任务是确定系统的总体设计方案、划分子系统功能、确定共享数据的组织，然后进行详细设计，如处理模块的设计、数据库系统的设计、输入输出界面的设计和编码的设计等。 系统实施阶段：主要任务是讨论确定设计方案、对系统模块进行调试、进行系统运行所需数据的准备、对相关人员进行培训等。l l 系统运行阶段：主要任务是进行系统的日常运行管理，评价系统的运行效率，对运行费用和效果进行监理审计,如出现 问题 则对系统进行修改、调整。 这五个阶段共同构成了系统开发的生命周期.结构化生命周期开发方法严格区分了开发阶段，非常重视文档工作，对于开发过程中出现的问题可以得到及时的纠正，避免了出现混乱状态。但是，该方法不可避免地出现开发周期过长、系统预算超支的情况,而且在开发过程中用户的需求一旦发生变化，系统将很难作出调整。 2。 原型法 原型法在系统开发过程中也得到不少应用。原型法的基本思想是系统开发人员凭借自己对用户需求的理解，通过强有力的软件环境支持，构造出一个实在的系统原型，然后与用户协商，反复修改原型直至用户满意。 原型法的应用使人们对需求有了渐进的认识，从而使系统开发更有针对性。另外，原型法的应用充分利用了最新的软件工具，使系统开发效率大为提高。3. 面向对象系统开发 方法 面向对象（OO,Object Oriented）的系统开发方法，是近年来受到关注的一种系统开发方法。面向对象的系统开发方法的基本思想是将客观世界抽象地看成是若干相互联系的对象，然后根据对象和方法的特性研制出一套软件工具，使之能够映射为 计算 机软件系统结构模型和进程，从而实现信息系统的开发。 1.3.3 管理信息系统的开发过程 管理信息系统的开发过程一般包括系统开发准备、系统调查、系统 分析 、系统设计、系统实现、系统转换、系统运行与维护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不同，各步骤的要求和 内容 也不同,用户需要根据实际情况进行取舍和计划。 1. 系统开发准备 系统开发准备工作主要包括提出系统开发要求、成立系统开发小组、制订系统开发计划等工作. 2. 系统调查 新系统的系统分析与系统设计工作都要建立在对现行系统调查的基础上，即必须调查现行系统的运行情况、 问题 等，明确用户的需求，特别是合作开发和委托开发方式。 调查的主要内容有： (1)现行系统概况：该组织的 发展 历史 、 目前 组织的规模、工作状况、管理水平、与外界的主要联系等。调查该项内容的目的主要是为了划分系统界限、系统与外界的输入输出接口等。 （2)组织机构：画出组织的组织结构图,弄清组织的行政关系、人员编制、工作范围、地理位置等，发现不合理问题及新系统启动后可能对现有组织的 影响 。 （3)业务流程:按照业务种类的不同和处理时间的先后不同，深入了解现行系统的业务流程，画出现行系统业务流程图，并与业务人员反复讨论，得到认可。调查中要注意定性与定量相结合，注意人、财、物、信息的流向、规格、频率、要求以及需要解决的问题等。 （4）报表、数据处理:了解各种统计报表、数据的格式、内容、处理时间及上报时间、频率、 规律 ，存在的问题，对新系统的要求、希望等并收集各种报表. （5）问题：现行系统中存在的主要问题和薄弱环节,可以按照严重程度分成不同的等级。新系统的建立应能解决大部分问题,并改善薄弱环节. (6）新系统的功能和目标:了解各级领导和各类业务工作人员对新系统功能的要求，为进一步完善新系统的目标做准备. （7）其他：如对新系统的各种约束条件,需要说明的其他问题等。 3. 系统分析 系统分析（又称逻辑设计）是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。 新系统的逻辑模型由系统数据流程图、概况表、数据字典、吃理逻辑表达式及有关说明组成.最后要完成系统分析报告（也称为系统逻辑设计说明书）。系统逻辑模型就像在根据需要建设一座学校前，按照学校 教育 的层次（初等、中等、高等）、规模、投资、地理环境、技术水平等条件的要求和约束,先由建筑设计院进行设计，保证学校建成后的各种功能得以实现，之后才能进行工程设计和施工一样。在系统设计阶段要做认真、细致的分析、 研究 工作，避免新系统在功能上存在先天不足或缺陷。 因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告（系统逻辑设计说明书)，经有关领导审批通过之后,转入系统设计（又称系统物理设计）阶段。 4. 系统设计 系统设计又称系统物理设计。系统设计要根据系统分析报告中的系统逻辑模型综合考虑各种约束,利用一切可用的技术手段和方法进行各种具体设计，确定新系统的实施方案，解决“系统怎么做”的问题。 结构化系统设计是指利用一组标准的图表工具和准则，确定系统有哪些模块，用什么方法连接，如何构成良好的系统结构，并进行系统输入、输出、数据处理、数据存储等环节的详细设计。这一阶段的重点是设计好系统的总体结构，选择最 经济 合理的技术手段。系统设计阶段的文件是系统设计报告（又称系统物理设计说明书）。 管理信息系统的开发是一项系统工程，为了保证系统的质量,设计人员必须遵守共同的设计原则，尽可能地提高系统的各项指标（系统可变性、可靠性、工作质量、工作效率、经济性等）. 5。 系统实施与转换 系统实施阶段的主要工作包括：系统硬件的购置与安装、程序的编写（购买）与调试、系统操作人员的培训、系统有关数据的准备和录入、系统调试和转换。 在系统实施阶段要成立系统实施工作量到小组，组织各专业小组组长和有关部门的领导共同编制新系统实施计划.可以 应用 各种项目管理的软件和方法进行管理，实行项目经理负责制，保证系统实施工作的顺利进行和成功. 硬件的购置和安装包括计算机硬件、外设、 网络 、电源、机房、环境等有关设备的购买、验收、安装与调试工作等，这些工作主要由专业技术人员完成。 数据准备与录入工作主要是指由手工操作转入计算机处理所需的各种数据的整理、录入及计算机系统中为新系统所用数据的转换工作.数据准备与录入工作要注意数据的准确性，在整理、录入、校验等各个环节把好关，为系统的顺利转换打好基础。 在进行以上各个环节的同时展开人员培训工作，包括管理信息系统只是的普及教育、新制度的 学习 、计算机操作训练等。使所有人员了解新系统的基本功能、新系统对使用人员的要求、建立管理信息系统的目的、管理信息系统的建立可以为组织和个人带来的帮助和便利、个人在新系统中应该承担的工作等,是用户关心、支持新系统的实现. 6。 系统维护和评价 管理信息系统是一个复杂的人机系统.系统外部环境与内部因素的变化，不断影响系统的运行，这时就需要不断地完善系统，以提高系统运行的效率与服务水平,这就需要从始至终地进行系统的维护工作。 系统评价主要是指系统建成后，经一段时间的运行后,要对系统目标与功能的实现情况进行检查，并与系统开发中设立的系统预期目标进行对比，及时写出系统评价报告。 系统维护与评价阶段是系统生命周期中的最后一个阶段，也是时间最长的一个重要阶段，就像汽车的维护工作好可以延长汽车的使用寿命和提高其使用效率一样，系统维护工作的好坏可以决定系统的生命周期的长短和使用效果。第二章 系统设计 2 1 系统目标设计 系统开发的总体任务是实现 企业 物资设备管理的系统化,规范化和自动化，从而达到提高企业物资管理的效率的目的. 22 开发设计思想 仓库管理的物资在本文中主要假定都是企业生产所需要的各种设备。进货时经检查合同确认认为有效托收以后，进行验货入库，填写入库单,进行入库登记。企业各个部分根据所需要的物资设备总额和部门生产活动需要提出物资需求申请。计划员根据整个企业的需求开出物资设备出库单，仓库管理员根据出库单核对发放设备。设备使用完毕需要及时归还入库，填写入库单。根据需要按照月，季,年进行统计分析,产生相应报表. 仓库管理的特点是信息处理量比较大。所管理的物资设备种类繁多，而且由于入库单，出库单，需求单等单据发生量特别大，关联信息多，查询和统计的方式各不相同。因此在管理上实现起来有一定的困难。在管理的过程中经常会出现信息的重复传递，单据，报表种类繁多，各个部门管理规格不统一等问题。 在本系统的设计过程中，为了克服以上困难，满足计算机管理的需要,我们采取了下面的一些原则。 统一各种原始的单据的格式，统一帐目和报表的格式。 删除不必要的管理冗余,实现管理规范化、 科学 化。 程序代码标准化,软件统一化,确认软件的可维护行和实用性. 界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。 建立操作日志，系统自动记录所进行的各种操作。 23 系统功能分析 本人中的仓库管理系统需要完成功能主要有一下几点。 仓库管理各种信息的输入，包括入库、出库、还库、需求信息的输入等。 仓库管理各种信息的查询、修改和维护。 设备采购报表的生成。 在库存管理中加入最高储备和最低储备字段，对仓库中的物资设备实现监控和报警. 企业各个部门的物资需求的管理。 操作日志的管理. 仓库管理的使用帮助. 24 系统功能模块设计 在系统功能分析的基础上，考虑vfp程序编制的特点，得到如图所示的系统功能模块图： 第三章 数据库设计 31 数据库需求分析 在仔细调查企业仓库物资设备管理过程的基础上，得到本系统所处理的时间流程如图所示： 在本设计中，通过对企业仓库管理的内容和数据流程分析,设计的数据项和数据结构如下： 设备代码信息。包括的数据项有设备号、设备名称. 现有库存信息。包括的数据项有现有设备、现有数目、总数目、最大库存、最小库存等。 设备使用信息。包括的数据项有使用的设备、使用部门、数目、使用时间、出库时状态. 设备采购信息。包括的数据项有采购的设备、采购员、供应商、采购数目、采购时间等。 设备归还信息。包括的数据项有归还设备、归还部门、归还数目、归还时间、经手人等。 设备需求信息。包括的数据项有需求的部门、需求设备、需求数目、需求时间等. 有了上面的数据结构、数据项和数据流程，就能进行下面的数据库设计。 32 数据库概念结构设计 这一设计阶段是在需求 分析 的基础上，设计出能够满足用户需求的各种实体,以及它们之间的关系,为后面的逻辑结构设计打下基础。 本设计根据上面的设计规划出的实体有库存实体、入库实体、出库实体、采购实体、还库实体、需求实体.各个实体的E-R图及其关系描述如下： 1）库存实体E-R图:33 数据库逻辑结构设计 在上面的实体以及实体之间的关系的基础上，形成数据库中的表格以及各个表格之间的关系。 仓库管理系统数据库中的各个表格的设计结果如下面的几个表格所示.每个表格表示在数据库中的一个表。 （1）设备代码表：44 设备还库模块的设计 在设备还库模块中将实现设备还库数据的添加和修改库存等功能，按照前面介绍的步骤设计设备还库表。 设备还库表所可能用到的控件的属性如表所示： (1）Form1控件的主要属性: select 现有库存表 先在该表单的数据环境中添加现有库存表 getid=thisform.设备号1。text1.value set order to 设备号 seek getid *在现有库存表中查找设备号等于getid的纪录 if found（） getnum=thisform。归还数量1.text1。value update 现有库存表； set 现有库存=(现有库存-getnum） where (设备号=getid） insert into 操作日志表（操作员,操作内容，操作时间）; values （thisform.归还人1。text1。value,设备还库,date(） *如果库存表中有该项设备,则更新库存表,同时更新操作日志 else messagebox(”出错，1，”错误的设备号”) *如果没有该设备号则报告出错信息 endif 保存后运行表单，可得到如图所示的设备还库表。 45 设备需求模块的设计 在设备需求模块中将实现设备需求数据的添加和保存日志等功能。首先通过Visual Foxpro的表单向导生成所需的设备需求表单，选择部门需求表的所有可用字段，然后为保持程序风格的一致,继续采用表单的阴影式和图片按钮的风格。在“步骤3-排序次序时。选择设备号的升序排列。最后单击“完成”按钮，把表单保存在“c:仓库管理”目录下,名为“设备需求。scx”. 通过表单向导生成的表单如图所示，我们可以调节控件的位置,修改表单中控件的属性，最后结果所下图所示： 在表单设计器中，双击“保存日志”命令按钮.添加click事件代码如下： insert into 操作日志表 (操作员,操作内容,操作时间） values （username,设备需求，date(） 双击回主界面命令按钮，添加click事件代码如下： thisform。release do form 仓库管理 保存对表单所作的修改。 46 设备采购模块的设计 在设备采购模块中将实现设备采购数据的添加和保存日志等功能。 （1）由数据表生成表单 通过Visual Foxpro的表单向导，生成设备采购计划表单。在选择数据库和表时，选择仓库管理数据库和设备采购计划表。在选择字段时,选择所有可用字段,选择阴影式和图片按钮作为设备采购计划表的样式。选择计划采购时间的升序排列作为设备采购计划表的索引. （2)为窗体修改和添加命令按钮 添加2个命令按钮“保存日志和“回主界面”。设置表单中控件的属性。下面的表列出了需要修改的控件的名称以及属性值。 (1)Form1控件的主要属性: （3)为按钮添加click事件代码： 在表单设计器中,双击保存日志命令按钮。添加click事件代码如下： insert into 操作日志表 （操作员,操作内容，操作时间） values （username,设备需求,date() 把设备需求写入操作日志表中 双击回主界面按钮，添加click事件代码如下： thisform.release 释放本表单 do form 仓库管理 运行仓库管理界面 保存对表单所作的修改,表单运行效果如图所示: 47 显示报表模块的设计 在该模块中，一共要显示3个报表,分别提供库存不足，库存过多和操作日志等信息。 1 设计显示报表表单 在项目管理器的文档视图下选择“新建”，然后选择新建表单，如图所示。 在如图所示的空白表单中添加一个页框控件，并按照下表设置页框的属性，同时在数据环境里添加现有库存表和操作日志表.操作日志表设置表格控件的属性，如表所示： grid1控件的主要属性表: 2 代码设计 定义Pageframe1.Page1。grid1的init事件 运行“显示报表”表单，界面所图所示： local Custs1 select 设备号,最大库存,现有库存 from 现有库存表 where (现有库存最大库存） into cursor Custs1 thisform.页框。库存过多.库存过多表。recordsource=”Custs1” 定义Pageframe1。Page2.grid1的init事件 local Custs2 select 设备号，最小库存,现有库存 from 现有库存表 where （现有库存alltrim（thisform.text3。value） or len(alltrim(thisform.text2.value）len(alltrim(thisform。text3。value）) mess=messagebox（二次密码不一致！”，48，警告） else locate for alltrim（用户名）=alltrim(thisform。text4。value） and alltrim（密码）=alltrim（thisform.text1.value） if eof（） mess=messagebox(密码错误,系统将取消你的修改权利！”，48,警告”） thisform。release else repl 密码 with alltrim(thisform.text3.value) mess=messagebox(”密码修改成功!”，48，”信息”） thisform。release endif 4：添加操作员表单的最首按钮的click事件源代码: go top thisform.grid1.setfocus thisform。grid1。refr