WebSVN – delphiutils – Diff – /trunk/Zeiterfassung/ZeiterfassungMain.pas


unit ZeiterfassungMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, DBCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    wwDBGrid1: TwwDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable1TAG: TWideStringField;
    ADOTable1KOMMEN: TWideStringField;
    ADOTable1PAUSE_START: TWideStringField;
    ADOTable1PAUSE_ENDE: TWideStringField;
    ADOTable1GEHEN: TWideStringField;
    ADOTable1SONSTIGER_ABZUG: TWideStringField;
    ADOTable1ZUHAUSE: TWideStringField;
    ADOTable1BERSTUNDEN_SALDO: TIntegerField;
    ADOTable1BERSTUNDEN: TIntegerField;
    ADOTable1FREIER_TAG: TBooleanField;
    Panel1: TPanel;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    ADOTable1WOCHENTAG: TStringField;
    ADOTable1USERNAME: TStringField;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ADOTable1BEMERKUNG: TStringField;
    procedure ADOTable1NewRecord(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOTable1BeforePost(DataSet: TDataSet);
    procedure ADOTable1BERSTUNDEN_SALDOGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
      State: TGridDrawState; Highlight: Boolean; AFont: TFont; ABrush: TBrush);
    procedure ADOTable1AfterPost(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    procedure ADOTable1TAGChange(Sender: TField);
    procedure ADOTable1SONSTIGER_ABZUGSetText(Sender: TField;
      const Text: string);
    procedure ADOTable1ZUHAUSESetText(Sender: TField; const Text: string);
    procedure ADOTable1GEHENSetText(Sender: TField; const Text: string);
    procedure ADOTable1PAUSE_ENDESetText(Sender: TField; const Text: string);
    procedure ADOTable1PAUSE_STARTSetText(Sender: TField; const Text: string);
    procedure ADOTable1KOMMENSetText(Sender: TField; const Text: string);
    procedure FormShow(Sender: TObject);
    procedure ADOTable1WOCHENTAGGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ComboBox1Change(Sender: TObject);
    procedure ADOTable1TAGSetText(Sender: TField; const Text: string);
    procedure ADOTable1AfterDelete(DataSet: TDataSet);
    procedure ADOTable1TAGGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1KOMMENGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1PAUSE_ENDEGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1GEHENGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1SONSTIGER_ABZUGGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure ADOTable1BeforeScroll(DataSet: TDataSet);
  private
    function GueltigeZeile: boolean;
  protected
    procedure ReorgDataSet;
    procedure ReorgAll;
    function RegelArbeitszeit: integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben
// IDEE: Wochenend-Multiplikator
// TODO: "Gehen um" Anzeige
 
uses
  DateUtils, StrUtils, IniFiles;
 
{$REGION 'Hilfsfunktionen'}
 
function SQL_Escape(const s: string): string;
begin
  result := StringReplace(s, '''', '\''', [rfReplaceAll]);
end;
 
function IstLeer(f: TField): boolean;
begin
  result := f.IsNull or (f.AsString = '') or (f.AsString = '00:00:00');
end;
 
function Minuten(f: TField): integer;
begin
  if IstLeer(f) then
  begin
    result := 0;
  end
  else
  begin
    result := MinuteOfTheDay(f.AsDateTime);
  end;
end;
 
function MinutenZuHF_Int(min: integer): string;
var
  d: integer;
begin
  d := min;
  if d < 0 then
  begin
    result := '-';
    d := -d;
  end
  else
  begin
    result := '';
  end;
  result := result + Format('%.2d:%.2d', [d div 60, d mod 60]);
end;
 
function MinutenZuHF(f: TField): string;
begin
  if IstLeer(f) then
  begin
    result := '';
  end
  else
  begin
    result := MinutenZuHF_Int(f.AsInteger);
  end;
end;
 
function EchtesDatum(f: TField): TDate;
begin
  if Copy(f.AsString, 5, 1) = '-' then
  begin
    result := EncodeDate(
    StrtoInt(Copy(f.AsString, 1, 4)),
    StrtoInt(Copy(f.AsString, 6, 2)),
    StrtoInt(Copy(f.AsString, 9, 2))
    );
  end
  else
    result := StrToDate(f.AsString);
end;
 
function WUserName: String;
var
  nSize: DWord;
begin
  nSize := 1024;
  SetLength(Result, nSize);
  if GetUserName(PChar(Result), nSize) then
    SetLength(Result, nSize-1)
  else
    RaiseLastOSError;
end;
 
{$ENDREGION}
 
function TForm1.RegelArbeitszeit: integer;
var
  test: TADOQuery;
begin
  test := TADOQuery.Create(nil);
  try
    test.Connection := ADOConnection1;
    test.Close;
    test.SQL.Text := 'select MINUTEN from REGELARBEITSZEIT where USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
    test.Open;
    if test.RecordCount = 0 then
    begin
      result := 8 * 60;
    end
    else
    begin
      result := test.FieldByName('MINUTEN').AsInteger;
    end;
  finally
    test.Free;
  end;
end;
 
procedure TForm1.ReorgAll;
var
  saldo: integer;
  baks: string;
  bakEv: TDataSetNotifyEvent;
  dead: boolean;
begin
  if ADOTable1TAG.IsNull then
  begin
    baks := '';
  end
  else
  begin
    if Copy(ADOTable1TAG.AsString, 5, 1) = '-' then
      baks := ADOTable1TAG.AsString
    else
      DateTimeToString(baks, 'YYYY-MM-DD', ADOTable1TAG.AsDateTime);
  end;
  ADOTable1.Requery();
 
  bakEv := ADOTable1.AfterPost;
  ADOTable1.AfterPost := nil;
  ADOTable1.DisableControls;
  try
    ADOTable1.First;
    saldo := 0;
    dead := false;
    while not ADOTable1.Eof do
    begin
      ADOTable1.Edit;
      if not dead then ReorgDataSet;
      dead := dead or ADOTable1BERSTUNDEN.IsNull;
      if dead then
      begin
        ADOTable1BERSTUNDEN_SALDO.Clear;
      end
      else
      begin
        saldo := saldo + ADOTable1BERSTUNDEN.AsInteger;
        ADOTable1BERSTUNDEN_SALDO.AsInteger := saldo;
        saldo := ADOTable1BERSTUNDEN_SALDO.AsInteger;
      end;
      ADOTable1.Post;
      ADOTable1.Next;
    end;
  finally
    if baks <> '' then ADOTable1.Locate('USERNAME;TAG', VarArrayOf([WUserName, baks]), []);
    ADOTable1.AfterPost := bakEv;
    ADOTable1.EnableControls;
  end;
end;
 
procedure TForm1.ADOTable1AfterDelete(DataSet: TDataSet);
begin
  ReorgAll;
end;
 
procedure TForm1.ADOTable1AfterPost(DataSet: TDataSet);
begin
  ReorgAll;
end;
 
function TForm1.GueltigeZeile: boolean;
begin
  result := false;
 
  if IstLeer(ADOTable1KOMMEN) <> IstLeer(ADOTable1GEHEN) then exit;
  if IstLeer(ADOTable1PAUSE_START) <> IstLeer(ADOTable1PAUSE_ENDE) then exit;
  if not IstLeer(ADOTable1PAUSE_START) and (ADOTable1PAUSE_START.AsDateTime < ADOTable1KOMMEN.AsDateTime) then exit;
  if not IstLeer(ADOTable1PAUSE_ENDE) and (ADOTable1PAUSE_ENDE.AsDateTime < ADOTable1PAUSE_START.AsDateTime) then exit;
  if not IstLeer(ADOTable1GEHEN) and (ADOTable1GEHEN.AsDateTime < ADOTable1KOMMEN.AsDateTime) then exit;
  if not IstLeer(ADOTable1GEHEN) and not IstLeer(ADOTable1PAUSE_START) and (ADOTable1GEHEN.AsDateTime < ADOTable1PAUSE_START.AsDateTime) then exit;
  if not IstLeer(ADOTable1GEHEN) and not IstLeer(ADOTable1PAUSE_ENDE) and (ADOTable1GEHEN.AsDateTime < ADOTable1PAUSE_ENDE.AsDateTime) then exit;
 
  result := true;
end;
 
procedure TForm1.ReorgDataSet;
var
  m: integer;
begin
  if GueltigeZeile then
  begin
    m :=   (Minuten(ADOTable1GEHEN) - Minuten(ADOTable1KOMMEN))
         - (Minuten(ADOTable1PAUSE_ENDE) - Minuten(ADOTable1PAUSE_START))
         - Minuten(ADOTable1SONSTIGER_ABZUG)
         + Minuten(ADOTable1ZUHAUSE);
 
    if not ADOTable1FREIER_TAG.AsBoolean then
    begin
      m := m - RegelArbeitszeit;
    end;
 
    ADOTable1BERSTUNDEN.AsInteger := m;
  end
  else
  begin
    ADOTable1BERSTUNDEN.Clear;
  end;
end;
 
procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
  if (ADOTable1.State = dsInsert) and ADOTable1TAG.IsNull then
  begin
    AdoTable1.Cancel;
    Abort;
  end;
 
  ReorgDataSet;
end;
 
procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);
begin
  if (DataSet.State = dsInsert) and (not ADOTable1TAG.IsNull) then Dataset.Post;
end;
 
procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := MinutenZuHF(ADOTable1BERSTUNDEN);
end;
 
procedure TForm1.ADOTable1BERSTUNDEN_SALDOGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  Text := MinutenZuHF(ADOTable1BERSTUNDEN_SALDO);
end;
 
procedure TForm1.ADOTable1GEHENGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 5);
end;
 
procedure TForm1.ADOTable1GEHENSetText(Sender: TField; const Text: string);
begin
  if Text = '' then
  begin
    ADOTable1GEHEN.Clear;
  end
  else
  begin
    if Pos(':', Text) = 0 then
      ADOTable1GEHEN.AsString := Text + ':00'
    else
      ADOTable1GEHEN.AsString := Text;
  end;
end;
 
procedure TForm1.ADOTable1KOMMENGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 5);
end;
 
procedure TForm1.ADOTable1KOMMENSetText(Sender: TField; const Text: string);
begin
  if Text = '' then
  begin
    ADOTable1KOMMEN.Clear;
  end
  else
  begin
    if Pos(':', Text) = 0 then
      ADOTable1KOMMEN.AsString := Text + ':00'
    else
      ADOTable1KOMMEN.AsString := Text;
  end;
end;
 
procedure TForm1.ADOTable1NewRecord(DataSet: TDataSet);
var
  test: TADOQuery;
begin
  ADOTable1FREIER_TAG.AsBoolean := false;
  ADOTable1USERNAME.AsString := WUserName;
  test := TADOQuery.Create(nil);
  try
    test.Connection := ADOConnection1;
    test.Close;
    test.SQL.Text := 'select * from TAGE where TAG = ''' + DateToStr(Date) + ''' and USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
    test.Open;
    if test.RecordCount = 0 then
    begin
 
      ADOTable1TAG.AsDateTime := Date;
      ADOTable1KOMMEN.AsString := TimeToStr(Time);
      ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or
                                       (DayOfWeek(Date) = 7{Saturday});
    end;
  finally
    test.Free;
  end;
 
  wwDBGrid1.SelectedField := ADOTable1TAG;
end;
 
procedure TForm1.ADOTable1PAUSE_ENDEGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 5);
end;
 
procedure TForm1.ADOTable1PAUSE_ENDESetText(Sender: TField; const Text: string);
begin
  if Text = '' then
  begin
    ADOTable1PAUSE_ENDE.Clear;
  end
  else
  begin
    if Pos(':', Text) = 0 then
      ADOTable1PAUSE_ENDE.AsString := Text + ':00'
    else
      ADOTable1PAUSE_ENDE.AsString := Text;
  end;
end;
 
procedure TForm1.ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 5);
end;
 
procedure TForm1.ADOTable1PAUSE_STARTSetText(Sender: TField;
  const Text: string);
begin
  if Text = '' then
  begin
    ADOTable1PAUSE_START.Clear;
  end
  else
  begin
    if Pos(':', Text) = 0 then
      ADOTable1PAUSE_START.AsString := Text + ':00'
    else
      ADOTable1PAUSE_START.AsString := Text;
  end;
end;
 
procedure TForm1.ADOTable1SONSTIGER_ABZUGGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 5);
end;
 
procedure TForm1.ADOTable1SONSTIGER_ABZUGSetText(Sender: TField;
  const Text: string);
begin
  if Text = '' then
  begin
    ADOTable1SONSTIGER_ABZUG.Clear;
  end
  else
  begin
    if Pos(':', Text) = 0 then
      ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00'
    else
      ADOTable1SONSTIGER_ABZUG.AsString := Text;
  end;
end;
 
procedure TForm1.ADOTable1TAGChange(Sender: TField);
begin
  ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(ADOTable1TAG.AsDateTime) = 1{Sunday}) or
                                   (DayOfWeek(ADOTable1TAG.AsDateTime) = 7{Saturday});
  // TODO: "Wochentag" Feld aktualisieren
end;
 
procedure TForm1.ADOTable1TAGGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if IstLeer(Sender) then
    Text := Sender.AsString
  else
    Text := DateToStr(EchtesDatum(Sender));
end;
 
procedure TForm1.ADOTable1TAGSetText(Sender: TField; const Text: string);
var
  i, punktCount: integer;
begin
  punktCount := 0;
  for i := 1 to Length(Text) do
  begin
    if Text[i] = '.' then inc(punktCount);
  end;
 
  if punktCount = 1 then
  begin
    ADOTable1TAG.AsString := Text + '.' + IntToStr(CurrentYear);
  end
  else if (PunktCount = 2) and EndsStr('.',Text) then
  begin
    ADOTable1TAG.AsString := Text + IntToStr(CurrentYear);
  end
  else
  begin
    ADOTable1TAG.AsString := Text;
  end;
end;
 
procedure TForm1.ADOTable1WOCHENTAGGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  try
    if ADOTable1TAG.AsString <> '' then
      Text := ShortDayNames[DayOfWeek(EchtesDatum(ADOTable1TAG))]
    else
      Text := '';
  except
    Text := '??';
  end;
end;
 
procedure TForm1.ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 5);
end;
 
procedure TForm1.ADOTable1ZUHAUSESetText(Sender: TField; const Text: string);
begin
  if Text = '' then
  begin
    ADOTable1ZUHAUSE.Clear;
  end
  else
  begin
    if Pos(':', Text) = 0 then
      ADOTable1ZUHAUSE.AsString := Text + ':00'
    else
      ADOTable1ZUHAUSE.AsString := Text;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ReorgAll;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Label2.Caption := MinutenZuHF_Int(RegelArbeitszeit) + ' Std.';
 
  ADOTable1.DisableControls;
 
  ADOTable1.Active := false;
  ADOTable1.ReadOnly := false;
  ADOTable1.Filter := 'USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
  ADOTable1.Filtered := true;
  ADOTable1.Active := true;
 
  ReorgAll;
 
  ADOTable1.Active := false;
  ADOTable1.ReadOnly := ComboBox1.Text <> WUserName;
  ADOTable1.Active := true;
 
  ADOTable1.Last;
  Button1.Enabled := not ADOTable1.ReadOnly;
 
  ADOTable1.EnableControls;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ADOTable1.State in [dsEdit, dsInsert] then
  begin
    try
      ADOTable1.Post;
    except
      on E: EAbort do
      begin
        exit;
      end;
    end;
  end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  test: TADOQuery;
  ini: TMemIniFile;
resourcestring
  DefaultConnectionString = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Zeiterfassung;' +
                            'Data Source=SHS\FiVe,49007;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MARSCHALL;Use Encryption for Data=False;Tag with column collation when possible=False;';
begin
  ini := TMemIniFile.Create(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini'));
  try
    ADOConnection1.ConnectionString := ini.ReadString('Connection', 'ConnectionString', DefaultConnectionString);
  finally
    ini.Free;
  end;
  ADOConnection1.Connected := true;
 
  {$REGION 'Username Combobox füllen'}
  test := TADOQuery.Create(nil);
  try
    test.Connection := ADOConnection1;
    test.Close;
    test.SQL.Text := 'select distinct USERNAME from TAGE';
    test.Open;
    ComboBox1.Items.Clear;
    while not test.EOF do
    begin
      ComboBox1.Items.Add(test.FieldByName('USERNAME').AsString);
      test.Next;
    end;
  finally
    test.Free;
  end;
 
  if ComboBox1.Items.IndexOf(WUserName) = -1 then
    ComboBox1.Items.Add(WUserName);
 
  ComboBox1.Sorted := true;
 
  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(WUserName);
 
  ComboBox1Change(ComboBox1);
  {$ENDREGION}
 
  if wwDBGrid1.CanFocus then wwDBGrid1.SetFocus;
  wwDBGrid1.SelectedField := ADOTable1TAG;
end;
 
procedure TForm1.wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
  State: TGridDrawState; Highlight: Boolean; AFont: TFont; ABrush: TBrush);
begin
  if Highlight then exit;
 
  if (Field.FieldName = ADOTable1WOCHENTAG.FieldName) or
     (Field.FieldName = ADOTable1BERSTUNDEN.FieldName) or
     (Field.FieldName = ADOTable1BERSTUNDEN_SALDO.FieldName) then
  begin
    ABrush.Color := clBtnFace;
  end;
 
  if (Field.FieldName = ADOTable1BERSTUNDEN.FieldName) then
  begin
    if ADOTable1BERSTUNDEN.AsInteger < 0 then
    begin
      AFont.Color := clRed;
    end;
  end;
 
  if (Field.FieldName = ADOTable1BERSTUNDEN_SALDO.FieldName) then
  begin
    if ADOTable1BERSTUNDEN_SALDO.AsInteger < 0 then
    begin
      AFont.Color := clRed;
    end;
  end;
end;
 
end.
 

Rev 81	Rev 83
1	unit ZeiterfassungMain;	1	unit ZeiterfassungMain;
2		2
3	interface	3	interface
4		4
5	uses	5	uses
6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,	6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	Dialogs, DB, ADODB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, DBCtrls, StdCtrls;	7	Dialogs, DB, ADODB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls, DBCtrls, StdCtrls;
8		8
9	type	9	type
10	TForm1 = class(TForm)	10	TForm1 = class(TForm)
11	ADOConnection1: TADOConnection;	11	ADOConnection1: TADOConnection;
12	wwDBGrid1: TwwDBGrid;	12	wwDBGrid1: TwwDBGrid;
13	ADOTable1: TADOTable;	13	ADOTable1: TADOTable;
14	DataSource1: TDataSource;	14	DataSource1: TDataSource;
15	ADOTable1TAG: TWideStringField;	15	ADOTable1TAG: TWideStringField;
16	ADOTable1KOMMEN: TWideStringField;	16	ADOTable1KOMMEN: TWideStringField;
17	ADOTable1PAUSE_START: TWideStringField;	17	ADOTable1PAUSE_START: TWideStringField;
18	ADOTable1PAUSE_ENDE: TWideStringField;	18	ADOTable1PAUSE_ENDE: TWideStringField;
19	ADOTable1GEHEN: TWideStringField;	19	ADOTable1GEHEN: TWideStringField;
20	ADOTable1SONSTIGER_ABZUG: TWideStringField;	20	ADOTable1SONSTIGER_ABZUG: TWideStringField;
21	ADOTable1ZUHAUSE: TWideStringField;	21	ADOTable1ZUHAUSE: TWideStringField;
22	ADOTable1BERSTUNDEN_SALDO: TIntegerField;	22	ADOTable1BERSTUNDEN_SALDO: TIntegerField;
23	ADOTable1BERSTUNDEN: TIntegerField;	23	ADOTable1BERSTUNDEN: TIntegerField;
24	ADOTable1FREIER_TAG: TBooleanField;	24	ADOTable1FREIER_TAG: TBooleanField;
25	Panel1: TPanel;	25	Panel1: TPanel;
26	Button1: TButton;	26	Button1: TButton;
27	DBNavigator1: TDBNavigator;	27	DBNavigator1: TDBNavigator;
28	ADOTable1WOCHENTAG: TStringField;	28	ADOTable1WOCHENTAG: TStringField;
29	ADOTable1USERNAME: TStringField;	29	ADOTable1USERNAME: TStringField;
30	ComboBox1: TComboBox;	30	ComboBox1: TComboBox;
31	Label1: TLabel;	31	Label1: TLabel;
32	Label2: TLabel;	32	Label2: TLabel;
33	ADOTable1BEMERKUNG: TStringField;	33	ADOTable1BEMERKUNG: TStringField;
34	procedure ADOTable1NewRecord(DataSet: TDataSet);	34	procedure ADOTable1NewRecord(DataSet: TDataSet);
35	procedure FormClose(Sender: TObject; var Action: TCloseAction);	35	procedure FormClose(Sender: TObject; var Action: TCloseAction);
36	procedure ADOTable1BeforePost(DataSet: TDataSet);	36	procedure ADOTable1BeforePost(DataSet: TDataSet);
37	procedure ADOTable1BERSTUNDEN_SALDOGetText(Sender: TField; var Text: string;	37	procedure ADOTable1BERSTUNDEN_SALDOGetText(Sender: TField; var Text: string;
38	DisplayText: Boolean);	38	DisplayText: Boolean);
39	procedure ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;	39	procedure ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
40	DisplayText: Boolean);	40	DisplayText: Boolean);
41	procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;	41	procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
42	State: TGridDrawState; Highlight: Boolean; AFont: TFont; ABrush: TBrush);	42	State: TGridDrawState; Highlight: Boolean; AFont: TFont; ABrush: TBrush);
43	procedure ADOTable1AfterPost(DataSet: TDataSet);	43	procedure ADOTable1AfterPost(DataSet: TDataSet);
44	procedure Button1Click(Sender: TObject);	44	procedure Button1Click(Sender: TObject);
45	procedure ADOTable1TAGChange(Sender: TField);	45	procedure ADOTable1TAGChange(Sender: TField);
46	procedure ADOTable1SONSTIGER_ABZUGSetText(Sender: TField;	46	procedure ADOTable1SONSTIGER_ABZUGSetText(Sender: TField;
47	const Text: string);	47	const Text: string);
48	procedure ADOTable1ZUHAUSESetText(Sender: TField; const Text: string);	48	procedure ADOTable1ZUHAUSESetText(Sender: TField; const Text: string);
49	procedure ADOTable1GEHENSetText(Sender: TField; const Text: string);	49	procedure ADOTable1GEHENSetText(Sender: TField; const Text: string);
50	procedure ADOTable1PAUSE_ENDESetText(Sender: TField; const Text: string);	50	procedure ADOTable1PAUSE_ENDESetText(Sender: TField; const Text: string);
51	procedure ADOTable1PAUSE_STARTSetText(Sender: TField; const Text: string);	51	procedure ADOTable1PAUSE_STARTSetText(Sender: TField; const Text: string);
52	procedure ADOTable1KOMMENSetText(Sender: TField; const Text: string);	52	procedure ADOTable1KOMMENSetText(Sender: TField; const Text: string);
53	procedure FormShow(Sender: TObject);	53	procedure FormShow(Sender: TObject);
54	procedure ADOTable1WOCHENTAGGetText(Sender: TField; var Text: string;	54	procedure ADOTable1WOCHENTAGGetText(Sender: TField; var Text: string;
55	DisplayText: Boolean);	55	DisplayText: Boolean);
56	procedure ComboBox1Change(Sender: TObject);	56	procedure ComboBox1Change(Sender: TObject);
57	procedure ADOTable1TAGSetText(Sender: TField; const Text: string);	57	procedure ADOTable1TAGSetText(Sender: TField; const Text: string);
58	procedure ADOTable1AfterDelete(DataSet: TDataSet);	58	procedure ADOTable1AfterDelete(DataSet: TDataSet);
59	procedure ADOTable1TAGGetText(Sender: TField; var Text: string;	59	procedure ADOTable1TAGGetText(Sender: TField; var Text: string;
60	DisplayText: Boolean);	60	DisplayText: Boolean);
61	procedure ADOTable1KOMMENGetText(Sender: TField; var Text: string;	61	procedure ADOTable1KOMMENGetText(Sender: TField; var Text: string;
62	DisplayText: Boolean);	62	DisplayText: Boolean);
63	procedure ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;	63	procedure ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;
64	DisplayText: Boolean);	64	DisplayText: Boolean);
65	procedure ADOTable1PAUSE_ENDEGetText(Sender: TField; var Text: string;	65	procedure ADOTable1PAUSE_ENDEGetText(Sender: TField; var Text: string;
66	DisplayText: Boolean);	66	DisplayText: Boolean);
67	procedure ADOTable1GEHENGetText(Sender: TField; var Text: string;	67	procedure ADOTable1GEHENGetText(Sender: TField; var Text: string;
68	DisplayText: Boolean);	68	DisplayText: Boolean);
69	procedure ADOTable1SONSTIGER_ABZUGGetText(Sender: TField; var Text: string;	69	procedure ADOTable1SONSTIGER_ABZUGGetText(Sender: TField; var Text: string;
70	DisplayText: Boolean);	70	DisplayText: Boolean);
71	procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;	71	procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;
72	DisplayText: Boolean);	72	DisplayText: Boolean);
73	procedure ADOTable1BeforeScroll(DataSet: TDataSet);	73	procedure ADOTable1BeforeScroll(DataSet: TDataSet);
74	private	74	private
75	function GueltigeZeile: boolean;	75	function GueltigeZeile: boolean;
76	protected	76	protected
77	procedure ReorgDataSet;	77	procedure ReorgDataSet;
78	procedure ReorgAll;	78	procedure ReorgAll;
79	function RegelArbeitszeit: integer;	79	function RegelArbeitszeit: integer;
80	end;	80	end;
81		81
82	var	82	var
83	Form1: TForm1;	83	Form1: TForm1;
84		84
85	implementation	85	implementation
86		86
87	{$R *.dfm}	87	{$R *.dfm}
88		88
89	// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben	89	// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben
90	// IDEE: Wochenend-Multiplikator	90	// IDEE: Wochenend-Multiplikator
91	// IDEE: Manche Tage nicht mitrechnen	91	// TODO: "Gehen um" Anzeige
92		92
93	uses	93	uses
94	DateUtils, StrUtils, IniFiles;	94	DateUtils, StrUtils, IniFiles;
95		95
96	{$REGION 'Hilfsfunktionen'}	96	{$REGION 'Hilfsfunktionen'}
97		97
98	function SQL_Escape(const s: string): string;	98	function SQL_Escape(const s: string): string;
99	begin	99	begin
100	result := StringReplace(s, '''', '\''', [rfReplaceAll]);	100	result := StringReplace(s, '''', '\''', [rfReplaceAll]);
101	end;	101	end;
102		102
103	function IstLeer(f: TField): boolean;	103	function IstLeer(f: TField): boolean;
104	begin	104	begin
105	result := f.IsNull or (f.AsString = '') or (f.AsString = '00:00:00');	105	result := f.IsNull or (f.AsString = '') or (f.AsString = '00:00:00');
106	end;	106	end;
107		107
108	function Minuten(f: TField): integer;	108	function Minuten(f: TField): integer;
109	begin	109	begin
110	if IstLeer(f) then	110	if IstLeer(f) then
111	begin	111	begin
112	result := 0;	112	result := 0;
113	end	113	end
114	else	114	else
115	begin	115	begin
116	result := MinuteOfTheDay(f.AsDateTime);	116	result := MinuteOfTheDay(f.AsDateTime);
117	end;	117	end;
118	end;	118	end;
119		119
120	function MinutenZuHF_Int(min: integer): string;	120	function MinutenZuHF_Int(min: integer): string;
121	var	121	var
122	d: integer;	122	d: integer;
123	begin	123	begin
124	d := min;	124	d := min;
125	if d < 0 then	125	if d < 0 then
126	begin	126	begin
127	result := '-';	127	result := '-';
128	d := -d;	128	d := -d;
129	end	129	end
130	else	130	else
131	begin	131	begin
132	result := '';	132	result := '';
133	end;	133	end;
134	result := result + Format('%.2d:%.2d', [d div 60, d mod 60]);	134	result := result + Format('%.2d:%.2d', [d div 60, d mod 60]);
135	end;	135	end;
136		136
137	function MinutenZuHF(f: TField): string;	137	function MinutenZuHF(f: TField): string;
138	begin	138	begin
139	if IstLeer(f) then	139	if IstLeer(f) then
140	begin	140	begin
141	result := '';	141	result := '';
142	end	142	end
143	else	143	else
144	begin	144	begin
145	result := MinutenZuHF_Int(f.AsInteger);	145	result := MinutenZuHF_Int(f.AsInteger);
146	end;	146	end;
147	end;	147	end;
148		148
149	function EchtesDatum(f: TField): TDate;	149	function EchtesDatum(f: TField): TDate;
150	begin	150	begin
151	if Copy(f.AsString, 5, 1) = '-' then	151	if Copy(f.AsString, 5, 1) = '-' then
152	begin	152	begin
153	result := EncodeDate(	153	result := EncodeDate(
154	StrtoInt(Copy(f.AsString, 1, 4)),	154	StrtoInt(Copy(f.AsString, 1, 4)),
155	StrtoInt(Copy(f.AsString, 6, 2)),	155	StrtoInt(Copy(f.AsString, 6, 2)),
156	StrtoInt(Copy(f.AsString, 9, 2))	156	StrtoInt(Copy(f.AsString, 9, 2))
157	);	157	);
158	end	158	end
159	else	159	else
160	result := StrToDate(f.AsString);	160	result := StrToDate(f.AsString);
161	end;	161	end;
162		162
163	function WUserName: String;	163	function WUserName: String;
164	var	164	var
165	nSize: DWord;	165	nSize: DWord;
166	begin	166	begin
167	nSize := 1024;	167	nSize := 1024;
168	SetLength(Result, nSize);	168	SetLength(Result, nSize);
169	if GetUserName(PChar(Result), nSize) then	169	if GetUserName(PChar(Result), nSize) then
170	SetLength(Result, nSize-1)	170	SetLength(Result, nSize-1)
171	else	171	else
172	RaiseLastOSError;	172	RaiseLastOSError;
173	end;	173	end;
174		174
175	{$ENDREGION}	175	{$ENDREGION}
176		176
177	function TForm1.RegelArbeitszeit: integer;	177	function TForm1.RegelArbeitszeit: integer;
178	var	178	var
179	test: TADOQuery;	179	test: TADOQuery;
180	begin	180	begin
181	test := TADOQuery.Create(nil);	181	test := TADOQuery.Create(nil);
182	try	182	try
183	test.Connection := ADOConnection1;	183	test.Connection := ADOConnection1;
184	test.Close;	184	test.Close;
185	test.SQL.Text := 'select MINUTEN from REGELARBEITSZEIT where USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';	185	test.SQL.Text := 'select MINUTEN from REGELARBEITSZEIT where USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
186	test.Open;	186	test.Open;
187	if test.RecordCount = 0 then	187	if test.RecordCount = 0 then
188	begin	188	begin
189	result := 8 * 60;	189	result := 8 * 60;
190	end	190	end
191	else	191	else
192	begin	192	begin
193	result := test.FieldByName('MINUTEN').AsInteger;	193	result := test.FieldByName('MINUTEN').AsInteger;
194	end;	194	end;
195	finally	195	finally
196	test.Free;	196	test.Free;
197	end;	197	end;
198	end;	198	end;
199		199
200	procedure TForm1.ReorgAll;	200	procedure TForm1.ReorgAll;
201	var	201	var
202	saldo: integer;	202	saldo: integer;
203	baks: string;	203	baks: string;
204	bakEv: TDataSetNotifyEvent;	204	bakEv: TDataSetNotifyEvent;
205	dead: boolean;	205	dead: boolean;
206	begin	206	begin
207	if ADOTable1TAG.IsNull then	207	if ADOTable1TAG.IsNull then
208	begin	208	begin
209	baks := '';	209	baks := '';
210	end	210	end
211	else	211	else
212	begin	212	begin
213	if Copy(ADOTable1TAG.AsString, 5, 1) = '-' then	213	if Copy(ADOTable1TAG.AsString, 5, 1) = '-' then
214	baks := ADOTable1TAG.AsString	214	baks := ADOTable1TAG.AsString
215	else	215	else
216	DateTimeToString(baks, 'YYYY-MM-DD', ADOTable1TAG.AsDateTime);	216	DateTimeToString(baks, 'YYYY-MM-DD', ADOTable1TAG.AsDateTime);
217	end;	217	end;
218	ADOTable1.Requery();	218	ADOTable1.Requery();
219		219
220	bakEv := ADOTable1.AfterPost;	220	bakEv := ADOTable1.AfterPost;
221	ADOTable1.AfterPost := nil;	221	ADOTable1.AfterPost := nil;
222	ADOTable1.DisableControls;	222	ADOTable1.DisableControls;
223	try	223	try
224	ADOTable1.First;	224	ADOTable1.First;
225	saldo := 0;	225	saldo := 0;
226	dead := false;	226	dead := false;
227	while not ADOTable1.Eof do	227	while not ADOTable1.Eof do
228	begin	228	begin
229	ADOTable1.Edit;	229	ADOTable1.Edit;
230	if not dead then ReorgDataSet;	230	if not dead then ReorgDataSet;
231	dead := dead or ADOTable1BERSTUNDEN.IsNull;	231	dead := dead or ADOTable1BERSTUNDEN.IsNull;
232	if dead then	232	if dead then
233	begin	233	begin
234	ADOTable1BERSTUNDEN_SALDO.Clear;	234	ADOTable1BERSTUNDEN_SALDO.Clear;
235	end	235	end
236	else	236	else
237	begin	237	begin
238	saldo := saldo + ADOTable1BERSTUNDEN.AsInteger;	238	saldo := saldo + ADOTable1BERSTUNDEN.AsInteger;
239	ADOTable1BERSTUNDEN_SALDO.AsInteger := saldo;	239	ADOTable1BERSTUNDEN_SALDO.AsInteger := saldo;
240	saldo := ADOTable1BERSTUNDEN_SALDO.AsInteger;	240	saldo := ADOTable1BERSTUNDEN_SALDO.AsInteger;
241	end;	241	end;
242	ADOTable1.Post;	242	ADOTable1.Post;
243	ADOTable1.Next;	243	ADOTable1.Next;
244	end;	244	end;
245	finally	245	finally
246	if baks <> '' then ADOTable1.Locate('USERNAME;TAG', VarArrayOf([WUserName, baks]), []);	246	if baks <> '' then ADOTable1.Locate('USERNAME;TAG', VarArrayOf([WUserName, baks]), []);
247	ADOTable1.AfterPost := bakEv;	247	ADOTable1.AfterPost := bakEv;
248	ADOTable1.EnableControls;	248	ADOTable1.EnableControls;
249	end;	249	end;
250	end;	250	end;
251		251
252	procedure TForm1.ADOTable1AfterDelete(DataSet: TDataSet);	252	procedure TForm1.ADOTable1AfterDelete(DataSet: TDataSet);
253	begin	253	begin
254	ReorgAll;	254	ReorgAll;
255	end;	255	end;
256		256
257	procedure TForm1.ADOTable1AfterPost(DataSet: TDataSet);	257	procedure TForm1.ADOTable1AfterPost(DataSet: TDataSet);
258	begin	258	begin
259	ReorgAll;	259	ReorgAll;
260	end;	260	end;
261		261
262	function TForm1.GueltigeZeile: boolean;	262	function TForm1.GueltigeZeile: boolean;
263	begin	263	begin
264	result := false;	264	result := false;
265		265
266	if IstLeer(ADOTable1KOMMEN) <> IstLeer(ADOTable1GEHEN) then exit;	266	if IstLeer(ADOTable1KOMMEN) <> IstLeer(ADOTable1GEHEN) then exit;
267	if IstLeer(ADOTable1PAUSE_START) <> IstLeer(ADOTable1PAUSE_ENDE) then exit;	267	if IstLeer(ADOTable1PAUSE_START) <> IstLeer(ADOTable1PAUSE_ENDE) then exit;
268	if not IstLeer(ADOTable1PAUSE_START) and (ADOTable1PAUSE_START.AsDateTime < ADOTable1KOMMEN.AsDateTime) then exit;	268	if not IstLeer(ADOTable1PAUSE_START) and (ADOTable1PAUSE_START.AsDateTime < ADOTable1KOMMEN.AsDateTime) then exit;
269	if not IstLeer(ADOTable1PAUSE_ENDE) and (ADOTable1PAUSE_ENDE.AsDateTime < ADOTable1PAUSE_START.AsDateTime) then exit;	269	if not IstLeer(ADOTable1PAUSE_ENDE) and (ADOTable1PAUSE_ENDE.AsDateTime < ADOTable1PAUSE_START.AsDateTime) then exit;
270	if not IstLeer(ADOTable1GEHEN) and (ADOTable1GEHEN.AsDateTime < ADOTable1KOMMEN.AsDateTime) then exit;	270	if not IstLeer(ADOTable1GEHEN) and (ADOTable1GEHEN.AsDateTime < ADOTable1KOMMEN.AsDateTime) then exit;
271	if not IstLeer(ADOTable1GEHEN) and not IstLeer(ADOTable1PAUSE_START) and (ADOTable1GEHEN.AsDateTime < ADOTable1PAUSE_START.AsDateTime) then exit;	271	if not IstLeer(ADOTable1GEHEN) and not IstLeer(ADOTable1PAUSE_START) and (ADOTable1GEHEN.AsDateTime < ADOTable1PAUSE_START.AsDateTime) then exit;
272	if not IstLeer(ADOTable1GEHEN) and not IstLeer(ADOTable1PAUSE_ENDE) and (ADOTable1GEHEN.AsDateTime < ADOTable1PAUSE_ENDE.AsDateTime) then exit;	272	if not IstLeer(ADOTable1GEHEN) and not IstLeer(ADOTable1PAUSE_ENDE) and (ADOTable1GEHEN.AsDateTime < ADOTable1PAUSE_ENDE.AsDateTime) then exit;
273		273
274	result := true;	274	result := true;
275	end;	275	end;
276		276
277	procedure TForm1.ReorgDataSet;	277	procedure TForm1.ReorgDataSet;
278	var	278	var
279	m: integer;	279	m: integer;
280	begin	280	begin
281	if GueltigeZeile then	281	if GueltigeZeile then
282	begin	282	begin
283	m := (Minuten(ADOTable1GEHEN) - Minuten(ADOTable1KOMMEN))	283	m := (Minuten(ADOTable1GEHEN) - Minuten(ADOTable1KOMMEN))
284	- (Minuten(ADOTable1PAUSE_ENDE) - Minuten(ADOTable1PAUSE_START))	284	- (Minuten(ADOTable1PAUSE_ENDE) - Minuten(ADOTable1PAUSE_START))
285	- Minuten(ADOTable1SONSTIGER_ABZUG)	285	- Minuten(ADOTable1SONSTIGER_ABZUG)
286	+ Minuten(ADOTable1ZUHAUSE);	286	+ Minuten(ADOTable1ZUHAUSE);
287		287
288	if not ADOTable1FREIER_TAG.AsBoolean then	288	if not ADOTable1FREIER_TAG.AsBoolean then
289	begin	289	begin
290	m := m - RegelArbeitszeit;	290	m := m - RegelArbeitszeit;
291	end;	291	end;
292		292
293	ADOTable1BERSTUNDEN.AsInteger := m;	293	ADOTable1BERSTUNDEN.AsInteger := m;
294	end	294	end
295	else	295	else
296	begin	296	begin
297	ADOTable1BERSTUNDEN.Clear;	297	ADOTable1BERSTUNDEN.Clear;
298	end;	298	end;
299	end;	299	end;
300		300
301	procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);	301	procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
302	begin	302	begin
303	if (ADOTable1.State = dsInsert) and ADOTable1TAG.IsNull then	303	if (ADOTable1.State = dsInsert) and ADOTable1TAG.IsNull then
304	begin	304	begin
305	AdoTable1.Cancel;	305	AdoTable1.Cancel;
306	Abort;	306	Abort;
307	end;	307	end;
308		308
309	ReorgDataSet;	309	ReorgDataSet;
310	end;	310	end;
311		311
312	procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);	312	procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);
313	begin	313	begin
314	if (DataSet.State = dsInsert) and (not ADOTable1TAG.IsNull) then Dataset.Post;	314	if (DataSet.State = dsInsert) and (not ADOTable1TAG.IsNull) then Dataset.Post;
315	end;	315	end;
316		316
317	procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;	317	procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
318	DisplayText: Boolean);	318	DisplayText: Boolean);
319	begin	319	begin
320	Text := MinutenZuHF(ADOTable1BERSTUNDEN);	320	Text := MinutenZuHF(ADOTable1BERSTUNDEN);
321	end;	321	end;
322		322
323	procedure TForm1.ADOTable1BERSTUNDEN_SALDOGetText(Sender: TField;	323	procedure TForm1.ADOTable1BERSTUNDEN_SALDOGetText(Sender: TField;
324	var Text: string; DisplayText: Boolean);	324	var Text: string; DisplayText: Boolean);
325	begin	325	begin
326	Text := MinutenZuHF(ADOTable1BERSTUNDEN_SALDO);	326	Text := MinutenZuHF(ADOTable1BERSTUNDEN_SALDO);
327	end;	327	end;
328		328
329	procedure TForm1.ADOTable1GEHENGetText(Sender: TField; var Text: string;	329	procedure TForm1.ADOTable1GEHENGetText(Sender: TField; var Text: string;
330	DisplayText: Boolean);	330	DisplayText: Boolean);
331	begin	331	begin
332	Text := Copy(Sender.AsString, 1, 5);	332	Text := Copy(Sender.AsString, 1, 5);
333	end;	333	end;
334		334
335	procedure TForm1.ADOTable1GEHENSetText(Sender: TField; const Text: string);	335	procedure TForm1.ADOTable1GEHENSetText(Sender: TField; const Text: string);
336	begin	336	begin
337	if Text = '' then	337	if Text = '' then
338	begin	338	begin
339	ADOTable1GEHEN.Clear;	339	ADOTable1GEHEN.Clear;
340	end	340	end
341	else	341	else
342	begin	342	begin
343	if Pos(':', Text) = 0 then	343	if Pos(':', Text) = 0 then
344	ADOTable1GEHEN.AsString := Text + ':00'	344	ADOTable1GEHEN.AsString := Text + ':00'
345	else	345	else
346	ADOTable1GEHEN.AsString := Text;	346	ADOTable1GEHEN.AsString := Text;
347	end;	347	end;
348	end;	348	end;
349		349
350	procedure TForm1.ADOTable1KOMMENGetText(Sender: TField; var Text: string;	350	procedure TForm1.ADOTable1KOMMENGetText(Sender: TField; var Text: string;
351	DisplayText: Boolean);	351	DisplayText: Boolean);
352	begin	352	begin
353	Text := Copy(Sender.AsString, 1, 5);	353	Text := Copy(Sender.AsString, 1, 5);
354	end;	354	end;
355		355
356	procedure TForm1.ADOTable1KOMMENSetText(Sender: TField; const Text: string);	356	procedure TForm1.ADOTable1KOMMENSetText(Sender: TField; const Text: string);
357	begin	357	begin
358	if Text = '' then	358	if Text = '' then
359	begin	359	begin
360	ADOTable1KOMMEN.Clear;	360	ADOTable1KOMMEN.Clear;
361	end	361	end
362	else	362	else
363	begin	363	begin
364	if Pos(':', Text) = 0 then	364	if Pos(':', Text) = 0 then
365	ADOTable1KOMMEN.AsString := Text + ':00'	365	ADOTable1KOMMEN.AsString := Text + ':00'
366	else	366	else
367	ADOTable1KOMMEN.AsString := Text;	367	ADOTable1KOMMEN.AsString := Text;
368	end;	368	end;
369	end;	369	end;
370		370
371	procedure TForm1.ADOTable1NewRecord(DataSet: TDataSet);	371	procedure TForm1.ADOTable1NewRecord(DataSet: TDataSet);
372	var	372	var
373	test: TADOQuery;	373	test: TADOQuery;
374	begin	374	begin
375	ADOTable1FREIER_TAG.AsBoolean := false;	375	ADOTable1FREIER_TAG.AsBoolean := false;
376	ADOTable1USERNAME.AsString := WUserName;	376	ADOTable1USERNAME.AsString := WUserName;
377	test := TADOQuery.Create(nil);	377	test := TADOQuery.Create(nil);
378	try	378	try
379	test.Connection := ADOConnection1;	379	test.Connection := ADOConnection1;
380	test.Close;	380	test.Close;
381	test.SQL.Text := 'select * from TAGE where TAG = ''' + DateToStr(Date) + ''' and USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';	381	test.SQL.Text := 'select * from TAGE where TAG = ''' + DateToStr(Date) + ''' and USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
382	test.Open;	382	test.Open;
383	if test.RecordCount = 0 then	383	if test.RecordCount = 0 then
384	begin	384	begin
385		385
386	ADOTable1TAG.AsDateTime := Date;	386	ADOTable1TAG.AsDateTime := Date;
387	ADOTable1KOMMEN.AsString := TimeToStr(Time);	387	ADOTable1KOMMEN.AsString := TimeToStr(Time);
388	ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or	388	ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or
389	(DayOfWeek(Date) = 7{Saturday});	389	(DayOfWeek(Date) = 7{Saturday});
390	end;	390	end;
391	finally	391	finally
392	test.Free;	392	test.Free;
393	end;	393	end;
394		394
395	wwDBGrid1.SelectedField := ADOTable1TAG;	395	wwDBGrid1.SelectedField := ADOTable1TAG;
396	end;	396	end;
397		397
398	procedure TForm1.ADOTable1PAUSE_ENDEGetText(Sender: TField; var Text: string;	398	procedure TForm1.ADOTable1PAUSE_ENDEGetText(Sender: TField; var Text: string;
399	DisplayText: Boolean);	399	DisplayText: Boolean);
400	begin	400	begin
401	Text := Copy(Sender.AsString, 1, 5);	401	Text := Copy(Sender.AsString, 1, 5);
402	end;	402	end;
403		403
404	procedure TForm1.ADOTable1PAUSE_ENDESetText(Sender: TField; const Text: string);	404	procedure TForm1.ADOTable1PAUSE_ENDESetText(Sender: TField; const Text: string);
405	begin	405	begin
406	if Text = '' then	406	if Text = '' then
407	begin	407	begin
408	ADOTable1PAUSE_ENDE.Clear;	408	ADOTable1PAUSE_ENDE.Clear;
409	end	409	end
410	else	410	else
411	begin	411	begin
412	if Pos(':', Text) = 0 then	412	if Pos(':', Text) = 0 then
413	ADOTable1PAUSE_ENDE.AsString := Text + ':00'	413	ADOTable1PAUSE_ENDE.AsString := Text + ':00'
414	else	414	else
415	ADOTable1PAUSE_ENDE.AsString := Text;	415	ADOTable1PAUSE_ENDE.AsString := Text;
416	end;	416	end;
417	end;	417	end;
418		418
419	procedure TForm1.ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;	419	procedure TForm1.ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;
420	DisplayText: Boolean);	420	DisplayText: Boolean);
421	begin	421	begin
422	Text := Copy(Sender.AsString, 1, 5);	422	Text := Copy(Sender.AsString, 1, 5);
423	end;	423	end;
424		424
425	procedure TForm1.ADOTable1PAUSE_STARTSetText(Sender: TField;	425	procedure TForm1.ADOTable1PAUSE_STARTSetText(Sender: TField;
426	const Text: string);	426	const Text: string);
427	begin	427	begin
428	if Text = '' then	428	if Text = '' then
429	begin	429	begin
430	ADOTable1PAUSE_START.Clear;	430	ADOTable1PAUSE_START.Clear;
431	end	431	end
432	else	432	else
433	begin	433	begin
434	if Pos(':', Text) = 0 then	434	if Pos(':', Text) = 0 then
435	ADOTable1PAUSE_START.AsString := Text + ':00'	435	ADOTable1PAUSE_START.AsString := Text + ':00'
436	else	436	else
437	ADOTable1PAUSE_START.AsString := Text;	437	ADOTable1PAUSE_START.AsString := Text;
438	end;	438	end;
439	end;	439	end;
440		440
441	procedure TForm1.ADOTable1SONSTIGER_ABZUGGetText(Sender: TField;	441	procedure TForm1.ADOTable1SONSTIGER_ABZUGGetText(Sender: TField;
442	var Text: string; DisplayText: Boolean);	442	var Text: string; DisplayText: Boolean);
443	begin	443	begin
444	Text := Copy(Sender.AsString, 1, 5);	444	Text := Copy(Sender.AsString, 1, 5);
445	end;	445	end;
446		446
447	procedure TForm1.ADOTable1SONSTIGER_ABZUGSetText(Sender: TField;	447	procedure TForm1.ADOTable1SONSTIGER_ABZUGSetText(Sender: TField;
448	const Text: string);	448	const Text: string);
449	begin	449	begin
450	if Text = '' then	450	if Text = '' then
451	begin	451	begin
452	ADOTable1SONSTIGER_ABZUG.Clear;	452	ADOTable1SONSTIGER_ABZUG.Clear;
453	end	453	end
454	else	454	else
455	begin	455	begin
456	if Pos(':', Text) = 0 then	456	if Pos(':', Text) = 0 then
457	ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00'	457	ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00'
458	else	458	else
459	ADOTable1SONSTIGER_ABZUG.AsString := Text;	459	ADOTable1SONSTIGER_ABZUG.AsString := Text;
460	end;	460	end;
461	end;	461	end;
462		462
463	procedure TForm1.ADOTable1TAGChange(Sender: TField);	463	procedure TForm1.ADOTable1TAGChange(Sender: TField);
464	begin	464	begin
465	ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(ADOTable1TAG.AsDateTime) = 1{Sunday}) or	465	ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(ADOTable1TAG.AsDateTime) = 1{Sunday}) or
466	(DayOfWeek(ADOTable1TAG.AsDateTime) = 7{Saturday});	466	(DayOfWeek(ADOTable1TAG.AsDateTime) = 7{Saturday});
467	// TODO: "Wochentag" Feld aktualisieren	467	// TODO: "Wochentag" Feld aktualisieren
468	end;	468	end;
469		469
470	procedure TForm1.ADOTable1TAGGetText(Sender: TField; var Text: string;	470	procedure TForm1.ADOTable1TAGGetText(Sender: TField; var Text: string;
471	DisplayText: Boolean);	471	DisplayText: Boolean);
472	begin	472	begin
473	if IstLeer(Sender) then	473	if IstLeer(Sender) then
474	Text := Sender.AsString	474	Text := Sender.AsString
475	else	475	else
476	Text := DateToStr(EchtesDatum(Sender));	476	Text := DateToStr(EchtesDatum(Sender));
477	end;	477	end;
478		478
479	procedure TForm1.ADOTable1TAGSetText(Sender: TField; const Text: string);	479	procedure TForm1.ADOTable1TAGSetText(Sender: TField; const Text: string);
480	var	480	var
481	i, punktCount: integer;	481	i, punktCount: integer;
482	begin	482	begin
483	punktCount := 0;	483	punktCount := 0;
484	for i := 1 to Length(Text) do	484	for i := 1 to Length(Text) do
485	begin	485	begin
486	if Text[i] = '.' then inc(punktCount);	486	if Text[i] = '.' then inc(punktCount);
487	end;	487	end;
488		488
489	if punktCount = 1 then	489	if punktCount = 1 then
490	begin	490	begin
491	ADOTable1TAG.AsString := Text + '.' + IntToStr(CurrentYear);	491	ADOTable1TAG.AsString := Text + '.' + IntToStr(CurrentYear);
492	end	492	end
493	else if (PunktCount = 2) and EndsStr('.',Text) then	493	else if (PunktCount = 2) and EndsStr('.',Text) then
494	begin	494	begin
495	ADOTable1TAG.AsString := Text + IntToStr(CurrentYear);	495	ADOTable1TAG.AsString := Text + IntToStr(CurrentYear);
496	end	496	end
497	else	497	else
498	begin	498	begin
499	ADOTable1TAG.AsString := Text;	499	ADOTable1TAG.AsString := Text;
500	end;	500	end;

Subversion Repositories delphiutils

delphiutils/trunk/Zeiterfassung/ZeiterfassungMain.pas – Rev 81 → 83