uselect.pas

一个简单CUDR例子

unit USelect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids,DBClient, DB;

type
  TFSelect = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FSelect: TFSelect;

implementation

uses ULogin,UDataMDL;

{$R *.dfm}

procedure TFSelect.Button1Click(Sender: TObject);
var
  sql:string;

begin
     sql:='select * from users';
     DataMDL.ADOQuery.Close;
     DataMDL.ADOQuery.SQL.Clear;
     DataMDL.ADOQuery.SQL.Add(sql);
     DataMDL.ADOQuery.Open;

     //cds:=TClientDataSet.Create(nil);
    // cds.Data:=DataMDL.ADOQuery.DesignerData;
    //DataSource1.DataSet:=DataMDL.ADOQuery;
   // dbgrid1.DataSource.DataSet:=DataSource1.DataSet;
     
end;

procedure TFSelect.DBGrid1CellClick(Column: TColumn);
begin
  Edit1.Text:=DataMDL.ADOQuery.fieldbyname('id').AsString;
end;

procedure TFSelect.FormClose(Sender: TObject; var Action: TCloseAction);
begin

   Action:=cafree;
   
end;

end.