读书人

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

发布时间: 2012-12-23 11:28:15 作者: rapoo

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.

读书人网 >.NET

热点推荐