unit UCHist_Form;

interface

{$I 'UserControl.inc'}

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  UCHist_Base, Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DBCtrls, DB;

Type TAuxObj = class(TObject)
    Private
     IdUser : Integer;
end;

type
  TFrmHistorico = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    LabelDescricao: TLabel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    Panel3: TPanel;
    DBMemo1: TDBMemo;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    LabelUser: TLabel;
    ComboUser: TComboBox;
    LabelForm: TLabel;
    ComboForm: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    LabelEvento: TLabel;
    ComboEvento: TComboBox;
    LabelTabela: TLabel;
    ComboTabela: TComboBox;
    StringGrid1: TStringGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure ComboUserChange(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    DataSetHist : TDataSet;
    procedure SetComBoValues;
    { Private declarations }
  public
    fControl : TUCControlHistorico
    { Public declarations }
  end;

implementation


{$R *.dfm}

procedure TFrmHistorico.BitBtn1Click(Sender: TObject);
Var cSql : String;
begin
  cSql := Format('Select UH.%s as UserId, Uh.%s as Form , ' +
          'Uh.%s as Evento , Uh.%s as Obs, Uh.%s as FormCaption, Uh.%s as EventDate, Uh.%s as EventTime, uh.%s as TableName, '+
          'US.%s As UserName from %s UH, %s US where UH.%s = US.%s and Uh.%s = %s ',
          [   fControl.TableHistory.FieldUserID           ,
              fControl.TableHistory.FieldForm                  ,
              fControl.TableHistory.FieldEvent                 ,
              fControl.TableHistory.FieldObs                   ,
              fControl.TableHistory.FieldCaptionForm           ,
              fControl.TableHistory.FieldEventDate             ,
              fControl.TableHistory.FieldEventTime             ,
              fControl.TableHistory.FieldTableName             ,
              fControl.UserControl.TableUsers.FieldLogin    ,
              fControl.TableHistory.TableName                  ,
              fControl.UserControl.TableUsers.TableName     ,
              fControl.TableHistory.FieldUserId                ,
              fControl.UserControl.TableUsers.FieldUserID   ,
              fControl.TableHistory.FieldApplicationID         ,
              QuotedStr(fControl.UserControl.ApplicationID)  ]);

  if ComboUser.ItemIndex <> 0 then
    cSql := cSql + Format(' and US.%s = %s ',[fControl.UserControl.TableUsers.FieldLogin,QuotedStr(ComboUser.Text)]);

  if ComboForm.ItemIndex <> 0 then
    cSql := cSql + Format(' and UH.%s = %s ',[fControl.TableHistory.FieldCaptionForm,QuotedStr(ComboForm.Text)]);

  if ComboEvento.ItemIndex <> 0 then
    cSql := cSql + Format(' and UH.%s = %s ',[fControl.TableHistory.FieldEvent,QuotedStr(ComboEvento.Text)]);

  if ComboTabela.ItemIndex <> 0 then
    cSql := cSql + Format(' and UH.%s = %s ',[fControl.TableHistory.FieldTableName,QuotedStr(ComboTabela.Text)]);

  cSql := cSql + Format(' order by Uh.%s, Uh.%s',[fControl.TableHistory.FieldTableName,fControl.TableHistory.FieldEventDate ]) ;

  DataSetHist.Close;
  DataSetHist := nil;
  DataSetHist := fControl.UserControl.DataConnector.UCGetSQLDataset( cSql );
  DataSetHist.Open;
  DataSource1.DataSet := DataSetHist;
  BitBtn1.Enabled := False;
end;

procedure TFrmHistorico.BitBtn2Click(Sender: TObject);
var cSql : String;
begin
   if MessageBox(Handle, pChar( fControl.Historymsg.Msg_LimpHistorico ) , pChar(fControl.HistoryMsg.Msg_MensConfirma),mb_YesNo) = ID_YES then
    begin
      cSql := '';

      if ComboUser.ItemIndex <> 0 then
        cSql := cSql + Format(' %s = %d ',[fControl.TableHistory.FieldUserID , TAuxObj(ComboUser.Items.Objects[ComboUser.ItemIndex]).IdUser ]);

      if ComboForm.ItemIndex <> 0 then
        cSql := cSql + Format(' and %s = %s ',[fControl.TableHistory.FieldCaptionForm,QuotedStr(ComboForm.Text)]);

      if ComboEvento.ItemIndex <> 0 then
        cSql := cSql + Format(' and %s = %s ',[fControl.TableHistory.FieldEvent,QuotedStr(ComboEvento.Text)]);

      if ComboTabela.ItemIndex <> 0 then
        cSql := cSql + Format(' and %s = %s ',[fControl.TableHistory.FieldTableName,QuotedStr(ComboTabela.Text)]);

      If Length( trim( cSql ) ) <> 0 then
        Begin
          If UpperCase(trim(Copy( cSql , 1 , 4 ))) = 'AND' then
            Delete(cSql,1,4);
          cSql := Format('delete from %s where ',[fControl.TableHistory.TableName]) + cSql;
        End
      else
        cSql := Format('delete from %s ',[fControl.TableHistory.TableName]) + cSql;
      fControl.UserControl.DataConnector.UCExecSQL( cSql );
      DataSetHist := Nil;
      SetComBoValues;
      
      If fControl.UserControl.LogControl.Active then
        fControl.UserControl.Log( Format(  fControl.HistoryMsg.Msg_LogEmptyHistory,[ fControl.UserControl.CurrentUser.UserName, QuotedStr(FormatDateTime('YYYYMMDDhhmmss', now)) ]),3);
    end;
end;

procedure TFrmHistorico.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TFrmHistorico.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFrmHistorico.SetComBoValues;
Var Aux : TAuxObj;
Begin
  Aux := TAuxObj.Create;
  Aux.IdUser := -1;

  ComboUser.Items.Clear;
  ComboForm.Items.Clear;
  ComboEvento.Items.Clear;
  ComboTabela.Items.Clear;

  ComboUser.Items.AddObject( fControl.HistoryMsg.Hist_All , Aux );

  ComboForm.Items.Add  ( fControl.HistoryMsg.Hist_All );

  ComboEvento.Items.Add( fControl.HistoryMsg.Hist_All );
  ComboEvento.Items.Add( fControl.HistoryMsg.Evento_Insert );
  ComboEvento.Items.Add( fControl.HistoryMsg.Evento_Delete );
  ComboEvento.Items.Add( fControl.HistoryMsg.Evento_Edit );
  ComboEvento.Items.Add( fControl.HistoryMsg.Evento_NewRecord );

  ComboTabela.Items.Add( fControl.HistoryMsg.Hist_All );

  DataSetHist := fControl.UserControl.DataConnector.UCGetSQLDataset(
                 Format('Select distinct %s from %s',[
                          fControl.TableHistory.FieldTableName,
                          fControl.TableHistory.TableName]));
    while DataSetHist.Eof = False do
    Begin
      ComboTabela.Items.Add( DataSetHist.Fields[ 0 ].AsString );
      DataSetHist.Next;
    End;

   DataSetHist := nil;
   DataSetHist := fControl.UserControl.DataConnector.UCGetSQLDataset(
                 Format('Select distinct %s from %s',[
                         fControl.TableHistory.FieldCaptionForm,
                         fControl.TableHistory.TableName ]));
    while DataSetHist.Eof = False do
    Begin
      ComboForm.Items.Add( DataSetHist.Fields[ 0 ].AsString );
      DataSetHist.Next;
    End;

  DataSetHist := nil;
  DataSetHist := fControl.UserControl.DataConnector.UCGetSQLDataset(
                 Format('Select %s, %s as Usuario from %s where %s = %s order by %s',
                        [ fControl.UserControl.TableUsers.FieldUserID,
                          fControl.UserControl.TableUsers.FieldLogin ,
                          fControl.UserControl.TableUsers.TableName   ,
                          fControl.UserControl.TableUsers.FieldTypeRec,
                          QuotedStr('U') ,
                          fControl.UserControl.TableUsers.FieldLogin ]));

  If fControl.UserControl.CurrentUser.Privileged = true then
    Begin
      while DataSetHist.Eof = False do
        Begin
          Aux        := TAuxObj.Create;
          Aux.IdUser := DataSetHist.Fields[ 0 ].AsInteger;
          ComboUser.Items.AddObject( DataSetHist.Fields[ 1 ].AsString, Aux );
          DataSetHist.Next;
        End;
    End
  else
    begin
      Aux        := TAuxObj.Create;
      Aux.IdUser := fControl.UserControl.CurrentUser.UserID;
      ComboUser.Items.AddObject( fControl.UserControl.CurrentUser.UserLogin, Aux );
    end;


  ComboUser.ItemIndex := 0;
  ComboForm.ItemIndex := 0;
  ComboEvento.ItemIndex := 0;
  ComboTabela.ItemIndex := 0;


  DataSetHist := nil;
  DataSetHist := fControl.UserControl.DataConnector.UCGetSQLDataset(
                 Format('Select UH.%s as UserId, Uh.%s as Form , ' +
                        'Uh.%s as Evento , Uh.%s as Obs, Uh.%s as FormCaption, Uh.%s as EventDate, Uh.%s as EventTime, uh.%s as TableName, '+
                        'US.%s As UserName from %s UH, %s US where UH.%s = US.%s and Uh.%s = %s order by Uh.%s, uh.%s',
                        [ fControl.TableHistory.FieldUserId               ,
                          fControl.TableHistory.FieldForm                  ,
                          fControl.TableHistory.FieldEvent                 ,
                          fControl.TableHistory.FieldObs                   ,
                          fControl.TableHistory.FieldCaptionForm           ,
                          fControl.TableHistory.FieldEventDate             ,
                          fControl.TableHistory.FieldEventTime             ,
                          fControl.TableHistory.FieldTableName             ,
                          fControl.UserControl.TableUsers.FieldLogin    ,
                          fControl.TableHistory.TableName                  ,
                          fControl.UserControl.TableUsers.TableName     ,
                          fControl.TableHistory.FieldUserId                ,
                          fControl.UserControl.TableUsers.FieldUserID   ,
                          fControl.TableHistory.FieldApplicationID         ,
                          QuotedStr(fControl.UserControl.ApplicationID) ,
                          fControl.TableHistory.FieldTableName             ,
                          fControl.TableHistory.FieldEventDate ]));

  DataSource1.DataSet := DataSetHist;
end;

procedure TFrmHistorico.FormShow(Sender: TObject);
begin
  SetComBoValues;

  Self.Caption    := fControl.HistoryMsg.LabelDescricao;
  BitBtn1.Caption := fControl.HistoryMsg.Hist_BtnFiltro;
  BitBtn2.Caption := fControl.HistoryMsg.Hist_BtnExcluir;
  BitBtn3.Caption := fControl.HistoryMsg.Hist_BtnFechar;

  BitBtn2.Enabled := fControl.UserControl.CurrentUser.Privileged;


  LabelDescricao.Caption := fControl.HistoryMsg.LabelDescricao;
  LabelUser.Caption      := fControl.HistoryMsg.LabelUser;
  LabelForm.Caption      := fControl.HistoryMsg.LabelForm;
  LabelEvento.Caption    := fControl.HistoryMsg.LabelEvento;
  LabelTabela.Caption    := fControl.HistoryMsg.LabelTabela;

  DBGrid1.Columns[ 0 ].Title.Caption := fControl.HistoryMsg.LabelUser;
  DBGrid1.Columns[ 1 ].Title.Caption := fControl.HistoryMsg.LabelForm;
  DBGrid1.Columns[ 2 ].Title.Caption := fControl.HistoryMsg.LabelEvento;
  DBGrid1.Columns[ 3 ].Title.Caption := fControl.HistoryMsg.LabelDataEvento;
  DBGrid1.Columns[ 4 ].Title.Caption := fControl.HistoryMsg.LabelHoraEvento;
  DBGrid1.Columns[ 5 ].Title.Caption := fControl.HistoryMsg.LabelTabela;

  StringGrid1.Cells[0,0] := 'Campo';
  StringGrid1.Cells[1,0] := 'Original';
  StringGrid1.Cells[2,0] := 'Modificado para';
end;

procedure TFrmHistorico.ComboUserChange(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;

procedure TFrmHistorico.DataSource1DataChange(Sender: TObject;
  Field: TField);
Var List : TStringList; Aux : Integer;  S : String;
begin
  DBMemo1.Visible     := DataSource1.DataSet.FieldValues['Evento'] <> fControl.HistoryMsg.Evento_Edit;
  StringGrid1.Visible := DataSource1.DataSet.FieldValues['Evento'] = fControl.HistoryMsg.Evento_Edit;
  If StringGrid1.Visible Then
    Begin
      try
        List      := TStringList.Create;
        List.Text := DataSource1.DataSet.FieldValues['Obs'];
        StringGrid1.RowCount := List.Count + 1;
        For Aux := 0 to List.Count - 1 do
          Begin
            S := List[ Aux ];
            StringGrid1.Cells[ 0 , Aux + 1 ] := Copy(S,1,Pos('||',S)-1 );
            Delete(S,1,Pos('||',s)+1);
            StringGrid1.Cells[ 1 , Aux + 1 ] := Copy(S,1,Pos('||',S)-1 );
            Delete(S,1,Pos('||',s)+1);
            StringGrid1.Cells[ 2 , Aux + 1 ] := S;
          End;

      finally
        FreeAndNil( List );
      end;
    End;
end;

end.