телефонни справочник

[bmb_66]

может кто поможет я только начинаюшии в делпи.
не буду всё излогать но приблизительно подскажу если получится уменя.

я хачу использоват 2 таблици Access.
на форме Form1 паставил Edit1, Edit6 (я подробно не приважу всё а именно что мне не удалос делат) и BitBtn1. при клике на BitBtn1 я хачу чтоб если будет заполнен Edit1 из аднои таблици, виводилос информациа в Form5 а заполнив Edit6 из другои таблици виводилос информациа в Form6.

первим сообжением я всё сделал и нормально работает а со вторим у меня ничего не вишла. не дадумиваюс как написать код.
вот и код.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DataModule4.ADOQuery1.Active:=false ;
DataModule4.ADOQuery1.Parameters.Pa ramByName('Telefoni').Value:=Edit1. Text;
DataModule4.ADOQuery1.Active:=true;
Form5.ShowModal;

как подсоединит второи код
DataModule4.ADOQuery2.Active:=false ;
DataModule4.ADOQuery2.Parameters.Pa ramByName('Telefonebi').Value:=Edit 6.Text;
DataModule4.ADOQuery2.Active:=true;
Form6.ShowModal;
end;
или мошет всё по другому нада написат.
и ешо одно как можна очишать от записи Edit1 и Edit6 фосле закритиа Form5 и Form6.
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Edit1.Clear;
ето не работает.

[Snoopy]

Что то я не очень разобрался что именно нужно! Но как я понял!
У Вас одна кнопка и заполнен Edit1 либо Edit6!
Обычным If else

if Edit1.text<>' ' then
 begin
DataModule4.ADOQuery1.Active:=false;
DataModule4.ADOQuery1.Parameters.ParamByName('Tele foni').Value:=Edit1.Text;
DataModule4.ADOQuery1.Active:=true;
end;
if Edit6.text<>' ' then
begin
DataModule4.ADOQuery2.Active:=false;
DataModule4.ADOQuery2.Parameters.ParamByName('Tele fonebi').Value:=Edit6.Text;
DataModule4.ADOQuery2.Active:=true;
Form6.ShowModal;
end;

Очищать Edit можно примерно так Edit1.text:=' ';

[bmb_66]

пробовал не получается.
обясню по сути.
В Access ест две таблици которие не связани.
Для поиска созда ADOQuery1 и ADOQuery2, соответствено на Form5 и Form6 поставил DBGrid1 и DBGrid2.
На Form1 создал Edit1 и Edit6, ешо поставил BitBtn1.
хачу чтоби когда заполнена Edit1 при клике на кнопку виводилос сообшение из однои тамлици (TMosaxleoba) а когда заполнена Edit6 виводилос сообшение из другои тамлици (TOrganizacia).

и ешо при закритии Form1 или Form6 очишалос все Edit.

[Snoopy]

Так я тебе и пишу, к примеру у тебя по умолчанию в эдитах пусто.
Первое условие если будет заполнен эдит1
Второе условие если будет заполнен эдит6
Или сразу все вместе! Если эдиты будут заполнены!!
Эдиты очищай Edit1.text:='':

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Edit1.text<>'' then // если тут чтото есть, то есть не равен  пустоте так //казать, то делать   
 begin   
DataModule4.ADOQuery1.Active:=false;   
DataModule4.ADOQuery1.Parameters.ParamByName('Tele foni').Value:=Edit1.Text;   
DataModule4.ADOQuery1.Active:=true;   
end;   
if Edit6.text<>'' then   
begin   
DataModule4.ADOQuery2.Active:=false;   
DataModule4.ADOQuery2.Parameters.ParamByName('Tele fonebi').Value:=Edit6.Text;   
DataModule4.ADOQuery2.Active:=true;   
Form6.ShowModal;   
end;
end;

И что у тебя не получается???

[bmb_66]

всёравно что то не ладно.
при едит1 запрос работает но не очишается при закритии форми5.
хотя чут поправил код, ато не работало.
begin
DataModule4.ADOQuery1.Active:=false ;
DataModule4.ADOQuery1.Parameters.Pa ramByName('Tele foni').Value:=Edit1.Text;
DataModule4.ADOQuery1.Active:=true;
Form5.ShowModal;
end;

а при едит6 виводит ошибку
Project Project2.exe raised exception class EDatapaseError with message 'ADOQueri2:Parameteр 'Telefonebi' not found'. Process stopped. Use step or run continue.

может если знаеш что то подскажеш.

[Snoopy]

А это у тебя уже запрос не верный типа не найден параметр! Посмотри повнимательнее как составлены запросы ADOQueri2, не опечатался где нибудь!
Должно быть чтото типа вот такова Select * From MyTable Where MyField=:Telefonebi; Ну взависимости от тваей таблицы и от воего запроса!!

[bmb_66]

спасиба Snoopy ????
испаравил запрос и всё работает, но одно но.
при клике кнопки виводится обе форми Form5 и Form6.

и ежо написал код как ти подсказал примерно так
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Edit1.Text:='';
end;
но Edit1 не хочет очишатся.
надеюс на тебя и на других на подсказку????
заранее благодарен!

[Snoopy]

при клике кнопки виводится обе форми Form5 и Form6.

Значит они не пустые может там пробел какой нибудь есть! Убери
или напиши чтото типа такова

if (Form1.Edit1.text<>'') or (Form1.Edit1.text<>' ') then
.....

но Edit1 не хочет очишатся.

Form1.Edit1.Text:=''; и Form1.Edit1.Clear; абсолютно рабочие!

[bmb_66]

спасиба за всё. пачти что и сам дадумался но у меня по другому
if (Form1.Edit1.text<>'') and (Form1.Edit6.text=' ') then

а код
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Edit1.Text:='';
end;
ни как не хочет работат, что то придумаю наверна.