[darkghostnt]

Программа: Регистратура в поликлиннике.
БД MS-SQL: Таблица_1 - Пациенты, Таблица_2 - Врачи, Таблица_3 - Талоны. Возможно таблица_4 для справки по времени.

Вопрос: Как организовать таблицу для справки? (зелёная зона на схеме)

[darkghostnt]

Код:

//Выбрали Смену выбрали дату
procedure TCT.DTPChange(Sender: TObject);
  var
    myDate : TDateTime;
    mY, mM, mD, D : word;
  begin
    //Оперделили чётность даты
    myDate :=DTP.DateTime;
    DecodeDate (MyDate, mY, mM, mD);
    IF odd(mD) THEN D := 0 ELSE D :=1;

    //Проверяем работу врача
	  IF D=0 THEN
		  IF CB.ItemIndex = 0 THEN     //Если Дата_Чётная и Смена первая,
			  Lab1.Caption := 'Утро'     //То работа утром
		  ELSE
			  Lab1.Caption := 'Вечер'    //Иначе вечером
	  ELSE
		  IF CB.ItemIndex = 0 THEN     //Если Дата_Нечётная и Смена первая,
			  Lab1.Caption := 'Вечер'    //То работа Вечером
		  ELSE
			  Lab1.Caption := 'Утро';    //Иначе утром
  end;

Как сделать условия я разобрался.
Главный вопрос как добавить записи c "индексом один/два" из таблицы SQL Server в ComboBox?

[Yurk@]

може все-таки DBLookupComboBox ?

[darkghostnt]

Сообщение от Yurk@

може все-таки DBLookupComboBox ?

Где он находится?

[Mrak]

там ----------------->

[darkghostnt]

Осталось оформить отчёт, остальное всё сделал.

Отчёт делал через QuickReport, но он выводит все строки из таблицы.

Как сделать, чтобы: Выбрал нужную строку нажал печать, и вышла на печать только эта строка, оформленная в QuickReport?