Hola a todos... Yo en mi caso ahora estoy provando una nueva forma de organizarme... vamos a ver como ve con esto...
Uso los componentes IBX y Firebird; lo que hago basicamente es crear un conjunto de componentes (TIBTransaction y TDBDataSet) por cada tabla automaticamente con la funcion
CrearCompDB, el cual el mismo me genera el codigo SQL básico para editar, insertar, borrar y actualizar registros (ya que es muy tedioso hacerlo cuando tenes muchas tablas
) cada conjunto de componentes es usado por lo modulos que editan sus datos.
Ademas tengo un modulo para busqueda simple el cual arma la consula dependiendo de la tabla que se vaya a consultar y muestra los campos en un grid, el cual abre el modulo correspondiente a la tabla que se esta consultando cuando se hace doble click en un registro del resultado...
En fin... no soy muy amigo de lo estatico y prefiero que el programa vaya armando y manipulando las consultas y componentes que se conectan segun la demanda del usuario.... Claro que hay que tener cuidado con el codigo para no consumir mas recursos de los necesarios.
La funcion que uso para crear los componentes y el codigo SQL basico
Código Delphi
[-]
Procedure CrearCompDB(S:String; DB_: TIBDataBase);
var
TR: TIBTransaction;
DS: TIBDataSet;
I: Integer;
begin
S:= UpperCase(S);
TR:= TIBTransaction.Create(Application);
TR.DefaultDatabase:= DB_;
TR.Name:= 'TR'+S;
DS:= TIBDataSet.Create(Application);
DS.Database:= DB_;
DS.Transaction:= TR;
DB.GetFieldNames(S, L.Lines);
DS.SelectSQL.Clear;
DS.SelectSQL.Add('Select * from '+S);
DS.InsertSQL.Clear;
DS.InsertSQL.Add('INSERT INTO '+S+' (');
for I := 0 to L.Lines.Count - 1 do
begin
if i<(L.Lines.Count-1) then
DS.InsertSQL.Add(L.Lines[i]+',')
else DS.InsertSQL.Add(L.Lines[i]+')');
end;
DS.InsertSQL.Add('VALUES (');
for I := 0 to L.Lines.Count - 1 do
begin
if i<(L.Lines.Count-1) then
DS.InsertSQL.Add(':'+L.Lines[i]+',')
else DS.InsertSQL.Add(':'+L.Lines[i]+')');
end;
DS.ModifySQL.Clear;
DS.ModifySQL.Add('UPDATE '+S+' SET');
for I := 0 to L.Lines.Count - 1 do
if L.Lines[i]<>'ID' then
begin
if i<(L.Lines.Count-1) then
DS.ModifySQL.Add(L.Lines[i]+' = :'+L.Lines[i]+',')
else DS.ModifySQL.Add(L.Lines[i]+' = :'+L.Lines[i]);
end;
DS.ModifySQL.Add('where ID= :OLD_ID');
DS.DeleteSQL.Clear;
DS.DeleteSQL.Add('DELETE FROM '+S+' WHERE ID = :OLD_ID');
DS.RefreshSQL.Add('SELECT * FROM '+S+' WHERE ID = :ID');
try
DS.Active:= True;
except
on e:exception do
ShowMessage(e.Message);
end;
DS.Name:= 'DS'+S;
DS.AfterPost:= Commit;
DS.OnPostError:= IBDataSet1.OnPostError;
DSw.DataSet:= TDataSet(Application.FindComponent('DS'+S));
DS.Active:= True;
end;
Saludos a todos