fclientform.pas

来自「MYSQL 连接控件 MYSQL 连接控件」· PAS 代码 · 共 46 行

unit fClientForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  ExtCtrls, DBCtrls, uDAScriptingProvider, uDADataTable, uDACDSDataTable,
  DB, Grids, DBGrids;

type
  TClientForm = class(TForm)
    DBGrid1: TDBGrid;
    DADataSource1: TDADataSource;
    DBNavigator1: TDBNavigator;
    DACDSDataTable1: TDACDSDataTable;
    procedure FormCreate(Sender: TObject);
    procedure DACDSDataTable1PostError(DataTable: TDADataTable;
      Error: EDatabaseError; var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientForm: TClientForm;

implementation

uses fClientDataModule;

{$R *.dfm}

procedure TClientForm.FormCreate(Sender: TObject);
begin
  DACDSDataTable1.Open;
end;

procedure TClientForm.DACDSDataTable1PostError(DataTable: TDADataTable;
  Error: EDatabaseError; var Action: TDataAction);
begin
//
end;

end.