Error Handling Cancel data (delphi-red)
procedure TFMintaBarang.BitBtnCancelClick(Sender: TObject);
begin
if (not ((ADOTable1.State=dsEdit) or (adotable1.State=dsInsert)))
then
begin
if (adotable1.MaxRecords=0)
then
begin
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
BitBtn13.Enabled:=true;
BitBtn14.Enabled:=true;
BitBtn15.Enabled:=true;
ADOConnection1.Close;
DataSource1.DataSet.Close;
ADOTable1.Close;
ADOConnection1.Open;
DataSource1.DataSet.Open;
ADOTable1.Open;
end
else
begin
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
BitBtn13.Enabled:=true;
BitBtn14.Enabled:=true;
BitBtn15.Enabled:=true;
ADOConnection1.Close;
DataSource1.DataSet.Close;
ADOTable1.Close;
ADOConnection1.Open;
DataSource1.DataSet.Open;
ADOTable1.Open;
exit;
end;
end;
if ((adotable1.State=dsEdit) or (ADOTable1.State=dsInsert))
then
begin
if (ADOTable1.MaxRecords=0)
then
begin
showmessage(‘Tidak jadi Update Data’);
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
BitBtn13.Enabled:=true;
BitBtn14.Enabled:=true;
BitBtn15.Enabled:=true;
ADOConnection1.Close;
DataSource1.DataSet.Close;
ADOTable1.Close;
ADOConnection1.Open;
DataSource1.DataSet.Open;
ADOTable1.Open;
end
else
begin
BitBtn10.Enabled:=true;
BitBtn11.Enabled:=true;
BitBtn12.Enabled:=true;
BitBtn13.Enabled:=true;
BitBtn14.Enabled:=true;
BitBtn15.Enabled:=true;
ADOConnection1.Close;
DataSource1.DataSet.Close;
ADOTable1.Close;
ADOConnection1.Open;
DataSource1.DataSet.Open;
adotable1.Open;
exit;
end ;
end;
end;
leave a comment