Н. 3. Елманова. C++Builder 3.0, архитектура "клиент/сервер" и Internet
лицу CLIENTS.DBF из входящей в комплект поставки C++Builder базь данных DBDEMOS (например, с помощью утилиты Data Migration Wizard и создадим приложение для ввода данных в нее (рис. 3.8).
il
I 023435 2034056 1209395 3094038
и | •« | »•    и I + 1 — j *. I >/ | X | C* t !     Сохранить   |;    Отменить   t         Выход
Рис. 3.8. Приложение для ввода данных в таблицу ORACLE
Значения свойств компонентов созданного приложения приведен в табл. 3.1. Особо отметим, что свойство CachedUpdates компонента Table должно иметь значение* TRUE.
Нажатие на кнопки   Button 1 и Button2   приводит соответственно к пс пытке сохранения данных на сервере и к отмене внесенных изменений. //....................................-..-........................
^include <vcl\vcl.h>
#pragma hdrstop
ffinclude "appn.h" //.......-.............................--.........................
tfpragma link "Grids"
#pragma resource "*.dfm"
TForml *Form1 ; //.......................................-..-.....................
_fastcallTForml::TForm1(TComponent* Owner)       : TForm(Owner)
{
} //................................................................
void _fastcall TForml : :Button1 Click(TObject *Sender)
{
Table!->^pplyUpdates() ;
} //....................................-...-.-.....................
50
Компоненты Data Access, используемые в приложениях клиент/сервер void _fastcall TForml::Button2Click(TObject   «Sender)
{
Table!->CancelUpdates();
} //----•-----------------
void _fastcall TForml::Button3Click(TObject  *Sender)
{ Close();
}
II-------
Таблица 3.1
51
Компонент         Свойство            Значение Database 1            DatabaseName    my_database Params                         SERVER NAME=ORA USER NAME=USER1 NET PROTOCOL=TNS OPEN MODE=READ/WRITE SCHEMA CACHE SIZE=8 LANGDRIVER=ancyrr SQLPASSTHRU MODE=SHARED AUTOCOMMIT SCHEMA CACHE TIME=-1 MAX  ROWS=-1 BATCH COUNT=200 ENABLE SCHEMA CACHE=FALSE SCHEMA CACHE  DIR= ENABLE  BCD=FALSE ENABLE  INTEGERS=FALSE LIST SYNONYMS=NONE ROWSET SI2E=20 BLOBS TO CACHE=64 BLOB SIZE=32 PASSWORD=U Table 1                 Active                  true CachedUpdates   true DatabaseName    my_database TableName          CLIENTS DataSourcel        DataSet               Table 1 DBGridl             DataSource          DataSourcel DBNavigatorl     DataSource          DataSourcel rJBlmagel           DataSource          DataSourcel
