Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


ID: 25428, Engineer reverse in Delphi

by Lindemberg Cortez Email: Anonymous


available now also for SQLServer, INTERBASE and Oracle.....
Download Details
FTP  download also available
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 1.0  to 1.2 898 downloads
Copyright: Open Source or other


Size: 1,034,361 bytes
Updated on Tue, 16 Dec 2008 11:43:07 GMT
Originally uploaded on Thu, 21 Feb 2008 12:05:41 GMT
SHA1 Hash: D7454164EE9E4DD0B418F2351FA118D86E5D74B3
MD5 Hash: B16F232D9B0224C494DC12C7C5602EC6

    Explore the files in this upload

Description
Attention! In the code source, the method "Conectar" , where it has "Database" to change for "Driver"


Utilitarian Beta that makes the reverse engineering of the tables of a database SQLServer creating the classes with the read,
write and store procedures. Leave your comment !!!!!!!!!!!!

Utilitario beta que realizar engenharia reversa das tabelas de um banco de dados SqlServer criando as classes com Read, write and
store procedures...Deixe seu comentario!!!


procedure Conectar(Driver:string;Conn:TSQLConnection;Server, Database, User, Pass:string);
begin
Conn.Connected:= false;
//if (DataBase = 'MSSQL') then
if (Driver = 'MSSQL') then
begin
Conn.Params.Values['HostName']:= Server;
Conn.Params.Values['DataBase']:= Database;
end
else
if (Driver = 'INTERBASE') then
INTERBASE.Params.Values['DataBase']:= Server+':'+Database
else
if ( Driver = 'Oracle') then
INTERBASE.Params.Values['DataBase']:= Database;

Conn.Params.Values['User_Name'] := User;
Conn.Params.Values['Password'] := Pass;
Conn.Connected:= true;
Entidade.SQLConnection:= Conn;
end;


Lindemberg Cortez

Email:
lindembergz@hotmail.com
lindemberg@natalsoft.com.br

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03