Значение DBLookupComboBox

[MARCH]

Я ЕСЛИ ЧЕСТНО НЕ РАЗОБРАЛСЯ С ТАКОЙ ШТУКОЙ

поля индентефикаторы поставил как инкрементные
в главной таблице какие ставить поля? или ссылочную целостность можно не настраивать?

[mihali4]

в главной таблице какие ставить поля?

    TableName = 'naryad.db'
    object TnaryadId: TAutoIncField
      FieldName = 'Id'
      ReadOnly = True
    end
    object TnaryadNumnar: TStringField
      FieldName = 'Numnar'
      Size = 12
    end
    object TnaryadIdusl: TIntegerField
      FieldName = 'Idusl'
    end
    object TnaryadIdadr: TIntegerField
      FieldName = 'Idadr'
    end
    object TnaryadIduspd: TIntegerField
      FieldName = 'Iduspd'
    end
    object TnaryadIdsotst: TIntegerField
      FieldName = 'Idsotst'
    end
    object TnaryadIdsotlin: TIntegerField
      FieldName = 'Idsotlin'
    end
    object TnaryadDppodkl: TDateField
      FieldName = 'Dppodkl'
    end
    object TnaryadDrpodkl: TDateField
      FieldName = 'Drpodkl'
    end
    object TnaryadUsluga: TStringField
      FieldKind = fkLookup
      FieldName = 'Usluga'
      LookupDataSet = Tuslug
      LookupKeyFields = 'Id'
      LookupResultField = 'Nameusl'
      KeyFields = 'Idusl'
      Size = 32
      Lookup = True
    end
    object TnaryadUspd: TStringField
      FieldKind = fkLookup
      FieldName = 'Uspd'
      LookupDataSet = Tuspd
      LookupKeyFields = 'Id'
      LookupResultField = 'Uspd'
      KeyFields = 'Iduspd'
      Size = 32
      Lookup = True
    end
    object TnaryadSotrstn: TStringField
      FieldKind = fkCalculated
      FieldName = 'Sotrstn'
      Size = 32
      Calculated = True
    end
    object TnaryadSotrline: TStringField
      FieldKind = fkCalculated
      FieldName = 'Sotrline'
      Size = 32
      Calculated = True
    end
    object TnaryadStnfam: TStringField
      FieldKind = fkLookup
      FieldName = 'Stnfam'
      LookupDataSet = Tsotr
      LookupKeyFields = 'Id'
      LookupResultField = 'Fam'
      KeyFields = 'Idsotst'
      Size = 32
      Lookup = True
    end
    object TnaryadStnname: TStringField
      FieldKind = fkLookup
      FieldName = 'Stnname'
      LookupDataSet = Tsotr
      LookupKeyFields = 'Id'
      LookupResultField = 'Name'
      KeyFields = 'Idsotst'
      Size = 32
      Lookup = True
    end
    object TnaryadStnsname: TStringField
      FieldKind = fkLookup
      FieldName = 'Stnsname'
      LookupDataSet = Tsotr
      LookupKeyFields = 'Id'
      LookupResultField = 'Sname'
      KeyFields = 'Idsotst'
      Size = 32
      Lookup = True
    end
    object TnaryadLinefam: TStringField
      FieldKind = fkLookup
      FieldName = 'Linefam'
      LookupDataSet = Tsotr
      LookupKeyFields = 'Id'
      LookupResultField = 'Fam'
      KeyFields = 'Idsotlin'
      Size = 32
      Lookup = True
    end
    object TnaryadLinename: TStringField
      FieldKind = fkLookup
      FieldName = 'Linename'
      LookupDataSet = Tsotr
      LookupKeyFields = 'Id'
      LookupResultField = 'Name'
      KeyFields = 'Idsotlin'
      Size = 32
      Lookup = True
    end
    object TnaryadLinesname: TStringField
      FieldKind = fkLookup
      FieldName = 'Linesname'
      LookupDataSet = Tsotr
      LookupKeyFields = 'Id'
      LookupResultField = 'Sname'
      KeyFields = 'Idsotlin'
      Size = 32
      Lookup = True
    end
  end

procedure TForm2.TnaryadCalcFields(DataSet: TDataSet);
begin
TnaryadSotrstn.AsString:=TnaryadStnfam.AsString+' '+TnaryadStnname.AsString[1]+'.'+TnaryadStnsname.AsString[1]+'.';
TnaryadSotrline.AsString:=TnaryadLinefam.AsString+' '+TnaryadLinename.AsString[1]+'.'+TnaryadLinesname.AsString[1]+'.';
end;

[MARCH]

Добрый день! Я уже немного запутался в тех кодах которые вы прислали мне, если вам не сложно "тыкните пальцем" что куда вставлять и что за чем должно идти!

Я не понял на счет последнего сообщения п.32, т.е. в Database связи настраивать не надо?

Я вот сделал вчера ночью базу по той структуре которую предложили вы, просмотрите плиз, может я что то неправильно сделал. Я понял что я неправильно строю базу, а хочется что бы все было грамотно!

[MARCH]

в главной таблице какие ставить поля? или ссылочную целостность можно не настраивать?[/QUOTE]


я имел ввиду тип поля в Database какие ставить для главной таблицы

[mihali4]

я имел ввиду тип поля в Database какие ставить для главной таблицы

??? Типы полей указаны: TStringField, TIntegerField.
Для FieldKind = fkLookup все подробно расписано...
Если не указано - fkData.

[MARCH]

Сообщение от mihali4

??? Типы полей указаны: TStringField, TIntegerField.
Для FieldKind = fkLookup все подробно расписано...
Если не указано - fkData.

Простите! Я просто незнаком с синтаксисом, и не совсем понимаю что куда ставить и что это значит

[mihali4]

Все поля, у которых не указан FieldKind = fkLookup, являются fkData, то есть вы именно их определяете при создании таблицы, например, в DataBase Desktop-е.
Те, которые FieldKind = fkLookup, вы добавляете и определяете в редакторе полей вручную (после двойного щелчка мышкой по подключенному TTable).
Синтаксис... Это я просто дал вам выдержку из текстового представления формы (View as Text, View as Form).

[MARCH]

Те, которые FieldKind = fkLookup, вы добавляете и определяете в редакторе полей вручную (после двойного щелчка мышкой по подключенному TTable).


Если вас не затруднит давайте с Вами вместе сделаем, и пропишем все таблички! А то что то я вообще невкуриваю. А так пойму дай бог. Если согласитесь, по больше комментариев, что бы я хоть представление имел!Да и еще как вам структура БД? Подойдет?

[mihali4]

Ну это же в любой книге для начинающих расписано...
1. Даблклик по компоненту, например, TTable. Открылось окошко редактирования полей.
2. Правая мышка - AddAllFields - все поля, существующие в таблице, увидели.
3. Опять правая мышка - NewField - создаем новое поле - вычисляемое или лукаповское...

[MARCH]

Спасибо! Очень помогло!
Попытался сделать фильтрацию!
Создал составной фильтр, но он выдает ошибку





К тому же незнаю как сделать проверку на пустые поля в Edit и Combobox!
Подскажите пожалуйста, а то доходить самому времени уже нет надо сдавать в пятницу!!!

вот кусок кода:

//формирование списка для "Наименования услуг" в "Просмотр нарядов"
ComboBox1.Clear;
ComboBox1.Items.Add('Все записи');
Table3.First;
-------------

procedure TForm1.Button21Click(Sender: TObject);
begin
Table1.Filter:='Kvartira='+QuotedSt r(Edit2.Text)+'and USLUGA='+QuotedStr(Combobox1.text);
Table1.Filtered:=true;
end;

Может из-за того что это поле лукаповское?

Выдает ошибку: