Search options (Page 3 of 4)

Добрый день !
Попробовал из нового :

Form1.TableGrid1.dbLimit := 1000;

Работает здорово . Но если бы появилась возможность выводить не первую 1000 , а последнюю

Добрый вечер!
Решил поделиться небольшим опытом .
Тоже работаю по локаль. сети(5 пользователей) . База тяжелая (35-40 таблиц). Сам к серверу на удаленке( ping до сервера 17 мс).
База была 23 мб . Вынес  фотки - теперь 1,65 мб . Проблем пока нет (фу,фу,фу).Предполагал , что упрусь в скорость , поэтому оптимизировал скрипты с запросами SQL . Первое :  выяснил , что прямой SELECT в переменную работает гораздо быстрее чем внутри INSERT или
UPDATE  .
Т. е.  вот такое работает гораздо быстрее  :

     begin
     id_Mater := SQLExecute('SELECT id_Materials FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) ); // читаем идентификатор родительской таблицы
      Nom := SQLExecute('SELECT NomNak FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );
       NakDat := SQLExecute('SELECT DataNak FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );
        Otkud := SQLExecute('SELECT Kuda FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );
         Kud := SQLExecute('SELECT Otkuda FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );
          Vozvr := StrToFloat(SQLExecute('SELECT Vozvrat FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID)));
           VozNet := SQLExecute('SELECT OtchZaPriz FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );
            ZaN := SQLExecute('SELECT NomerZayav FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );
             ZaDat := SQLExecute('SELECT DataZayav FROM MatZayav2 WHERE id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID) );

  SQLExecute('INSERT INTO Nakladnie (Nomer,NakData,Otkuda,Kuda,Vozvrat,VozvrNet,id_Materials,ZayavNom,ZayavData) VALUES ("'+Nom+'","'+NakDat+'","'+Otkud+'","'+Kud+'",'+ReplaceStr( FloatToStr(Vozvr),',','.')+',"'+VozNet+'",'+IntToStr(id_Mater)+',"'+ZaN+'","'+ZaDat+'")');
    end;

чем например такое :

SQLExecute('INSERT INTO AktBrakMat (NomAkt, DataAkt, KolMat, id_Materials, NomNak, DataNak, KolichVnakl) SELECT MatZayav2.NomNast,MatZayav2.ZakroyDataFakt,MatZayav2.BrakPolot,MatZayav2.id_Materials,MatZayav2.NomNak,MatZayav2.DataNak,MatZayav2.MaterKolFakt FROM MatZayav2 WHERE MatZayav2.id = ' + IntToStr(frmZakroyniyCeh.TableGrid3.dbItemID));

да и вероятность нарваться на locked  уменьшается .
Если я не очень понятно , то пишите , раскрою измерения подробней.

Да , еще . Если у вас проходит много удалений из базы , не ленитесь делать базе (периодически) сжатие .

Добрый день !
Заметил ошибку в последней бета 1,48 , ( ссылка на нее в этой теме выше).
В гридах идет неправильное отображение чисел типа REAL .

В 1,47  с данной .dll  не работают скрипты . Все остальное работает . ( пробовал)

Скриншот не поможет .  Я пробую пояснить по другому :   запускаю программу --- открывается Form1,
на этой форме есть кнопка -- показать форму --- открывается Form2 , с Form2  открывается  Form3.
На Form3( это frmTovar)  TableGrid2 и DBImage1. Кликаю запись в TableGrid2 и жду , когда в  DBImage1
появится изображение ( т.е. выполняется   frmTovar.DBImage1.LoadFromDatabase('Shirina', 'RaskladFoto', frmTovar.TableGrid2.dbItemID);)
В зависимости от скорости инета длится это 4-5 сек. . На курсоре часики крутит . Как загрузка кончилась, на мониторе картинка едва
заметно моргнула и   Form2 оказывается верхней , (т.е. перекрывает Form3), но  Form2 не активна ( кликай по ней где хочешь - не реагирует)
Из под  Form2 виден небольшой фрагмент  Form3 . Я по этому фрагменту кликаю , и  Form3 стала на верхний слой , те в правильное положение
Вот такой эффект , но только когда на удаленке . Когда все на одном компе или в локалке , то скорость передачи большая и такого эффекта
не наблюдается.

Про  CopyTo : именно это я и имел ввиду (файл будет переименован в "имя_файла(1)"), --- записи С одинаковым файлом в БД имеют ссылки
не на один файл  , а каждый на свой дубликат .. Поэтому при удалении записи можно удалить и файл .

Простите за эпистолярный жанр , но мне кажется Вам интересны эти нюансы .

Простите ради Бога !!!
Сразу не понял , КАКОЙ  ВАРИАНТ .  Вроде работает .
Чуть позже сообщу о полном тестировании .

Не знаю как добавить к imgFile путь расположения  файла базы !

Добрый день !
Спасибо , файл находит , но по клику по DBImage1 не переходит на просмотр ( на весь экран ). Активен
только значек загрузки изображения .

Присоединяюсь !

Поздравляю всех участников форума !
Прекрасно провели год в общении одним дружным коллективом !

Добрый день !
"database is locked" весьма часто возникает при работе в локальной сети.
Прошу совета ! Проект большой , пять пользователей в локалке . DB файл и папка с программой
находятся на локальном сервере(под server 2008) . На пользовательских компах только ярлыки .
Насколько я понимаю ситуацию, эта ошибка возникает при обработке SQL запросов к файлу базы
одновременно от нескольких " задач " . Формирует эту ошибку sqlite.dll и говорит о том , что файл занят
действием другого запроса . Существует ли какой то параметр настройки времени ожидания ответа на запрос
типа "Timeout" ,  увеличив который , можно было бы избежать появление этой ошибки ?
2. Или может оптимальнее расположить проги на пользовательских компах , файл базы на сервере ?

Мне кажется надо в вашем примере добавить деактивацию таймера при закрытии главной формы :
procedure Form1_OnClose (Sender: string; Action: string);
begin
   
   Timer.Free;
end;

Подскажите кто может как проверять исключить из проверки год.
Заранее благодарю и  поймите правильно - праздновал денюху - неделю буду притормаживать

Поздравляю с Днем рождения !!!