VB编程中网格控件的选用及使用方法

m = HardComp![ OrderNum]//输入编号 Hards(H%).MachKind = HardComp![ MachKind]//种类 Hards(H%).MachKindName = HardComp![ MachKindName]//分类名 Hards(H%).MachName = HardComp![ MachName]//名称 … … loop HardComp.MoveFirst 类内数据向Grid内写入： GrdHardComp.Row = H% + 1//记录数统计 GrdHardComp.Col = 0 GrdHardComp.Text = " " & Hards(H%).OrderNum GrdHardComp.Col = 1 GrdHardComp.Text = " " & Hards(H%).MachKind GrdHardComp.Col = 2&nb sp;GrdHardComp.Text = " " & Hards(H%).MachKindName GrdHardComp.Col = 3

GrdHardComp.Text = " " & Hards(H%).MachName GrdHardComp.Col = 4 … … GrdHardComp.Text = " " & Hards(H%).HardLastDate GrdHardComp.Rows = GrdHardComp.Rows + 1//行数加1 HardComp.MoveNext H% = H% + 1 当然，如果使数据真正写入数据库，还需进行数据库的读写操作。Grid只是提供了一个预览的功能，便于数据的修改。 由以上Grid的特点及其使用方法可以看出，在需要对数据库进行大量数据的操作时，为了减少对数据库的直接操作，提高数据库的安全性，使用Grid控件，还是有很大方便的。 Grid是VB在早期版本中就带有的控件，使用简便，稳定性好，在早期的VB开发过程中，使用尤其广泛。但现在与其它控件比较起来功能有些不足。 DBGrid控件： DBGrid是专用来操作数据库的网格控件，可以绑定到Data控件，几乎不用写代码就可方便地对数据进行显示，增加、删除或修改记录， DBGrid具有OnAddNew、BeforeDelete等事件，可在增加新记录或删除修改时对数据进行有效性检验，来实现事务处理功能。DBGrid也可以在设计时编辑网格格式，指定显示字段等，由于它提供了Column、Split、SelBookmarks等对象，更增强了显示和操作数据的能力。 下面是笔者所参与开发的东京社会调查研究所的项目--《健康诊断系统》的一个实例。 图中的Data4控件把数据库和DBGrid直接连起来，DBGrid的题目，项目设置可以在属性窗口里直接做到。在使用时，要注意新数据是先更新数据库，然后才回写到DBGrid里。方法如下： Sql = "SELECT * FROM 表名" //SQL语句 Set Data4.Recordset = MyDB2.OpenRecordset(sSql, dbOpenSnapshot) Data4.Refresh 或： DatMonthPlan.RecordSource = "SELECT * FROM 表名WHERE (((关键字)='" & Key & "')); 如果想对DBGrid中的某个条目进行复制，方法如下： Data4.Recordset.AddNew Data4.Recordset![ 关键字] = Key//关键字索引 Data4.Recordset![记号]= D BGrid.Columns(0).CellValue(DBGrid.GetBookmark(0))//第一列 Data4.Recordset[番号]=DBGrid.Columns(1).CellValue(DBGrid.GetBookmark(0))// 第二列 Data4.Recordset![氏名]=DBGrid.Columns(2).CellValue(DBGrid.GetBookmark(0))//第三列 Data4.Recordset.Update Data4.Refresh//数据库更新 DBGrid.Refresh// DBGrid刷新 如果动态的对DBGrid中的某个栏目进行增减，可以用如下方法： i = 1 //总显示列数记数 Data4.MoveFirst Do Until Data4.EOF DBGrid1.Columns(i).Width = 1600 //定义宽度 DBGrid1.Columns(i).Caption = "年龄" //标题 DBGrid1.Columns(i).DataField = "& 实际数据域 &" DBGrid1.Columns(i).Visible = True //可见性 DBGrid1.Columns(i).Alignment = 1 //DBGrid 控件列中的值的对齐方式 Data4.MoveNext i = i + 1 If i > 8 Then Exit Do//列数最大为8 Loop 由于具有良好的可靠性，灵活性和直观性，所以DBGrid控件现在被广泛使用。但不足之处在于DBGrid，和直接操作数据库，对数据库的正确性有一定的威胁。改进方法是，在修改数据库时，加入提示信息。 True DBGrid： DBGrid是Apex软件公司为微软开发的，而Apex的True DBGrid控件也具有较强的数

《VB编程中网格控件的选用及使用方法(第2页)》