Городской транспорт

Begin

Begin

Else

Begin

Else

Begin

Var

S1:PChar;

S1:=' Вы действительно желаете закрыть программу?';

//-вызов окна сообщения запроса с двумя кнопками “Да” и “Нет”

if Application.MessageBox(S1,'Запрос', MB_YESNO)=IDYES

then Close;

end;

20.Отключите возможность изменения размеров окна. Для этого в свойстве BorderStyle формы Form1 установите значение bsSingle.

21.Создайте форму для ввода и редактирования записей по образцу, приведенному на рис. 10. Создав новую форму, впишите в ее раздел Uses модуль Unit2 (напомним, что это модуль данных). Для строк ввода используйте компонент TDBEdit (закладка Data Controls) и установите для них свойство DataSource = DataModule2.DataSource1 и DataField требуемое поле БД. В раздел implementation после ключевого слова Uses модуля Unit1 впишите модуль Unit3.

Рис. 10. Форма Form3, предназначенная для ввода и корректировки данных таблицы MainData

22. Общая схема работы с данной формой представления на Рис. 11.

Рис. 11. Алгоритм процедур добавления и корректировки записей

В соответствии с этой схемой скорректируйте процедуру обработки нажатия пункта меню Событие Добавить следующим образом:

procedure TForm1.N7Click(Sender: TObject);
begin

{Добавили запись в таблицу}

DataModule2.Adotable1.Insert;

{Устанавливаем текущие значения дат и времени в новой записи}

DataModule2.Adotable1.FieldByName('DateS').Value:= Date();
DataModule2.Adotable1.FieldByName('FromTime').Value:= Time();
DataModule2.Adotable1.FieldByName('ToTime').Value:= Time();
if Form3.ShowModal=mrOK then

{Фиксируем изменения}

DataModule2.ADOTable1.Post

{Удаляем запись}

DataModule2.ADOTable1.Delete;

end;

23. Скорректируйте процедуры обработки нажатия пунктов меню Событие \ Удалить и Событие \ Редактировать следующим образом:

procedure TForm1.N8Click(Sender: TObject);

// Событие / Удалить

{Удаление записи}

DataModule2.ADOTable1.Delete;
end;

procedure TForm1.N9Click(Sender: TObject);

// Событие / корректировать

begin
if Form3.ShowModal=mrOK then

{Фиксируем изменения}

DataModule2.ADOTable1.Post

DataModule2.ADOTable1.Cancel;
end;

24.Сохраните, запустите проект и проверьте его работу. Добавьте несколько записей в таблицу MainData. Откройте базу данных db1.mdb в MS Access и посмотрите на внесенные изменения.

25.Обработайте пункты меню «Поиск» формы Form1 путем установки фильтров на таблицу. Для этого создайте еще две формы по образцам, представленным на рис. 12.

Рис. 12. Формы для установки фильтров (Form4и Form5)

26.Впишите в модуле Unit1 послеключевого слова implementation в разделе Uses модули Unit4 и Unit5. Сформируйте обработчики событий меню Поиск:

procedure TForm1.N5Click(Sender: TObject);
begin

// Фильтруем по дате

if Form4.ShowModal=mrOK then
begin
with DataModule2.ADOTable1 do
begin

Filter:= 'DateS='+ DateToStr(Form4.MonthCalendar1.Date);
Filtered:= True;

end
end;
end;

procedure TForm1.N6Click(Sender: TObject);

// Фильтруем по телефону

begin
if Form5.ShowModal=mrOK then
begin
with DataModule2.ADOTable1 do

Filter:= 'Phone = '+Form5.Edit1.Text;

Filtered:= True;

end
end;

end;

procedure TForm1.N10Click(Sender: TObject);

// Cнимаем фильтры

DataModule2.ADOTable1.Filter:= '';
DataModule2.ADOTable1.Filtered:= False;
end;

27. Сохраните, запустите проект и проверьте его работу.

Индивидуальные задания

Варианты задач

Список характеристик:

Вид транспорта, номер маршрута, начальная остановка, конечная остановка, время в пути, примечание.

Дата добавления: 2015-05-09