在DBGrid中,怎样才能让我能点击一个单元格选择整行,又可以编辑单元格的内容呢? 在设计过程中,有时候数据较大量,field 较多的时候,只是点击单元格可能会对某个field的数据误操作(如数据错行),为此才会想到这个问题,解决办法如下: 点击单元格就改当前行颜色。这个办法也算是没办法的办法吧!
type TMyDBGrid=class(TDBGrid); ////////////////////////////////// //DBGrid1.Options->dgEditing=True //DBGrid1.Options->dgRowSelect=False procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TMyDBGrid(Sender) do begin if DataLink.ActiveRecord=Row-1 then begin Canvas.Font.Color:=clWhite; Canvas.Brush.Color:=$00800040; end else begin Canvas.Brush.Color:=Color; Canvas.Font.Color:=Font.Color; end; DefaultDrawColumnCell(Rect,DataCol,Column,State); end; end;
测试通过(d7)!
有关双击dbgrid排序的问题(想让用户双击dbgird控件的某一个字段时就升序,再双击就降序....?) procedure TForm1.DBGrid1TitleClick(Column: TColumn); var temp, title: string; begin temp := Column.FieldName; qusp.Close; if Column.Index <> lastcolumn then begin if (Pos(''''↑'''', DBGrid1.Columns[LastColumn].Title.Caption) > 0) or (Pos(''''↓'''', DBGrid1.Columns[LastColumn].Title.Caption) > 0) then DBGrid1.Columns[LastColumn].Title.Caption := Copy(DBGrid1.Columns[LastColumn].Title.Caption, 3, Length(DBGrid1.Columns[LastColumn].Title.Caption) - 2); qusp.Sql[icount] := ''''order by '''' + temp + '''' asc''''; DBGrid1.Columns[Column.Index].Title.Caption := ''''↑'''' + DBGrid1.Columns[Column.Index].Title.Caption; lastcolumn := column.Index; end else begin LastColumn := Column.Index; title := DBGrid1.Columns[LastColumn].Title.Caption; if Pos(''''↑'''', title) > 0 then begin qusp.Sql[icount] := ''''order by '''' + temp + '''' desc''''; Delete(title, 1, 2); DBGrid1.Columns[LastColumn].Title.Caption := ''''↓'''' + title; end else if Pos(''''↓'''', title) > 0 then begin qusp.Sql[icount] := ''''order by '''' + temp + '''' asc''''; Delete(title, 1, 2); DBGrid1.Columns[LastColumn].Title.Caption := ''''↑'''' + title; end else begin qusp.Sql[icount] := ''''order by '''' + temp + '''' asc''''; DBGrid1.Columns[LastColumn].Title.Caption := ''''↑'''' + title; end; end; qusp.Open; end;
DbGrid控件隐藏或显示标题栏DbGrid控件隐藏或显示标题栏
1、 新建一个带两个参数的过程(第1个参数是菜单对象,第2 个是DbGrid控件): Procedure ViewTitle(Sender:TObject;DbgColumns:TDBGrid); //隐藏或显示DbGrid标题栏
2、 然后按Ctrl+Shift+C组合键,定义的过程会在实现部分出现。 Procedure FrmStock.ViewTitle(Sender:TObject;DbgColumns:TDBGrid); begin With (Sender as TMenuItem) do begin Checked:=not Checked; DbgColumns.Columns[Tag].Visible:=Checked; end; end;
3、 把菜单子项的Tag设置成跟DbGrid的Columns值相对应,比如: DbGrid有一个标题栏是‘日期‘在第0列,然后把要触法该列的菜单的Tag设置成0。
4、 把菜单的OnClick事件选择ViewTitle该过程。 DBGrid 对非布尔字段的栏中如何出现 CheckBox 选择输入可将dbgrid关联的dataset中需显示特殊内容字段设为显式字段 在OnGetText事件中写如下代码: 以table举例: procedure TForm1.Table1Myfield1GetText(Sender: TField; var Text: String; DisplayText: Boolean); var Pd:string; begin inherited; pd:=table1.fieldbyname(''''myfield1'''').asstring; if pd=''''1'''' then Text:=''''□'''' else if pd=''''2'''' then text:=''''▲'''' else Text:=''''√''''; end;
用 dbgrid 或 dbgrideh 如何让所显示数据自动滚动?
procedure TForm1.Timer1Timer(Sender: TObject); var m:tmessage; begin m.Msg:=WM_VSCROLL; m.WParamLo:=SB_LINEDOWN; m.WParamHi:=1 ; m.LParam:=0; postmessage(self.DBGrid1.Handle,m.Msg,m.WParam,m.LParam);
end;
procedure TForm1.Button1Click(Sender: TObject); begin self.Timer1.Enabled:=true; end;
如果需要让他自动不断地从头到尾滚动,添加如下代码 if table1.Eof then table1.First;
关于DBGrid中下拉列表的两种设计比较
一、DBGrid 中 的 下 拉 列 表 在 DBGrid 网格中实现下拉列表,设置好 DBGrid 中该字段的 PickList 字符串列表、初始的序号值 DropDownRows 即可。以职工信息库中的籍贯字段(字符串类型)为例,具体设计步骤如下: 1、在窗体上放置 Table1、DataSource1、DBGrid1、DBNavigator1 等控件对象,按下表设置各个对象的属性:
--------------------------------------- 对象 属性 设定值 --------------------------------------- Table1 DataBase sy1 TableName zgk.dbf //职工信息库 DataSource1 DataSet Table1 DbGrid1 DataSource DataSource1 DBNavigator1 DataSource Datasource1 -------------------------------------------
2、双击 Table1,在弹出的 Form1.Table1 窗口中,用右键弹出快捷菜单,单击 Add Fields 菜单项;选择所有的字段后,按 OK 按钮。
3、修改第 2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例, 在 Object Inspector 窗口中选择 Table1ZGBH,修改属性 DisplayLabel= 职工编号,其余字段类似。 4、双击 DBGrid1,在弹出的 Editing DBGrid1.Columns 窗口中, 单击 Add all Fields 按钮,增加 Table1 的所有字段。
5、在 Editing DBGrid1.Columns 窗口,选择 jg 这一行,切换到 Object Inspector 窗口,修改它的 PickList.Strings 为 “湖北枝江市 北京市 河南平顶山市 浙江德清市”
6、在 Form1.Oncreate 事件中写入语句:
Table1.Open;
7、F9 运行,用鼠标点击某个记录的籍贯字段,右边即出现一个按钮,点击这个按钮,可出现一个下拉列表,包含第 5 步中输入的四行字符串,可用鼠标进行选择。当然也可以自行输入一个并不属下拉列表中的字符串。
二、DBGrid 中 的 查 找 字 段 所谓查找字段(LookUp Field),即 DBGrid中的某个关键字段的数值来源于另外一个数据库的相应字段。运用查找字段技术,不仅可以有效的避免输入错误,而且 DBGrid 的显示方式更为灵活,可以不显示关键字段,而显示源数据库中相对应的另外一个字段的数据。
例如,我们在 DBGrid 中显示和编辑职工信息,包括职工编号、职工姓名、籍贯、所在单位编号,而单位编号来源于另一个数据库表格——单位库,称“单位编号”为关键字段。如果我们直接显示和编辑单位编号的话,将会面对 1、2、3 等非常不直观的数字,编辑时极易出错。但是如果显示和编辑的是单位库中对应的单位名称话,将非常直观。这就是 DBGrid 的所支持的查找字段带来的好处。
实现 DBGrid 的查找字段同样不需要任何语句,具体设计步骤如下: 1、在窗体上放置 Table1、Table2、DataSource1、DBGrid1、DBNavigator1 等控件对象,按下表设置各个对象的属性: --------------------------------------- 对象 属性 设定值 --------------------------------------- Table1 DataBase sy1 TableName zgk.dbf //职工信息库 Table2 DataBase sy1 TablenAME dwk.dbf //单位信息库 DataSource1 DataSet Table1 DbGrid1 DataSource DataSource1 DBNavigator1 DataSource Datasource1 ------------------------------------------
2、双 击Table1,在弹出的 Form1.Table1 窗口中,用右键弹出快捷菜单,单击 Add Fields 菜单项;选择所有的字段后,按 OK 按钮。
3、修改第 2 步新增字段的 DisplayLabel 属性。以 Table1ZGBH 字段为例,在 Object Inspector 窗口中选择 Table1ZGBH,修改属性 DisplayLabel= 职工编号,其余字段类似。
4、设置 Table1DWBH.Visible=False。
5、在 Form1.Table1 窗口,用右键弹出快捷菜单,单击 New Field 菜单项,新增一个查找字段 DWMC,在弹出的窗口设置相应的属性,按 OK 按钮确认;在 Object Inspector 窗口,设置 Table1DWMC.DisplayLabel= 单位名称。
6、在 Form1.Oncreate 事件中写入语句: Table1.Open;
7、按 F9 运行,当光标移至某个记录的单位名称字段时,用鼠标点击该字段,即出现一个下拉列表,点击右边的下箭头,可在下拉列表中进行选择。在这里可以看出,下拉列表的内容来自于单位信息库,并且不能输入其他内容。
三、DBGrid 中的下拉列表和查找字段的区别 虽然 DBGrid 中的下拉列表和查找字段,都是以下拉列表的形式出现的,但两者有很大的差别。
1、用 PickList 属性设置的下拉列表,它的数据是手工输入的,虽然也可以在程序中修改,但动态特性显然不如直接由另外数据库表格提取数据的查找字段。
2、用 PickList 属性设置的下拉列表,允许输入不属于下拉列表中的数据,但查找字段中只能输入源数据库中关键字段中的数据,这样更能保证数据的完整性。
3、用 PickList 属性设置的下拉列表设计较为简单。
没有相关教程
|