dbgrid能不能像asp.net中那样

[viphz615]

今天学Delphi，懵了 谁和我说说dbgrid怎么显示一下我的表，数据库的表数据，和asp.net里面的Datagridview一样啊，给我写一段吧，让我入门 谢谢了

[dichun]

绑定数据控件

[中广能科技]

看看这一段代码！是否对你有帮助？
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids, ADODB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin

self.ADOQuery1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GB_2003;Data Source=.';

self.ADOQuery1.Active:=false;

self.ADOQuery1.SQL.Clear;

self.ADOQuery1.SQL.Add('select * from AA_Print_Items');

self.ADOQuery1.Open;

self.ADOQuery1.Active:=true;

self.DataSource1.DataSet:=self.ADOQuery1;

self.DBGrid1.DataSource:=self.DataSource1;



end;

end.