Category Archives: MySQL

Delphi. UniGUI. Делаем фильтры. Быстро и просто

Posted on 04.05.2017 by Stanislav_Panteleev

Вот, что у нас получится на выходе Чтобы освоить базовые принципы работы с фильтрами, посмотрите пример, который находится в

C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\GridFiltering

1	C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\GridFiltering

Вообще, у UniGUI отличные демки! Можно просто смотреть их и многое делать по аналогии!

Posted in Delphi, MySQL | Comments Off

MySQL. Типичная структура базы данных, если нужны роли – клиент, админ, партнер

Posted on 22.04.2017 by Stanislav_Panteleev

Пусть нам нужны 3 роли, при этом схема, скажем такая… Сделал так…

Posted in MySQL | Comments Off

UniGUI.DBGrid.RowsFetching. Пост-подсказка

Posted on 30.03.2017 by Stanislav_Panteleev

Запутался немного в “фетчингах” UniGUI и FireDAC. Вижу, что в UniDBGrid выводятся не все записи, хотя если отправлять данные в обычный DBGrid, то всё будет в порядке. Немного поизучал свойства UniDBGrid и увидел галочку FetchALL. Теперь записи отображаются все и … Continue reading →

Posted in Delphi, MySQL | Comments Off

Delphi. MySQL. Считаем сумму заказа через Delphi и MySQL

Posted on 23.03.2017 by Stanislav_Panteleev

Есть таблицы. Далее будут эволюционировать по мере написания поста. Требуется посчитать сумму заказа. Самый простой способ, сделать это через MySQL

SELECT SUM(orders_has_goods.goods_quantity * goods.price)
FROM orders_has_goods
INNER JOIN goods ON orders_has_goods.goods_id = goods.id
WHERE orders_id = 6

SELECT SUM(orders_has_goods.goods_quantity * goods.price)

FROM orders_has_goods

INNER JOIN goods ON orders_has_goods.goods_id = goods.id

WHERE orders_id = 6

Вариант посложнее, через Delphi.

Posted in Delphi, MySQL | Comments Off

MySQL. 2 способа пересечения множеств и объединения таблиц

Posted on 19.03.2017 by Stanislav_Panteleev

Есть следующая структура Нужно составить вот такую таблицу Часть данных у нас в одной таблице, часть данных в другой. Как получить это за один запрос? 1 способ (спасибо Денису Зубову из Самары)

select * from users u,orders o where u.id=o.users_id

1	select * from users u,orders o where u.id=o.users_id

2 способ

SELECT * FROM unishopmilk_db.users inner join unishopmilk_db.orders on users.id=orders.users_id;;

1	SELECT * FROM unishopmilk_db.users inner join unishopmilk_db.orders on users.id=orders.users_id;;

На выходе получим Но … Continue reading →

Posted in Delphi, MySQL | Comments Off

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

Posted on 16.03.2017 by Stanislav_Panteleev

Есть Decimal поле для цены в одном из проектов. Есть на форме 2 spinEdit, рубли и копейки соответственно. Чтение из базы Получение дробной части из Float(Real)

function TUniShopMilkAdminGoodsFrameMC.GetRestOfFloat(ASomeFloat: real): integer;
var 
  s:string;
begin
  ASomeFloat:=frac(ASomeFloat);
  str(ASomeFloat:0:2,s);
  Result:=strtoint(copy(s,pos('.',s)+1,6));
end;

function TUniShopMilkAdminGoodsFrameMC.GetRestOfFloat(ASomeFloat: real): integer;

var

s:string;

begin

ASomeFloat:=frac(ASomeFloat);

str(ASomeFloat:0:2,s);

Result:=strtoint(copy(s,pos('.',s)+1,6));

end;

Получение целой и дробной частей для загрузки на форму

  seRUB.Value:=Trunc(FCurrentGoodParams.Price);
  seKopeek.Value:=GetRestOfFloat(FCurrentGoodParams.Price);

1 2	seRUB.Value:=Trunc(FCurrentGoodParams.Price); seKopeek.Value:=GetRestOfFloat(FCurrentGoodParams.Price);

Запись в базу … Continue reading →

Posted in Delphi, MySQL | Comments Off

MySQL. Update Records with foreign key

Posted on 14.03.2017 by Stanislav_Panteleev

SET foreign_key_checks = 0;
UPDATE `unishopmilk_db`.`goods` SET `sortIndex`=:sortIndex WHERE `id`=:id;
SET foreign_key_checks = 1;

SET foreign_key_checks = 0;

UPDATE `unishopmilk_db`.`goods` SET `sortIndex`=:sortIndex WHERE `id`=:id;

SET foreign_key_checks = 1;

Posted in MySQL | Comments Off

MySQL. Удаление записей с истекшим сроком давности

Posted on 11.03.2017 by Stanislav_Panteleev

в базе код, пример из проекта, допустим нам нужно удалить записи со сроком давности > 1 минуты

SELECT * FROM `unishopmilk_db`.`codes` 

WHERE id in

(SELECT a.id from  ((

 Select `unishopmilk_db`.`codes`.`id` from `unishopmilk_db`.`codes` where 

`unishopmilk_db`.`codes`.`timeStart` < NOW() - INTERVAL 1 MINUTE

)) as `a`);

SET SQL_SAFE_UPDATES = 1;

SELECT * FROM `unishopmilk_db`.`codes`

WHERE id in

(SELECT a.id from ((

Select `unishopmilk_db`.`codes`.`id` from `unishopmilk_db`.`codes` where

`unishopmilk_db`.`codes`.`timeStart` < NOW() - INTERVAL 1 MINUTE

)) as `a`);

SET SQL_SAFE_UPDATES = 1;

Posted in Delphi, MySQL | Comments Off

MySQL. Insert in table with foreign-key

Posted on 28.02.2017 by Stanislav_Panteleev

Шпаргалочка. Допустим sessions_id это foreign key другой таблицы. Вот как можно вставить в таблицу с foreign key

INSERT INTO `somedatabase`.`sometable`
SET `code`=:code,
sessions_id=(SELECT id FROM `somedatabase`.`sometable` where id=:sessions_id);

INSERT INTO `somedatabase`.`sometable`

SET `code`=:code,

sessions_id=(SELECT id FROM `somedatabase`.`sometable` where id=:sessions_id);

Posted in Delphi, MySQL | Comments Off

Delphi. Делаем простой DBPaginator на примере MySQL

Posted on 24.01.2017 by Stanislav_Panteleev

Понадобилось ручное листание страниц (определенного заранее числа записей на странице). Пользуюсь FireDAC, знаю, что там это уже реализовано, но после нескольких попыток понял, что хочу сделать такую штуку сам, поскольку явно пригодится в других языках и технологиях. Итак, вот что … Continue reading →

Posted in Delphi, MySQL | Comments Off

Category Archives: MySQL

Delphi. UniGUI. Делаем фильтры. Быстро и просто

MySQL. Типичная структура базы данных, если нужны роли – клиент, админ, партнер

UniGUI.DBGrid.RowsFetching. Пост-подсказка

Delphi. MySQL. Считаем сумму заказа через Delphi и MySQL

MySQL. 2 способа пересечения множеств и объединения таблиц

Delphi. MySQL. Пишем в DECIMAL поле и читаем из него.

MySQL. Update Records with foreign key

MySQL. Удаление записей с истекшим сроком давности

MySQL. Insert in table with foreign-key

Delphi. Делаем простой DBPaginator на примере MySQL

MY PROJECTS

Recent Posts

Categories