работа с одной формой одновременно
Здраствуйте. Помогите разобраться. Несколько человек заполняют данные в форму. Программа находится на сервере, база также. При нажатии кнопки сохранить данные отбражаются и у остальных.
Сначало сохраняю , после обновляю данные на форме
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();
Цитата: 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();
Сначало сохраняю , после обновляю данные на форме
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();
А я то думал....
Ну в общем программа работает так, как её написали.