Советы по Delphi. Версия 1.4.3 от 1.1.2001

 with Query do try
 for I := 0 to OrderFields.Count - 1 do begin
 S := OrderFields[I];
 Field := FindField(S);
 if Assigned(Field) and (Field.FieldNo > 0) then AddOrderField(IntToStr(Field.FieldNo))
 else try
 J := StrToInt(S);
 if J < FieldDefs.Count then AddOrderField(IntToStr(J));
 except
 end;
 end;
 OrderFields.Assign(NewOrderFields);
 finally
 NewOrderFields.Free;
 end;
end;

procedure HandleOrderMacro(Query: TRxQuery; Field: TField);
var
 Param: TParam;
 Tmp, OldOrder, NewOrder: String;
 I: Integer;
 C: Char;
 TmpField: TField;
 OrderFields: TStrings;
begin
 Param := FindParam(Query.Macros, 'Order');
 if not Assigned(Param) or Field.Calculated or Field.Lookup then Exit;
 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 должны быть подключены друг к другу.