Советы по Delphi. Версия 1.4.3 от 1.1.2001 - Валентин Озеров

 OldOrder := Param.AsString;

 I := 0;

 Tmp := '';

 OrderFields := TStringList.Create;

 try

  OrderFields.Ad(Field.FieldName);

  while I < Length(OldOrder) do begin

   Inc(I);

   C := OldOrder[I];

   if C in FieldNameChars then Tmp := Tmp + C;

   if (not (C in FieldNameChars) or (I = Length(OldOrder))) and (Tmp <> '') then begin

    TmpField := Field.DataSet.FindField(Tmp);

    if OrderFields.IndexOf(Tmp) < 0 then OrderFields.Add(Tmp);

    Tmp := '';

   end;

  end;

  UpdateOrderFields(Query, OrderFields);

  NewOrder := OrderFields[0];

  for I := 1 to OrderFields.Count – 1 do NewOrder := NewOrder + ', ' + OrderFields[1];

 finally

  OrderFields.Free;

 end;

 InsertOrderBy(Query, NewOrder);

end;

end. 

DBGrid и TQuery

Delphi 1 

1. Расположите на вашей форме 2 TQuerie с двумя соответствующими TDatasource (Query1 будет вашим Мастером, Query2 будет вашей Деталью)

2. Разместите 2 TDBGrid, связанных с Datasource'ами (вероятно, вы уже это сделали)

3. Используйте базу данных, поставляемую с Delphi:

Query1.SQL := 'Select * from customer'

Query2.SQL := 'Select * from Orders whereOrders."CustNo" = :CustNo'

(это можно сделать как во время выполнения приложения, так и во время его разработки)

4. В свойствах Query2 выберите свойство Params и напишите в строке 'CustNo'. 'CustNo' был определен как параметр, поскольку в SQL строке было использовано ':'.

5. ОЧЕНЬ ВАЖНО: установите Query2.Datasource в набор данных, связанный с Query1.

Каждый раз при изменении записи в наборе данных Query1, Query2 будет обновляться. Имя параметра 'CustNo' соответствует имени реального поля в таблице Customer.

P.S.: Для получения дополнительной информации обратитесь к разделу электронной справки 'dynamic SQL' 

DBGrid как навигатор

Delphi 1 

1. Расположите компонент table на пустой форме и свяжите его с вашего таблицей Client.

2. Добавьте компонент Datasource и свяжите его с компонентом table, описанным выше.

3. Добавьте компонент grid и свяжите его с компонентом datasource, описанным выше.

4. Используя Редактор Полей (Fields Editor), создайте компоненты TField для всех полей таблицы client.

5. Установите свойство Visible всех компонентов TField, кроме Client Name (или другого поля, которое будет отображаться в DBGrid), в False. Grid теперь будет отображать только Client Name.

6. Для отображения полей таблицы Client (которые вы хотите показать, или которые вы хотите сделать доступными для редактирования пользователем), ниже табличной сетки расположите компоненты DBEdit. Они могут использовать тот же набор данных, что и DBGrid.

Теперь пользователь может воспользоваться DBGrid для навигации и ввода/редактирования данных посредством DBEdit'ов. 

Позиция DBGrid

Delphi 1 

В режиме разработки дважды щелкните на компоненте TQuery, и выберите все поля, которые вы хотите использовать в DBGrid. Затем в обработчике события DBGrid doubleclick смотрите значение DBGrid.SelectedIndex. Если оно  < 0, выбранных пунктов нет. Также, текущая запись TQuery будет указывать на ту же самую строку, которая выбранна в DBGrid. Таким образом, вы можете использовать что-то типа requiredvalue := Query1Field1.AsString; и т.д., естественно, компоненты TQuery и DBGrid должны быть подключены друг к другу. 

DBGrid – переход к следующей записи

Delphi 1 

Для перехода к следующей записи:

MyDBGrid.SelectedIndex := MyDBGrid.SelectedIndex + 1;

Колонки DBGrid индексируются с 0, поэтому SelectedIndex := 0 даст вам первую колонку. Свойство FieldCount вернет вам количество колонок, так что вы без труда можете пробежаться по всей матрице данных.

onClick и DBGrid

Многие программисты хотели бы использовать OnClick у TDBGrid. Но TDBGrid не имеет такого события. В данном документе рассказывается о том, как обеспечить поддержку события OnClick для TDBGrid. Рассказанная здесь технология может пригодиться при добавлении других свойств к различным объектам. Если вы знаете, что сделать это мог предок, то можно заставить сделать это и наследника. Ключевым моментом здесь можно считать добавление csClickEvents к свойству-набору элемента управления ControlStyle. Это позволит элементу управления, приведенному к типу THack, получать и правильно обрабатывать системные сообщение о щелчке мышью. Назначение OnClick какого-либо элемента управления OnClick DBGrid1 позволяет воспользоваться событием OnClick для элемента управления, которое его не поддерживает.

Это "неофициальный" путь. Существует несколько причин того, почему dbgrid не поддерживает этого события. Используйте этот код на свой страх и риск.

unit Udbgclk;

interface

uses Windows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DBTables, DB;

type

 thack = class(tcontrol);

 TForm1 = class(TForm)

  DBGrid1: TDBGrid;

  Button1: TButton;

  DataSource1: TDataSource;

  Table1: TTable;

  procedure Button1Click(Sender: TObject);

  procedure FormClick(Sender: TObject);

 private

  { Private declarations }

 public

  { Public declarations }

 end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

 THack(dbgrid1).controlstyle :=THack(dbgrid1).controlstyle + [csClickEvents];

 THack(dbgrid1).OnClick := Form1.OnClick;

end;

procedure TForm1.FormClick(Sender: TObject);

begin

 messagebeep(0);

 application.processmessages;

end;

end. 

Числа с плавающей точкой в DBGrid

Delphi 1 

Для показа в табличной сетке дробных чисел, выберите таблицу, с которой связана ваша сетка (через datasource, источник данных).

Активизируйте редактор полей (правой кнопкой мыши) и выберите поле, в котором вы хотите видеть дробное число.

Измените значение свойств 'DisplayFormat' и 'EditFormat', чтобы дробь имела формат такой, какой вы хотите (к примеру, шаблон '0.00', позволяющий сетке показывать поле с двумя цифрами после запятой).

Дважды щелкните на компоненте table, расположенном на форме. Нажмите на кнопку 'Add'. Будут показаны все поля вашей таблицы. Выберите их в списке «Available field» (доступные поля) и щелкните на кнопке OK. Теперь при щелчке на имени поля, в Инспекторе Объектов будут показаны все свойства, относящиеся к данному полю, здесь можно изменить текст заголовка, выводимый формат «DisplayFormat» (это как раз то, что вам нужно, измените его на ####0.0) и пр. 

Получение данных DBGrid прежде, чем они будут отправлены: как мне узнать, что пользователь вводит в DBGrid?

Delphi 3 

Вы можете «видеть» что набирается в TDBGrid, «смотря» на контрол сетки TInPlaceEdit. Вы должны убедиться только в том, что к моменту использования TInPlaceEdit, контрол уже создан. Следующая функция покажет данные, редактируемые в колонках сетки:

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

var B: byte;

begin

 for B := 0 to DBGrid1.ControlCount - 1 do

  if DBGrid1.Controls[B] is TInPlaceEdit then begin

   with DBGrid1.Controls[B] as TInPlaceEdit do begin

    Label1.Caption := 'Текст = ' + Text;

   end;

  end;

end;

Хочу шапку в TDBGrid. Как сделать?

Nomadic советует:

Уже реализовано в виде вот этого компонента — © Andre

unit bdbgrid;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Math;

type

 TOnDrawTitleEvent = procedure(ACol : integer; ARect : TRect; var TitleText : string) of object;

 TBitDBGrid = class(TDBGrid)

 private

  FBitmapBrowse : TBitmap;

  FBitmapEdit : TBitmap;

  FBitmapInsert : TBitmap;

  FBitmapFill : TBitmap;

  FRealTitleFont : TFont;

  FOnDrawTitle : TOnDrawTitleEvent;

  FResizeFlag : boolean;

  { Private declarations }

  procedure SetRealTitleFont(Value : TFont);

  procedure UpdateTitlesHeight;

 protected

  procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;

  procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;