1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
| unit Unit4;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids;
type
TForm4 = class(TForm)
DBGrid1 : TDBGrid;
procedure OnCreate(Sender : TObject);
private
DataSource : TDataSource;
ADOTable : TADOTable;
public
end;
var
Form4 : TForm4;
implementation
{$R *.dfm}
procedure TForm4.OnCreate(Sender : TObject);
var
Collection : TCollection;
Column : TColumn;
ColumnTitle : TColumnTitle;
SelectQuery : TADOQuery;
begin
SelectQuery := TADOQuery.Create(nil);
SelectQuery.ConnectionString := 'Provider=MSDASQL.1; Persist Security Info=False; Data Source=XXX';
SelectQuery.DataSource := DataSource;
SelectQuery.SQL.Text := 'SELECT Designation, Cle, Ville FROM XXX WHERE (Cle >= 9910000 AND Cle <= 9910005);';
DataSource := TDataSource.Create(nil);
DataSource.Name := 'DataSource';
Datasource.DataSet := SelectQuery;
DBGrid1.Columns.Add;
DBGrid1.Columns[0].FieldName := 'Designation';
DBGrid1.Columns[0].Title.Caption := 'Designation';
DBGrid1.Columns[0].Width := 120;
DBGrid1.Columns.Add;
DBGrid1.Columns[1].FieldName := 'Cle';
DBGrid1.Columns[1].Title.Caption := 'Cle';
DBGrid1.Columns[1].Width := 50;
DBGrid1.Columns.Add;
DBGrid1.Columns[2].FieldName := 'Ville';
DBGrid1.Columns[2].Title.Caption := 'Ville';
DBGrid1.Columns[2].Width := 95;
DBGrid1.DataSource := DataSource;
DataSource.DataSet.Active := True;
end;
end. |
Partager