Пример приложения ADO

Теперь попробуем применить на практике представленную в этой главе информацию о реализации ADO в Delphi. В качестве примера создадим простое приложение ADO Demo, которое "умеет" отображать пару таблиц БД, сохранять изменения при помощи групповых операций, сортировать записи и устанавливать фильтры на выбранные записи (рис. 19.9).

Рис. 19.9. Главное окно приложения ADO Demo

В качестве источника данных выберем файлы dBase, имеющиеся в демонстрационной базе данных Delphi \Program Files\Common Files\Borland Shared \Data. Для использования в приложении выберем две таблицы: INDUSTRY и MASTER. Они связаны между собой внешним ключом по полям IND_CODE и INDUSTRY соответственно.

Таблицу INDUSTRY можно редактировать, она инкапсулирована в компоненте tbiIndustry типа TADOTable и отображается в левом компоненте TDBGrid. А таблица MASTER инкапсулирована в компоненте tbIMaster, предназначена только для просмотра. Эти два компонента связаны отношением "ОДИН-КО-МНОГИМ" При помощи свойств MasterSource И MasterFields.

Листинг 19.2. Секция implementation модуля uMain приложения ADO Demo 

implementation

uses IniFiles, FileCtrl;

const slniFileName: String = 'ADODemo.ini';

sEmptyDefDB: String = 'Database path is empty';

sEmptyFilter: String = 'Records for filter is not selected';

{$R *.dfm}

procedure TfmMain.FormShow(Sender: TObject);

 begin

with TIniFile.Create(slniFileName) do

 try

DefDBStr := ReaDString('DefDB', 'DefDBStr1, "); 

edDefDB.Text := DefDBStr;

 finally

Free; end;

SetLength(Bookmarks, 0);

  end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);

 begin

with TIniFile.Create(slniFileName) do

 try

WriteStringCDefDB', 'DefDBStr', edDefDB.Text); 

finally

Free ;

  end; 

end;

procedure TfmMain.sbDefDBClick(Sender: TObject);

 begin if SelectDirectory(DefDBStr, [], 0)

then edDefDB.Text := DefDBStr;

  end;

procedure TfmMain.tbConnectClick(Sender: TObject); 

begin

ADOConn.Close;

ADOConn.DefaultDatabase := ''; if DefDBStr = '' then

 begin

MessageDlg(sEmptyDefDB, mtError, [mbOK], 0);

Abort;

 end 

else 

begin

ADOConn.DefaultDatabase := DefDBStr;

ADOConn.Open; 

end;

  end;

procedure TfmMain.tbSaveClick(Sender: TObject);

 begin

tbllndustry.UpdateBatch(); 

end;

procedure TfmMain.tbFilterClick(Sender: TObject); 

var i: Integer;

 begin

if dbglndustry.SelectedRows.Count > 0 then

 begin

SetLength(Bookmarks, dbglndustry.SelectedRows.Count);

 for i := 0 to dbglndustry.SelectedRows.Count — 1 do

 begin

Bookmarks[i].VType := vtPointer;

Bookmarks[i].VPointer := pointer(dbglndustry.SelectedRows[i]);

  end;

tbllndustry.FilterOnBookmarks(Bookmarks); 

end else

MessageDlgtsEmptyFilter, mtWarning, [mbOK], 0); 

end;

procedure TfmMain.tbUnFilterClick(Sender: TObject); 

begin

tbllndustry.Filtered := False;

dbglndustry.SelectedRows.Clear;

  end;

procedure TfmMain.dbglndustryTitleClick(Column: TColumn); 

begin if tbllndustry.Active then

if (Pos(Column.FieldName, tbllndustry.Sort) > 0

}and(Pos('ASC', tbllndustry.Sort) > 0)

then tbllndustry.Sort := Column.FieldName + ' DESC' else tbllndustry.Sort := Column.FieldName + ' ASC';

  end;

procedure TfmMain.ADOConnAfterConnect(Sender: TObject);

var i: Integer;

begin

for i := 0 to adoConn.DataSetCount - 1 do ADOConn.DataSets [i] .Open/end;

procedure TfmMain.ADOConnBeforeDisconnect(Sender: TObject);

var i: Integer;

begin

for i := 0 to adoConn.DataSetCount — 1 do ADOConn.DataSets[i].Close;

  end;

end.

 


Знаете ли Вы, что, как и всякая идолопоклонническая религия, релятивизм ложен в своей основе. Он противоречит фактам. Среди них такие:

1. Электромагнитная волна (в религиозной терминологии релятивизма - "свет") имеет строго постоянную скорость 300 тыс.км/с, абсурдно не отсчитываемую ни от чего. Реально ЭМ-волны имеют разную скорость в веществе (например, ~200 тыс км/с в стекле и ~3 млн. км/с в поверхностных слоях металлов, разную скорость в эфире (см. статью "Температура эфира и красные смещения"), разную скорость для разных частот (см. статью "О скорости ЭМ-волн")

2. В релятивизме "свет" есть мифическое явление само по себе, а не физическая волна, являющаяся волнением определенной физической среды. Релятивистский "свет" - это волнение ничего в ничем. У него нет среды-носителя колебаний.

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

4. В гравитационном релятивизме (ОТО) вопреки наблюдаемым фактам утверждается об угловом отклонении ЭМ-волн в пустом пространстве под действием гравитации. Однако астрономам известно, что свет от затменных двойных звезд не подвержен такому отклонению, а те "подтверждающие теорию Эйнштейна факты", которые якобы наблюдались А. Эддингтоном в 1919 году в отношении Солнца, являются фальсификацией. Подробнее читайте в FAQ по эфирной физике.

НОВОСТИ ФОРУМА

Форум Рыцари теории эфира


Рыцари теории эфира
 10.11.2021 - 12:37: ПЕРСОНАЛИИ - Personalias -> WHO IS WHO - КТО ЕСТЬ КТО - Карим_Хайдаров.
10.11.2021 - 12:36: СОВЕСТЬ - Conscience -> РАСЧЕЛОВЕЧИВАНИЕ ЧЕЛОВЕКА. КОМУ ЭТО НАДО? - Карим_Хайдаров.
10.11.2021 - 12:36: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от д.м.н. Александра Алексеевича Редько - Карим_Хайдаров.
10.11.2021 - 12:35: ЭКОЛОГИЯ - Ecology -> Биологическая безопасность населения - Карим_Хайдаров.
10.11.2021 - 12:34: ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> Проблема государственного терроризма - Карим_Хайдаров.
10.11.2021 - 12:34: ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> ПРАВОСУДИЯ.НЕТ - Карим_Хайдаров.
10.11.2021 - 12:34: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вадима Глогера, США - Карим_Хайдаров.
10.11.2021 - 09:18: НОВЫЕ ТЕХНОЛОГИИ - New Technologies -> Волновая генетика Петра Гаряева, 5G-контроль и управление - Карим_Хайдаров.
10.11.2021 - 09:18: ЭКОЛОГИЯ - Ecology -> ЭКОЛОГИЯ ДЛЯ ВСЕХ - Карим_Хайдаров.
10.11.2021 - 09:16: ЭКОЛОГИЯ - Ecology -> ПРОБЛЕМЫ МЕДИЦИНЫ - Карим_Хайдаров.
10.11.2021 - 09:15: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Екатерины Коваленко - Карим_Хайдаров.
10.11.2021 - 09:13: ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вильгельма Варкентина - Карим_Хайдаров.
Bourabai Research - Технологии XXI века Bourabai Research Institution