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

[СвоЕобразнаЯ]

Всем Привет!
У меня задание создать клиентское положение для больницы. Программа сложная, трудности начались с самого начала :weep1:Возможно вопросов будет много. Но пока что только 1.
По щелчку в DBGrid (там отображается ФИО пациентов) в Memo должен отображаться адрес и телефон этого пациента.
Вот

Код:

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
ADOQuery5.Active:=False;
ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add('SELECT * FROM Patient');
ADOQuery5.Open;
ADOQuery5.Active:=True;
Memo4.Lines.Add(ADOQuery5.FieldByName('Sity').AsString);
Memo4.Lines.Add(ADOQuery5.FieldByName('Street').AsString);
Memo4.Lines.Add(ADOQuery5.FieldByName('Home').AsString);
Memo4.Lines.Add(ADOQuery5.FieldByName('Kv').AsString);
Memo4.Lines.Add(ADOQuery5.FieldByName('P_Kont_Phone').AsString);
end;

Но у меня отображается в Memo только запись которая в акцессе в таблице первая записана. А их там 25 штук разных адресов, при каждом щелчке на другом пациенте должен отбражаться его адрес. Что делать? 

[Sla]

Могу только предположить...

По шелчку нужно получить id пациента из колонки
а след. строчку записать
ADOQuery5.SQL.Add('SELECT * FROM Patient where id= :ColumnId');

[СвоЕобразнаЯ]

Просто в БД 4 связанных между собой таблицы... может изза этого...

[Sla]

смотри...
Ты заполняешь грид, я не знаю как, щелкая на строке грида, ты должна сопоставить id выбранной строки с таблицей пациентов.

например, заполняем грид
select pacient.id, pacient.fio, history id
from pacient, history
where pacient.id=history.id

по шелчку выбираем значение столбца pacient.id  в columnid, а затем

ADOQuery5.SQL.Add('SELECT * FROM Patient where id= :ColumnId');

[СвоЕобразнаЯ]

Большое спасибо!

[СвоЕобразнаЯ]

С этим справились. Настигла ещё одна проблема.  :(По заданию нужно заносить из Edit'ов и Memo'в в таблицу в Акцессе всё что доктор туда напишет, а также ID доктора и пациента. В БД 4 связанные таблицы (на картинке схема данных).
Как с ними работать мне никто не объяснял, погуглила, кое-что нашла, но конечно же ничего не работает.
Вот что у меня примерно получилось:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject); {зарегистрировать приём}
begin
ADOQuery4.Active:=False;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('INSERT INTO Visit');
ADOQuery4.SQL.Add('VisitDate, VisitTime,Resultat,Symptoms,Diagnos');
ADOQuery4.SQL.Add('VALUES("'+Edit2.Text+'", "'+Edit3.Text+'", "'+ComboBox1.SelText+'", "'+Memo1.Lines+'", "'+Memo2.Lines+'", "'+Memo3.Lines+'");
ADOQuery4.SQL.Add('WHERE (D.ID_Doctor=V.ID_Doctor) AND P.ID_Patient=V.ID_Patient');
ADOQuery4.ExecSQL;
end;

Подсвечивает "'+Memo1.Lines+'", говорит "Incompatible types: 'String' and 'TStrings' ". А у меня там ещё и ComboBox... Как эту процедуру правильно записать? 

[СвоЕобразнаЯ]

Всё вместе

[x77]

1. ComboBox1.SelText - это только выбранный (выделенный курсором или мышкой) текст, надо использовать свойство ComboBox1.Text.
2. Memo1.Lines - это массив строк, вам нужно получить его одной строкой, для это используется Memo1.Lines.Text.

но вообще хочу сказать, что подобный подход не является стандартным и используется в определённых ситуациях. почему вы отказались от использования DB-контролов, таких, как TDBMemo, TDBEdit? это на порядки уменьшит количество кода.