Search options (Page 1 of 11)

Нашёл пример на форуме, там как я понял реализовано через Form1.PageControl1.ActivePageIndex, что даёт упрощение кода, где нет бесконечных visible := True;
http://myvisualdatabase.com/forum/viewtopic.php?id=5786

То есть вы хотите сказать при использовании MySQL это влияет на сохранение? Просто у меня 40 секунд происходит только оно. И после каждого изменения это тяжко ждать, поэтому и режу программу. Запускается из exe файла она не долго, пару секунд. Итог, если я сделаю то что вы предлагаете, она станет сохраняться быстрей? (сохраняться именно в проекте, когда мы редактируем саму программу в редакторе) PS. В тот момент когда я уменьшаю количество форм, она опять летает. Поэтому может всё таки возможна функция заморозки форм? Последний вопрос к разработчику...

Оу, с PageControl вариант, а возможно скрыть скриптом выбор вкладок? Что бы малых прямоугольников "Вкладка1" "Вкладка2" не было видно при запуске формы?

Решил вопрос следующим образом
procedure Form1_Button28_OnClick (Sender: TObject; var Cancel: boolean; uchet,s,id_zada4i,cvc,datawsw,dayMo,dayTu,dayWe,dayTh,dayFr,daySa,daySu,dattt:string; b,n:integer;);
begin
id_zada4i := SQLExecute('SELECT id FROM zada4i WHERE id='+ карта_фирмы.TableGrid11.sqlValue);
id_zada4i := vartostr(id_zada4i);
dayMo := SQLExecute('SELECT пн FROM zada4i WHERE id="'+id_zada4i+'" ');
dayTu := SQLExecute('SELECT вт FROM zada4i WHERE id="'+id_zada4i+'" ');
dayWe := SQLExecute('SELECT ср FROM zada4i WHERE id="'+id_zada4i+'" ');
dayTh := SQLExecute('SELECT чт FROM zada4i WHERE id="'+id_zada4i+'" ');
dayFr := SQLExecute('SELECT пт FROM zada4i WHERE id="'+id_zada4i+'" ');
daySa := SQLExecute('SELECT сб FROM zada4i WHERE id="'+id_zada4i+'" ');
daySu := SQLExecute('SELECT вс FROM zada4i WHERE id="'+id_zada4i+'" ');
uchet := SQLExecute('SELECT учёт_дня_недели FROM zada4i WHERE id="'+id_zada4i+'" ');
if (uchet = '0') then SQLExecute('SET @n := 1');
if (uchet = '1') then SQLExecute('SET @n := 0');
n := 0;
b := 7;
While (n < 7) do
begin
s := SQLExecute('SELECT DAYNAME(CURDATE() + @n)');
if (s = 'Monday') AND (dayMo = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() +  @n ');
ShowMessage(dattt);
exit;
end;
if (s = 'Tuesday') AND (dayTu = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() + @n');
ShowMessage(dattt);
exit;
end;
if (s = 'Wednesday') AND (dayWe = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() + @n');
ShowMessage(dattt);
exit;
end;
if (s = 'Thursday') AND (dayTh = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() + @n');
ShowMessage(dattt);
exit;
end;
if (s = 'Friday') AND (dayFr = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() + @n');
ShowMessage(dattt);
exit;
end;
if (s = 'Saturday') AND (daySa = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() + @n');
ShowMessage(dattt);
exit;
end;
if (s = 'Sunday') AND (daySu = '1') then
begin
dattt := SQLExecute('SELECT CURDATE() + @n');
ShowMessage(dattt);
exit;
end;
SQLExecute('SET @n := @n +1');
n := n +1;
end;
end;

при ошибке, текст ошибки не помещается в табличку

Не знаю, можно ли как то еще лог получить этой ошибки, если можно, буду рад узнать как. Если нет, то может ей дать возможность стать больше или прокручиваться?
(то есть вопрос/просьба не о причине ошибки, а о том как её увидеть полностью)

Я предполагал можно добавить столбец чисто для сортировки в котором будет так же уникальный счётчик похожий на ID. И если я допустим опускаю строку, то он бы менялся этим id_сортировки с ближайшим к нему снизу, ну или наоборот сверху, если нам нужно перетащить. Как бы каждый раз на +1 или -1 вверх или в низ по таблице. Но это при нажатии кнопки.  Возможно ли вычислить позицию, куда передвинули мы с помощью мышки, не знаю. Может кто то делал подобное или знает как?

А как теперь зафиксировать этот результат? Что бы та строка которую я переместил, при следующем открытии таблицы там и осталась?