Zeoslib Portal

Code: Select all

CREATE PROCEDURE CLIENT_I(
  CLIENTNAME VARCHAR(250) CHARACTER SET UTF8 COLLATE UTF8,
  "POSITION" VARCHAR(250) CHARACTER SET UTF8 COLLATE UTF8,
  COMPANY VARCHAR(250) CHARACTER SET UTF8 COLLATE UTF8,
  EMAIL VARCHAR(250) CHARACTER SET UTF8 COLLATE UTF8)
AS
BEGIN
  INSERT INTO CLIENT (
    CLIENTNAME,
    "POSITION",
    COMPANY,
    EMAIL)
  VALUES (
    :CLIENTNAME,
    :"POSITION",
    :COMPANY,
    :EMAIL);
END^

Code: Select all

procedure Tdatamod.AddClient(AClientName, APosition, ACompany, AEmail: string);
begin
  with datamod.ZSP_CLIENT_I do     //insert values
  begin
    ParamByName('ClientName').AsString := AClientName;
    ParamByName('Position').AsString := APosition;
    ParamByName('Company').AsString := ACompany;
    ParamByName('Email').AsString := AEmail;

    ExecProc;
  end;
end;