xt=DM-> KPTTable-> FieldByName («MinIntG») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxIntG») -> Value;
}
//---------------------------------------------------------------------------__fastcall TKPTForm :: DBGrid1Enter (TObject * Sender)
{> Text=DM-> KPTTable-> FieldByName («NumKPT») -> AsString;> Text=DM-> KPTTable-> FieldByName («NameKPT» ;) -> Value;> Text=DM-> KPTTable-> FieldByName («MinRY») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxRY»)-> Value;> Text=DM-> KPTTable-> FieldByName («MinY») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxY») -> ; Value;> Text=DM-> KPTTable-> FieldByName («MinG») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxG») -> Value ;> Text=DM-> KPTTable-> FieldByName («MinIntY») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxIntY») -> Value;> ; Text=DM-> KPTTable-> FieldByName («MinIntG») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxIntG») -> Value;
}
//---------------------------------------------------------------------------__fastcall TKPTForm :: Button1Click (TObject * Sender)
{>KPTTable->Edit();>KPTTable->Append();>KPTTable->FieldByName(«NumKPT»)->Value =NumKPT-> Text;> KPTTable-> FieldByName («NameKPT») -> Value=NameKPT-> Text;> KPTTable-> FieldByName («MinRY») -> Value=MinRY-> Text;> KPTTable-> FieldByName («MaxRY») -> Value=MaxRY-> Text;> KPTTable-> FieldByName («MinY») -> Value=MinY-> ; Text;> KPTTable-> FieldByName («MaxY») -> Value=MaxY-> Text;> KPTTable-> FieldByName («MinG») -> Value=MinG-> Text ;> KPTTable-> FieldByName («MaxG») -> Value=MaxG-> Text;> KPTTable-> FieldByName («MinIntY») -> Value=MinIntY-> Text;> ; KPTTable-> FieldByName («MaxIntY») -> Value=MaxIntY-> Text;> KPTTable-> FieldByName («MinIntG») -> Value=MinIntG-> Text;> KPTTable-> FieldByName («MaxIntG») -> Value=MaxIntG-> Text;
}
//---------------------------------------------------------------------------__fastcall TKPTForm :: Button2Click (TObject * Sender)
{> KPTTable-> Delete (); Enter (this);
}
//---------------------------------------------------------------------------__fastcall TKPTForm :: Button3Click (TObject * Sender)
{>KPTTable->Edit();>KPTTable->FieldByName(«NumKPT»)->Value =NumKPT-> Text;> KPTTable-> FieldByName («NameKPT») -> Value=NameKPT-> Text;> KPTTable-> FieldByName («MinRY») -> Value=MinRY-> Text;> KPTTable-> FieldByName («MaxRY») -> Value=MaxRY-> Text;> KPTTable-> FieldByName («MinY») -> Value=MinY-> ; Text;> KPTTable-> FieldByName («MaxY») -> Value=MaxY-> Text;> KPTTable-> FieldByName («MinG») -> Value=MinG-> Text ;> KPTTable-> FieldByName («MaxG») -> Value=MaxG-> Text;> KPTTable-> FieldByName («MinIntY») -> Value=MinIntY-> Text;> ; KPTTable-> FieldByName («MaxIntY») -> Value=MaxIntY-> Text;> KPTTable-> FieldByName («MinIntG») -> Value=MinIntG-> Text;> KPTTable-> FieldByName («MaxIntG») -> Value=MaxIntG-> Text;
}
/ / ---------------------------------------------------------------------------
Файл: DataModule.h
/ / ----------------------------------------...
