david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
42 lines
982 B
ObjectPascal
42 lines
982 B
ObjectPascal
unit QuickOpenMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, DB, uDADataTable, uDACDSDataTable, uDAEngine, uDAADODriver,
|
|
uDAClasses, uDADriverManager, uDABINAdapter, Grids, DBGrids, StdCtrls,
|
|
uDAScriptingProvider, uDADataStreamer;
|
|
|
|
type
|
|
TQuickOpenMainForm = class(TForm)
|
|
DADriverManager1: TDADriverManager;
|
|
DAADODriver1: TDAADODriver;
|
|
DataTable: TDACDSDataTable;
|
|
dsCustomers: TDADataSource;
|
|
DAConnectionManager1: TDAConnectionManager;
|
|
OpenButton: TButton;
|
|
DBGrid1: TDBGrid;
|
|
DABINAdapter: TDABinDataStreamer;
|
|
DASchema1: TDASchema;
|
|
procedure OpenButtonClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
QuickOpenMainForm: TQuickOpenMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TQuickOpenMainForm.OpenButtonClick(Sender: TObject);
|
|
begin
|
|
DataTable.Open;
|
|
end;
|
|
|
|
end.
|