unit Unit1;

interface

uses
  Windows, IniFiles, Messages, Forms, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  uADStanIntf, uADStanOption, uADStanDef, uADPhysIntf, uADGUIxIntf,
  uADDatSManager, uADStanError, uADStanParam, uADDAptIntf,
  uADGUIxFormsWait, DB, uADCompDataSet, uADCompClient, uADPhysManager,
  uADPhysMySQL, ActiveX, ComObj, Variants, ExtCtrls, ShellApi, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure ParamsToConDB;
    procedure ConToDB;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ADConnection1: TADConnection;
  ADTransaction1: TADTransaction;
  ADGUIxWaitCursor1: TADGUIxWaitCursor;
  ADPhysMySQLDriverLink1: TADPhysMySQLDriverLink;
  MyQuery1: TADQuery;
  DriverID, Database, User_Name, Password, CharacterSet, Server, Port: string;
  
implementation

{$R *.dfm}

procedure TForm1.ParamsToConDB;
var
  ST : TIniFile;
begin
if FileExists(GetCurrentDir + '\' + 'config.ini') then
  begin
    ST := TIniFile.Create(ExtractFilePath(paramstr(0)) + 'config.ini');
    DriverID := ST.ReadString('Base','DriverID','MySQL');
    Database:= ST.ReadString('Base','Database','msservice');
    User_Name:= ST.ReadString('Base','User_Name','root');
    Password:= ST.ReadString('Base','Password','root');
    CharacterSet:= ST.ReadString('Base','CharacterSet','cp1251');
    Server:= ST.ReadString('Base','Server','127.0.0.1');
    Port:= ST.ReadString('Base','Port','3306');
    ST.Free;
  end
    else
  begin
    ST := TIniFile.Create(ExtractFilePath(paramstr(0)) + 'config.ini');
    ST.WriteString('Base','DriverID','MySQL');
    ST.WriteString('Base','Database','msservice');
    ST.WriteString('Base','CharacterSet','cp1251');
    ST.WriteString('Base','Server','127.0.0.1');
    ST.WriteString('Base','Port','3306');
    DriverID := ST.ReadString('Base','DriverID','MySQL');
    Database:= ST.ReadString('Base','Database','msservice');
    User_Name:= ST.ReadString('Base','User_Name','root');
    Password:= ST.ReadString('Base','Password','root');
    CharacterSet:= ST.ReadString('Base','CharacterSet','cp1251');
    Server:= ST.ReadString('Base','Server','127.0.0.1');
    Port:= ST.ReadString('Base','Port','3306');
    ST.Free;
  end;
end;

procedure TForm1.ConToDB;
begin
ADConnection1 := TADConnection.Create(nil);
ADTransaction1 := TADTransaction.Create(nil);
ADGUIxWaitCursor1 := TADGUIxWaitCursor.Create(nil);
ADPhysMySQLDriverLink1 := TADPhysMySQLDriverLink.Create(nil);
MyQuery1 := TADQuery.Create(nil);
MyQuery1.Connection := ADConnection1;
MyQuery1.Transaction := ADTransaction1;

  If not ADConnection1.Connected then
    begin
      try
        ADPhysMySQLDriverLink1.VendorLib := 'libmySQL.dll';
        ADConnection1.LoginPrompt := False;
        ADConnection1.Transaction := ADTransaction1;
        ADConnection1.Params.Clear;
        ADConnection1.DriverName:=DriverID;
        ADConnection1.Params.Add('Database='+Database);
        ADConnection1.Params.Add('User_Name='+User_Name);
        ADConnection1.Params.Add('Password='+Password);
        ADConnection1.Params.Add('CharacterSet='+CharacterSet);
        ADConnection1.Params.Add('Server='+Server);
        ADConnection1.Params.Add('Port='+Port);
        ADConnection1.Connected:=true;
      except
        on E: Exception do
          begin
            ADConnection1.Connected:=false;
         end;
      end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ParamsToConDB;
 ConToDB;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If MyQuery1.Connection= ADConnection1 then
begin
  MyQuery1.Transaction.StartTransaction;
    try
      MyQuery1.Close;
      MyQuery1.SQL.Text := 'Insert into process (Caption, Date_Time) values (:pCaption, :pDate_Time);';
      MyQuery1.prepare;
      MyQuery1.ParamByName('pCaption').Value := '123';
      MyQuery1.ParamByName('pDate_Time').AsDateTime := Now;
      MyQuery1.ExecSQL;
      MyQuery1.Transaction.Commit;
    except
      MyQuery1.Transaction.Rollback;
    end;
  MyQuery1.Free;
end;  
end;

end.