Материал: Разработка информационной системы учёта товаров магазина мелисса

= :VMY_GOODSID)

INTO VMY_AMOUNT_DISPLAY, :VMY_PRICE_DISPLAY;

/* РАСЧИТАТЬ НОВОЕ КОЛИЧЕСТВО */

IF (:VMY_AMOUNT_DISPLAY IS NULL) THEN VMY_AMOUNT_DISPLAY = 0;

VMY_AMOUNT = (:VMY_AMOUNT_DISPLAY + :VMY_AMOUNT);

/* РАСЧИТАТЬ НОВУЮ ЦЕНУ */

IF (:VMY_PRICE_DISPLAY IS NOT NULL) THEN

IF ((:VMY_PRICE_DISPLAY = 0) OR ((:VMY_PRICE_DISPLAY <>

:VMY_PRICE))) THEN

VMY_PRICE = 0;

/* ОБНОВИТЬ ТАБЛИЦУ */ UPDATE TGOODS

SET FAMOUNT = :VMY_AMOUNT,

FPRICE = :VMY_PRICE WHERE FID = :VMY_GOODSID;

END /* FOR */ End
create or alter procedure PDOCUMTITLES_GETTITLE ( VIN_SHOWDEL smallint,

VIN_STARTDATE date,

VIN_ENDDATE date, VIN_METHOD smallint, VIN_VALUE integer, VIN_USERID integer)

returns (

VID bigint,

VTYPENAME varchar(20), VTYPEID smallint, VSTATEID smallint, VSTATENAME varchar(15), VDATE date,

VTIME time, VPERSONID bigint, VPERSON varchar(30), VUSER varchar(20), VSUMM decimal(15,2))

as BEGIN

FOR SELECT D.FID, D.FTYPE,b.ftype, D.FSTATE,a.FSTATE, D.FDATE, D.FTIME, D.FPERSON, P.FSHORTNAME, U.FLOGIN, D.FSUMM

FROM ((((TDOCUMTITLES D

LEFT JOIN TPERSON P ON D.FPERSON = P.FID) LEFT JOIN TUSERS U ON D.FUSER = U.FID)

LEFT JOIN tdocumstate a ON D.fstate = a.fid) LEFT JOIN tdocumtype b ON D.ftype = b.fid) WHERE ((:VIN_SHOWDEL = 0 AND

D.FSTATE IN (1, 2) /*ОТОБРАЖАТЬ ТОЛЬКО НЕ УДАЛЕННЫЕ*/ OR (:VIN_SHOWDEL = 1)) /*ОТОБРАЖАТЬ ВСЕ*/

AND

((:VIN_METHOD = 0 AND D.FUSER = :VIN_USERID)

OR (:VIN_METHOD IN (1, 2) AND D.FPERSON = :VIN_VALUE AND D.FUSER =

:VIN_USERID)

OR (:VIN_METHOD = 3 AND D.FTYPE = :VIN_VALUE AND D.FUSER =

:VIN_USERID)

OR (:VIN_METHOD = 5 AND (:VIN_VALUE = 0 OR (:VIN_VALUE > 0 AND D.FUSER = :VIN_VALUE))))

AND (D.FDATE BETWEEN :VIN_STARTDATE AND :VIN_ENDDATE)

OR (:VIN_METHOD = 0 AND D.FSTATE = 0 AND D.FUSER = :VIN_USERID)) INTO :VID, :VTYPEid, :VTYPEname, :VSTATEID, :VSTATENAME, :VDATE, :VTIME,

:VPERSONID, :VPERSON, :VUSER, :VSUMM DO

BEGIN SUSPEND; END

create or alter procedure PGOODS_GETGOODS ( VIN_CURRID integer not null, VIN_AVAILABLE smallint,

VIN_FINDTEXT varchar(40), VIN_SHOWDEL integer)

returns (

VID integer,

VGOODSNAME varchar(150), VARTICLE varchar(30), VUNIT varchar(10), VCOMMENT varchar(30), VPRICE varchar(15),

Создание триггеров

Создание генераторов

DataModule2->person_select->Open();

DataModule2->groop_select->Open(); DataModule2->goods_select->Close();

DataModule2->goods_select->ParamByName("VIN_CURRID")-

>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-

>AsInteger=1;

DataModule2->goods_select->Open(); Form3->ShowModal();

}//
//СПИСАНИЕ ТОВАРА

voidfastcall TForm1::Button3Click(TObject *Sender)

{Application->CreateForm(classid(TForm3), &Form3);

Form3->type_doc->Caption="Списание товара (Расходная накладная)"; Form3->type->Caption="3";

Form3->state_doc->Caption="Сохранён, не проведён";DataModule2->new_doc-

>ParamByName("VIN_TYPE")->AsInteger=3;

DataModule2->new_doc->ParamByName("VIN_USER")->AsInteger=1; DataModule2->new_doc->Prepare();

DataModule2->new_doc->ExecProc();

Form3->number_doc->Caption=DataModule2->new_doc-

>ParamByName("VNEWID")->AsString; DataModule2->IBTransaction1->Commit(); DataModule2->person_select->Close();

DataModule2->person_select->ParamByName("VIN_GROUP")->AsInteger=3; DataModule2->person_select->Open();

DataModule2->groop_select->Open(); DataModule2->goods_select->Close();

DataModule2->goods_select->ParamByName("VIN_CURRID")-

>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-

>AsInteger=1;

DataModule2->goods_select->Open(); Form3->ShowModal();

}//
//ВОЗВРАТ ТОВАРА

voidfastcall TForm1::Button4Click(TObject *Sender)

{Application->CreateForm(classid(TForm3), &Form3);

Form3->type_doc->Caption="Возврат товара (Приходная накладная)"; Form3->type->Caption="4";

Form3->state_doc->Caption="Сохранён, не проведён";

DataModule2->new_doc->ParamByName("VIN_TYPE")->AsInteger=4; DataModule2->new_doc->ParamByName("VIN_USER")->AsInteger=1; DataModule2->new_doc->Prepare();

DataModule2->new_doc->ExecProc();

Form3->number_doc->Caption=DataModule2->new_doc-

>ParamByName("VNEWID")->AsString; DataModule2->IBTransaction1->Commit(); DataModule2->person_select->Close();

DataModule2->person_select->ParamByName("VIN_GROUP")->AsInteger=2; DataModule2->person_select->Open();

DataModule2->groop_select->Open(); DataModule2->goods_select->Close();

DataModule2->goods_select->ParamByName("VIN_CURRID")-

>AsInteger=DataModule2->groop_select->FieldByName("VID")->AsInteger; DataModule2->goods_select->ParamByName("VIN_AVAILABLE")-

>AsInteger=0;

DataModule2->goods_select->Open(); Form3->ShowModal();

}

voidfastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{DataModule2->IBTransaction1->Commit();}

voidfastcall TForm1::Button5Click(TObject *Sender)

{Application->CreateForm(classid(TForm4), &Form4); Form4->PageControl1->ActivePage=0;

Form4->ShowModal();

}
voidfastcall TForm1::Button9Click(TObject *Sender)

{Application->CreateForm(classid(TForm8), &Form8); DataModule2->title_select->Close();

DataModule2->title_select->ParamByName("VIN_SHOWDEL")->AsInteger=0; DataModule2->title_select->ParamByName("VIN_STARTDATE")-

>AsDate=Form8->DateTimePicker1->Date;