Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Задание: Работа с базами данных на основе технологии BDE
|
|
Форма 2
Код программы
Form1: TForm1;
implementation
Uses Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
var
S1: PChar;
begin
S1: =' Вы действительно желаете закрыть программу? ';
//-вызов окна сообщения запроса с двумя кнопками " Да" и " Нет"
if Application.MessageBox(S1, 'Запрос', MB_YESNO)=IDYES
then Close;
end;
procedure TForm1.N8Click(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
else
{Удаляем запись}
DataModule2.ADOTable1.Delete;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
{Удаление записи}
DataModule2.ADOTable1.Delete;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
if Form3.ShowModal=mrOK then
{Фиксируем изменения}
DataModule2.ADOTable1.Post
else
DataModule2.ADOTable1.Cancel;
end;
procedure TForm1.N4Click(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.N5Click(Sender: TObject);
// Фильтруем по телефону
begin
if Form5.ShowModal=mrOK then
begin
with DataModule2.ADOTable1 do
begin
Filter: = 'Phone = '+Form5.Edit1.Text;
Filtered: = True;
end
end;
end;
procedure TForm1.N6Click(Sender: TObject);
// Cнимаем фильтры
begin
DataModule2.ADOTable1.Filter: = '';
DataModule2.ADOTable1.Filtered: = False;
end;
end.
Вывод: я приобрёл практические навыки организации взаимодействия программного приложения Delphi с однотабличной базой данных на основе BDE и на основе технологии ADO.