3.3 Настройка DataSource
TDataSource имеет очень мало свойств. Как вы уже видели, свойство Data-Set используется для связи DataSource с набором данных. Свойство Enabled определяет, будут ли интерфейсные компоненты, связанные с DataSource, отображать данные.
Рисунок 3.3.1 Свойства DataSource
Основное назначение DataSource состоит в том, чтобы облегчить внесение изменений в приложения. Все визуальные компоненты данных на форме связаны с DataSource, который, в свою очередь, связан с набором данных.
3.4 Настройка adoQuery
База данных задается свойством ConnectionString, или свойством Connection, подключающим компонент к ADOConnection. Для управления данными в приложение вводится, помимо компонента ADOQuery, обычный компонент источника данных DataSource, в свойстве DataSet которого задается имя компонента ADOQuery. Далее к этому источнику данных DataSource подключаются любые компоненты отображения данных.
Рисунок 3.4.1 Свойства ADOQuery
3.5 Настройка 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.
