Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
КН
Кафедра:
Кафедра автоматизованих систем управління
Інформація про роботу
Рік:
2013
Тип роботи:
Лабораторна робота
Предмет:
Об’єктно-орієнтоване програмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
/
Лабораторна робота №6 з курсу
«Об'єктно-орієнтоване програмування»
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
/
Лабораторна робота №7 з курсу
«Об'єктно-орієнтоване програмування»
Виконав: студент групи КН-32
Гето Юрій
Перевірила:
Поліщук У.В.
Львів 2011
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
/
Лабораторна робота №8 з курсу
«Об'єктно-орієнтоване програмування»
Виконав: студент групи КН-32
Гето Юрій
Перевірила:
Поліщук У.В.
Львів 2011
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
/
Лабораторна робота №9 з курсу
«Об'єктно-орієнтоване програмування»
Виконав: студент групи КН-32
Гето Юрій
Перевірила:
Поліщук У.В.
Львів 2011
Міністерство освіти України
Національний університет «Львівська політехніка»
Кафедра автоматизованих систем управління
/
Лабораторна робота №10 з курсу
«Об'єктно-орієнтоване програмування»
Виконав: студент групи КН-32
Гето Юрій
Перевірила:
Поліщук У.В.
Львів 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.
31.03.2013 01:59
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора