Autoincrement, Trigger ve procedure secerek cread edildi.
resimde görüldügü gibi IBexpert ile veri ekleyince STK_ID otomatik olarak artıyor.
Kod: Tümünü seç
data_form.stkuret.Append;
Kod: Tümünü seç
procedure Tdata_form.stkuretBeforeInsert(DataSet: TDataSet);
begin
showmessage('data insert yapılıyor.');
end;
Kod: Tümünü seç
data_form.stkuret.Append; // data_form.stkuret.Append; denendi
data_form.stkuretSTK_MODEL.Text := trim(pf_musaitkapi.Text);
data_form.stkuretSTK_ADI.Text := recete_grid.Cells[1,i]; //işlem adı
data_form.stkuretSTK_MIKTAR.AsString := recete_grid.Cells[2,i]; //işlem miktar
data_form.stkuretSTK_BRM.Text := recete_grid.Cells[3,i]; //işlem birimi
data_form.stkuretSTK_FYT.AsString := recete_grid.Cells[4,i]; //işlem fiyatı
data_form.stkuretSTK_TUTAR.AsString := recete_grid.Cells[5,i]; //işlem tutar
data_form.stkuretSTK_ALAN6.AsString := recete_grid.Cells[6,i]; // işlem tarihi
data_form.stkuret.Post;
[img] [/img]