Search options (Page 211 of 400)

Form1.mniReport.Click;

procedure Form1_TableGrid2_OnChange (Sender: string);
var
    i,c,f,r: integer;
begin
    c := Form1.TableGrid2.RowCount - 1;
    f := Form1.TableGrid2.Columns.Count - 1;
    for i := 0 to c do
    begin
        if (ValidFloat(Form1.TableGrid2.Cells[3,i])) and (ValidFloat(Form1.TableGrid2.Cells[4,i])) then
            if StrToFloat(Form1.TableGrid2.Cells[3,i])>StrToFloat(Form1.TableGrid2.Cells[4,i]) THEN
                for r := 0 to f do
                    Form1.TableGrid2.Cell[r,i].Color := clSilver;
    end;
end;

procedure Form2_Edit1_OnChange (Sender: string);
var
    s: string;
    YY, MM, DD: string;
    HH, MIN, SEC: string;
    dt: TDateTime;
    WDay: integer;
begin
    s := Form2.Edit1.Text;
    if Length(s)=14 then
    begin
        DD := Copy(s, 1, 2);
        MM := Copy(s, 3, 2);
        YY := Copy(s, 5, 4);

        HH := Copy(s, 9, 2);
        MIN := Copy(s, 11, 2);
        SEC := Copy(s, 13, 2);

        try
            dt := Trunc(EncodeDate( StrToInt(YY),StrToInt(MM),StrToInt(DD) )) + Frac(EncodeTime( StrToInt(HH),StrToInt(MIN),StrToInt(SEC), 0 ));
            Form2.DateTimePicker1.DateTime := Frac(dt);
            Form2.DateTimePicker2.DateTime := Trunc(dt);
            Form2.Edit1.Color := clWhite;

            WDay := DayOfWeek(Form2.DateTimePicker2.Date)-1;
            if WDay = 0 then Form2.ComboBox1.ItemIndex := 7 else Form2.ComboBox1.ItemIndex := WDay;
        except
            Form2.DateTimePicker1.Checked := False;
            Form2.DateTimePicker2.Checked := False;
            Form2.Edit1.Color := clRed;
            Form2.ComboBox1.ItemIndex := 0;
        end;
    end else
    begin
        Form2.DateTimePicker1.Checked := False;
        Form2.DateTimePicker2.Checked := False;
        Form2.Edit1.Color := clWhite;
    end;
end;

procedure Form1_DateTimePicker2_OnChange (Sender: string);
begin
    if Form1.DateTimePicker1.Checked and Form1.DateTimePicker2.Checked then
    begin
        Form1.Edit1.Text := FormatDateTime('ddmmyyyyhhnnss', Frac(Form1.DateTimePicker1.DateTime) + Trunc(Form1.DateTimePicker2.DateTime) );
    end else Form1.Edit1.Clear;
end;

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
    if Form1.DateTimePicker1.Checked and Form1.DateTimePicker2.Checked then
    begin
        Form1.Edit1.Text := FormatDateTime('ddmmyyyyhhnnss', Frac(Form1.DateTimePicker1.DateTime) + Trunc(Form1.DateTimePicker2.DateTime) );
    end else Form1.Edit1.Clear;
end;