Monthly Archives: March 2017

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

Delphi. UniGUI. Знаки вопроса. Кодировка (charset) на VPS и локаль

Posted on 22.03.2017 by Stanislav_Panteleev

2 дня убил на то, чтобы понять, почему на VPS, при загрузке туда приложения UniGUI и базы MySQL при Insert и Update пишутся знаки вопросов вместо русского текста. Решение. Выставить локаль Wndows Server 2012 на русскую. А также все, что … Continue reading →

Posted in Delphi | 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

Delphi. Гениальная борьба с WideMemo

Posted on 16.03.2017 by Stanislav_Panteleev

Делаю проект на UniGUI. Соответственно, не могу воспользоваться DBGridEh Имеется поле типа TEXT в MySQL, Delphi определяет его как WideMemo Я просто создал кальк поле и прописал значения туда

procedure TUniShopMilkAdminUsersFrame.FDTableUsersCalcFields(DataSet: TDataSet);
begin
  FDTableUsersadressCalc.Value:=
  DBGridUsers.DataSource.DataSet.FieldByName('adress').AsString;
end;

procedure TUniShopMilkAdminUsersFrame.FDTableUsersCalcFields(DataSet: TDataSet);

begin

FDTableUsersadressCalc.Value:=

DBGridUsers.DataSource.DataSet.FieldByName('adress').AsString;

end;

Posted in Delphi | 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

Delphi. REST. Декодирование ответа сервера, или превращаем \u0422\u0430\u043A… в нормальный русский текст

Posted on 04.03.2017 by Stanislav_Panteleev

Пишу небольшой сервер на REST технологии. Столкнулся с тем, что ответы нужно отправлять на русском языке, а сервер такие ответы превращает в

{"result":["703,\u0422\u0430\u043A\u043E\u0439 
\u0442\u043E\u043A\u0435\u043D 
\u0443\u0436\u0435 \u0434\u043E
\u0431\u0430\u0432\u043B\u0435\u043D"]}

{"result":["703,\u0422\u0430\u043A\u043E\u0439

\u0442\u043E\u043A\u0435\u043D

\u0443\u0436\u0435 \u0434\u043E

\u0431\u0430\u0432\u043B\u0435\u043D"]}

Задача простая, но не простая. Перепробовал много способов с разных сайтов, итого, вот мой рабочий вариант. Решение … Continue reading →

Posted in Delphi | Comments Off

Monthly Archives: March 2017

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

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

Delphi. UniGUI. Знаки вопроса. Кодировка (charset) на VPS и локаль

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

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

Delphi. Гениальная борьба с WideMemo

MySQL. Update Records with foreign key

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

Delphi. REST. Декодирование ответа сервера, или превращаем \u0422\u0430\u043A… в нормальный русский текст

MY PROJECTS

Recent Posts

Categories