A form1, a form2
First in a dbgrideh form1
Results from the database query, assigned to the dbgrideh form2,
Always will pop up a box is an assignment is successful, points ok assignment successfully cancel assignment failure,
Can not show this window,
The code is
Procedure TForm1. DBGridEh1EditButtonClick (Sender: TObject);
The begin
With Form2. Sp1 do
The begin
//Close;
ProcedureName:='a2';
The Parameters. Refresh;
Parameters. ParamByName (' @ bm) Value:=trim (DBGrideh1. Columns. The Grid. The fields [0], Value);
ExecProc;
The Open;
//Form2. Show;
end;
end;
CodePudding user response:
Can you see the code is posted