Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління / Лабораторна робота №6 з курсу «Об'єктно-орієнтоване програмування» Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління / Лабораторна робота №7 з курсу «Об'єктно-орієнтоване програмування» Перевірила: Поліщук У.В. Львів 2011 Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління / Лабораторна робота №8 з курсу «Об'єктно-орієнтоване програмування» Перевірила: Поліщук У.В. Львів 2011 Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління / Лабораторна робота №9 з курсу «Об'єктно-орієнтоване програмування» Перевірила: Поліщук У.В. Львів 2011 Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління / Лабораторна робота №10 з курсу «Об'єктно-орієнтоване програмування» Перевірила: Поліщук У.В. Львів 2011 Створення ужитку з використанням бази даних Мета: навчитись створювати таблиці бази даних за допомогою утиліти Database Desktop, зрозуміти способи доступу до таблиць та особливості роботи з ними у системі програмування Delphi. Порядок роботи Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи порядок роботи короткі теоретичні відомості алгоритм розв’язку задачі тексти відповідних модулів проекту аналіз отриманих результатів та висновки Завдання База даних країн. Текст програми unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, query1, table1, StdCtrls; type TForm1 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; ttable11: ttable1; button1: TButton; edit1: TEdit; button2: TButton; button3: TButton; edit2: TEdit; label1: TLabel; label2: TLabel; button4: TButton; label3: TLabel; button6: TButton; button7: TButton; procedure FormCreate(Sender: TObject); procedure button1Click(Sender: TObject); procedure button2Click(Sender: TObject); procedure button3Click(Sender: TObject); procedure button4Click(Sender: TObject); procedure button5Click(Sender: TObject); procedure button6Click(Sender: TObject); procedure button7Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i:Integer; s:string; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin //ttable11. i:=ttable11.FieldCount; end; procedure TForm1.button1Click(Sender: TObject); begin tTable11.Edit; // переводить таблицю у режим редагування //tTable11.FieldByName('Name').AsString := 'Borland'; end; procedure TForm1.button2Click(Sender: TObject); begin tTable11.SetKey; // переведення у режим пошуку tTable11.FieldByName(edit2.Text).AsString := Edit1.Text; // значення яке потрібно відшукати Ttable11.GotoKey; // фактичне виконання пошуку end; procedure TForm1.button3Click(Sender: TObject); begin Ttable11.Post; // збереження таблиці на диску, end; procedure TForm1.button4Click(Sender: TObject); begin tTable11.SetKey; // переведення у режим пошуку tTable11.FieldByName(edit2.Text).AsString := Edit1.Text; // значення яке потрібно відшукати Ttable11.GotoNearest; // фактичне виконання пошуку end; procedure TForm1.button5Click(Sender: TObject); begin //edit3.Text:=FieldsByName('Name').AsString;//IntToStr(i); //s:=ttable11.FieldByName('Name'); //ttable11.Next; end; procedure TForm1.button6Click(Sender: TObject); begin ttable11.Prior; end; procedure TForm1.button7Click(Sender: TObject); begin ttable11.Next; end; end. Скріншот / Висновок: на лабораторній роботі я навчився створювати таблиці бази даних, зрозумів способи доступу до таблиць та особливості роботи з ними Delphi.