![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Я хочу сделать SQL запрос из одного окна (в нем нет SQL не DB, просто окно, для поиска..) другому, но вот точно не знаю как.. подскажи мне пожалуйсто и поправьте
....Зарание спасибо! Вот что я намудрил: Код:
procedure TForm13.Button1Click(Sender: TObject);
begin
Fam:=Edit1.text;
Name:=Edit2.Text;
Clas:=Edit3.Text;
if Fam > '' and Name > '' and Clas > '' then
begin
with form2.Query do
begin
Form2.Query.Close;
Form2.Query.SQL.Add('SELECT * FROM liceym.db WHERE Fam, Name, Clas LIKE "'+ Fam + '","'+ Name + '","'+ Clas + '"');
Form2.Query.Open;
end;
if Form2.Query.RecordCount <> 0 then Form2.QSource.DataSet:=Query
else
begin
ShowMessage ('Ничего не было найдено');
Form3DSource.DataSet:=Table;
end;
end;
end;в 3 Edit-а вводим, имя, фамилию и класс, нажимаем кнопку Поиск, и из Формы №4 идет запрос форме №2.... Очень прошу помогите!!! Последний раз редактировалось JIexa, 10.01.2008 в 00:57. |