Category Archives: MySQL

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 2 – база данных и логика программы

Posted on 26.11.2016 by Stanislav_Panteleev

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

Posted in Delphi, MySQL, UniGui | Comments Off

Delphi. MySQL. Пример добавления даты и времени в базу данных

Posted on 23.07.2016 by Stanislav_Panteleev

Как вариант можно хранить TDateTime в качестве строки. Допустим у нас в базе есть поле CreationDateTime varchar(45);

procedure TEventsListView.UpdateDate;

var NowStr:string;

begin

//Создание

//Настройка
qUpdateDate.Connection:=FDBConnection.FDConnection;

//Основная работа

NowStr:=DateTimeToStr(Now);

NowStr:=''''+NowStr+''''; // <<< Сработало только с 4 кавычками!!!

ShowMessage(NowStr);

qUpdateDate.SQL.Text:='UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='+NowStr+' WHERE `id`=1;';
//UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='123' WHERE `id`='1';

ShowMessage(qUpdateDate.SQL.Text);

qUpdateDate.ExecSQL;


//
end;

procedure TEventsListView.UpdateDate;

var NowStr:string;

begin

//Создание

//Настройка

qUpdateDate.Connection:=FDBConnection.FDConnection;

//Основная работа

NowStr:=DateTimeToStr(Now);

NowStr:=''''+NowStr+''''; // <<< Сработало только с 4 кавычками!!!

ShowMessage(NowStr);

qUpdateDate.SQL.Text:='UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='+NowStr+' WHERE `id`=1;';

//UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='123' WHERE `id`='1';

ShowMessage(qUpdateDate.SQL.Text);

qUpdateDate.ExecSQL;

end;

Обратно можно преобразовать с помощью StrTODateTime;

Posted in Delphi, MySQL | Comments Off

В чем разница между identifying and non-identifying relationships?

Posted on 15.06.2016 by Stanislav_Panteleev

Теперь, собственно попробуем наладить взаимосвязи! Но прежде, разберемся с пунктирными и непунктирными линиями во взаимосвязях Классные объяснения на английском находятся здесь. Больше всего мне понравилось вот это объяснение A book belongs to an owner, and an owner can own … Continue reading →

Posted in MySQL | Comments Off

MySQL. InnoSetup. “Тихая установка”. Добавляем Uninstall MySQL сервера при деинсталляции основной программы

Posted on 07.06.2016 by Stanislav_Panteleev

Чтобы добавить возможность деинсталляции MySQL сервера при деинсталляции основной программы, нужно в код InnoSetup добавить следующую инструкцию

[UninstallRun]
Filename: msiexec; Parameters: "/i ""{app}\mysql-5.5.23-winx64.msi "" "

1 2	[UninstallRun] Filename: msiexec; Parameters: "/i ""{app}\mysql-5.5.23-winx64.msi "" "

Код целиком, будет выглядеть следующим образом, он включает в себя инсталляцию основной программы, инсталляцию сервера базы данных и его конфигурирование, и его … Continue reading →

Posted in InnoSetup, MySQL | Comments Off

MySQL. InnoSetup. “Тихая установка”. Загрузка своей базы данных при инсталляции

Posted on 06.06.2016 by Stanislav_Panteleev

Продолжаю прошлую тему – устанавливать “тихо” MySQL сервер мы научились. Что дальше? В данном посте посмотрим как при инсталляции сервера MySQL добавить в него свою базу данных. Для этого нам нужен собственно дамп базы, далее нужно дать команду серверу, после … Continue reading →

Posted in InnoSetup, MySQL | Comments Off

MySQL. “Тихая” установка при помощи InnoSetup

Posted on 06.06.2016 by Stanislav_Panteleev

Когда нужна тихая установка? Например, при установке своей программы, которая опирается на базу данных, например, на mysql. Разберем пример тихой установки 64 битного сервера MySQL в директорию C:\mysql. Импорт базы данных разберем в следующем посте. Работать в основном будем с … Continue reading →

Posted in Delphi, InnoSetup, MySQL | Comments Off

Delphi. MySQL. Копирование записи

Posted on 14.04.2016 by Stanislav_Panteleev

Часто встречается такая задача, чтобы не искать долго по интернетам, решил вывести её решение в отдельный пост. Решение задачи базируется на удобной возможности MySQL Insert… Select…

//---------------------------------Копирование записей в БД-----------------------------

function CopyRecordInDB(SourceID: integer): integer;
var 
  qSelectInsert: TFDQuery; 
  qGetKey: TFDQuery;
begin
 qSelectInsert := TFDQuery.Create(nil);
  try
    qSelectInsert.Connection := FDConnection; 
    qSelectInsert.SQL.Text:=
      'INSERT INTO `treeview_db`.`tree`'+
      '(`IdParent`,'+
      '`Name`,'+
      '`Index`,'+
      '`isChecked`,'+
      '`IsExpanded`,'+
      '`Level`,'+
      '`IsFolder`)'+

      'SELECT'+
      '`IdParent`,'+
      '`Name`,'+
      '`Index`,'+
      '`isChecked`,'+
      '`IsExpanded`,'+
      '`Level`,'+
      '`IsFolder`'+
      ' from'+
      '`treeview_db`.`tree` where id = :id' ;

     qSelectInsert.Params.ParamValues['id'] := SourceId;
     qSelectInsert.ExecSQL;
  finally 
    qSelectInsert.Free;
  end; 
end;

//---------------------------------Копирование записей в БД-----------------------------

function CopyRecordInDB(SourceID: integer): integer;

var

qSelectInsert: TFDQuery;

qGetKey: TFDQuery;

begin

qSelectInsert := TFDQuery.Create(nil);

try

qSelectInsert.Connection := FDConnection;

qSelectInsert.SQL.Text:=

'INSERT INTO `treeview_db`.`tree`'+

'(`IdParent`,'+

'`Name`,'+

'`Index`,'+

'`isChecked`,'+

'`IsExpanded`,'+

'`Level`,'+

'`IsFolder`)'+

'SELECT'+

'`IdParent`,'+

'`Name`,'+

'`Index`,'+

'`isChecked`,'+

'`IsExpanded`,'+

'`Level`,'+

'`IsFolder`'+

' from'+

'`treeview_db`.`tree` where id = :id' ;

qSelectInsert.Params.ParamValues['id'] := SourceId;

qSelectInsert.ExecSQL;

finally

qSelectInsert.Free;

end;

Posted in Delphi, MySQL | Comments Off

MySQL.Workkbench. Дампы.Данные.Модели

Posted on 24.03.2016 by Stanislav_Panteleev

В данной статье разбираюсь с WorkBench. Вот основные задачи, которые хочу записать в данной статье. -Экспорт/Импорт дампа из WorkBench -Изменение данных в WorkBench -Работа с моделями Я не буду углубляться в каждый из разделов. Цель статьи – понять на принципиальном уровне … Continue reading →

Posted in MySQL | Comments Off

FireDAC.MySQL. Как изменить кодировку при русских символах в БД?

Posted on 22.03.2016 by Stanislav_Panteleev

Столкнулся с простой и популярной проблемой. При отображении данных из БД MySQL русские символы отображались вот так Лечится это просто – выставлением Charset в FDConnection либо на utf-8 либо на cp1251

Posted in Delphi, FireDAC, MySQL | Comments Off

MySQL. Как изменить таблицы из WorkBench?

Posted on 22.03.2016 by Stanislav_Panteleev

Практически всегда таблицы меняются, добавляются новые поля, удаляются старые, меняются взаимосвязи. В данной статье посмотрим как быстро и просто синхронизировать изменения в модели с изменениями в физической БД при помощи WorkBench. Возможно для кого-то эта информация будет полезной. Пусть у … Continue reading →

Posted in MySQL | Comments Off

Category Archives: MySQL

Delphi. UniGUI. Делаем авторизацию через СМС. Часть 2 – база данных и логика программы

Delphi. MySQL. Пример добавления даты и времени в базу данных

В чем разница между identifying and non-identifying relationships?

MySQL. InnoSetup. “Тихая установка”. Добавляем Uninstall MySQL сервера при деинсталляции основной программы

MySQL. InnoSetup. “Тихая установка”. Загрузка своей базы данных при инсталляции

MySQL. “Тихая” установка при помощи InnoSetup

Delphi. MySQL. Копирование записи

MySQL.Workkbench. Дампы.Данные.Модели

FireDAC.MySQL. Как изменить кодировку при русских символах в БД?

MySQL. Как изменить таблицы из WorkBench?

MY PROJECTS

Recent Posts

Categories