cxgridde navigator butonları yardımıyla kayıt girişi yapıyorum. post edildikten sonra bazı işlemler yaptırıcam. bunun için post butonuna ulaşmam gerektiğini düşündüm.
ben aşağıdaki kodları gridin navigatorbuttonclick olayına yazdım ama dediğim gibi post koduna ulaşamadım. yardımcı olursanız sevinirm.
Kod: Tümünü seç
procedure Thesapform.cxGrid1DBTableView1NavigatorButtonsButtonClick(
Sender: TObject; AButtonIndex: Integer; var ADone: Boolean);
begin
sorun bu satırda//If cxGrid1DBTableView1.NavigatorButtons.Buttons[10] then
begin
dm.sorgu.DataSource:=dm.MUSDS;
dm.sorgu.Close;
dm.sorgu.SQL.Clear;
dm.sorgu.SQL.Text:='Select sum(ODEMEMIKTARI) from ODEME where KISIID=:MUSTERI_PK';
dm.sorgu.Open;
dm.HESAPDATA.Open;
dm.HESAPDATA.Edit;
dm.HESAPDATA.FieldByName('ODENEN_PARA').AsFloat:=dm.sorgu.Fields[0].asfloat;
dm.HESAPDATA.Post;
end;
end;