当前位置: 代码迷 >> Delphi >> dbgrid能不能像asp.net中那样解决思路
  详细解决方案

dbgrid能不能像asp.net中那样解决思路

热度:9082   发布时间:2013-02-25 00:00:00.0
dbgrid能不能像asp.net中那样
今天学Delphi,懵了  谁和我说说dbgrid怎么显示一下我的表,数据库的表数据,和asp.net里面的Datagridview一样啊,给我写一段吧,让我入门 谢谢了
------解决方案--------------------------------------------------------

看看这一段代码!是否对你有帮助?
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.