商场管理信息系统设计方案商场管理系统是用自动化管理商场，将商场里商品销售情况及出库入库以及商场内人员管理和财务的收支平衡等方面的信息输入计算机中，然后可用商场的管理系统对其进行查询和各种改动，比如添加，删除等各项操作，从而快速而全面地了解商场内的基本信息，相比非自动化的管理而言，节省了宝贵的时间和大量的人力，才力和物力，而且，管理的效率非常的高，准确度高，操作十分的简单。
㈠商场管理信息系统的可行性研究（1）对目前系统的分析在一些大型商场里存在着货物出入混乱，人员调动的混乱的问题以及财务上工作量巨大等实际问题。
从而造成商场管理各个方面出现严重的问题给商场带来无法弥补的巨大损失，表现在以下几个方面：①在商品的管理方面：现在的大型商场已经不向以前小商场那样，卖出的商品的种类比较单一，不需要什么东西帮助管理，相反，现在的商场出售各种各样的商品，门类比较齐全，种类比较多。
如果管理不好，就会出现问题，直接影响商场的其他部门。
②在人事管理方面：现在的管理方法只是人事部门的几个人在操作，其他部门的其他员工，可以说在填完基本情况表后，在也没看见过自己的简历。
即使里面有问题也不能得到及时的解决，给人事管理带来潜在的危险，特别是依照个人的简历享受不同的待遇时，麻烦则更大，严重影响员工的积极性不利于企业的发展。
③在财务管理方面：财务应该和认识挂钩，然而现在有的系统使二者分离。
在发工资时出现，员工已经不在此地工作，而财务部依然给该人发工资，新员工已经工作，却没给发工资，财务管理混乱。
④在采购管理方面：采购应该根据此商品的销售情况和库存量进行定量的采购，这样可以使有限的资金发挥其最大的效益。
然而现在，有的商场还缺乏这方面的管理或者还管理的不够好。
⑤综合方面：一般的管理系统，只是在单方面达到了用户的要求，在某方面其管理的功能是非常强大的，但是缺乏综合的管理，不能很好的将几方面的管理结合起来，这给需要更多功能的用户带来不便。
针对这一系列的问题，十分迫切的需要开发者，对先前的系统进行改进。
（2）新系统的高层逻辑模型A: 基本模型（系统总体层次结构图）（人事管理基本系统模型）（销售系统的基本模型）(采购系统基本模型)(财务系统基本模型)(员工信息查询系统基本模型)(客户系统基本模型)B:各子系统的数据流程图(人事部数据流程图)(销售部数据流程图)(采购部数据流程图)(财务部数据流程图)(员工信息查询数据流程图)(客户区数据流程图)以上是本系统中的每个子系统的数据流程图,和系统中所用的信息的数据字典.由此可以对系统的基本结构有所了解,有利于近一步了解系统的功能,便于设计.C:对新系统的重新定义依照上面的基本模型,数据流程图,数据字典,和用户的要求不断的对系统进行修改,只到达到用户的要求.最后系统的设计方案,要满足一般系统所有的功能,并且在此基础上满足用户的新要求.新系统的特点:①系统设计要合理,风格统一;②具有现行系统的基本或所有功能;③操作方便,宜于管理;④解决了现行系统的不足;⑤对系统进行了加密,限制不同人的不同权限;⑥增加了客户区以便客户查询商品信息,方便用户.对于各部分功能的说明:①人事系统:人事部主管在输入密码正确后,进入人事系统,进行操作,包括人员的增加,人员信息的修改,以及人员信息的删除,查询等的基本操作,便于管理;②销售系统:管理员在密码正确后,进入系统进行操作,包括对客户购买商品的清点,收款等操作;③采购系统:管理员在进入系统后,进行购物操作,利用本系统提供的查询,筛选等操作对商品整个库存进行操作,及时的得到商品的信息,以便制定合适的采购计划;④财务系统:也是加密系统,管理员工的工资发放和整个财务;⑤员工信息查询:商场的员工可以根据自己的编号进入此系统,查询自己的信息,以便发现和改正自己信息中的错误,及时的得到修改,同时为了不让非本商场的员工进入,需要员工有密码,以便确认用户的合法性;⑥客户区:本区是专门为客户设计的,便于用户在商品库中查询自己需要的信息,方便用户,同时有助于商品的价格透明.㈡商场管理系统的需求分析A: 系统规格说明本系统由六个子系统组成,包括人事子系统,销售子系统,采购子系统,财务子系统,员工信息查询子系统和客户区子系统.①人事子系统完成员工信息的添加,信息的修改,信息的删除以及信息的查找,要求员工 提供自己的基本信息，有系统的管理员进行输入，注册新的员工，当员工知道自己的基本信息有误差时，可以在人事部员工信息表中进行修改，以便使信息符合用的真实信息，所以用户也参与到人事管理中来，使人事管理比较的透明，有利于企业的发展。
其基本的系统数据流程图见可行性研究中的<人事部数据流程图>,其系统的主要算法如下所示:②销售子系统完成商品的销售，负责从商品库存中提取商品的信息，重要使价钱，和库存量，以便以规定的价格将商品买出，不需要售货员记清所有的商品价格，用商品的唯一编号，提取商品的信息，十分的方便准确。
如果用户要的商品库存量不足，就会弹出提示信息，告诉售货员库中已无此商品，不能再销售此商品。
当有商品，可以继续进行操作，完成用的需求，并收款，找零。
其基本的系统数据流程图见可行性研究中的<销售部数据流程图>，其系统的主要算法如下所示：③采购子系统完成商品的采购，负责从商品库存中提取商品的信息，查找商品中库存量满足一定条件的商品的集合，以便产生报表共采购员采购，本子系统操作非常简单但功能十分的强大，通过鼠标的选择，满足管理员的要求，以便快速的找到商品的信息，有利于采购部的效率，其系统数据流程图见可行性研究中的<采购部数据流程图>，其系统的主要算法如下：④财务子系统处理商场的财务管理，包括员工的工资，销售额等财务信息，需要人工的输入工资的各项信息，此项是在人事部门的基础上工作的，只有在人事部有记录的员工才能在财务部有自己的纪录，便于认识和财务挂钩，使每个员工有自己的工资纪录。
没在此商场工作的人不能有工资纪录，使得财务管理不会出现某些旧系统所出现的问题，给使用者带来不便和麻烦，使使用者承担不必要的损失。
此系统的数据流程图见可行性研究中的<财务部数据流程图>，其系统的主要算法如下：⑤为了方便员工，及时知道自己的基本信息，本系通为员工给于一定的访问权限，及时的对自己的信息进行更新，但是这种更新只能是员工。
知道信息有误后，在人事部门进行更改，同时也防止用户不严肃的，乱改自己的信息，使自己的信息不真实，给管理带来不便。
此系统，只准许员工读自己的信息，不能修改，其系统的数据流程图见可行性研究中的<员工信息查询数据流程图>,其系统的主要算法如下：⑥客户区<商品查询区>子系统具有强大的查询筛选功能，帮助用户进行自己所需商品的查询。
只要用户知道一点商品的信息，就可进行操作。
操作简单，功能强大，少量的输入得到很大的商品信息，但是用户的输入是本系统工作的前提，只有正确的输入信息，正确的操作，才能感觉到查询系统的方便；简单输入，得到十分详细的商品信息输出，信息中包括商品的编号，名称，生产厂家，产地，库存等信息，方便用户的选择和筛选，使商品的买卖透明化，有利于企业的发展，同时也进一步提高了经营效率，进一步提高了工作效益，使得企业的资源得到了最大限度的利用。
其系统的数据流程图见可行性分析中的<客户区数据流程图>，其系统的主要算法表示如下：B:数据要求数据是一个系统必不可少的元素,在系统的执行的每一步操作都有数据的参与,合适的数据可以使系统正常的工作,完成自己的任务。
在本系统中数据也是非常重要的一部分,数据定义的好坏直接影响到系统的运行。
在本系统中,需要用的的数据信息是非常大的,以下是本系统中用到的数据,已经用数据字典的形式表现出来,可以通过此数据字典正确的对数据进行定义和系统的维护工作,此阶段应反复的对数据字典进行修改,以便使数据字典成为十分合理的数据字典,对后期的详细设计打下好的基础.数据字典的定义对数据库中数据信息的分析在数据库中有四个实体,包括商品,员工,部门,工资,其之间的关系用ER 图表示如下:(商品ER 模型)(员工----工资ER 图)(注释:员工的属性中的含义见数据字典的定义解释.)(整体的ER 图)C:用户系统描述本商场管理信息系统是一个功能十分完备的管理信息系统,包括人事管理子系统,销售管理子系统,采购管理子系统,财务管理子系统,员工信息查询子系统和客户区子系统六个系统,各部分子系统完成自己应该有的系统功能:①人事系统完成员工的信息管理,增加,删除,修改操作;②销售系统完成商品的卖出功能;③采购部进行库中商品的更新,处理,购进短缺的商品,对商品的库存进行管理;④财务系统管理整个企业的财务情况,对员工的工资进行发放,队员工的工资项目进行填写;⑤员工信息查询系统是以前的系统没有的子系统,它完成员工信息的查询,使人事部的注册信息和员工的实际信息一致,便于人事部门的管理.⑥客户区系统是为了方便用户而设计的一个子系统,客户可以在此系统中进行商品的查询工作,查询自己想买的商品的情况.这些功能操作十分得简单,操作员能很快的掌握使用的方法.本系统为了保护合法用户合法的使用权利，对系统进行了加密,所以在使用时需要身分的确认对于员工在进入员工信息查询系统时需要输入自己的名字和密码,以便使用此子系统进行操作。
在初次使用时密码就是员工姓名的汉语拼写,例如商场有员工李明,则在李明初次使用时在输入姓名后,需要在密码框中输入liming .在第一次使用后可以对自己的密码进行更改,点密码更改进行更改,希望用户注意保护自己的密码,以防被盗用.其他部门的管理员同样也需要在进入时选择自己的部门,输入密码,其密码和员工一样时部门明的汉语拼音.如销售部的密码为xiaoshoubu,同样也可进行密码的修改.需要强调的是,部门的密码的长度最好是10个字符以上,以便更好保护密码.在进入不同的系统后,各系统的操作十分的明显,这里就不再详细说明,希望用户在使用时,根据系统中的文字提示能认真的操作,使系统发挥其最大的功能.㈢总体设计A:系统说明在经过前面阶段的充分准备后,本阶段的主要任务是对系统进行概要的设计,划分出组成系统的物理元素,设计软件的结构,及说明系统中每个程序是由那些模块组成的,以及这些模块之间的相互关系.本系统适用于商场管理,其中包括对商场不同部门工作的划分,使得每个子系统的功能非常专一,管理功能非常强大,但是所有的子系统是紧密的联系在一起,共同完成商场的整个管理.B:用户手册①用户需要先将本系统安装在自己的管理机上,请安系统的提示进行安装.②安装完毕,用户即可使用本系统.③在运行系统时,会出现如图1的界面,请不同的用户从不同的位置享用自己的权限.图1④员工信息查询子系统员工填写自己姓名,密码(注释:初次使用的密码员工自己姓名的)精确认正确后进入员工信息查询界面见下图所示:当用户要进行查询时按下查询按钮即可,弹出输入提示对话框见下图:用户需要在文本框中职工的个人编号,以便系统查找,输入编号完毕,按确定就可在员工信息窗体上出现查找的结果.使用员工信息窗体上的下一个,上一个按钮可以在系统中手工的查找记录,方便用户选择自己喜欢的查找方法.人事部子系统人事部管理员在部门进入框中选择自己的部门,填入自己的密码,进入人事部的管理界面,对商场的整个人员信息进行管理.(注释:密码是部门的汉语拼音,例如:人事部在初次进入时,密码为renshibu)人事部管理界面如下:管理员通过增加按钮增加员工,需要在管理员在文本框中输入员工的信息,在输入完成后按下确认按钮,则员工信息如果添加成功则可在右边的网格中显示,如添加姓名为李严的员工记录,按下增加按钮后的部分图,其它按钮不可用!当管理员输入信息完毕后,按下确定按钮,即可将员工添加成功如下:添加成功信息在右边显示其它功能和添加相似,不再说明.销售部子系统销售部的系统管理员,在正确的输入部门和密码后就进入销售部的管理.界面如下:销售员在购买区内填入客户要购买的商品的ID号,输入数量,按下购买按钮则客户购买的商品则显示在左边的表中,有利于结算和打印清单.当输入完所有购买的商品后,就可以在结算区进行结算.按下确定进行下一个客户的结算.产品查询子系统进入后界面如下:在界面上选择不同的按钮实现不同的功能,对用户关心的商品进行查询和筛选,方便用户,购买商品,其操作不详细说明,用户看到按钮的标题就能很好的进行操作,十分的方便.采购子系统采购子系统的界面如下所示:管理员可以利用添加,删除,修改按钮对商品库中的信息进行操作,利用排序方法对商品进行不同性质的排序,筛选功能帮主管理员对商品的进一步操作,有利于商品的采购,及时的使管理员将信息反馈给采购员,及时的对库存进行更新在系统的菜单栏上管理员可以对整个库存进行打印,效果如下:财务子系统系统界面如下:利用查询进行查询操作,其功能兼有筛选功能,在窗体的下方记录了查询的记录个数,用户利用系统提供的工具对查到的记录进行阅读.窗体上的功能菜单如下:打印菜单如下:功能菜单完成对员工工资的增加,删除,修改操作,使用和前面的添加等功能相似不再说明.需要说明的是在添加是需要员工提供自己在人事部的基本信息,若正确，则准许添加,反之,禁止.打印菜单负责打印工资的信息,工资表是对所有员工工资的总体记录,工资条可对每个员工工资的打印,以便员工进行核对,也是一种收据.其显示如下:B:数据库设计结果Gongzi表结构(员工工资情况的记录) 字段名类型长度含义编号text 8 唯一的标识员工姓名text 10部门text 10基本工资integer 2职务补贴integer 2奖金integer 2房租integer 2水电integer 2岗位津贴integer 2实发工资integer 2Yuan gong表的结构(员工基本信息表):Shangpin表结构(商品的基本信息):㈣详细设计(用VB实现)对于整个登陆界面的设计:(简单流程图)其简单的流程图见上图,其基本的界面图见整体设计中图1,现对其中部分的设计实现如下:(1)选择新建|工程命令新建工程.(2)在窗体添加控件，并设计属性,具体描述如下:5个command button按钮,按照图1设置按钮caption属性,为按钮上的显示值.如:退出按钮需要将caption=退出,其他属性不变;其他的按钮类似.13个label,同样将其的caption=显示的值,如:姓名标签,则caption=姓名.2个data控件,将data1的databasename=E:\aafd\db1.mdb,recordsource=depmima,visible=false将data2的databasename=E:\aafd\db1.mdb,recordsource=yuangong,visible=false3个frame控件,将frame1的caption= “”,frame2的caption=””,frame3的caption=””1个combobox控件,属性不便.6个textbox控件,属性不便.1个timer控件,interval=100(3)在窗体的load事件中,初始化系统,代码如下:Private Sub Form_Load()bo1.AddItem "人事部"bo1.AddItem "采购部"bo1.AddItem "销售部"bo1.AddItem "财务部"bel1.Left = Me.ScaleWidthEnd Su b(4)将下面的代码添加到command1的click事件中,便于从部门进入.Private Sub Command1_Click()Me.Text4.DataField = "depmima"bo1.DataField = "depname"Data1.Recordset.FindFirst "depmima='" & Text4.text & "'and depname='" & bo1.text & "'"If Data1.Recordset.NoMatch ThenMsgBox ("密码或用户名不正确！请重新输入!")bo1.SetFocusElsen = Combo1.textSelect Case nCase "销售部"销售部.ShowCase "财务部"财务部.ShowCase "人事部"人事部.ShowCase "采购部"采购部.ShowEnd SelectText4.text = "******"End IfEnd Sub(5)在command2的click事件中加如下代码,便于员工进入.Private Sub Command2_Click()Me.Text1.DataField = "Name"Me.Text2.DataField = "password"Data2.Recordset.FindFirst "Name='" & Me.Text1.text & "' and password='" & Me.Text2.text & "'"If Data2.Recordset.NoMatch ThenMsgBox ("密码或用户名不正确！请重新输入!")Else个人信息.ShowText2.text = "******"n = Text1.textMsgBox nEnd IfEnd Sub(6)将如下的代码加入在command3的click事件的过程中,当用户要修改密码是就会响应用户的操作.弹出修改密码框,Private Sub Command3_Click(Index As Integer)n = IndexSelect Case nCase 0密码修改.Show密码修改.Label4.Caption = "编号："密码修改.Text4.Visible = True密码修改.Combo1.Visible = FalseCase 1密码修改.Show密码修改.Label4.Caption = "部门："密码修改.Combo1.Visible = True密码修改.Text4.Visible = FalseEnd SelectEnd Sub(7)为了客户进入客户区需要在command4的click中加如下代码,进入客户区:Private Sub Command4_Click()产品查询.ShowEnd Sub(8)退出系统,在command5的事件中加:Private Sub Command5_Click()Unload MeEnd Sub(9)为了实现动态的效果,需要在timer1的timer事件中添加:Private Sub Timer1_Timer()Label13.Caption = "现在时间：" & CStr(Year(Date)) & "-" & CStr(Month(Date)) & "-" & _ CStr(Day(Date)) & " " & CStr(Time())If Label1.Left > 0 ThenLabel1.Move Label1.Left - 80, Label1.TopElseIf Label1.Left - Label1.Width < 0 ThenLabel1.Move ScaleWidth, Label1.TopEnd IfEnd Sub到此,登陆界面设计完成.财务部子系统的设计:在刚才建的工程中添加新窗体,将其name和caption设置为财务部.在其窗体上添加控件,布局图如整体设计中的财务部窗体.其上的控件属性设置为:label控件的属性和上一个窗体相似,直接改变caption就可以.Commandbutton的name依次为command1,command2,command3,command6,command7 Caption依次为: 按编号, 按姓名, 按部门, 确定, 取消Data控件,databasename=E:\aafd\db1.mdb,recordsource=yuangongText(0 - 8)数组,设置datasource=Adodc1,datafield为表中的某个字段.Adodc控件将其连接到数据库中.添加菜单,项目见总体设计.(1)子系统的初始化代码如下:Private Sub Form_Load()mand1.SetFocusFor i = 0 To 8Text1(i).Locked = TrueNextText10.Enabled = Falsemand6.Enabled = Falsemand7.Enabled = FalseIf Adodc1.Recordset.RecordCount = 0 Thensys1.Item(1).Enabled = Falsesys1.Item(2).Enabled = FalseEnd IfEnd Sub(2)对于功能菜单的响应:Private Sub sys1_Click(Index As Integer)n = IndexSelect Case nCase 0'BiaoHaoAdodc1.Recordset.AddNew'Me.Text1(0).Text = VB_BiaoHaomand6.Enabled = Truemand7.Enabled = TrueFor i = 0 To 8Text1(i).Locked = FalseNextText1(0).SetFocusCase 1a = MsgBox("是否删除当前记录？", vbYesNo + vbQuestion)If a = vbYes ThenWith Adodc1.Recordset.DeleteIf .EOF Then .MoveLast.MoveNextEnd WithEnd IfIf Adodc1.Recordset.RecordCount = 0 Thensys1.Item(1).Enabled = Falsesys1.Item(2).Enabled = FalseEnd IfCase 2mand6.Enabled = Truemand7.Enabled = TrueFor i = 0 To 8Text1(i).Locked = FalseNextText1(0).SetFocusCase 4Unload MeEnd SelectEnd Sub对打印菜单的响应:Private Sub sys2_Click(Index As Integer)n = IndexSelect Case nCase 1DataReport1.ShowCase 3DataReport2.ShowEnd SelectEnd Sub采购部子系统的设计:添加新窗体,将其name和caption设置为采购部,添加控件,如采购部系统图.并布局成图中显示的样子.5个adodc控件,分别连接四个datacombo控件,和datagrid控件,连接方法和一般的控件连接方法相似,这里不再说明5个commandbutton控件,实现不同的功能,其属性设置只需要改变其caption属性,是控件上的显示内容不同而已,其他属性不便.4个frame控件,使窗体上的控件的功能非常的集中,有利于用户的使用.其属性只是将caption属性设置为相应的功能明.其他属性不便.4个option单选按钮用于排序,只是将其caption属性设置为商品ID,商品名,单价,库存量, 其它属性不便.4个DataCombo控件,其属性不便.(1)系统的初始化,主要是完成控件的属性设置,和数据库连接,完成其操作.代码如下:Private Sub Form_Load()Set Me.DataCombo1.RowSource = Adodc2Set Me.DataCombo2.RowSource = Adodc3Set Me.DataCombo3.RowSource = Adodc4Set Me.DataCombo4.RowSource = Adodc5Me.DataCombo1.ListField = "商品ID"Me.DataCombo2.ListField = "商品名称"Me.DataCombo3.ListField = "类别"Me.DataCombo4.ListField = "库存量"End Sub(2)对于排序功能,完成对商品的排序和查找功能,起代码比较简单,仅以商品ID查询为例,代码如下:Private Sub Option1_Click()Me.Adodc1.Recordset.Sort = "商品ID"End Sub(3)对于筛选功能,其代码如下,仅以商品ID为例,代码如下:Private Sub DataCombo1_Change()Me.Adodc1.Recordset.Filter = "商品ID='" & Me.DataCombo1.text & " '"End Sub产品查询子系统的设计:添加新的窗体,将其name和caption属性设置为产品查询,其它属性不变.在窗体上添加的控件如下:1个Adodc控件,用于和数据库相连,将其recordsource=shang pin其它属性不便.1个commandbutton数组,实现查找.1个DataGrid控件,用于显示数据.总体的布局如总体设计时局部图.(1)查询方法的代码如下:Private Sub Command1_Click(Index As Integer)n = IndexSelect Case nCase 0aa = InputBox("查找编号为：", , "")If aa <> "" ThenAdodc1.Recordset.Filter = "商品ID like '" & aa & "*'"End IfCase 1aa = InputBox("查找商品名称为：", , "")If aa <> "" ThenAdodc1.Recordset.Filter = "商品名称like '" & aa & "*'"End IfCase 2aa = InputBox("查找类别为：", , "")If aa <> "" ThenAdodc1.Recordset.Filter = "类别like '" & aa & "*'"End IfCase 3aa = InputBox("查找产地为：", , "")If aa <> "" ThenAdodc1.Recordset.Filter = "产地like '" & aa & "*'"End IfCase 4Me.Adodc1.Recordset.Sort = "商品ID"Me.Adodc1.RefreshEnd SelectEnd Sub(2)其他控件代码不在说明.个人信息子系统的设计:添加新的窗体,将其name和caption设置为个人信息,在窗体上添加控件如下:主要是textbox控件，用于显示信息.4个Commandbutton控件用于实现功能,将其caption属性设置为相应的功能以便使用,属性依次为查询,上一个,下一个,退出.其它属性不便.(1)系统初始化代码:Private Sub Form_Load()Data1.DatabaseName = ("E:\aafd\db1.mdb")Data1.RecordSource = "select * from yuangong,gongzi"Me.Text1(0).DataField = "Dep"Me.Text1(3).DataField = "基本工资"Me.Text1(4).DataField = "职务补贴"Me.Text1(5).DataField = "房租"Me.Text1(6).DataField = "岗位津贴"Me.Text1(7).DataField = "奖金"Me.Text1(8).DataField = "水电"Me.Text2.DataField = "SNum"Me.Text3.DataField = "Name"Me.Text4.DataField = "Sex"Me.Text5.DataField = "Birthday"Me.Text6.DataField = "dizhi"Me.Text7.DataField = "Zw"Me.Text8.DataField = "Age"Me.Text9.DataField = "Gongzuoshijian"Me.Text10.DataField = "Tel"Me.Text11.DataField = "Xueli"End Sub(2)功能代码(以查询为例):Private Sub Command1_Click()ss = "请输入要查询的职工的个人编号"instring$ = InputBox$(ss, "输入提示", "00000000")Data1.Recordset.FindFirst "SNum='" & instring$ & "'"If Data1.Recordset.NoMatch Thenmsg = "没有该职工记录!"MsgBox msg, vbOKOnly, "提示"End IfEnd Sub人事部子系统的设计:添加新的窗体,将其name和caption属性设置为人事部,其他属性不变.在窗体上添加控件如下:12个textbox控件,用于显示个人信息.设置他的datasource和datafiled属性,使datasource属性为data1,datafiled属性为相应的字段.9个commandbutton按钮用于功能的实现,将caption属性设置为相应的标题即可.1个MSFlexGrid控件,显示库中的信息.其属性值不便.其它的控件请自己加入,以便界面更佳.(1)子系统的初始化,过程完成库中已经有的信息的显示.在窗体的load事件中添加以下代码: Private Sub Form_Activate()Locktext ‘使控件不能输入(locked=true)If Data1.Recordset.RecordCount = 0 Thenmand2.Enabled = Falsemand3.Enabled = Falsemand4.Enabled = Falsemand5.Enabled = Falsemand6.Enabled = FalseEnd Ifrow = ""If Not Data1.Recordset.RecordCount = 0 ThenMe.Data1.Recordset.MoveLastEnd IfText3.SetFocusWith Me.MSFlexGrid1.Cols = 6.TextMatrix(0, 0) = "个人编号".TextMatrix(0, 1) = " 姓名".TextMatrix(0, 2) = " 性别".TextMatrix(0, 3) = " 部门".TextMatrix(0, 4) = " 职务".TextMatrix(0, 5) = " 学历"End WithXianshi ‘将内容显示在网格中End Sub(2)功能按钮的代码和其他系统相似,不在详细说明.(3)对于显示过程的定义如下:Sub xianshi()If Not Data1.Recordset.RecordCount = 0 ThenData1.Recordset.MoveFirst。