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

dbgrid能不能像asp.net中那样,该如何解决

热度:9122   发布时间: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.