MSFlexGrid控件概述.doc

MSFlexGrid控件概述1、作用：该控件以表格形式显示二维字符数组中每个单元的数据。常用于处理复杂的二维数据表的问题。如校历表、学生宿舍表、学生班级成绩表等。2、添加到控件箱菜单命令：工程 | 部件，在部件对话框中选择：Microsoft FlexGrid Control 6.0 (SP6)。3、主要属性（1）Rows与Cols属性：分别用于设置或返回MSFlexGrid控件的行数与列数。（2）Row与Col属性：分别用于设置或返回MSFlexGrid控件中活动单元的行号与列号。（3）TextMatrix属性：该属性用于表示MSFlexGrid控件中单元格的内容。格式为：TextMatrix (Row, Col);其中Row与Col分别表示单元格在MSFlexGrid控件中的行号与列号。（4）FixedRows属性：用于设置表格显示过程中固定不变的行数。如FixedRows=1，则表示固定行为1，如图8.3中第1行。（5）FixedCols属性：用于设置表格中固定不变的列数。如FixedCols=1，则表示固定列为1，如图8.3中第1列。（6）FixedColor属性：用于设置固定行与固定列的颜色。（7）MouseRow与MouseCol属性：用于返回鼠标光标所在单元格的行号与列号。（8） ColWidth（Col）、RowHigh(Row)属性：用于设置与返回第Col列的宽度与第Row行的高度，例如设置第0列的宽度为1500，第0行的高度为300的赋值语句为：ColWidth(0) = 1500 RowHeight(0) = 300（9）DataSource属性：用于选择数据表，只能通过Data数据源控件选择数据表。说明，若要用ADO Data控件作为数据源，则应使用MSHFlexGrid控件。（10）MousePointer属性：用于设置鼠标光标形状，属性取值与光标形状如表8.1所示。【例8.1】编写程序，定义MSFlexGrid1控件为10行、5列表格，给每一个单元格赋值为Row+Col，其中Row与Col分别表示控件单元格的行号与列号。新建一个工程(ex8_1.vbp)，窗体名为Form_ex81.frm。在窗体上添加一个MSFlexGrid控件与一个Command控件，双击Command控件，输入如下程序：Private Sub Command1_Click()Dim Row, Col As Integer定义两个变量用于接收表格的行与列With MSFlexGrid1.Rows = 10定义表格为10行.Cols = 5定义表格为5列For Row = 0 To .Rows - 1For Col = 0 To .Cols - 1.TextMatrix(Row, Col) = Row + Col将表格中的每一个单元格赋值为Row+ColNext ColNext RowEnd WithEnd Sub运行程序后的界面如图8.3所示。 MSFlexGrid控件的事件与方法1、MSFlexGrid控件的事件（1）KeyPress事件：当用户按下或释放任何一个ANSI键（字母或数字等键）时触发。定义：Private Sub _KeyPress(KeyAscii As Integer)其中，形参KeyAscii用于将用户按下或释放的ANSI键值传送给KeyPress过程。表8.2字母或数字键的KeyAscii代码、键值与含义（2）KeyDown事件：当用户按下一个键时触发。定义：Private Sub _KeyDown(KeyCode As Integer, Shift As Integer) 其中，形参KeyCode用于表示用户按键的类型，取值如表8.3所示。形参Shift用于表示用户所按组合键（Ctrl、Alt、Shilt）的键值，取值如表8.4所示。表8.3 形参KeyCode返回键值与按键键名的对应关系表表8.4 Shift取值类型（3）KeyUp事件：当用户放开任何一个键时触发。定义：Private Sub _KeyUp(KeyCode As Integer, Shift As Integer)其中参数KeyCode与Shift的取值见表8.3与表8.4。（4）MouseDown事件：当用户按下鼠标触发。定义：Private Sub _MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)其中，形参Button表示用户按下的是鼠标左键、中键还是右键，取值如表8.5所示。形参Shift取值类型见表8.4。x、y为鼠标光标在控件内的位置坐标，单位为缇。 表8.5 Button取值类型（5）MouseUp事件：当用户放开鼠标时触发。MouseUp事件处理过程的原型定义与MouseDown过程原型定义类似，此处不再叙述。（6）EnterCell与LeaveCell事件：在进入一个单元格时触发EnterCell事件，在离开一个单元格时触发LeaveCell事件。这两个事件过程均无参数。2、MSFlexGrid控件的方法（1）Clear方法：清除MSFlexGrid控件所有单元格中内容。语句格式：MSFlexGrid.Clear（2）AddItem方法：在MSFlexGrid控件中添加一个新行。语句格式：MSFlexGrid.AddItem(String，Index，Number)String为新增行中的字符串，用Tab键作为一行中各单元格字符串的分隔符。Index为新增行的行号，若省略则添加到最后一行。Number为添加行的带区号。（3）RemoveItem方法：在MSFlexGrid控件中删除一行。语句格式：MSFlexGrid. RemoveItem (Index，Number)Index为要删除行的行号。Number为要删除行的带区号。【例8.2】在MSFlexGrid控件上实现九九乘法表，并实现鼠标拖弋功能，即用鼠标拖动方法，将某单元格内容移动到另一个单元格中，或复制到另一个单元格中，如图8.4所示。图8.4 用MSFLexGrid控件实现九九乘法表设计步骤：1、新建工程与窗体，在窗体上放置一个“退出”按钮、一个“计算九九乘法表”按钮和一个MSFlexGrid控件，设计步骤与属性设置演示：2、编写代码实现九九乘法表及鼠标拖弋功能（1）定义全局变量在窗体的通用与声明部分定义四个全局变量：Dim Cell As String, Ctrl As Boolean, Col As Long, Row As Long其中：Cell：用于传送单元格内容；Ctrl：用于判断是否按下“Ctrl”键；Col,Row：用于记录原单元格行号与列号。（2）编写“计算九九乘法表”命令按钮事件处理过程双击“创建九九乘法表”按钮，编写如下事件处理过程。Private Sub Command_Calculate_Click()Dim I As Integer, J As IntegerWith MSFlexGrid1.Clear清除所有单元格内容For J = 1 To 9.TextMatrix(0, J) = J在第0行赋数字19Next JFor I = 1 To 9.TextMatrix(I, 0) = I在第0列赋数字19For J = 1 To 9.TextMatrix(I, J) = CStr(I) & * & CStr(J) & = & CStr(I * J)赋九九乘法表的内容Next JNext IEnd WithEnd Sub（3）编写鼠标拖弋程序在某单元格按下鼠标左键时，触发MouseDown事件处理过程，在该过程中将光标形状改为“flexArrow ”，并将该单元格内容存放在全局变量Cell中。拖弋鼠标到另一个单元格，放开鼠标左键，触发MouseUp事件处理过程。在该过程中将光标形状恢复为“flexCross ”，并将全局变量Cell中内容赋给现单元格，另将前单元格内容删除。于是前单元格的内容被移动到后单元格中，从而实现鼠标的拖弋功能。若按下“Ctrl”键拖动鼠标时，光标形状改为“flexHourglass”，松开鼠标后。前一个单元格的内容被复制到后一个单元格中。键按下事件处理过程KeyDown该过程用于判断是否按下“Ctrl”键。若按下“Ctrl”键则将全局变量Ctrl赋True值，表示用户按下了“Ctrl”键。Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyControl ThenCtrl = TrueEnd IfEnd Sub键松开事件处理过程KeyUp该过程用于判断是否松开“Ctrl”键。若松开“Ctrl”键则将全局变量Ctrl赋Flase值，表示用户松开“Ctrl”键。Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyControl Then也可用Shift= vbCtrlMask作为松开Ctrl键的判断条件Ctrl = FalseEnd IfEnd Sub鼠标按下事件处理过程MouseDown在该过程中将光标形状改为“flexArrow ”，并将该单元格内容存放在全局变量Cell中，将单元格的行号与列号赋给全局变量Row与Col。Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)With MSFlexGrid1Row = .MouseRow单元格的行号赋给RowCol = .MouseCol单元格的列号赋给ColCell = .TextMatrix(.MouseRow, .MouseCol)单元格的内容赋给CellIf Ctrl = False Then.MousePointer = flexArrow若未按Ctrl键则光标为箭头形Else.MousePointer = flexHourglass若按下Ctrl键则光标为杯形End IfEnd WithEnd Sub鼠标松开事件处理过程MouseUp在该事件中将Cell中内容赋给当前单元格，当Ctrl=False时清除行号、列号为Row与Col的原单元格内容，完成一次单元格内容的移动操作（Move）；否则不清除原单元格内容完成一次复制操作（Copy），最后将光标恢复成“flexCross”（十字型）。Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)With MSFlexGrid1If Ctrl = Flase Then.TextMatrix(Row, Col) = 若未按Ctrl键则原单格清空End If.TextMatrix(.MouseRow, .MouseCol) = Cell将Cell中原单元格内容赋给当前单元格.MousePointer = flexCross光标恢复十字型End WithEnd Sub学生宿舍录入程序设计【例8.3】 在学生档案管理系统（xsdagl.vbp）中，编写学生宿舍录入程序，如图8.5所示。要求用命令对象与MSFlexGrid控件实现学生宿舍录入工作。1、程序设计思路（1）用数据源控件Data_XA01打开学生档案表XA01中指定班级的学生记录。（2）将MSFlexGrid控件的DataSource属性设置为Data_XA01，使MSFlexGrid控件能显示学生的班内序号、学号、姓名、性别与宿舍号。（3）用一个TextBox控件跟随MSFlexGrid控件单元格移动，实现学生宿舍号的输入。（4）用命令对象Cmd执行Update语句，将MSFlexGrid控件中宿舍号写入学生档案表的宿舍字段中去。2、程序设计步骤3、重要代码（1）编写单击班级显示学生信息（班内序号、学号、姓名、性别、宿舍号）程序Private Sub DataGrid_TB03_Click()Dim BJ As StringBJ = Adodc_TB03.Recordset(TB0301)Data_XA01.RecordSource = Select XA0103,XA0102,XA0104,GC0102,XA0119 from XA01,GC01 & _ Where XA0106=GC0101 and XA0114 = & BJ & 选择指定班级的学生信息Data_XA01.RefreshWith MSFlexGrid_XA01.Refresh.TextMatrix(0, 0) = 序号表格控件第1行赋上列标题.TextMatrix(0, 1) = 学号.TextMatrix(0, 2) = 姓名.TextMatrix(0, 3) = 性别.TextMatrix(0, 4) = 宿舍End WithEnd Sub（2）编写文本框跟随光标在字符表格控件中移动的程序。当用户用鼠标单击字符表格控件的某个单元格时，文本框跟随光标移动到该单元格且与单元格同大小同位置，其中，TextBox控件的Name属性为Text。Private Sub MSFlexGrid_XA01_Click()With MSFlexGrid_XA01If .Col = 4 And .Row = 1 Then若光标在字符表格控件的第4列（且第1行），则Text.Width = .CellWidth使文本框与单元格同宽度Text.Height = .CellHeight使文本框与单元格同高度Text.Left = .CellLeft + .Left使文本框与单元格左对齐Text.Top = .CellTop + .Top使文本框与单元格顶对齐Text.Text = .Text将单元格内容赋给文本框Text.Visible = True显示文本框Text.SetFocus设置文本框为当前焦点End IfEnd WithEnd Sub（3）在字符表格控件上按回车键，将光标与文本框下移一行的程序Private Sub MSFlexGrid_XA01_KeyDown(KeyCode As Integer, Shift As Integer)With MSFlexGrid_XA01If .Row .Rows - 1 Then当前行号Row小于总行数时，使行号Row加1.Row = .Row + 1End IfIf KeyAscii = vbKeyReturn Then若按回车键，则调用文本框跟随光标移动的程序Call MSFlexGrid_XA01_ClickElseText.Visible = False否则，不显示文本框.SetFocus焦点返回MSFlexGrid_XA01控件End IfEnd WithEnd Sub（4）文本框上按键处理程序Private Sub Text_KeyPress(KeyAscii As Integer)With MSFlexGrid_XA01Select Case KeyAsciiCase vbKeyEscape在文本框上按ESC键，文本框不显示Text_XA01.Visible = False.SetFocusCase vbKeyReturn在文本框上按回车键.Text = Text.Text则将文本框内容赋给单元格If .Row 0 Then判断TB06表中有系部记录With Rs_TB06Do While Not .EOFkey = .Fields(TB0602)将TB0602（系部名称）字段设置为要添加结点的关键字Text = .Fields(TB0602)将TB0602（系部名称）字段设置为要添加结点的文本str = .Fields(TB0601)将TB0601（系部编码）字段保存在str中Set nod = TreeView_TB03.Nodes.Add(, tvwChild, key, Text)将系部名称添加到树形控件上DataSource = Select * from TB03 where TB0309= & str & 该查询语句实现根据系部选班级Rs_TB03.Open DataSource, Con, adOpenKeyset, adLockPessimistic 将该系部下的班级记录打开With Rs_TB03Do While Not .EOFkey1 = .Fields(tb0302)将TB0302（班级名称）字段设置为要添加结点的关键字Text1 = .Fields(tb0302)将TB0302（班级名称）字段设置为要添加结点的文本以上面系部名称结点为父结点，添加该系下的班级名称结点Set nod = TreeView_TB03.Nodes.Add(key, tvwChild, key1, Text1).MoveNext添加下一个班级Loop.CloseEnd With.MoveNext添加下一个系部Loop.CloseEnd WithEnd IfEnd Sub（3）编写单击树形控件中班级节点，查询该班所有学生信息的事件过程Private Sub TreeView_TB03_NodeClick(ByVal Node As MSComctlLib.Node)Dim I As Integer, Sum1 As Integer, Sum2 As Integer, BJ As StringWith Adodc_XA01BJ = TreeView_TB03.SelectedItem.Text获得树形控件所选择的结点的文本，即班级名称.CommandType = adCmdText.RecordSource = Select A.*,GC0102,GC0202,GC0302,GC0402,TB0302 & _From XA01 As A ,GC01,GC02,GC03,GC04 ,TB03 & _Where XA0106 = GC0101 And XA0108 = GC0301 And XA0109 = GC0201 and XA0110=GC0401 & _and XA0114=TB0301 and TB0302= & BJ & 通过该条查询语句查询出该班级的学生信息.RefreshEnd WithDataGrid_XA01.Refresh在DataGrid控件上显示最新的记录With Adodc_XA01.RecordsetIf Not .BOF Then .MoveFirstDo While Not .EOF访问所选择出来的每一条学生记录If .Fields(XA0106).Value = 1 Then Sum1 = Sum1 + 1如果是男生，则男生人数加1If .Fields(XA0106).Value = 2 Then Sum2 = Sum2 + 1如果是女生，则女生人数加1.MoveNextLoopIf Not .BOF Then .MoveFirstEnd WithStatusBar1.Panels(2).Text = 男生人数： & Sum1 在状态栏上显示男生人数StatusBar1.Panels(3).Text = 女生人数： & Sum2 在状态栏上显示女生人数StatusBar1.Panels(4).Text = 合计人数： & Sum1 + Sum2 在状态栏上显示总人数End Sub分页控件SSTab一、分页控件SSTab概述1、作用：采用分页形式查询或编辑数据表中数据。2、添加到控件箱菜单命令：工程 | 部件，选择：Microsoft Tabbed Dialog Control 6.0 (SP6.0)3、页（或选项卡）SSTab控件由若干个页（或选项卡）组成，在每个页（或选项卡）中可按需要添加控件构成不同的程序界面。二、分页控件SSTab的属性用鼠标右键单击SSTab控件，在弹出式菜单中选择属性，进入属性设置对话框，如图8.9所示。分页控件的属性设置对话框由通用、颜色、字体、图片四个选项卡组成。现介绍通用选项卡中的属性设置。（1）当前选项卡：用按钮选择卡号，如选择0表示第0页。（2）选项卡标题：输入页标题，如“按班级查询”。（3）选择卡数：输入选项卡的页数，如输入3表示SSTab控件共有3页。（4）方向：选择选项卡的位置，选择参数与对应标题位置如下。0-ssTabOrientationTop：选项卡在SSTab控件的顶部1-ssTabOrientationBotton：选项卡在SSTab控件的底部2-ssTabOrientationLeft：选项卡在SSTab控件的左边3-ssTabOrientation Right：选项卡在SSTab控件的右边（5）每行选项卡数：SSTab控件每行的选项卡数，如输入3表示每行3个选项卡。（6）样式：用于选择选择卡的宽度，有两种选择方式。0-ssStyleTabbedDialog：每行选项卡与SSTab控件等宽；1-ssStylePropertyPage：每行选项卡自动适应标题宽度。（6）选项卡高度：用于输入选项卡的高度。（7）选择卡最大宽度：用于输入选项卡的宽度，0表示没有限止宽度。（8）鼠标指针：用于选择鼠标的形状，参数的含义与表8.1类似，只要将表8.1中的Flex换成ss即可，如FlexDefault换成ssDefault。说明：上述“选项卡”都是指选项卡的标题部分。有关颜色、字体、图片三个选项卡中的内容较简单，此处不再叙述。三、用分页控件SSTab设计学生档案查询程序【例8.5】 在学生档案管理系统（xsdagl.vbp）中，用分页控件SStab设计学生档案查询程序，如图8.10所示。1、界面设计步骤如下：2、代码设计（4）在窗体第一页内（按班级查询），用记录集对象Rs_TB06、Rs_TB03与树形控件TreeView_TB03选择系、班级，用Adodc_XA01与DataGrid_XA01显示指定班级学生档案表。设计过程与例8.5类似，由读者自己完成。（5）在第二页（按姓名查询）内添加Adodc_XA01_2、DataGrid_XA01_2控件，使用这两个控件与学生档案编码表XA01连接。再添加Lable1与TextBox1，将TextBox1的Name属性改为Text_Name，当用户在文本框Text_Name输入学生姓名时，在DataGrid_XA01_2控件中只显示该姓名学生记录。文本框Text_Name内容改变时触发事件如下。Private Sub Text_Name_Change()With Adodc_XA01_2.CommandType = adCmdText下面查询语句实现根据学生姓名查找学生记录.RecordSource = Select A.*,GC0102,GC0202,GC0302,GC0402,TB0302 & _ From XA01 As A ,GC01,GC02,GC03,GC04 ,TB03 & _ Where XA0106 = GC0101 And XA0108 = GC0301 And XA0109 = GC0201 And XA0110=GC0401 & _ And XA0114=TB0301 and XA0104 Like & Text_Name.text & %.RefreshEnd WithDataGrid_XA01_2.Refresh将记录显示在DataGrid_XA01_2控件上End Sub（6）在第三页（按学号查询）内添加Adodc_XA01_3、DataGrid_XA01_3控件，使用这两个控件与学生档案编码表XA01连接。再添加Lable1与TextBox1，将TextBox1的Name属性改为Text_No，当用户在文本框Text_No输入学生学号时，在DataGrid_XA01_3控件中只显示该学号学生记录。文本框Text_No内容改变时触发事件过程与（5）中程序类似。进程条控件ProgressBar一、进程条控件ProgressBar1、作用：显示程序执行与运算的进程。2、添加到工具箱菜单命令：工程|部件，选择：Microsoft Windows Common Control 6.0 (SP6.0)二、进程条控件ProgressBar的属性用鼠标右键单击ProgressBar控件，在弹出式菜单中选择属性，进入属性设置对话框，如图8.11所示。ProgressBar控件的属性设置对话框由通用、图片两个选项卡组成。现介绍通用选项卡中的属性设置。（1）最大（Max）：Value属性所能取的最大进度值；（2）最小（Min）：Value属性所能取的最小进度值；（3）鼠标指针（MousePointer）：用于选择鼠标的形状，参数的含义与表8.1类似，只要将表8.1中的Flex换成cc即可，如FlexDefault换成ccDefault。4）边框样式（BorderStyle）：0-None 表示无边框线，1-ccFixedSingle表示单边框线。（5）外观（Appearance）：0-ccFlat表示平面效果，1-cc3D表示立体效果。（6）方向(Orientation)：选择进程条控件的方向，选择参数与对应方向如下。0-ccOrientationHorizontal：选择进程条控件取水平方向；1-ccOrientationVertical：选择进程条控件取垂直方向。（7）滚动（Scrolling）：选择进程条滚动的方式，选择参数与对应滚动方式如下。0-ccScrollingStardard：标准方式；1-ccScrollingSmooth：平滑方式。（8）Value：当前进度值。说明：上述属性也可通过VB开发环境中的属性窗口设置。三、用ProgressBar设计查询进度界面【例8.6】 在例8.5的学生档案管理系统（xsdagl.vbp）中，已用分页控件SSTab设计学生档案查询程序，现要求在第二页（按姓名查询）内添加ProgressBar控件，用于显示查询进程，程序界面如图8.12所示。设计过程如下:（1）程序界面设计打开学生档案分页式查询程序窗体（Form_XSDA33），在SSTab控件的第二页（按姓名查询）中添加ProgressBar1控件，用这个控件显示查询进度。如图8.12所示。设置属性如下：最大（Max）：100最小（Min）：0边框样式（BorderStyle）：1-ccFixedSingle外观（Appearance）：0-ccFlat方向(Orientation)： 0-ccOrientationHorizontal滚动（Scrolling）： 1-ccScrollingSmooth（2）代码设计在Form_Load过程中添加语句：ProgressBar1.Value = 0在第二页（按姓名查询）中，修改文本框Text_Name的Change事件过程如下。Private Sub Text_Name_Change()Dim I As IntegerWith Adodc_XA01_2.CommandType = adCmdText.RecordSource = Select A.*,GC0102,GC0202,GC0302,GC0402,TB0302 & _ From XA01 As A ,GC01,GC02,GC03,GC04 ,TB03 & _ Where XA0106 = GC0101 and XA0108 = GC0301 & _ and XA0109 = GC0201 and XA0110=GC0401 & _ and XA0114=TB0301 and XA0104 Like & Text_Name.text & %.RefreshEnd WithWith Adodc_XA01_2.RecordsetIf Not .BOF Then .MoveFirst将指针指向第一条记录I = 0Do While Not .EOFIf .Fields(XA0106).Value = 1 Then Sum1 = Sum1 + 1If .Fields(XA0106).Value = 2 Then Sum2 = Sum2 + 1ProgressBar1.Value = Int(I / .RecordCount) * 100)计算进程条当前进度值I = I + 1.MoveNextLoopIf Not .BOF Then .MoveFirstEnd WithStatusBar1.Panels(2).text = 男生人数： & Sum1StatusBar1.Panels(3).text = 女生人数： & Sum2StatusBar1.Panels(4).text = 合计人数： & Sum1 + Sum2DataGrid_XA01_2.RefreshEnd Sub数据图表控件MSChart 在数据库应用程序设计中，经常要进行直方图、饼图、曲线图等统计图表程序的设计，为此Visaul Basic提供了数据图表控件MSChart。1、作用：用直方图、饼图、曲线图等统计图表显示数组或数据表汇总统计的信息。2、添加到工具箱菜单命令：工程 | 部件，选择：Microsoft Chart Controls 6.0 (OLEDB)3、显示数组数据的方式（1）显示一维数组的方式设有N个元素组成的一维数组Array_1(N)，直方图与饼图表示方式如下。直方图：MSChart控件是用N个矩形表示一维数组的N个元素值，即用直方图中第I个矩形的高度表示Array_1(I)元素值。饼图：MSChart控件用N个扇形来表示一维数组的N个元素值，即用饼图中第I个扇形的面积表示Array_1(I)元素值。（2）显示二维数组的方式设有M行N列个元素组成的二维数组Array_2(M，N)，直方图与饼图表示方式如下。直方图：MSChart控件用M个数据格来表示M行，每个数据格内又用N个矩形来表示元素值。饼图：MSChart控件用M个饼图来表示M行，每个饼图内用N个扇形来表示元素值。1、MSChart控件的属性（1）ChartType属性：用于设置或返回图表类型，MSChart控件图表类型与对应ChartType属性值如表8.7所示。如，ChartType=1则显示二维直方图，ChartType=14则显示饼图。（2）行（格）属性 RowCount属性：用于表示图表中总格（行）数。例如：若MSChart控件显示二维数组Array_2(M，N)，则总格（行）数RowCount=M。如：RowCount=5，表示有5格（行）数据。若MSChart控件显示一维数组Array_1(N)的元素值，则总行数RowCount=1。 Row属性：用于表示图表中某格（行）的序号。若MSChart控件显示二维数组Array_2(M，N)，则图表中第I格的序