新手的问题(200分)

我以前有的是vfp,现在转用delphi，有许多问题不能解决希望高手能帮一个记忙。
以前vfp我用得很熟，以下问题能轻易解决，现在delphi中的dbgrid中就不能解决：
有一个程序需要实现以下功能：
1、怎样在点标题栏就能自动进行排序。
2、在grid中出现combox和checkbox。在combox的数据源是另一个数据。
3、在dbnavigate中怎样把自己的文字加上如上一个、下一个。
以上问题也许很简单，也许上面的问题可以用一个控件就能解决，我也知道，只是希望能有一个详细点完全点的的回答，最好能给我详细代码，我的是初学水平很臭。另请大家推荐一本delphi数据库方面的好书，是李维的吗？书名是什么我送上我的所有分。（235）

>>1、怎样在点标题栏就能自动进行排序。
在DBGrid的OnTitleClick事件中实现
query.close;
query.sql.clear;
query.sql:='select * from Utable where ... orber by Clicked_Field'
query.open;

>>2、在grid中出现combox和checkbox。在combox的数据源是另一个数据。
把要出现combox的字段做成lookup字段，则会出现Lookupcombobox.

>>3、在dbnavigate中怎样把自己的文字加上如上一个、下一个。
用第三方控件，或自己做也很简单。

完全同意。
自己做dbnavigate确实简单，做个工具条，再调用dataset中的函数如:
findfirst,findprior,findnext,findlast就可以了。

1.此类控件如：Ehlib；InfoPower中的Dbgrid，都有较详细的例子。

2.
摘自《中国计算机报》：

---- Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。

---- Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。
---- 1、 在Delphi 4.0中新建一个项目。
---- 2、 分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。
---- 3、 设置各个组件的属性如下：

rcf1对象 属性 设定植
Form1 Caption '在DBGrid中插入SpinEdit组件示例'
DataSource1 DataSet Table1
Table1 DatabaseName DBDEMOS
　 TableName 'teacher.DBF'
　 Active True
DBGrid1 DataSource DataSource1
DBComboBox1 DataField SEX
　 DataSource DataSource1
　 Visible False
　 Strings Items. '男'| '女'

---- 注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。

---- 4、 DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且
使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Field.FieldName = DBComboBox1.DataField ) then
begin
DBComboBox1.Left := Rect.Left + DBGrid1.Left;
DBComboBox1.Top := Rect.Top + DBGrid1.top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;
end;

---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
begin
DBComboBox1.Visible := false;
end;
end;

---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (key < > chr(9)) then
begin
if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);
end;
end;
end;

---- 程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。

1、怎样在点标题栏就能自动进行排序

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
x: Integer;
TheField : String;
begin
x := Column.Index;
TheField := Query1.Fields[x].FieldName;
with Query1 do begin
Active := FALSE;
Sql.Clear;
Sql.Add('Select * from employee order by '+TheField);
Active := TRUE;
end;
end;

2、同意Victortim

3、“在dbnavigate中怎样把自己的文字加上如上一个、下一个”
放几个按钮
BitBtn1.caption:='上一个';
BitBtn2.caption:='下一个';

分别在BitBtnBit1和Btnon2的Click事件中加
Table1.next; //下一个

Table1.prior; //上一个

4、书有很多都不错。《Delphi 5.0 程序设计----数据库应用务实篇》
中国铁道出版社 2000.北京

请详细说一下CheckBox

我手头的系统必须老烂，现在又要升级，可恶 ...

多人接受答案了。