Lazarus ошибка sqlite3 dll

aiisakov писал(а):Я понял, что для полного освоения Linux графических приложений мало.

Чего именно не хватает?
У меня основная система Linux Mint 18.3
Пользоваться начал с Ubuntu 10.04
Дома на убунтах и минтах — домашний медиасервер-файлохранилище, ноуты, на маленьком безвентиляторном компе htpc стоит Linux Mint+KODI

Все программы для дома и хобби имеются:
почта — громоптица как и в винде была.
браузеры — firefox, chrome, chromium — как и в винде
видеопрееры — Kodi, VLC (как и винде) и куча других.
просмотр и кромсание картинок — XnView или GwenView по функционалу такие же как FastStone в винде.
Paint — стоит два варианта
Не линейный видеомонтаж — KDEnLive (если сборка и для винды)
Skype есть
Торрентокачалка Transmission
Android Studio , Lazarus — работают, использую регулярно
запись с экрана — vokoscreen
Виртуальный планетарий — Stellarium
Студии для Postgree, MySQL, SQLite3, ставил, использовал при необходимости

И т.д. и т.п. и всё это без антивируса.
Стабильная работа годами.
Для работы ставил по предложению MS в 2016 году бету MS SQL Server на Убунту. И активно использовал на нем одну базу в 22гб в течении месяца.

Для работы с MS SQL Server и написания для него утилит на Lazarus используется Win8 (с выпиленным Metro) на VirtualBox (использовал версии от 4.0 до 5.2)

Так каких приложений не хватает? Может подскажу.

aiisakov писал(а):Нужно глубоко освоить консольные команды и консольные приложения (Aptitude). С точки зрения пользователя Windows набирание команд в окне «Выполнить» это извращение не нужное обычному пользователю (не говоря уже о PowerShell). А мне это «извращение» в Linux очень нравится, поднимает твой «скилл».

Не согласен. Не нужно.
Ширпотреб (команды) легко запоминается.
Редкоиспользуемые команды у меня лично в файлик записаны или я их гуглю.
Но ~95% вещей на десктопах делается через графические оболочки и программы.
На сервере удобнее в терминале просто стрелкой вверх пролистать до нужной команды, и выполнить. Потому там да, 50% в терминале делается.
Apt зачем глубоко осваивать? и что там осваивать? Вообще Синаптик отличная графическая замена aptitude

В целом потребность в консоли в убунтовых линуксах это устаревший миф.
Моя супруга, ни разу не айтишник, пользует линукс минт с 2011года, и пару раз удивлялась, т.к. забыла, что у нее не винда.
Имхо давно ушли те времена когда пользователи в основном только в винде могли что-то делать, сейчас такой зоопарк интерфейсов и в винде и на андроидах, что пользователь еще один интерфейс сходу осваивает, тем более что ширпотребные программы зачастую кроссплатформенные и одни и те же везде стоят.

SQLite — это встраиваемая библиотека, позволяющая нам управлять базой данных в нашем приложении без сервера, типа MySQL, Oracle Database и тд. Работать с такой базой данных одновременно может несколько процессов или потоков, за исключением записи. Для записи в такую базу требуется чтобы в данный момент к ней не осуществлялось других запросов, иначе попытка записи оканчивается неудачей.

Кстати говоря, многие известные приложения используют Sqlite:

• Mozilla Firefox (начиная с версии 3.0)
• Mozilla Thunderbird
• Фреймворк Qt
• Skype
• 1С:Предприятие
• Google Chrome
• Opera

Благодаря этим приложениям, SQLite считается самой распространённой базой данных в мире.

Итак давайте попробуем создать некое приложение в котором будет использоваться база данных. Возьмем за пример «Базу сотрудников» где будет указана информация о сотрудниках некой компании, например ОАО «Devlaz.ru»

Для начала нам понадобится скачать саму библиотеку: http://www.sqlite.org/download.html

Если вы программируете под Ubuntu, Linux и других Debian-like дистрибутивы, то также требуется установить libsqlite-dev/libsqlite3-dev, не только sqlite/sqlite3.

Скачав DLL библиотеку sqlite3.dll (под windows) ее требуется закинуть в папку с Lazarus (По умолчанию это C:\Lazarus) и в папку с проектом.

После чего требуется установить пакет sqlite3laz который по умолчанию поставляется с Lazarus и пересобрать наш IDE.

С помощью sqlite3.exe скаченного с офф. сайта создаем базу данных:

Откроем CMD, перейдем в рабочий каталог sqlite3.exe, например диск С(в данной папке должен быть наш sqlite3.exe)

В командной строке пишем: sqlite3.exe devlaz.db

где devlaz.db имя вашей базы данных.

Должно появится окно приветствия:

SQLite version 3.12.2 2016-04-18 17:30:31
Enter «.help» for usage hints.

Создаем внутри таблицу с именем например devlaz, в которой будет 3 поля: Порядковый номер, ФИО и Телефон: create table devlaz(id integer primary key, fio string, tel string);

Данные в таблицу мы будем добавлять из программы поэтому завершим работу с sqlite3.exe вводом команды: .exit

В той же папке с программой sqlite3.exe должен появится наш файл db, закидываем его в папку с проектом.

Теперь перейдем к созданию приложения. Готовое приложение вы сможете скачать в конце статьи.

Для начала добавьте на форму компоненты TSQLite3DataSet с вкладки Data Access, TSQLite3Connection, TSQLQuery и TSQLTransaction с вкладки SQLdb. А для отображения данных нашей базы я добавил на форму DBGrid и TDataSource.

Теперь для того чтобы наша база загружалась с запуском программы, на FormCreate добавим следующий код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  {Параметры компонентов работы с базой
  Можно выставить в опциях у каждого компонента.}
  //*******************************
  SQLite3Dataset.FileName:='devlaz.db';
  SQLite3Dataset.TableName:='devlaz';
  DataSource.DataSet:=SQLite3Dataset;
  SQLite3Connection.DatabaseName:='devlaz.db';
  SQLite3Connection.Transaction:=SQLTransaction;
  SQLTransaction.DataBase:=SQLite3Connection;
  SQLQuery.DataBase:=SQLite3Connection;
  SQLQuery.Transaction:=SQLTransaction;
  //*******************************

  try
     SQLite3Dataset.Open;
     SQLite3Connection.Connected:=True;
  except
     On E:Exception do
        ShowMessage('Ошибка открытия базы: '+ E.Message);
  end;
end;

Создадим на форме 2-ве кнопки, для добавления новой записи и удаления. А также 3-и Edit’a для наших данных ID, ФИО и Тел.

Для создания новой записи впишем след. код:

procedure TForm1.ButtonAddClick(Sender: TObject);
begin
  SQLite3Dataset.Close;

  with SQLQuery do
  begin
    SQL.Clear;
    SQL.Add('INSERT INTO devlaz(fio, tel) VALUES(:FIO,:TEL)');
    ParamByName('FIO').Text:=EditFIO.Text;
    ParamByName('TEL').Text:=EditTEL.Text;
    ExecSQL;
    SQLTransaction.Commit;
    Close;
  end;

  SQLite3Dataset.Open;
end;

Поле id добавится автоматически, согласно след. порядковому номеру, поэтому его мы не указываем в запросе.

Для удаления записи будем использовать ID записи:

procedure TForm1.ButtonDelClick(Sender: TObject);
begin
  SQLite3Dataset.Close;

  with SQLQuery do
  begin
    SQL.Clear;
    SQL.Add('DELETE FROM devlaz where id=:ID');
    ParamByName('ID').Text:=EditID.Text;
    ExecSQL;
    SQLTransaction.Commit;
    Close;
  end;

  SQLite3Dataset.Open;
end;

Вы можете откорректировать ваш SQL запрос на свое усмотрение, например удаление по ФИО или номеру телефона.

Ну и напоследок представим ситуацию что нам нужно найти определенную запись по какому-то критерию, допустим это будем ID, после чего вывести фамилию по этой записи как сообщение. Для этого добавим еще одну кнопку и назначим ей след. код:

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
  with SQLQuery do
  begin
    SQL.Clear;
    SQL.Add('SELECT * FROM devlaz where id = :id');
    ParamByName('id').Text:=EditID.Text;
    Open;
  end;

  ShowMessage(SQLQuery.FieldByName('fio').AsString);
  SQLQuery.Close;
end;

Вот мы и познали азы работы с SQLite.  Скачать готовый проект