Search options (Page 1 of 3)

А в общем в режиме ПарентБокса они работают так как внесены данные в базу данных.

Например для ид=4  Организации определены

департаменты с ид=88 по ид=153

Проверьте зависимость в таблицах организации и департаментов

for i:=0 to 30 DO

andrey.yugay wrote:

Variant or safe array out of bounds

Тип Double является общим типом с плавающей запятой в Delphi. Он подводит баланс между вместимость/точность и память/выполнение.
Он поддерживает приблизительно 15 цифр точности в диапазоне от 2.23 x 10-308 до 1.79 x 10308.
 
Если соответствует, то проблема в массиве

Пользуйтесь!

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
  // полное имя файла (путь к файлу)
  Form1.Edit1.Text := SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue);
  // путь к папке рассположения файла c (\)
  Form1.Edit2.Text := ExtractFilePath(SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue));
  // путь к папке рассположения файла, без (\)
  Form1.Edit3.Text := ExtractFileDir(SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue));
  // диск рассположения файла
  Form1.Edit4.Text := ExtractFileDrive(SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue));
  // расширение файла
  Form1.Edit5.Text := ExtractFileExt(SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue));
  // имя файла с расширением
  Form1.Edit6.Text := ExtractFileName(SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue));
  // папка рассположения файла
  Form1.Edit7.Text := ExtractFilePath(SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue));

 // если путь к папке или файлу относительный то нужно использовать:
 // ExtractFilePath (ParamStr (0)) - путь к программе
 // application.ExeName - полный путь к исполняемому файлу
 // ExtractFileDir(application.ExeName) - адрес папки (корня) рассположения исполняемого файла без (\) на конце
end;

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
sFile: string = SQLExecute('SELECT w_filename FROM a WHERE id='+Form1.TableGrid1.sqlValue);
sCopy : string ='backup\'+FormatDateTime('yyyy', now);
begin
  if FileExists(ExtractFileDir(application.ExeName)+sFile) then
  begin
    if sDir(sCopy) then
    begin
      if not CopyFile( ExtractFileDir(application.ExeName)+sFile, ExtractFilePath(application.ExeName)+sCopy+
      '\'+FormatDateTime('DD_hh.mm.ss', now)+ExtractFileName(sFile), False) then showmessage('Ошибка копирования файла');
    end else  showmessage('Ошибка создание каталога');
  end else showmessage('Такого файла нет');
end;

function sDir (sName: String): Boolean;
begin
  if (DirectoryExists(sName)) then Result  := True else
   if (CreateDir(sName)) then  Result  := True else Result  := False;
end;

Хотел понтануться и сделать  через (try), но сам запутался

Подскажу по предыдущей ошибке. В связи с изменением типа одно из полей таблицы files не должно записываться как NULL (Ограничение NOT NULL не выполнено).

В MVD существует функция "NewRecord".

Вы называте так Форму и в дальнейшем используете это имя в скрипте.
Скрипт распознает это как функцию и есстественно указывает, что неправильные аргументы функции а не вашего запроса.
Переименуйте Форму и внесите изменения в скрипте.

Аккуратнее надо быть с зарезервироваными словами которые есть в SQL, Паскале и MVD.

andrey.yugay wrote:

Доброго времени суток, можно вас попросить пример? Т.к. я никак не могу добиться что-бы панель опускалась ниже.

На примере трёх панелей. При клике по панели она "раскрывается", остальные "сворачиваются"

procedure Form1_Panel1_OnClick (Sender: TObject);
begin
  Form1.Panel1.height := 30;
  Form1.Panel2.height := 30;
  Form1.Panel3.height := 30;
  TdbPanel(Sender).height := 200;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.Panel1.align := alTop;
  Form1.Panel2.align := alTop;
  Form1.Panel3.align := alTop;
  Form1.Panel1.height := 30;
  Form1.Panel2.height := 30;
  Form1.Panel3.height := 30;
end;