今天学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.