Search options (Page 4 of 6)

фигня война... пошел целый детектив... судя по всему, я случайно заюзал имена какой-то MVD-шной переменной... после переименования checkbox'ов вылеты и сообщения об ошибках исчезли. и даже на OnClick все заработало:

procedure frmMeasurement_cbAllMeasurement_OnСlick (Sender: TObject; var Cancel: boolean);
begin
  frmMeasurement.cbAllMeasurement.State := cbChecked;
  frmMeasurement.cbMonthMeasurement.State := cbUnchecked;
end;

procedure frmMeasurement_cbMonthMeasurement_OnClick (Sender: TObject; var Cancel: boolean);
begin
  frmMeasurement.cbMonthMeasurement.State := cbChecked;
  frmMeasurement.cbAllMeasurement.State := cbUnchecked;
end;

однако... стоит выбрать второй чек-бокс, который cbAllMeasurement, то как ты ни нажимай на cbMonthMeasurement, больше галочка со второго чек-бокса не снимается, при этом снимается-ставится последовательно галочка на самом cbMonthMeasurement

А если реализовывать через CheckBox.State, то кусок кода:

procedure frmMeasurement_cbAllTime_OnMouseUp (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
  frmMeasurement.сbForMonth.State := cbUnchecked;
  frmMeasurement.cbAllTime.State := cbChecked;
end;

procedure frmMeasurement_сbForMonth_OnMouseUp (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
  frmMeasurement.cbAllTime.State := cbUnchecked;
  frmMeasurement.сbForMonth.State := cbChecked;
end;

вызывает следующее сообщение с ошибкой:

Сигнатура проблемы:
  Имя события проблемы:    APPCRASH
  Имя приложения:    Monitoring.exe
  Версия приложения:    1.0.0.0
  Отметка времени приложения:    5b6ac81b
  Имя модуля с ошибкой:    ntdll.dll
  Версия модуля с ошибкой:    6.1.7601.23572
  Отметка времени модуля с ошибкой:    57fd02d3
  Код исключения:    c0000005
  Смещение исключения:    0002ed2a
  Версия ОС:    6.1.7601.2.1.0.256.1
  Код языка:    1049
  Дополнительные сведения 1:    e8ad
  Дополнительные сведения 2:    e8adce1c2b9e7be834b4063ac3c53863
  Дополнительные сведения 3:    e8ad
  Дополнительные сведения 4:    e8adce1c2b9e7be834b4063ac3c53863

Ознакомьтесь с заявлением о конфиденциальности в Интернете:
  http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0419

Если заявление о конфиденциальности в Интернете недоступно, ознакомьтесь с его локальным вариантом:
  C:\Windows\system32\ru-RU\erofflps.txt

интересно... а зачем еще и на MouseUp вешать?..

так в том-то и дело, что в грид у меня настраивается вывод данных по умолчанию через свойства в инспекторе объектов в самой IDE... а фильтра уже меняют его состояние и наполнение. в том числе - меняют местами столбцы и даже другие столбцы добавляют. в том-то весь и прикол - вернуть грид в состояние "по умолчанию".

то есть надо тогда заполнять грид в исходное состояние при помощи скрипта и SQL-запроса?

при формировании отчета через кнопку с действием "отчет" предлагается выбор в чем открыть сформированный отчет - в превью, в дизайнере, в экселе, в ворде, в опен офисе, выгнать в pdf или html или даже в картинку формата tiff или jpeg
собственно, вопрос: как можно назначить то, в чем будет открыт отчет, средствами скрипта?

О как... Не знал, спасибо.

Странно... После кучи манипуляций - заработало. Но я уже не берусь воспроизвести-рассказать то, что делал)))

В таком вариант - должен.

    Form1.frxReport.Variables['My Variable 2'] := ''' + frmOrder.Label25.Text + ''';

должно быть просто last_insert_id(), без всяких переменных внутри скобочек. база данных вернет id записи, последней внесенной в БД в принципе, и не важно, в какую таблицу.

Тогда давайте сделаем так... У нас формат шифра ГОСТа такой: ГОСТ <Р> <ИСО|МЭК> <циферный шифр> <полное наименование документа>.
Собственно наша задача в простейшем виде - это выделить первые два-четыре блока "блока" из длинной строки - ГОСТ <Р> <ИСО|МЭК> <циферный шифр>.
Наша задача несколько облегчается тем, что все слова/буквы/шифры разделяются пробелом. Идея моя такова, что надо тупо порезать длинную строку на слова, а взять в работу только первые два-четыре "слова", которые и будут соответствовать нашим "блокам".
Задача несколько осложняется тем, что буква Р может быть в строке, а может и не быть. Например, сравни: "ГОСТ Р 7.0.6-2008 Международный стандартный номер издания музыкального произведения (ISMN). Издательское оформление и использование" и "ГОСТ 7.85-2003 Международный стандартный номер технического отчета". Также, насколько я успел изучить формирование шифра ГОСТов, возможны приставки к «ГОСТ Р» слов «ИСО» или «МЭК», означающие, что данный нормативный документ является переводом стандарта соответствующей международной организации. Но это тоже можно учесть при "резке" строки, так как такие приставки имеют фиксированную позицию относительно других слов-"блоков".
Такая постановка задачи вас устроит?

В моем примере режется кусок строки с датой формата dd.mm.yy:

var fDate: TDateTime;
arrDate: array of string;
sDate: string;
begin
...
arrDate := SplitString(sDate,'.'); // получаем в переменные YY - год, MM - месяц, DD - день из даты в строке данных
DD := arrDate[0]; MM := arrDate[1]; YY := arrDate[2];
fDate := EncodeDate(StrToInt(YY),StrToInt(MM),StrToInt(DD)); // кодируем дату для записи в БД
sDate := '"'+FormatDateTime('yyyy-MM-DD 00:00:00.000', fDate)+'"'; // форматируем дату для SQL, в кавычки заключать в запросе INSERT уже не надо
...
end;

Вам, соответственно, надо порезать строковую переменную из DataPicker1 с другим разделяющим символом (видимо, -)