Глава 3. Настройка компонентов

Настройка ADOConnection

Первым делом настраиваем компонент ADOConnection. Компонент ADOConnection соединяется с базой данных через свойство СоnnectionString. А во всех прочих компонентах, связанных с ADOConnection, достаточно установить в свойствеConnection имя компонента ADOConnection.

Рисунок 3.1.1 Начало настройки ADOConnection

После нажатия на кнопку Build…  появится окно «Свойства связи с данными».

Рисунок 3.1.2 Окно «Свойства связи с данными»

Там выбираем строку Microsoft Jet 4.0 OLE DB Provider .

При нажатии на кнопку «Далее» у нас появляется новое окно , которое позволяет выбрать свою базу данных .

Рисунок 3.1.3 Окно выбора базы данных

Далее после выбора нашей базы данных  проверяем соединение.

Рисунок 3.1.4 Проверка подключения

Настройка ADODataSet

База данных задается свойствами ConnectionString или Connection. Для управления данными в приложение вводится, помимо компонента ADODataSet,обычный компонент источника данных DataSource,в свойстве DataSet которого задается имя компонента ADODataSet.Далее к этому источнику данных DataSource подключаются любые компоненты отображения данных. Режим работы ADODataSet задается CommandText.

Рисунок 3.2.1 Настройка ADODataSet

Настройка DataSource

TDataSource имеет очень мало свойств. Как вы уже видели, свойство Data-Set используется для связи DataSource с набором данных. Свойство Enabled определяет, будут ли интерфейсные компоненты, связанные с DataSource, отображать данные.

Рисунок 3.3.1 Свойства DataSource

Основное назначение DataSource состоит в том, чтобы облегчить внесение изменений в приложения. Все визуальные компоненты данных на форме связаны с DataSource, который, в свою очередь, связан с набором данных.

Настройка ADOQuery

База данных задается свойством ConnectionString, или свойством Connection, подключающим компонент к ADOConnection. Для управления данными в приложение вводится, помимо компонента ADOQuery, обычный компонент источника данных DataSource, в свойстве DataSet которого задается имя компонента ADOQuery. Далее к этому источнику данных DataSource подключаются любые компоненты отображения данных.

Рисунок 3.4.1 Свойства ADOQuery

Настройка DBGrid

Для вызова редактора столбцов щелкните правой кнопкой мыши на таблице и выберите пункт Columns Editor в контекстном меню.  Так же в свойстве DataSource выбираем DataSource1 .

Рисунок 3.5.1 Свойства DBGrid

Свойство Options позволяет вам установить опции, определяющие отображение и поведение сетки. С помощью этого свойства вы можете выключить заголовки столбцов, разрешить или запретить изменение размера столбцов, включить или выключить отображение разделительных линий столбцов и строк, и т. д.

Глава 4. Оформление

В для удобства и красоты добавляем 4 Buttona для переключения между таблицами и переименовываем их под название таблиц .

Рисунок 4.1 Добавление кнопок

Так же добавляем DBNavigator для удобного перемещения по таблицам.

Рисунок 4.1 Навиатор

Рисунок 4.2 Фоновый рисунок

Глава 5. Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, DB;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOQuery1: TADOQuery;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

adoquery1.Active:=False;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from adres') ;

adoquery1.Active:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

adoquery1.Active:=False;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from anketa') ;

adoquery1.Active:=True;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

adoquery1.Active:=False;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from kvartira') ;

adoquery1.Active:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

adoquery1.Active:=False;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from cena') ;

adoquery1.Active:=True;

end;

end.

Заключение

Я разработал базу данных и «Аренда квартир» и приложение к ней, для удобства работы адреса, анкеты клиентов, цены и параметры квартир. Каждый желающий без особого труда сможет посмотреть интересующую его информацию.

Список литературы

1.Карпова Т.С. Базы данных: модели, разработка, реализация /Т.С. Карпова – СПб.:Питер,2001.-304с.

2. Фуфаев Э.В. Базы данных / Э.В. Фуфаев, Д.Э. Фуфаев. –М.: Изд. Центр «Академия», 2005.-320 с.

3. http://www.lessons-tva.info/edu/e-inf2/m2t4_6.html

4. http://datasql.ru/baseworkbd/5.htm

5.http://cbuilder.inf.ua/index.php?option=com_content&task=view&id=143&Itemid=2

6.http://cbuilder.inf.ua/index.php?option=com_content&task=view&id=144&Itemid=2

7. http://helpstudio.h1.ru/books/d4/d4_16/_datasou.htm

8. http://cbuilder.ru/index.php?topic=3079.0