Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

работа с одной формой одновременно

50K
13 февраля 2012 года
Aden
43 / / 24.10.2011
Здраствуйте. Помогите разобраться. Несколько человек заполняют данные в форму. Программа находится на сервере, база также. При нажатии кнопки сохранить данные отбражаются и у остальных.
50K
13 февраля 2012 года
Aden
43 / / 24.10.2011
А может дело в транзации.
Сначало сохраняю , после обновляю данные на форме
void __fastcall TfrKartAbon::PrNew()
{
int IRow=1;
dmOne->ClearGrid(sgNew);
rePribNew->Clear();
ShapkaPriborNew();
dmOne->IBQTwo->SQL->Text=" select SA.FOREIGIN_SPR_PRIB AS KOD,"
" SA.DAT_ACT,SP.NAIM,SA.CONDITION "
" from SOOTV_ABOPRIB_NEW SA,SPR_PRIB_NEW SP "
" where (SA.FOREIGIN_ABON=:NOM)"
" AND (SA.FOREIGIN_SPR_PRIB=SP.KOD)";

dmOne->IBQTwo->ParamByName("NOM")->Value=edNom->Text;
dmOne->IBQTwo->Prepare();
dmOne->IBQTwo->Active=true;
while (!dmOne->IBQTwo->Eof) {
sgNew->RowCount=IRow+1;
sgNew->Cells[0][IRow]=
dmOne->IBQTwo->FieldByName("KOD")->AsString;
sgNew->Cells[1][IRow]=
dmOne->IBQTwo->FieldByName("NAIM")->AsString;
sgNew->Cells[2][IRow]=
dmOne->IBQTwo->FieldByName("DAT_ACT")->AsString;
sgNew->Cells[3][IRow]=
dmOne->IBQTwo->FieldByName("CONDITION")->AsString;
dmOne->IBQTwo->Next();
IRow++;
}
dmOne->IBQTwo->Close();
277
13 февраля 2012 года
arrjj
1.7K / / 26.01.2011
Цитата: Aden
А может дело в транзации.
Сначало сохраняю , после обновляю данные на форме
void __fastcall TfrKartAbon::PrNew()
{
int IRow=1;
dmOne->ClearGrid(sgNew);
rePribNew->Clear();
ShapkaPriborNew();
dmOne->IBQTwo->SQL->Text=" select SA.FOREIGIN_SPR_PRIB AS KOD,"
" SA.DAT_ACT,SP.NAIM,SA.CONDITION "
" from SOOTV_ABOPRIB_NEW SA,SPR_PRIB_NEW SP "
" where (SA.FOREIGIN_ABON=:NOM)"
" AND (SA.FOREIGIN_SPR_PRIB=SP.KOD)";

dmOne->IBQTwo->ParamByName("NOM")->Value=edNom->Text;
dmOne->IBQTwo->Prepare();
dmOne->IBQTwo->Active=true;
while (!dmOne->IBQTwo->Eof) {
sgNew->RowCount=IRow+1;
sgNew->Cells[0][IRow]=
dmOne->IBQTwo->FieldByName("KOD")->AsString;
sgNew->Cells[1][IRow]=
dmOne->IBQTwo->FieldByName("NAIM")->AsString;
sgNew->Cells[2][IRow]=
dmOne->IBQTwo->FieldByName("DAT_ACT")->AsString;
sgNew->Cells[3][IRow]=
dmOne->IBQTwo->FieldByName("CONDITION")->AsString;
dmOne->IBQTwo->Next();
IRow++;
}
dmOne->IBQTwo->Close();



А я то думал....

Ну в общем программа работает так, как её написали.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог