Головна Головна -> Інше українською -> Інформатика, комп'ютери, програмування -> Забезпечення доступу до бази даних MS SQL Server засобами Borland Delphi

Забезпечення доступу до бази даних MS SQL Server засобами Borland Delphi

Назва:
Забезпечення доступу до бази даних MS SQL Server засобами Borland Delphi
Тип:
Інше
Мова:
Українська
Розмiр:
2,93 KB
Завантажень:
252
Оцінка:
 
поточна оцінка 5.0


Скачати цю роботу безкоштовно
Пролистати роботу: 1  2  3 
Міністерство освіти і науки України
Івано-Франківський національний технічний університет нафти і газу
Кафедра КТіСУ
Лабораторна робота №5
з дисципліни “Розподілені бази даних”
Забезпечення доступу до бази даних MS SQL Server засобами Borland Delphi
 
Виконав:
студент групи
АУ -01-2
Дутчак М.М.
Перевірив:
Якубовський В.П.
м.Івано-Франківськ
2006 р.
Мета: забезпечити доступ та розробити інтерфейс для роботи із раніше створеною базою даних, згідно індивідуального завдання з використанням засобів програми Borland Delphi 6.0 чи інших наявних мов програмування.
Прилади і обладнання: програма Borland Delphi 6.0, MS SQL Server, ЕОМ.
Хід роботи:
Використовуючи засоби програми Windows XP, а саме Адміністратор джерел даних ODBC, здійснимо підключення раніше створеної бази даних Formula1 в середовищі Microsoft SQL Server 2000 для її подальшого застосування та відображення в програмному середовищі Borland Delphi:
Мой компьютер Панель управления Администрирование Источник даных ODBC після чого на екран виводиться вікно програми Администратор источников даных ODBC.
Рисунок 1 – Графічне вікно програми Администратор источников даных ODBC
Для встановлення зв’язку із відповідним джерелом даних, в даному випадку із базою даних Formula1 (як бачимо, вона відображається у вікні, тобто база даних була підключена раніше) необхідно натиснути кнопку Добавить…
Рисунок 2 – Вибір драйвера для якого задається джерело даних
Після вибору драйвера джерела даних натиснути кнопку Готово, після чого у відповідному вікні, що появляється задати назву джерела даних, його опис та вибрати відповідний сервер бази даних:
Рисунок 3 – Створення джерела даних для SQL-сервера
Після виконання відповідних налаштувань у вікні Администратора источников даных ODBC з’явиться ім’я підключеного джерела даних, тобто бази даних.
Для забезпечення доступу до бази даних Formula1 MS SQL Server в середовищі Borland Delphi 6.0, використовуються наступні стандартіні компоненти:
Тable DataSource BDGrid
DB Navigator
Компонент Тable розміщується на закладці BDE, він використовується для підключення до бази даних, де відповідно, тобто в його параметрах вказується розтащшування БД, тип БД, логін, пароль та ін.
Компонент DataSource - проміжний компонент, який є джерелом даних, знаходиться на закладці Data Access.
Компоненти DBGrid та DBNavigator використовується для візуалізації і відображення даних, вони розташовані на закладці Data Controls.
Представимо лістинг розробленої програми:


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ExtCtrls, DBCtrls, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
DBNavigator1: TDBNavigator;
Table1ID_comandy: TIntegerField;
Table1Name_comandy: TStringField;
Table1Reyting: TIntegerField;
Table1Predstavnyctvo: TStringField;
Table1Kapital_comandy: TStringField;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
uses Unit6;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Active:=True;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Table1.Active:=False;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form6.Enabled:=True;
end;
end.


Рисунок 4 – Вікно форми Команди формули-1
//--------------------------------------------------------------------------------------------------------------


unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm2 = class(TForm)
DataSource2: TDataSource;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
Table2: TTable;
Table2ID_granpri: TIntegerField;
Table2Name_granpri: TStringField;
Table2City: TStringField;
Table2Pryzovyj_fond: TStringField;
Table2Chyslo_krugiv: TIntegerField;
Table2Data: TDateTimeField;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
Implementation
uses Unit6;
{$R *.

Завантажити цю роботу безкоштовно
Пролистати роботу: 1  2  3 



Інше на тему: Забезпечення доступу до бази даних MS SQL Server засобами Borland Delphi

BR.com.ua © 1999-2017 | Реклама на сайті | Умови використання | Зворотній зв'язок