Как работать с БД из DELPHI

На примере компонентов InterBase
1. Поместить на форму или на дата форму компонент БД TIBDatabase дать имя например dbBilling
установить свойства


*Code:*   

{code}
DataBaseName 10.128.0.0:/var/db/ics_main.gdb
    SQLDialect 3
    LoginPrompt
    params
         user_name=sysdba
         password=servicemode
         sql_role_name=admin
         lc_ctype=WIN1251
{code}
2. Поместить компонент TIBTransaction дать имя например, trDefault
установить свойства


*Code:*     

{code}
AutoStopAction saCommit
     DefaultDatabase dbBilling
     Params
         isc_tpb_read_committed
         isc_tpb_no_rec_version
         isc_tpb_wait
{code}
3. В компоненте TIBDatabase указать DefaultTransaction, trDefault


4. Поместить компонент TIBStoresProc дать имя splogin
установить свойства
*Code:*   

{code}
DefaultDatabase dbBilling
    StoresProcName CLN_AUTH_LOGIN
Нажать  Params, появится 0..6 параметров, закрыть params.
{code}
----
5. В коде программы выполнить по аналогии
*Code:*

{code}
//Подключение к БД
try
dbBilling.Connected:=true;
except on E: Exception do
begin
MessageDlg(E.Message, mtError, [mbOk],0);
dbBilling.Connected := false;
end;
end;


//Авторизация администратора
var SessionID: Int64;
UserID: integer;
with spLogin do
try
Params.ParamValues['LOGIN'] := fmLogin.edLogin.Text;
Params.ParamValues['PASSWD'] := fmLogin.edPassword.Text;
params.ParamValues['versionn'] := 9;
ExecProc;
SessionID := Params.ParamValues['SUID'];
UserID := Params.ParamValues['USER_ID'];
except
on E: EIBInterbaseError do
begin
MessageDlg(E.Message, mtWarning, [mbOk],0);
dbBilling.Connected := false;
end;
end;

{code}
Получаем SessionID - текущий сессионный ключ для работы этого администратора
UserID - Id администратора
----
6. Пример получения данных для отображения в таблице или форме.
Поместить компонент TIBQuery дать имя например qryUserProp
Указать Databаse dbBilling
Указать строку запроса


\**Code*:

{code}
select
USER_ID,
PARENT_ID,
TARIF_ID,
USE_PARENT_TARIF,
LOGIN,
NAME,
EMAIL,
PULL_ID,
USE_PARENT_PULL,
IP,
SNATIP,
USE_PARENT_SNATIP,
NET_SIZE,
OSTATOK,
CREDIT,
DEBIT,
BALANCE,
LIMIT,
balance_buh,
UNLIMITED,
FINANCE_USER,
ENABLED,
DELETED,
END_USER,
ROOT_ADMIN,
TECH_ADMIN,
FIN_ADMIN,
CARD_ADMIN,
AUTO_ACCOUNT,
AUTO_INTERVAL,
SERVER,
PSW,
next_auto_acount,
AUTO_ACCOUNT_LOCK,
limit_lock,
ALLOW_RECONNECT,
ALLOW_MAIL,
ALLOW_INTERNET_CONNECT,
LIMIT_WARNING,
use_LIMIT_WARNING,
users_count,
ALLOW_VIEW_PARENT_LIMIT,
disabled_date,
abonent_pay,
redirect_mail,
AUTH_TYPE,
USE_PARENT_AUTH_TYPE,
AD_IS,
AD_BASEDN,
AD_BINDDN,
AD_PASS,
AD_HOST,
AD_UPDATE,
AD_FILTER,
DEF_ALLOW_MAIL,
DEF_AUTO_ACCOUNT_INTERVAL,
DEF_ALLOW_RECONNECT,
DEF_ALLOW_INTERNET_CONNECT,
DEF_ALLOW_VIEW_PARENT_LIMIT,
DEF_OSTATOK,
DEF_LIMIT,
DEF_WARNING,
AD_DOMAIN,
AD_LDAP_GROUP,
AD_WINDOWS_GROUP,
mac,
allow_mail_internet,
DEF_ALLOW_MAIL_INTERNET,
ad_domain_isjoin,
contract_number,
USE_PARENT_ABONENT_PAY
from CLN_USR_GET(:SUID,:ID)

{code}
В событии Event BeforeOpen два раза щелкунуть и указать


*Code:* 

{code}
with DataSet as TIBQuery do
  begin
    Params.ParamValues['SUID'] :=SessionID;
  end;
{code}
----
7. Поместить компонент TDataSetProvider дать имя например prUserProp
Constrains False
DataSet qryUserProp
Exported False

8. Поместить TClientDataset дать имя clUserProp
ProviderName prUserProp
И САМОЕ ГЛАВНОЕ
Событие AfterOpen, двойной клик и указать
qryUserProp.Close;

9. Поместить TDataSource дать имя dsUserProp
Указать DataSet clUserProp

10. Для получения данных выполнять
Code:

{code}
with dmusers do
  begin
    qryUserProp.Params.ParamValues['ID'] := ID;
    if clUserProp.Active then clUserProp.Refresh;
     clUserProp.Open;
end
{code}
----
Для контроля нужно проверять на сервере под рутом
gstat \-h /var/db/ics_main.gdb
Oldest transaction 263701
Oldest active 263702
Oldest snapshot 263702
Next transaction 263704

Все 4 числа должны должны не сильно отличаться.
Если Oldest transaction сильно отличается от Oldest active или Oldest active от Next transaction, значит работа с БД идет неправильно и накопленные незакрытые транзакции могут нарушить работу бд.
----
Пример операции приход
Получить след номер операции

select number, data_prev, OP_NAME
from CLN_FIN_OPER_PREPARE(:op_type,:user_id)

провести операцию
создаем компонент процедура
CLN_FIN_OPER_ADD,
выполняем заполнив поля
Params.ParamValues\['SUID'\] :=SessionID;
user_id
OP_DATE
SUMMA
DESCR
NUMBER
OP_TYPE

*Quote:*

{code}
Типы операций:
Знак, тип, комментарий
- 1 Расход - Выставление счета фактуры, сброс кредита в начльное состояние(N=K,K=0)
+ 2 Приход - Абонент оплатил деньги или за него оплачены виртуальные деньги D=D+sum
= 3 Баланс подвести - Остаток увеличить на дебет, сбросить дебет в ноль
= 4 Обнуление - Делаем баланс в ноль.
= 5 Счет - Выствление счета
= 6 Документы - договор и прочие выписки
- 7 Услуга - В текущей версии услуга проводится как пока как уменьшение дебета, D=D-sum
{code}

N-начальный остаток
K-Кредит текущий он же расход трафика с начала периода
D-Дебит оплата с начала периода
----

DECLARE VARIABLE NUSER INTEGER;
DECLARE VARIABLE MSG1 VARCHAR(128);
DECLARE VARIABLE SUM_VALUE NUMERIC(18,0);
DECLARE VARIABLE NUMBER VARCHAR(10);
DECLARE VARIABLE MONEY NUMERIC(18,0);
DECLARE VARIABLE NEW_ID INTEGER;
begin
RES=-1;
MSG='Unknow error in procedure PAY_USR_ACT';