现在选择DBGRID就是选择一个网格，我想选择一行！怎么办？

zyq_123 2003-10-19 09:38:02

现在选择DBGRID就是选择一个网格，我想选择一行！怎么办？

...全文

68 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

zyq_123 2003-10-19

打赏
举报

回复

谢谢各位，我实在没有分！

ajq8036 2003-10-19

打赏
举报

回复

设属性Option->dgrowSelect 为True就行，分都没有啊

hmily1688 2003-10-19

打赏
举报

回复

设属性Option->dgMulitiSelect 为false就行了

作为ComponentOne Studio for .NET 和 ComponentOne Studio Enterprise的一部分，ComponentOne True DBGrid for .NET是我们受欢迎的ActiveX控件-True DBGrid Pro的.NET版本。它使用ADO.NET，最新的数据绑定技术，能完全管理数据库界面并提供强大灵活的浏览，编辑，添加和操作表格数据的能力。 True DBGrid Pro for ActiveX的爱好者会喜欢ComponentOne True DBGrid for .NET。因为它包含了您所依赖的特性：复合显示模式，具有独立或同步滚动的水平和垂直拆分，完全可定制网格界面（字体，颜色，图片和格式），增强键盘导航，健壮的打印选项以及其它更多特性！ [特性] ComponentOne True DBGrid for .NET具有您对我们畅销的ActiveX 控件True DBGrid Pro所期望的高级特性。以下是一个实例：复合显示模式以最实用的格式表示数据：标准Outlook样式分组，可以动态的排序网格列；分层数据显示提供了增强的Master-Detail显示以及完全可编辑的下拉视图；窗体视图可在需要能修改的标准“窗体”中重新定位数据；反转视图可将行转换为列，从而提供方便的“向下读”方式。 Microsoft Word- 和Excel-类型模型定制网格的外观：字体，颜色，图片以及格式化规范。从列和行边框…到前景图片…到正文环绕。能非常简单的让网格显示出您需要的结果。具有定制滚动条的垂直和水平分割可以水平，垂直和两者同时分割网格！此外，您具有对滚动行为的控制：选择具有在每个分割中独立工作的滚动条（对于需要从不同列的数据中对比字段值时非常有效）或选择一个滚动条同步滚动复合分割。 2D和3D单元显示选择两维，三维和两者结合来控制单元外观符合您的要求。例如，您可能希望允许鼠标移动元素来获得一个3D外观。 Excel-类型单元格选项选择不但可以是任何行或列，而且可以是任何区域的单元。丰富的滚动能力跟踪滚动条的位置并且在滚动条移动时给用户一个信息弹出框。自动调整列尺寸（弹性模式）当网格水平尺寸调整时，通过适当改变列的尺寸保证您的数据可见。增强键盘导航当用户按回车键时使用DirectionAfterEnter属性控制下一单元的相应位置。 FilterBar数据输入行实现定制用户操作，如增长搜索和记录集过滤。标签属性可以向一个列附加任何类型的对象。合并相邻单元从指定的列中合并相邻数据行到一个不可编辑单元，或独立显示所有单元属性。 AutoDropdown和 AutoCompletion属性 · 通过减少下拉选项所需按键次数来简化数据输入。 · 自动将网格单元转换为True DBDropDown值 · 连接一个TDBDropDown控件到一个包含值和描述的表上，该表的下拉选项将自动的将描述映射到该值上。 · 健壮的打印选项 · 控件打印具有完备的功能，如缩放，调整到窗体，停止分页以及打印预览。

Delphi演示如何一次删除网格数据表dbgrid中的多条记录，小技巧不过挺实用，希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考：　　if DBGrid1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; 　　if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconinformation mb_yesNo)=idYes then 　　begin 　　 DBGrid1.DataSource.DataSet.DisableControls ; 　　 i:=0; 　　 While i<= DBGrid1.SelectedRows.Count -1 do 　　 begin 　　 DBGrid1.DataSource.DataSet.Bookmark:= DBGrid1.SelectedRows.Items[i]; //重要在这里取得bookmark 　　 TempBookmark := DBGrid1.Datasource.Dataset.GetBookmark; 　　 DBGrid1.DataSource.DataSet.GotoBookmark(TempBookMark); 　　 DBGrid1.DataSource.DataSet.Delete ; 　　 DBGrid1.DataSource.DataSet.FreeBookmark (TempBookMark); 　　 Inc(i); 　　 end; 　　 DBGrid1.DataSource.DataSet.EnableControls; 　　end; 　　更多代码请您在本页面下载源码。

Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。　　begin 　　 if TStringGrid(DBGrid1).RowCount>0 then 　　 begin 　　 //创建一个word对象　　 wordApp:=CreateOleObject('Word.Application'); 　　 wordApp.Visible:=true; 　　 //创建一个word文档　　 wordDoc:=wordApp.Documents.Add(); 　　 wordDoc.Select; 　　 wrdSelection:=wordApp.selection; 　　 //创建一个表格　　 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0); 　　 for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体　　 begin 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName); 　　 end; 　　 DBGrid1.DataSource.DataSet.First; //当前行为首行　　 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据　　 begin 　　 for i:=1 to DBGrid1.FieldCount do 　　 wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue); 　　 DBGrid1.DataSource.DataSet.Next; //下一行　　 end; 　　 end 　　 else 　　 showmessage('TDBGrid表中无数据，不能向Word中插入表格。') 　　end;

Delphi功能丰富的数据库浏览器程序源代码，让DBGrid组件的标题能进行对DBGrid内的数据对行排序，把DBGrid组件内的数据导出到HTML文件，让DBGrid1控件能自动调节字段的宽度（数据网格自动适应宽度），用法:用DBGrid的DBGrid1DrawColumnCell事件调用DBGridRecordSize(Column); 然后调用DBGridAutoSize(DBGrid1)即可，用法:DBGridToHtml(DBGrid1,Date,Table);DBGrid1为DBGrid控件,Date为一个TSrings的变量,Table为HTML文件的标题。导出到文件:Date.SaveToFile(FileName); FileName为要导出文件的路径及文件名。。。

安装时请按照以下序列： Component->Install Packges-> 选择Discovery.bpl Options->Library->Search Path 中加入搜索路径。 EasyGrid 使用说明：一、单元格属性； // ************************************************** // EasyGrid 的 Cells[i,j] 属性不同于 StringGrid。 // StringGrid 的 Cells 仅仅是一个字符串，而 EasyGrid // 的 Cells 可以存储丰富的数据类型。 // // 使用范例： // EasyGrid1.Cells[1,2].Color := clRed; // 将第一列第二行的一个单元格背景置为红色。 // // !!! 需要注意的是： // 上述语法不会导致网格自动刷新（即结果不会马上反映），因为上述语法 // 实际上是对内存地址直接写入，这样做的好处在于，如果大批量写入数据，这 // 是最快的方法，不会出现慢镜头式的现象。 // 用 EasyGrid1.Colors[1,2] := clRed; 可以实现同样效果并实时刷新， // 但大批量写入数据时速度较慢。 // 对大批量写入数据的处理一般需要使用 AutoUpdate 属性： // EasyGrid1.AutoUpdate := False; // ... 大批量写入数据 // EasyGrid1.AutoUpdate := True; // AutoUpdate 属性的使用类似于一个与 DbGrid 关联的 DataSource 控件， // 当 DataSource 内容改变时，需要把 DataSource 的 Enabled 属性置为 False。 // 以防止 DbGrid 出现慢镜头式的现象。 // ************************************************** // ************************************************** // 单元格属性说明如下： TCellInfo = record DataStyle : TDataStyle; // 数据格式 // 可用数据格式为： // TDataStyle = (dsText,dsNumber,dsDate,dsTime,dsFormula); AlignMode : TAlignMode; // 对齐方式 // 可用对齐方式为： // TAlignMode = (taTopLeft, taTop, taTopRight, // taLeft, taCenter, taRight, // taBottomLeft, taBottom, taBottomRight); ReadOnly : Boolean; // 单元格是否可编辑 AutoWordBreak : Boolean; // 文字自动折行 ShowForeText : Boolean; // 显示控制(Default True) // 说明：每个单元格允许存放两个字符串： // ForeText 与 BackText // ShowForeText 属性用于指定该网格显示哪一个字符串 DrawTop : Boolean; // 画顶线 DrawLeft : Boolean; // 画左线 DrawBottom : Boolean; // 画底线 DrawRight : Boolean; // 画右线 // 下面七个属性对于 DataStyle 为 dsNumber （数值型）的网格有效 AllowNegative : Boolean; // 是否允许输入负数 TrailingZero : Boolean; // 是否在小数后面补 0 ZeroNull : Boolean; // 输入数值 0 时是否当作空串处理 ThousandSep : Boolean; // 是否有千分号 MaxLength : Integer; // 最大编辑长度 IntLength : Integer; // 整数部分最大长度 DecLength : Integer; // 小数部分最大长度 LineWidth : Integer; // 边框线宽 PenStyle : TPenStyle; // 线形(TPenStyle 为Delphi定义类型) // Number 用于存储额外的数据，甚至可以用 Pointer() // 强制成32位结构指针，使得网格理论上可以挂接任意类型的数据 Number : Integer; // 存储数值 Color : TColor; // 网格背景颜色

数据库相关

2,498

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章