Форум: "Базы";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Тип float в InterBase.   Найти похожие ветки 

← →
onix   (2002-03-18 09:54) [7]

procedure TFMain.SB_InsProductClick(Sender: TObject);
begin
with DM.SPTemp do begin
Active := false;
StoredProcName := "InsProduct";
Params.CreateParam(ftInteger,"Parent", ptInput).AsInteger := TView(TV_DirProduct.Selected.Data).ID;
Params.CreateParam(ftString,"Head", ptInput).AsString := NameProduct.Text;
Params.CreateParam(ftFloat,"PraceIn", ptInput).AsFloat := PraceIn.Value;
Params.CreateParam(ftFloat,"PraceOut", ptInput).AsFloat := PraceOut.Value;
ExecProc;
end;
end;

А это сама процедурка
CREATE PROCEDURE INSPRODUCT (
PARENT INTEGER,
HEAD VARCHAR(150),
PRACEIN FLOAT,
PRACEOUT FLOAT
) AS
BEGIN
insert into PRODUCT
values (GEN_ID(PRODUCT,1), :PARENT, :HEAD, :PRACEIN, :PRACEOUT);
END

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c