lprore.pas

不完备信息的数据发现

unit lprore;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DB, ADODB;

type
  Tlproref = class(TForm)
    DS_prore: TDataSource;
    Q_prore: TADOQuery;
    DBGrid_prore: TDBGrid;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lproref: Tlproref;

implementation
 uses  dm,main_page ;
{$R *.dfm}

procedure Tlproref.FormShow(Sender: TObject);
begin
   Q_prore.Close;
   Q_prore.SQL.Text:='select * FROM '+DatabaseName+'decision';
   Q_prore.Open;

end;

end.