ماهو الخطأ فى هذا الكود

[محمد .م.م]

لقد وضعت هذا الكود

كود :

procedure TForm1.Button2Click(Sender: TObject); begin adotable1.Insert; end; procedure TForm1.Button1Click(Sender: TObject); begin form2.ShowModal; end; procedure TForm1.Button3Click(Sender: TObject); begin if (DataSource1.State =dsinsert) then begin form2.adotable1.Append; form2.ADOTable1DSDesigner.Value := DBEdit1.Text; form2.ADOTable1_2.Value := DBEdit2.Text; ADOTable1.Post; form2.ADOTable1.Post; end else begin if(DataSource1.State =dsEdit) then begin form2.adotable1.Edit; form2.ADOTable1DSDesigner.Value := DBEdit1.Text; form2.ADOTable1_2.Value := DBEdit2.Text; ADOTable1.Post; form2.ADOTable1.Post; end; end; end;

وعندما وضعت except try كما فى هذا الشكل لا يعمل

كود :

procedure TForm1.Button2Click(Sender: TObject); begin adotable1.Insert; end; procedure TForm1.Button1Click(Sender: TObject); begin form2.ShowModal; end; procedure TForm1.Button3Click(Sender: TObject); begin Try if (DataSource1.State =dsinsert) then begin form2.adotable1.Append; form2.ADOTable1DSDesigner.Value := DBEdit1.Text; form2.ADOTable1_2.Value := DBEdit2.Text; ADOTable1.Post; form2.ADOTable1.Post; end else begin if(DataSource1.State =dsEdit) then begin form2.adotable1.Edit; form2.ADOTable1DSDesigner.Value := DBEdit1.Text; form2.ADOTable1_2.Value := DBEdit2.Text; ADOTable1.Post; form2.ADOTable1.Post; Except Showmessage ( 'تم' ) end; end; end;

ماهو الحل

[phpbb3]

كود :

procedure TForm1.Button3Click(Sender: TObject); begin Try if (DataSource1.State =dsinsert) then begin form2.adotable1.Append; form2.ADOTable1DSDesigner.Value := DBEdit1.Text; form2.ADOTable1_2.Value := DBEdit2.Text; ADOTable1.Post; form2.ADOTable1.Post; end else begin if(DataSource1.State =dsEdit) then begin form2.adotable1.Edit; form2.ADOTable1DSDesigner.Value := DBEdit1.Text; form2.ADOTable1_2.Value := DBEdit2.Text; ADOTable1.Post; form2.ADOTable1.Post; end; end; Except Showmessage ( 'تم' ) end; end;