program qtest;

uses db, sqldb, MySQL50Conn;

type
	form = record
		conn : TMySQL50Connection;
		query : TSQLQuery;
		trans : TSQLTransaction;
	end;

var
	x : form;

begin
	writeln('0');
	x.conn.Create(nil);
	writeln('1');
	x.conn.HostName := 'localhost';
	writeln('2');
	x.conn.DatabaseName := '2012_cpi2_ingouffchr';
	writeln('3');
	x.conn.UserName := 'ingouffchr';
	writeln('4');
	x.conn.Password := 'phpbanana';
	writeln('5');
	x.conn.Open;
	WriteLn ('Success');
	x.conn.Close;
	x.conn.Free;
end.