48534 (Разработка базы данных "Отдел сбыта"), страница 3
Описание файла
Документ из архива "Разработка базы данных "Отдел сбыта"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48534"
Текст 3 страницы из документа "48534"
' group by '+group;
end
else
if order='' then
begin
Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from+' where '+where+
' group by '+group+' having '+having;
end
else
begin
Form1. ADOQuery1. SQL. Text: = 'select '+sel+' from '+from+' where '+where+
' group by '+group+' having '+having+' order by '+order;
end;
Form1. ADOQuery1. Active: = true;
Form2. Visible: =false;
end;
end;
// ---------------------------------------------------------------------
procedure TForm2. Edit5Change (Sender: TObject);
begin
Memo1. Lines [8]: =' Group by '+Edit5. Text;
if Edit5. Text<>'' then
begin
Label7. Enabled: =true;
Edit7. Enabled: =true;
end
else
begin
Label7. Enabled: =false;
Edit7. Enabled: =false;
end;
end;
procedure TForm2. Edit2Change (Sender: TObject); // управление Мемо
begin
Memo1. Lines [2]: =' Select '+Edit2. Text;
end;
procedure TForm2. Edit3Change (Sender: TObject);
begin
Memo1. Lines [4]: =' From '+Edit3. Text;
end;
procedure TForm2. Edit4Change (Sender: TObject);
begin
Memo1. Lines [6]: =' Where '+Edit4. Text;
end;
procedure TForm2. Edit7Change (Sender: TObject);
begin
Memo1. Lines [10]: =' Having '+Edit7. Text;
end;
procedure TForm2. Edit6Change (Sender: TObject);
begin
Memo1. Lines [12]: =' Order by '+Edit6. Text;
end;
procedure TForm2. Button2Click (Sender: TObject);
begin
Form2. Visible: =false;
end;
procedure TForm2. Edit1Change (Sender: TObject);
begin
Memo1. Lines [0]: ='Запрос - '+Edit1. Text;
end;
end.