добавление правильно (ADO)

[Lodas]

Всем привет Есть 2 таблицы Сотрудники и Образование. База Access(adoconnection, adotable, ds). Связанны они по полю Код сотрудника. Я организовал добавление, но в таблице Образование приходится вбивать код сотрудника вручную- выглядит это некультяпно Может кто знает как сделать чтобы это поле заполнялось автоматически?

[vovk]

вот вроде заменил DBedit на DBLookupComboBox1

[Lodas]

Да...спасибо. Мне понравилось, носегодня ходил к преподу, он сказал что это не прокатит. Сказал так: "Назначить коду сотрудника переменную, запомнить курсор на каком сотруднике остановился и добавть эту переменную при добавлени". Как мне это реализовать?

я так прикидываю n:=0;
n:=ADOTable2.RecordCount;
ADOTable2.First;

[artemavd]

Как я понял, то вам просто нужно добавить код сотрудника, который содержится в некой переменной.

[Lodas]

да. вы правильно поняли.

но как это программно прописать? я еще с таким не сталкивался

[artemavd]

Я к сожалению сейчас на работе и скачать ваш проект нет возможности, нет Delphi здесь. Напишите сюда процедуру, с которой у вас проблемы, подумаем че там можно сделать.

[Lodas]

Я даже не знаю как обьяснить.... Без просмотра исходника там пожалуй не обойтись. Вообщем есть 2 таблицы. При добавлении в образование приходится вбивать код сотрудника. Надо организовать это программно... назначив коду сотрудника переменную и чтобы она заполнялась при добавлении.

If (DBEdit1.Text = ЗДЕСЬ БУДЕТ ЭТА ПЕРЕМЕННАЯ '')or (DBEdit2.Text = '') or (DBEdit3.Text = '')or (DBEdit4.Text = '')or (DBEdit5.Text = '')or (DBEdit6.Text = '')then
ShowMessage('ВНИМАНИЕ! Заполните все поля на форме.')
else
begin
DM.ADO_Obrazov.Post;
Form6.Close;

Блин я даже толком обьяснить ничего не могу......

[vovk]

А имена сотрудников то где смотреть? в каком компоненте отображать разрешили? ну вот ещё пара вариантов с переменной

[Lodas]

Второй вариант смотриться классно... Единственный вопрос, не могли бы вы мне его расшифровать? Будет защита диплома как никак- придеруться спросят...

with TForm3.Create(self) do
begin
try
 Position:=poOwnerFormCenter;
BitBtn1.Visible:=false;
BitBtn2.Visible:=false;
with TBitBtn.Create(BitBtn1.Owner) do
begin
  Caption:='Выбрать';
  Left:=BitBtn1.Left;
  Top:= BitBtn1.Top;
  ModalResult:=mrOk;
  Parent:=BitBtn1.Parent;
  end;
 with TBitBtn.Create(BitBtn1.Owner) do
begin
  Caption:='Отмена';
  Left:=BitBtn2.Left;
  Top:= BitBtn2.Top;
  ModalResult:=mrCancel;
  Parent:=BitBtn2.Parent;
  end;
 ShowModal;
  if ModalResult=mrOk then
    begin
     Form6.Edit1.Text:=DBGrid1.DataSource.DataSet.FieldByName('name').AsString;
     kod_sotr:= DBGrid1.DataSource.DataSet.FieldByName('kod_sotr').AsInteger;
    end;
   finally
Free;
end;

[vovk]

//создаём объект класа TForm3
with TForm3.Create(self) do
begin
try
//позиционируем по середине формы родителя
Position:=poOwnerFormCenter;
//скрываем ненужные кнопки
BitBtn1.Visible:=false;
BitBtn2.Visible:=false;
//создаём кнопку для "выбора"
with TBitBtn.Create(BitBtn1.Owner) do
begin
//тут свойства кнопки описываем заголовок, положение и тп
Caption:='Выбрать';
Left:=BitBtn1.Left;
Top:= BitBtn1.Top;
ModalResult:=mrOk;
Parent:=BitBtn1.Parent;
end;
//создаём кнопку для "отказа" 
with TBitBtn.Create(BitBtn1.Owner) do
begin
//тут свойства кнопки описываем заголовок, положение и тп
Caption:='Отмена';
Left:=BitBtn2.Left;
Top:= BitBtn2.Top;
ModalResult:=mrCancel;
Parent:=BitBtn2.Parent;
end;
//отображаем форму модально
ShowModal;
if ModalResult=mrOk then
//если нажата кнопка выбора, то то заносим данные  из текущей записи связанного с 
// DBGrid1 датасета из поля bp 'name' в Edit1.text, из поля 'kod_sotr' в переменную kod_sotr
begin
Form6.Edit1.Text:=DBGrid1.DataSourc e.DataSet.FieldByName('name').AsStr ing;
kod_sotr:= DBGrid1.DataSource.DataSet.FieldByN ame('kod_sotr').AsInteger;
end;
finally
//уничтожаем форму, и соответственно все компоненты которые ей принадлежат
Free;
end;