48534 (Разработка базы данных "Отдел сбыта"), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка базы данных "Отдел сбыта"", который расположен в категории "". Всё это находится в предмете "информатика" из 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.

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4125
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее