Category Archives: Delphi

Программное добавление поля

Posted on 18.08.2016 by Stanislav_Panteleev

Программное добавление поля, на примере ADO, по аналогии можно сделать и с FireDAC

var
  f: TIntegerField;
begin
  ADOQuery.Open;
 
  f := TIntegerField.Create(ADOQuery); //Создаем поле тепа INTEGER
  f.FieldKind := fkLookup; //Указываем на то что оно у нас LookUp
  f.KeyFields := 'key_name'; //Поле ключ, по которому будет искаться соответствие
  f.LookupDataSet := ADOQueryDictionary; //Набор данных (DataSet) в котором буду отбираться данные
  f.LookupKeyFields := 'id'; //Уникальный ключ в наборе данных ADOQueryDictionary, по которому будем искать
  f.LookupResultField := 'name'; //Поле из набора данных ADOQueryDictionary, которое будет отображаться в результате
  f.Name := 'field_name'; //задаем имя нашему полю
 
  ADOQuery.Fields.Add(f); //включаем его в сотав нашего набора данных
end;

var

f: TIntegerField;

begin

ADOQuery.Open;

f := TIntegerField.Create(ADOQuery); //Создаем поле тепа INTEGER

f.FieldKind := fkLookup; //Указываем на то что оно у нас LookUp

f.KeyFields := 'key_name'; //Поле ключ, по которому будет искаться соответствие

f.LookupDataSet := ADOQueryDictionary; //Набор данных (DataSet) в котором буду отбираться данные

f.LookupKeyFields := 'id'; //Уникальный ключ в наборе данных ADOQueryDictionary, по которому будем искать

f.LookupResultField := 'name'; //Поле из набора данных ADOQueryDictionary, которое будет отображаться в результате

f.Name := 'field_name'; //задаем имя нашему полю

ADOQuery.Fields.Add(f); //включаем его в сотав нашего набора данных

end;

Posted in Delphi | Comments Off

Delphi. FireDAC. FDTable. Осортировать записи на клиенте

Posted on 15.08.2016 by Stanislav_Panteleev

Пример сортировки

procedure TVisualFrame.Sort;
begin

FDTable.IndexFieldNames:='ChangesDateTime:D';
FDTable.Close;
FDTable.Open;

end;

procedure TVisualFrame.Sort;

begin

FDTable.IndexFieldNames:='ChangesDateTime:D';

FDTable.Close;

FDTable.Open;

end;

Буква D означает по убыванию, Descending как я понимаю

Posted in Delphi | Comments Off

Delphi. Как закрыть модальное окно программно?

Posted on 12.08.2016 by Stanislav_Panteleev

Вопрос вроде бы простой, но стопорнулся на нём. В сети много примеров на эту тему, но перепробовав всё, я понял, что мне нужен свой вариант))) Проблема заключается в том, что вызвав модальную форму, программа ждёт некоторого действия от пользователя, например … Continue reading →

Posted in Delphi | Comments Off

Delphi. Как настроить TListView для работы с большим количеством данных?

Posted on 04.08.2016 by Stanislav_Panteleev

...
private
FSL:TStringList;
...

...

private

FSL:TStringList;

...

Например 1000 000 строк…

procedure TForm1.FormCreate(Sender: TObject);
var lc:TListColumn;
  i: Integer;
begin
     FSL:=TStringList.Create;
     for i := 0 to 1000000 do
     FSL.Add('somevalue '+i.ToString());

  //Вначале настроем массив

  //Вся настройка листвью тут
  //Виртуальный режим
  Listview1.OwnerData:=True;
  //Сделаем в виде колонок и добавим 2 колонки
  ListView1.ViewStyle:=vsReport;
  lc:=ListView1.Columns.Add;
  lc.Caption:='caption';
  lc.Width:=150;
  lc:=ListView1.Columns.Add;
  lc.Caption:='test';
  lc.Width:=150;

  //Ну и ещё пару моментов
  ListView1.RowSelect:=true;
  //Листвю должен знать, скоко у нас элементов.
  //Это число потом можно будет менять в процесе работы.
  ListView1.Items.Count:=FSL.Count-1; //Length(arr);
  //Листвью сам запросит нужные элементы, когда надо будет их отрисовать
  //Элементы запрашиваются в OnData
  Caption:=IntToStr(FSL.Count-1);
  //ListView1.UpdateItems(1,1);




end;

procedure TForm1.FormCreate(Sender: TObject);

var lc:TListColumn;

i: Integer;

begin

FSL:=TStringList.Create;

for i := 0 to 1000000 do

FSL.Add('somevalue '+i.ToString());

//Вначале настроем массив

//Вся настройка листвью тут

//Виртуальный режим

Listview1.OwnerData:=True;

//Сделаем в виде колонок и добавим 2 колонки

ListView1.ViewStyle:=vsReport;

lc:=ListView1.Columns.Add;

lc.Caption:='caption';

lc.Width:=150;

lc:=ListView1.Columns.Add;

lc.Caption:='test';

lc.Width:=150;

//Ну и ещё пару моментов

ListView1.RowSelect:=true;

//Листвю должен знать, скоко у нас элементов.

//Это число потом можно будет менять в процесе работы.

ListView1.Items.Count:=FSL.Count-1; //Length(arr);

//Листвью сам запросит нужные элементы, когда надо будет их отрисовать

//Элементы запрашиваются в OnData

Caption:=IntToStr(FSL.Count-1);

//ListView1.UpdateItems(1,1);

end;

OnData

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
//Этот обработчик должен выдавать элемент по номеру.
//Точнее, есть Item, в которому нужно заполнить caption и subitems
//Номер элемента храниться в Item.index
item.Caption:=FSL[Item.Index]; // arr[item.Index].caption;
item.SubItems.Add((FSL[item.Index]));

end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);

begin

//Этот обработчик должен выдавать элемент по номеру.

//Точнее, есть Item, в которому нужно заполнить caption и subitems

//Номер элемента храниться в Item.index

item.Caption:=FSL[Item.Index]; // arr[item.Index].caption;

item.SubItems.Add((FSL[item.Index]));

end;

После этого – информация подгружается по мере скролла – происходит это достаточно быстро.

Posted in Delphi | Comments Off

Delphi. Добавить DateTIme в MySQL в правильном формате.

Posted on 02.08.2016 by Stanislav_Panteleev

Записать в нужном формате в MySQL

procedure TEventsListView.Test;
var 
  dateTimeForMySQL: string;
begin
...
  dateTimeForMySQL := FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);
  qUpdateDateTime.Params.ParamValues['DateTime'] := dateTimeForMySQL;
...
end;

procedure TEventsListView.Test;

var

dateTimeForMySQL: string;

begin

...

dateTimeForMySQL := FormatDateTime('yyyy-mm-dd hh:mm:ss', Now);

qUpdateDateTime.Params.ParamValues['DateTime'] := dateTimeForMySQL;

...

end;

Прочитать, соответственно, наоборот

dt := q.FieldByName('dt').AsDateTime;

1	dt := q.FieldByName('dt').AsDateTime;

Posted in Delphi | Comments Off

Delphi. Как прочитать значение поля из DataSource?

Posted on 24.07.2016 by Stanislav_Panteleev

Подсказка для себя

procedure TEventsListView.DBGridCellClick(Column: TColumn);
begin

//ShowMessage(DBGrid.SelectedIndex.ToString);

//DBGrid.DataSource.DataSet.RecNo;  // <<Это номер записи, на которой стоит курсор

ShowMessage(
DBGrid.DataSource.DataSet.FindField('id').AsInteger.ToString
);

ShowMessage(
DBGrid.DataSource.DataSet.FindField('Name').AsString
)

end;

procedure TEventsListView.DBGridCellClick(Column: TColumn);

begin

//ShowMessage(DBGrid.SelectedIndex.ToString);

//DBGrid.DataSource.DataSet.RecNo; // <<Это номер записи, на которой стоит курсор

ShowMessage(

DBGrid.DataSource.DataSet.FindField('id').AsInteger.ToString

);

ShowMessage(

DBGrid.DataSource.DataSet.FindField('Name').AsString

)

end;

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

Как ограничить движение мыши областью при DragOver при помощи ClipCursor?

Posted on 12.07.2016 by Stanislav_Panteleev

Появилась задача – ограничить движение мыши прямоугольной областью, чтобы корректно работал механизм DragOver. Дело в том, что если разместить TreeView и ListView и прописать в каждом из них взаимоисключающие Accept параметры, то при переносе на соседний элемент иногда возникают проблемы. … Continue reading →

Posted in Delphi | Comments Off

Как сохранить ID в TListItem.Data?

Posted on 07.07.2016 by Stanislav_Panteleev

Пишу небольшую систему управления файлами на основе DBTreeView и DBListView – делаю небольшую подсказку для себя и тех, кто идет по моим следам. В данном посте узнаем как добавить колонки, итемы и сохранить ID записи базы данных в TListItem.Data? Тут … Continue reading →

Posted in Delphi | Comments Off

Как избавиться от зависимости от глобальных переменных при разработке компонента?

Posted on 24.06.2016 by Stanislav_Panteleev

Столкнулся с тем, что при разработке компонентов есть published свойства, в которые заносится некоторая информация. И вот вопрос – как передать эту информацию во внутренний модуль компонента? Подробно проблему описал на 2 форумах –How to avoid using GlobalVars in components … Continue reading →

Posted in Delphi | Comments Off

Category Archives: Delphi

Программное добавление поля

Delphi. FireDAC. FDTable. Осортировать записи на клиенте

Delphi. Как закрыть модальное окно программно?

Delphi. Как настроить TListView для работы с большим количеством данных?

Delphi. Добавить DateTIme в MySQL в правильном формате.

Delphi. Как прочитать значение поля из DataSource?

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

Как ограничить движение мыши областью при DragOver при помощи ClipCursor?

Как сохранить ID в TListItem.Data?

Как избавиться от зависимости от глобальных переменных при разработке компонента?

MY PROJECTS

Recent Posts

Categories