unit DataUnit;

interface

uses
  SysUtils, Classes, dialogs, DBAccess, MyDacVcl, DB, MyAccess, 
  MyDacMonitor, MySQLMonitor, MemDS, DASQLMonitor;

type
  TSQL_DM = class(TDataModule)
    mysql_con: TMyConnection;
    mysql_query1: TMyQuery;
    mysql_query2: TMyQuery;
    MySQL_mon: TMySQLMonitor;
    mysql_DSQ2: TMyDataSource;
    mysql_DSQ1: TMyDataSource;
    mysql_conn_dialog: TMyConnectDialog;
    mysql_query3: TMyQuery;
    mysql_DSQ3: TMyDataSource;
    mysql_DSQ4: TMyDataSource;
    mysql_query4: TMyQuery;
    mysql_DSQ5: TMyDataSource;
    mysql_query5: TMyQuery;
    procedure mysql_conError(Sender: TObject; E: EDAError; var Fail: Boolean);
    procedure mysql_query1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure mysql_conBeforeConnect(Sender: TObject);
    procedure MySQL_monSQL(Sender: TObject; Text: string; Flag: TDATraceFlag);
    procedure mysql_query4PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SQL_DM: TSQL_DM;



implementation

uses ConstUnit;

{$R *.dfm}

procedure TSQL_DM.mysql_conBeforeConnect(Sender: TObject);
begin
mysql_con.Options.Charset:='cp1251';
end;

procedure TSQL_DM.mysql_conError(Sender: TObject; E: EDAError;
  var Fail: Boolean);
 begin
if (report_error=2) then showmessage (inttostr(E.ErrorCode)+'  '+E.Message);

end;

procedure TSQL_DM.MySQL_monSQL(Sender: TObject; Text: string;
  Flag: TDATraceFlag);
begin
//
end;

procedure TSQL_DM.mysql_query1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
if (report_error=2) or (report_error=1) then showmessage(E.Message);
end;

procedure TSQL_DM.mysql_query4PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
if (report_error=2) or (report_error=1) then showmessage(E.Message);
end;

end.