|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.02.2008, 14:26 | #1 |
Пользователь
Регистрация: 11.12.2007
Сообщений: 39
|
телефонни справочник
может кто поможет я только начинаюшии в делпи.
не буду всё излогать но приблизительно подскажу если получится уменя. я хачу использоват 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; ето не работает. Последний раз редактировалось bmb_66; 23.02.2008 в 14:58. |
23.02.2008, 15:31 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.01.2008
Сообщений: 163
|
Что то я не очень разобрался что именно нужно! Но как я понял!
У Вас одна кнопка и заполнен Edit1 либо Edit6! Обычным If else Код:
|
23.02.2008, 16:09 | #3 |
Пользователь
Регистрация: 11.12.2007
Сообщений: 39
|
пробовал не получается.
обясню по сути. В Access ест две таблици которие не связани. Для поиска созда ADOQuery1 и ADOQuery2, соответствено на Form5 и Form6 поставил DBGrid1 и DBGrid2. На Form1 создал Edit1 и Edit6, ешо поставил BitBtn1. хачу чтоби когда заполнена Edit1 при клике на кнопку виводилос сообшение из однои тамлици (TMosaxleoba) а когда заполнена Edit6 виводилос сообшение из другои тамлици (TOrganizacia). и ешо при закритии Form1 или Form6 очишалос все Edit. |
23.02.2008, 16:39 | #4 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.01.2008
Сообщений: 163
|
Так я тебе и пишу, к примеру у тебя по умолчанию в эдитах пусто.
Первое условие если будет заполнен эдит1 Второе условие если будет заполнен эдит6 Или сразу все вместе! Если эдиты будут заполнены!! Эдиты очищай Edit1.text:='': Код:
Последний раз редактировалось Snoopy; 23.02.2008 в 16:51. |
23.02.2008, 17:29 | #5 |
Пользователь
Регистрация: 11.12.2007
Сообщений: 39
|
всёравно что то не ладно.
при едит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. может если знаеш что то подскажеш. |
23.02.2008, 19:10 | #6 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.01.2008
Сообщений: 163
|
А это у тебя уже запрос не верный типа не найден параметр! Посмотри повнимательнее как составлены запросы ADOQueri2, не опечатался где нибудь!
Должно быть чтото типа вот такова Select * From MyTable Where MyField=:Telefonebi; Ну взависимости от тваей таблицы и от воего запроса!! Последний раз редактировалось Snoopy; 23.02.2008 в 19:23. |
24.02.2008, 13:40 | #7 |
Пользователь
Регистрация: 11.12.2007
Сообщений: 39
|
спасиба Snoopy ????
испаравил запрос и всё работает, но одно но. при клике кнопки виводится обе форми Form5 и Form6. и ежо написал код как ти подсказал примерно так procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Edit1.Text:=''; end; но Edit1 не хочет очишатся. надеюс на тебя и на других на подсказку???? заранее благодарен! |
24.02.2008, 16:34 | #8 | ||
Форумчанин Подтвердите свой е-майл
Регистрация: 14.01.2008
Сообщений: 163
|
Цитата:
или напиши чтото типа такова Код:
Цитата:
|
||
25.02.2008, 12:11 | #9 |
Пользователь
Регистрация: 11.12.2007
Сообщений: 39
|
спасиба за всё. пачти что и сам дадумался но у меня по другому
if (Form1.Edit1.text<>'') and (Form1.Edit6.text=' ') then а код procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Edit1.Text:=''; end; ни как не хочет работат, что то придумаю наверна. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Электронный Справочник | Killbrum | Софт | 14 | 15.10.2017 20:44 |
Телефонный справочник на TC | Qai | Фриланс | 5 | 25.05.2008 01:02 |
справочник по Api функциям | serg131 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 5 | 22.05.2008 04:54 |
справочник по прерываниям | serres | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 22.12.2007 16:17 |
справочник | bill | Помощь студентам | 3 | 22.05.2007 16:03 |