Free Pascal with Terry

MySql Include Files for Pascal

DbConst.inc

Const
	MyUser = 'MyUser';
	MyPass = 'MyPassword';
	{Replace MyUser part that are in quotes with your MySQL user name and MyPassword with that user''s MySQL password}

MySqlConnLib.inc

function GetQuery(Conn: TSqlConnector; Tran: TSqlTransaction) : TSQLQuery;
  var MyQuery : TSQLQuery;
begin
  MyQuery := TSQLQuery.Create(Tran);
  MyQuery.Database := Conn;
  MyQuery.Transaction := Tran;
  GetQuery := MyQuery;
end;

Procedure CreateTransaction(Conn: TSqlConnector;Var Tran: TSqlTransaction);
Begin
  Tran := TSQLTransaction.Create(Tran);
  Tran.Database := Conn;
End;
	
Function CreateConnection(CType, HostAddr, Database, User, Password: String): TSqlConnector;
Var
	Conn:	TSqlConnector;
Begin
	Conn := TSQLConnector.Create(nil);
	Conn.ConnectorType 	:= CType;
	Conn.Hostname 	:= HostAddr;
	Conn.DatabaseName  	:= Database;
	Conn.UserName		:= User;
	Conn.Password		:= Password;
	CreateConnection 	:= Conn; 
End;