Коллеги, делфисты!
Это не совсем реклама. Просто наша контора уже давно разработала и пользуется очень удобным средством для работы с SQL базами данных. Вот, решили оформить всё это дело(открытый исходный код) и выложить на ваш суд. Итак...
Библиотека HitSQL предназначена для "продвинутой" работой с SQL базами данных. Включает в себя все аспекты: от соединения с сервером базы данных, формированием запроса, созданием и контролем транзакций и заканчивая получением данных по результатам запроса.
| Код |
type
TCountry = class(TIdTable)
private
FValue: TString50;
published
property Value: TString50 read FValue write FValue;
end;
TEmployees = class(TidTable)
private
FFirstName: TString50;
FSecondName: TString50;
FCountry: TCountry;
FSalary: TFloat;
published
property FirstName: TString50 read FFirstName write FFirstName;
property SecondName: TString50 read FSecondName write FSecondName;
property Country: TCountry read FCountry write FCountry;
property Salary: TFloat read FSalary write FSalary;
end;
|
Подобно технологии ORM (<i>Object Relation Mapping</i>), для работы с HitSQL необходимо описывать метаданные базы данных посредством декларации объектов специального вида, совпадающих по структуре со структурой базы данных и полей таблиц.
В качестве компонент для доступа к базам данных, в данный момент библиотека поддерживает следующие возможности: ADO (Microsoft ADO), FIB, ZDO (ZeosLib). Поддерживаемые диалекты: Microsoft SQL Server, Interbase/Firebird, MySQL.
Пример получения набора данных:
| Код |
function GetEmployeesList: TDataSet;
var
Query: IQuery;
Tx: IReadOnlyTx;
begin
Tx := ConnectionPool.ReadOnlyTx;
with TEmployees.Create do
Query := Select(FirstName, SecondName, Country).OrderBy(SecondName);
Result:= Tx.SelectDataSet(Query);
end;
|
Пример добавления данных:
| Код |
var
Tx: IReadWriteTx;
begin
Tx := ConnectionPool.ReadWriteTx;
with TEmployees.Create do
Tx.Execute(Insert([FirstName.SetTo('John'), SecondName.SetTo('Doe')]));
Tx.Commit;
end;
|
Пример модификации данных:
| Код |
var
Tx: IReadWriteTx;
begin
Tx := ConnectionPool.ReadWriteTx;
with TEmployees.Create do
Tx.Execute(Update([FirstName.SetTo('Jane')]).Where(SecondName.Equals('Doe')));
Tx.Commit;
end;
|
И ещё масса возможностей по работе с базами данных.
Версия с открытым кодом библиотеки выпускается под GPL v.3 лицензией.
Страничка на sourceforge http://hitsql.wiki.sourceforge.net/rus
Добавлено через 1 минуту и 6 секунд
Оставляйте отзывы, пожалуйста! |
)
