Cual es la mejor opcion para aumentar rendimiento de Base de Datos

[[duilioisola]]

Con respecto al log te sugiero ir a lo más simple:

En el DataModule principal o en una unidad compartida por toda la aplicación creas una función que guarde en un fichero lo que le envíes.
Yo lo tengo así en un DataModule principal. Te crea un fichero .log con el mismo nombre que la aplicación.

Código Delphi [-]
procedure TDMMain.Log(s: string);
{$IFDEF Debug}
var
  F : TextFile;
  FileName : string;
{$ENDIF}
begin
  {$IFDEF Debug}
  FileName := ChangeFileExt(Application.ExeName, '.log');
  AssignFile(F, FileName);
  try
     Append(F);
  except
     try
        Rewrite(F);
     except
        on e: Exception do
           ShowMessage('Error al abrir fichero : ' + FileName + #13#10 + e.Message);
     end;
  end;
  WriteLn(F, FormatDatetime('[yyyy-mm-dd hh:nn:ss.zzz] ', Now) + s);
  CloseFile(F);
  {$ENDIF}
end;

Luego en los formularios, en cualquier sitio puedes poner cosas como estas:

Código Delphi [-]
procedure TFMPrincipal.FormCreate(Sender: TObject);
begin
  inherited;
  DMMain.Log('FormCreate - ' + Self.Name);
end;

Código Delphi [-]
procedure TFMPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action = caFree;
  DMMain.Log('FormClose - ' + Self.Name);
end;

Código Delphi [-]
procedure TFMain.AArticulosExecute(Sender: TObject);
begin
  DMMain.Log('Accion - Abrir formulario de articulos');
  [...]
end;

[[kuan-yiu]]

Creo que aquí hay muchas cosas además de la velocidad.
¿Datos médicos?
Las normativas de protección de datos son muy estrictas con ellos. Te recomendaría ver que pide la comunidad europea o el ENS en esos casos, si hablamos de empresas españolas.

Para empezar tener juntos datos de diferentes empresas es un error. Seguro. Deben estar contenidas físicamente en diferentes lugares aunque lógicamente tengan la misma estructura.
No he usado SQL server a ese nivel, pero en Oracle definirías distintos tablespace para cada empresa, usuario o lo que decidas.

Yo no soy partidaria de cargarlo todo de una vez mi experiencia me ha demostrado que rara vez desean ver todo, todo pero todo, aunque solo sea porque es humanamente imposible hacerlo.
Además si hablas de tablas muy grandes (muchos campos) con datos pesados (imágenes, documentos adjuntos) lo mejor es hacer la carga por secciones, según lo necesites en cada pestaña o en un proceso en segundo plano que recupere la información poco a poco sin que ello dificulte el trabajo del usuario y los elementos más pesados que tenga que abrirlos el propio usuario (no la aplicación de forma automática).

Las posibilidades son muchas y un buen análisis previo te ahorrará trabajo después.

[giantonti1801]

Empezado por duilioisola

Con respecto al log te sugiero ir a lo más simple:

En el DataModule principal o en una unidad compartida por toda la aplicación creas una función que guarde en un fichero lo que le envíes.
Yo lo tengo así en un DataModule principal. Te crea un fichero .log con el mismo nombre que la aplicación.

Código Delphi [-]
procedure TDMMain.Log(s: string);
{$IFDEF Debug}
var
  F : TextFile;
  FileName : string;
{$ENDIF}
begin
  {$IFDEF Debug}
  FileName := ChangeFileExt(Application.ExeName, '.log');
  AssignFile(F, FileName);
  try
     Append(F);
  except
     try
        Rewrite(F);
     except
        on e: Exception do
           ShowMessage('Error al abrir fichero : ' + FileName + #13#10 + e.Message);
     end;
  end;
  WriteLn(F, FormatDatetime('[yyyy-mm-dd hh:nn:ss.zzz] ', Now) + s);
  CloseFile(F);
  {$ENDIF}
end;

Luego en los formularios, en cualquier sitio puedes poner cosas como estas:

Código Delphi [-]
procedure TFMPrincipal.FormCreate(Sender: TObject);
begin
  inherited;
  DMMain.Log('FormCreate - ' + Self.Name);
end;

Código Delphi [-]
procedure TFMPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action = caFree;
  DMMain.Log('FormClose - ' + Self.Name);
end;

Código Delphi [-]
procedure TFMain.AArticulosExecute(Sender: TObject);
begin
  DMMain.Log('Accion - Abrir formulario de articulos');
  [...]
end;

amigo no logro entender que estoy haciendo mal tengo un form llamado login a la cual usuario y contraseña y entro en el from principal sin ningun problema:

Código Delphi [-]
FormInicio := TFormInicio.Create(Application);
                      Self.Free;
                      FormInicio.ShowModal;

ok luego de eso tengo diferente from que debo abrir segun la opcion selecionada (Button)
Entonces el siguiente from que abro lo abro sin singun problema:

Código Delphi [-]
FormMedico := TFormMedico.Create(Self);
    try
    FormMedico.ShowModal;
    finally
    FormMedico.Free;
    end;

oh continuo: en este fron tengo un botton que al presionarlo deberia abrir otro from donde me muestra una pantalla de busqueda ect. y alli tengo problema ya que me da access violation.

Código Delphi [-]
begin
  FormBuscarMedico:=TFormBuscarMedico.Create(self);
  try
  FormBuscarMedico.ShowModal;
  finally
  FormBuscarMedico.Free;
end;

end;

y alli finalemente se me tranco el juego ahora tambien nunca pude colocar

Código Delphi [-]
Action = caFree;

en el Evento onclose ya que me dice que CaFree no esta declarado.

[[duilioisola]]

oh continuo: en este fron tengo un botton que al presionarlo deberia abrir otro from donde me muestra una pantalla de busqueda ect. y alli tengo problema ya que me da access violation.

¿En qué punto exactamente?
Pon tu código real para poder ver qué estás haciendo.
Un "Access Violation" suele ser una llamada a un objeto que no está creado. Seguramente estás liberanto antes de tiempo un objeto o lo estás utilizando antes de crearlo.

y alli finalemente se me tranco el juego ahora tambien nunca pude colocar

Lo mismo de antes... pon tu código real ya que caFree es un tipo definido en los formularios en la unidad Forms.

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

De la ayuda de Delphi 6:

TCustomForm.OnClose
Occurs when the form closes.

type
TCloseAction = (caNone, caHide, caFree, caMinimize);

TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;

property OnClose: TCloseEvent;

Description

Use OnClose to perform special processing when the form closes. The OnClose event specifies which event handler to call when a form is about to close. The handler specified by OnClose might, for example, test to make sure all fields in a data-entry form have valid contents before allowing the form to close.

A form is closed by the Close method or when the user chooses Close from the form's system menu.

The TCloseEvent type points to a method that handles the closing of a form. The value of the Action parameter determines if the form actually closes. These are the possible values of Action:

Value Meaning

caNone The form is not allowed to close, so nothing happens.
caHide The form is not closed, but just hidden. Your application can still access a hidden form.
caFree The form is closed and all allocated memory for the form is freed.
caMinimize The form is minimized, rather than closed. This is the default action for MDI child forms.

If a form is an MDI child form, and its BorderIcons property is biMinimize, then the default Action is caMinimize. If a MDI child form does not have these settings, the default Action is caNone, meaning that nothing happens when the user attempts to close the form.

If a form is an SDI child form, Action defaults to caHide.

To close the form and free it in an OnClose event, set Action to caFree.

Note: When the application shuts down, the main form receives an OnClose event, but any child forms do not receive the OnClose event.

[giantonti1801]

Empezado por duilioisola

¿En qué punto exactamente?
Pon tu código real para poder ver qué estás haciendo.
Un "Access Violation" suele ser una llamada a un objeto que no está creado. Seguramente estás liberanto antes de tiempo un objeto o lo estás utilizando antes de crearlo.


Lo mismo de antes... pon tu código real ya que caFree es un tipo definido en los formularios en la unidad Forms.

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;

De la ayuda de Delphi 6:

Ya se quito el error en Action:=caFree;

Código Delphi [-]
procedure TFormPacienteNew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  end;

el error se quito cuando coloque esta linea en Type

Código Delphi [-]
type
  TCloseAction = (caNone, caHide, caFree, caMinimize);  //<--esta linea quito el error
  TFormPacienteNew = class(TForm)
    Layout17: TLayout;
    Label153: TLabel;
    TMSFMXEdit13: TTMSFMXEdit;
    ShadowEffect244: TShadowEffect;
    Label154: TLabel;
    TMSFMXEdit14: TTMSFMXEdit;
    ShadowEffect258: TShadowEffect;
    Label156: TLabel;
    TMSFMXEdit15: TTMSFMXEdit;
    ShadowEffect262: TShadowEffect;
    Label158: TLabel;
    Label159: TLabel;
    TMSFMXEdit16: TTMSFMXEdit;
    ShadowEffect265: TShadowEffect;
    Label160: TLabel;
    Label161: TLabel;
    Label177: TLabel;
    Label192: TLabel;
    TMSFMXEdit17: TTMSFMXEdit;

pero ahora cuando cierro la ventada

Código Delphi [-]
procedure TFormPacienteNew.TMSFNCButton1Click(Sender: TObject);
begin
FormPacienteNew.Close;
end;

me sale un Mensaje 'Invalid Piont operation' y otro que dice 'Invalid Argument'
los formulario se abren asi:

Código Delphi [-]
procedure TFormInicio.TMSFMXToolBarButton2Click(Sender: TObject);
begin
FormPacienteNew := TFormPacienteNew.Create(Self);
    try
    FormPacienteNew.ShowModal;
    finally
    FormPacienteNew.Free;
    end;
end;

[[duilioisola]]

Dentro de un formulario no tienes que llamarlo por su nombre...

Código Delphi [-]
procedure TFormPacienteNew.TMSFNCButton1Click(Sender: TObject);
begin
   // Close hace referencia a si mismo
   // No importa como se llame la variable que apunta al objeto
   Close;
end;

Luego puedes tener dos ventanas de ese tipo y que cada una se cierre a si misma.

Código Delphi [-]
procedure TFormPacienteNew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  // No necesitaré liberar este objeto, porque FormClose ya lo hará.
  Action := caFree;
end;

[...]

begin
    // Creo dos ventanas de "paciente nuevo"
    PacienteNew1 := TFormPacienteNew.Create(Self);
    PacienteNew2 := TFormPacienteNew.Create(Self);

    // Muestra la primera ventana
    PacienteNew1.Show;

    // Muestra la otra ventana
    PacienteNew2.Show;
end;

[giantonti1801]

Empezado por duilioisola

Dentro de un formulario no tienes que llamarlo por su nombre...

Código Delphi [-]
procedure TFormPacienteNew.TMSFNCButton1Click(Sender: TObject);
begin
   // Close hace referencia a si mismo
   // No importa como se llame la variable que apunta al objeto
   Close;
end;

Luego puedes tener dos ventanas de ese tipo y que cada una se cierre a si misma.

Código Delphi [-]
procedure TFormPacienteNew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  // No necesitaré liberar este objeto, porque FormClose ya lo hará.
  Action := caFree;
end;

[...]

begin
    // Creo dos ventanas de "paciente nuevo"
    PacienteNew1 := TFormPacienteNew.Create(Self);
    PacienteNew2 := TFormPacienteNew.Create(Self);

    // Muestra la primera ventana
    PacienteNew1.Show;

    // Muestra la otra ventana
    PacienteNew2.Show;
end;

Si funciona pero si le coloco en el evento on close Action := caFree; despues que se cierra el formulario me da el error de Invalid argument por lo que decidi quitarlo y funciona perfecto.