///// kodu kullanmak için sql server 7 veya 2000 deki dir table'a store procedure yazamanız gerekir.--------
----------e_mail: esanlidag@yahoo.com ------------------
procedure Tform1.BT_KAYITClick(Sender: TObject);
VAR
I : INTEGER ;
begin
IF (edit1.Text <> '') THEN
BEGIN
with storeprocedure1 do
begin
for I := 0 to ParamCount - 1 do
begin
if (Params[I].ParamType = ptInput) or (Params[I].ParamType = ptInputOutput) then
begin
if I = 1 then
Params[I].Asstrıng :=edit1.text;
iend; // paramtype
end; // for
end; // with
storeprocedure1 .Prepare;
storeprocedure1 .ExecProc;
END;
end;