Технология баз данных ADO в Delphi — страница 14

  • Просмотров 39448
  • Скачиваний 597
  • Размер файла 122
    Кб

TMainForm.TopRetBtnClick(Sender: TObject); var i: integer; begin if Panel1.Visible then Exit; Panel4.Align := alNone; Panel1.Align := alNone; Panel1.Top := -ClientHeight; Panel1.Visible := true; Panel1.Update; for i:=0 to ClientHeight div 5 do begin Panel4.Top := Panel4.Top + 5; Panel1.Top := Panel1.Top + 5; Update; end; Panel4.Visible := false; Panel4.Align := alClient; Panel1.Align := alClient; end; procedure TMainForm.TabControl1Change(Sender: TObject); var s: string; begin s := TabControl1.Tabs[TabControl1.TabIndex]+'.txt'; if FileExists(s) then Memo3.Lines.LoadFromFile(s) else Memo3.Text := Файл не найден; end; procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of 39: if Panel1.Visible then RightBtn.Click else if

Panel3.Visible then RightRetBtn.Click; 37: if Panel1.Visible then LeftBtn.Click else if Panel2.Visible then LeftRetBtn.Click; 40: if Panel1.Visible then BottomBtn.Click; 38: if Panel4.Visible then TopRetBtn.Click; end; end; procedure TMainForm.Button1Click(Sender: TObject); begin ADOQuery1.SQL.Text := Memo4.Text; ADOQuery1.Active := true; DBGrid1.Update; end; procedure TMainForm.Button2Click(Sender: TObject); begin ADOCommand1.CommandText := Memo4.Text; ADOCommand1.Execute; end; end. 2.3. Сборник задач 1) Соединится с базой данных с помощью ADO и вывести данные в таблицу 2) Создать приложение, позволяющее добавлять, удалять данные в базе и отображать

изменения 3) Создать приложение, выводящее отсортированные по определенному полю данные 4) Создать приложение, позволяющее изменять данные в определенной записи и отображать изменения 5) Создать приложение, позволяющее загружать из базы данных изображения и вывводить их на экран 6) Создать приложение, размеры и положение которого хранятся в базе данных и сохраняются при закрытии 7) Создать приложение, сохраняющее дату открытия

и закрытия программы, а также время работы 8) Создать приложение, для поиска максимального и минимального значения в базе данных Заключение В электронном учебнике были рассмотрены основные одни из основных функций используемые в Delphi при работе с ADO. Главной целью являлось знакомство с компонентами TADOConnection и TADOCommand . Это позволило показать легкость и доступность использования компонентов и дало возможность для дальнейшего,

более глубокого изучения компонентов. Это, также ещё раз подтвердило, что Delphi является мощным и универсальным инструментом для разработки приложений, и удобной средой за счет большого и расширяемого набора компонент. Результат работы электронного учебника может говорить о простоте и удобности использования компонентов. В то же самое время, компоненты поддерживают работу протоколов и стандартов передачи данных на

полнофункциональном уровне. Благодаря использованию технологий ООП (Объектно-Ориентированное Программирование) компоненты ADO имеют простую иерархическую структуру и сходную между собой модель, благодаря которой, изучение компонентов делается ещё более простым. Не смотря на то, что проект является открытым (Open Source), это лишний раз доказывает, что можно и нужно использовать программы или библиотеки из таких проектов. Также