ＭＳＦｌｅｘＧｒｉｄ控件在ＭＩＳ系统开发中的使用.docVIP

ＭＳＦｌｅｘＧｒｉｄ控件在ＭＩＳ系统开发中的使用 　　摘要：本文完整介绍了基于C/S模式开发MIS系统时，利用VB中的MSFlexGrid控件实现数据表格的显示和维护功能，并给出了一个实例。 　　关键词：C/S模式；VB；MSFlexGrid控件；MIS 　　中图分类号：TP311文献标识码：A 文章编号：1009-3044(2008)11-20200-02 　　 　　1 引言 　　 　　在开发信息管理系统（Management Information System, MIS）时，需要对大量数据用表格来进行显示和维护。VB6.0提供的MSFlexGrid控件功能十分强大，它可以显示二维表数据，同时提供了丰富的单元格属性设置，使得其操作像Excel表格一样高度灵活。 　　综观各种文献，多片面强调MSFlexGrid控件各种单元格属性的使用，以此来突显其灵活性，但针对具体系统开发时，详细介绍其使用步骤，使用方法的文献却没有，这给借鉴使用带来了不变。本文在此背景下，结合笔者为一中外合资企业开发的MIS系统，完整的介绍了MSFlexGrid控件的使用方法及步骤，并给出了其实现的关键部分代码。 　　 　　2 MSFlexGrid控件的使用 　　 　　2.1 数据表的建立 　　MSFlexGrid控件使用时，首先要解决的是表头显示和列宽问题。为解决这一问题，在Server端SQL Server 2000数据库中建立了一个Tab_FieldIndex表，用于存储窗体上MsFlexGrid控件所要显示的表头标题及列宽等信息。Tab_FieldIndex表的结构如表1所示，并将strFrmName和lngFieldName两字段设置为主键。 　　 　　2.2 公共模块 　　为了使用MSFlexGrid控件，首先得添加该控件。其添加方法为：在菜单“工程”中选择“部件”，在列表中选择“Microsoft FlexGrid Control…”，单击“确定”按钮便可将MSFlexGrid控件加入工具箱中。 　　在MIS系统的开发中，由于MSFlexGrid控件使用的频繁性，所以在VB6.0的模块中，需要定义其公共的声明和方法部分，以方便控件的使用，其步骤及关键代码如下。 　　2.2.1 声明MSGItem类型 　　MSGItem类型中包含欲在MSFlexGrid控件中显示的一个字段的关键信息，包含数据表 　　结构中的strFieldName及对应的中文表头（strFieldCNCaption）和显示时的列宽（lngColWidth）。 　　Public Type MSGItem 　　strFieldName As String 　　strFieldCNCaption As String 　　lngColWidth As Long 　　End Type 　　2.2.2 初始化MSGItem类型 　　将MSFlexGrid控件同时显示多个字段信息存入MSGItem类型的数组refmsgItems()中， 　　其关键部分代码如下： 　　Public Sub ginitmsgItems(ByVal strFrmName As String, ByRef refmsgItems() As MSGItem) 　　………’变量声明部分 　　ReDim refmsgItems(0) 　　strSQL = select * from Tab_FieldIndex where strFrmName = ‘ Trim$( strFrmName) ’ order by lngFieldName 　　Set rs1 = New ADODB.Recordset 　　rs1.Open strSQL, gcnMain, adOpenForwardOnly, adLockReadOnly‘gcnMain为数据库连接字符串 　　With rs1 　　Do While .EOF = False 　　ReDim Preserve refmsgItems(UBound(refmsgItems) + 1) 　　refmsgItems(UBound(refmsgItems)).strFieldName = Trim$(rs1!strFieldName) 　　refmsgItems(UBound(refmsgItems)).strFieldCNCaption = Trim$(rs1!strFieldCNCaption) 　　refmsgItems(UBound(refmsgItems)).lngColWidth = rs1!lngColWidth 　　.MoveNext 　　Loop 　　.Close 　　E