SET TERM ^ ;
CREATE PROCEDURE SP_CUSTOMER_SAVE (
    PCST_ID Varchar(50),
    PCST_NO Integer,
    PCST_NAME Varchar(250),
    PCST_STR_ID Varchar(50),
    PCST_HOUSE Varchar(250),
    PCST_APT Varchar(10),
    PCST_STATUS Integer,
    PCST_MEMO Blob sub_type 1 )
AS
BEGIN
   
    IF (EXISTS(SELECT CST_ID FROM TB_CUSTOMERS WHERE CST_ID = :PCST_ID)) THEN BEGIN
      UPDATE TB_CUSTOMERS SET CST_NAME = :PCST_NAME, CST_STR_ID = :PCST_STR_ID, CST_HOUSE = :PCST_HOUSE, CST_APT = :PCST_APT, CST_STATUS = :PCST_STATUS, CST_MEMO = :PCST_MEMO
      WHERE CST_ID = :PCST_ID;
    END ELSE BEGIN
      INSERT INTO TB_CUSTOMERS (CST_ID, CST_NO, CST_NAME, CST_STR_ID, CST_HOUSE, CST_APT, CST_STATUS, CST_MEMO)
      VALUES (:PCST_ID, :PCST_NO, :PCST_NAME, :PCST_STR_ID, :PCST_HOUSE, :PCST_APT, :PCST_STATUS, :PCST_MEMO);
    END
 
END^
SET TERM ; ^

GRANT EXECUTE
 ON PROCEDURE SP_CUSTOMER_SAVE TO  SYSDBA;

procedure TfrmCustomer.SaveMaster;
var
  s : string;
  i : integer;
  Param      : TParam;
  Field      : TField;
  FieldName  : string;
  ParamName  : string;
  sProcName  : string;
  fMemParams : TMemTable;
begin
  if fMemData.State in [dsEdit, dsInsert] then
    fMemData.Post
  else
    Exit;
  try
    fMemParams := TMemTable.Create(nil);
    sProcName := 'sp_customer_save';
    s := 'SELECT RDB$PARAMETER_NAME FROM RDB$PROCEDURE_PARAMETERS ' +
         'WHERE UPPER(RDB$PROCEDURE_NAME) = UPPER(:sProcName) ' +
         'ORDER BY RDB$PARAMETER_NUMBER';
    fDBQuery.Close;
    fDBQuery.SQL.Text := s;
    fDBQuery.FetchParams;
    fDBQuery.Params[0].AsString := sProcName;
    fDBQuery.Open;
    fMemParams.LoadFromDataSet(fDBQuery.RecordSet);
    fDBQuery.Close;
    fDBQuery.SQL.Text := sProcName;
    fDBQuery.FetchParams;

    while not fMemParams.Eof do begin
      ParamName := TRIM(fMemParams.Fields[0].AsString);
      FieldName := Copy(ParamName, 2, Length(ParamName) - 1);
      Field     := fMemData.FindField(FieldName);
      Param     := fDBQuery.CreateParam(ParamName, Field.DataType);
      case Field.DataType of
        ftBoolean    : Param.AsBoolean  := Field.AsBoolean;
        ftTime       ,
        ftDate       ,
        ftDateTime   : Param.AsDateTime := Field.AsDateTime;
        ftSmallInt   ,
        ftInteger    ,
        ftWord       ,
        ftAutoInc    : Param.AsInteger  := Field.AsInteger;
        ftCurrency   ,
        ftBCD        ,
        ftFloat      : Param.AsFloat    := Field.AsFloat;
        ftOraBlob,
        ftBlob       : Param.Value        := Field.Value;
        ftOraClob,
        ftMemo,;
        ftWideString : Param.AsString     := Field.AsString;
        else           Param.AsString     := Field.AsString;
      end; // case fParams[i].DataType
      fMemParams.Next;
    end;
    fDBQuery.Execute;
    fDBQuery.Close;
    fModified := TRUE;
  finally
    fMemParams.Free;
  end;
end;