Вопрос по использованию системной даты в программе Опции

[1147]

В программе нужно постоянно вводить текущую дату в dbedit1. Видел такой вариант, когда вместо того чтобы вводить дату самому, при нажатии пробела автоматически вводится сначала число, затем при втором нажатии пробела - месяц, при третьем год и сразу же переход курсора в dbedit2. Т.е. программа берет системную дату и помещает ее в нужное поле. Подскажите пожалуйста, как реализовать такой вариант???

[volvo]

К примеру, так:

uses DateUtils;
// ...
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
var curr: TDbEdit;
begin
  if Key = #32 then begin
    curr := Sender as TDbEdit;
    case Length((Sender as TDbEdit).Text) of
      0: curr.Text := Format('%2d/', [DayOf(Now)]);
      3: curr.Text := curr.Text + Format('%2d/', [MonthOf(Now)]);
      6: curr.Text := curr.Text + Format('%4d', [YearOf(Now)]);
    end;
    curr.SelStart := Length(curr.Text);
    curr.SelLength := 0;
    Key := #0;
  end;
end;

Это - само заполнение нажатиями пробелов, ну, а после заполнения, уж сам перекинь фокус на другой компонент...

[1147]

а можно пояснить строки?:

      0: curr.Text := Format('%2d/', [DayOf(Now)]);
      3: curr.Text := curr.Text + Format('%2d/', [MonthOf(Now)]);
      6: curr.Text := curr.Text + Format('%4d', [YearOf(Now)]);

что означает 0, 3 и 6 вначале? и значения с процентами? Данные в квадратных скобках воспринимаются программой как undecleared identifier 'DayOf', 'MonthOf', 'YearOf'

Сообщение отредактировано: 1147 - 28.06.2009 0:52

[volvo]

Данные в квадратных скобках воспринимаются программой как undecleared identifier 'DayOf', 'MonthOf', 'YearOf'

А тот модуль, который приведен первой строкой, ты подключил? Я не просто так его написал...

что означает 0, 3 и 6 вначале?

Логика: если содержимое DBEdit-а пусто (длина содержимого = 0), то надо добавить первый кусок - число... Число и разделитель - это уже 3 символа, если при нажатии пробела в DBEdit-е уже есть эти 3 символа, то добавляем месяц, и так далее...

и значения с процентами?

Это форматная строка для функции Format, процент - это признак спецификатора формата, что функция ожидает в качестве параметра, и как собственно это форматировать... Вот "d" - это десятичное число, а двойка перед ним - это сколько позиций выделять под это число... Подробнее - в Хелпе по Format-у

[1147]

Понятно, все замечательно получается, вот только число и месяц, например 01.06 получается как 1. 6, а при использовании поиска это может вызвать некоторые проблемы . Что влияет на такой вывод формата и можно ли добавить нули если число и месяц состоят из одной цифры?

И еще такой вопрос: у меня была маска для ввода такого формата: __.__.____ Это уже означает что строка <>0. Соответственно маску нужно убрать. В случае если пользователь самостоятельно вводит дату, вместо точек могут оказаться запятые и тд. что также нежелательно. Нельзя ли маску приравнять к 0 или как то по другому решить этот вопрос? В общем чтобы не отказываться от маски?

Сообщение отредактировано: 1147 - 28.06.2009 1:33

[volvo]

Так?

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);

  function Conv(w: word; len: integer): string;
  begin
    result := IntToStr(w);
    while Length(result) < len do result := '0' + result;
  end;

var curr: TDbEdit;
begin
  if Key = #32 then begin
    curr := Sender as TDbEdit;
    case Length((Sender as TDbEdit).Text) of
      0: curr.Text := Conv(DayOf(Now), 2) + '/';
      3: curr.Text := curr.Text + Conv(MonthOf(Now), 2) + '/';

      // Тут можно и не менять, год всегда четырехзначный
      6: curr.Text := curr.Text + Conv(YearOf(Now), 4);
    end;
    curr.SelStart := Length(curr.Text);
    curr.SelLength := 0;
    Key := #0;
  end;
end;

[1147]

Большое спасибо за неоценимую помощь, основная проблема решена, а с маской придумаю что-нибудь

[1147]

А можно ли использовать автоматический ввод даты для ячейки DBGrid? Вернее в определенном столбце все ячейки должны обладать такой возможностью

Сообщение отредактировано: 1147 - 7.07.2009 0:41

[volvo]

Подменяем стандартный InPlace редактор на DBEdit, "и всего делов" (С)... Вот тут описывается технология: Google cache: НеОбычный TDBGrid (или в DRKB -> VCL -> Вставка одних компонентов в другие -> Помещение компонентов в TDBGrid)

[1147]

Для этого необходимо чтобы в DBEdit уже стояла дата или он может быть пустым?
Ясно) Тогда нужно чтобы дата без нажатия пробела сразу (например при запуске программы) появлялась в каком-нибудь нивидимом компоненте который затем помещается в ячейук DBGridа

Сообщение отредактировано: 1147 - 7.07.2009 1:31

[1147]

Это не совсем то что хотелось бы... Нельзя ли без создания каких то ненужных компонентов, сделать так чтобы при фокусировке, в ячейке dbgrida появлялась дата?
Например как с label:

var d:string;
begin
d:=datetostr;
label1.caption:=(d);
end;

Сообщение отредактировано: 1147 - 9.07.2009 18:18

[volvo]

сделать так чтобы при фокусировке, в ячейке dbgrida появлялась дата

Если поле, хранящее дату - пустое, то при клике по нему туда заносится сегодняшнее число. Уже существующие значения на сегодня не меняются (если надо, чтоб менялись - убери условие). И не забудь поменять название столбца не свое...

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if CompareText(Column.Field.FieldName, 'DateOfBirth') = 0 then
  begin
    if Column.Field.AsString = '' then begin
      Column.Field.AsString := DateToStr(Today);
    end;
  end;
end;

[1147]

возникает ошибка: "dataset not in edit or insert mode". Не пойму в чем дело..

[volvo]

Не пойму в чем дело..

Я тоже... Код, приведенный выше, тестировался, и отработал на реальной базе данных. Попробуй на новом проекте.