DBGrid使用全书(五)

核心提示： 在DBGrid中，怎样才能让我能点击一个单元格选择整行，DBGrid使用全书(五)，又可以编辑单元格的内容呢？在设计过程中，有时候数据较大量，但查找字段中只能输入源数据库中关键字段中的数据，这样更能保证数据的完整性，field 较多的时候，只是点击单元格可能会对某个field的数据误操作（如数据错行）

 

在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 属性设置的下拉列表设计较为简单。