iy_nomer from Prodavci))
(@ N1 in (select Lichniy_nomer from Zakazi))
(@ N1 in (select Lichniy_nomer from Prodazha)) 1Lichniy_nomer = @ N1
return @ err
CREATE PROCEDURE procdel5 (
@ N1 int) AS
@ err int @ N1 not in (select Artikul from Katalog) 2 (@ N1 in (select Artikul from Katalog))
(@ N1 in (select Artikul from Zakazi))
(@ N1 in (select Artikul from Prodazha))
(@ N1 in (select Artikul from Komplektuyuschie)) 1Artikul = @ N1
return @ err
CREATE PROCEDURE procdel7 (
@ N1 int) AS
@ err int @ N1 not in (select Nomer_pokupatelya from Zakazi) 2Nomer_pokupatelya = @ N1
return @ err
CREATE PROCEDURE procdel8 (
@ N1 int) AS
@ err int @ N1 not in (select Artikul from Komplektuyuschie) 2 @ N1 in (select Artikul from Komplektuyuschie) @ N1 in (select Artikul from Prodazha) @ N1 in (select Artikul from Zakazi) 1Artikul = @ N1
return @ err
CREATE PROCEDURE procreportkomplekt2 (@ n int) Artikul as art, Naimenovanie_tovara as tovar, Materinskaya_plata as plata, as proce, Kuler as kul, Videokarta as vid, Operativnaya_pamyat as pam, as vint, Klaviatura as kla, Monipulyator as man, DVD_CD as dvd, Korpus as kor, Floopy as flKomplektuyuschie Artikul = @ nPROCEDURE reportprodazha (@ n int
) Prodavci.FIO as fioprod,
Nazvanie_firmi as firma, as nazv,
Data as data1,. Cena as cena1, as kol, magazin.adres as adres1, Naimenovanie_tovara as tovar,. Artikul as art, katalog.Cena * Kolichestvo as summa1Prodazha inner join Pokupateli on Prodazha.Nomer_pokupatelya = Pokupateli.Nomer_pokupatelyajoin magazin on Prodazha.Nomer_magazina = magazin.Nomer_magazinajoin katalog on Prodazha.Artikul = katalog.Artikuljoin prodavci on Prodazha.Lichniy_nomer = prodavci.Lichniy_nomerProdazha.Nomer_pokupatelya = @ n
Додаток 2
Оригінальний текст клієнтської програми
Текст програми основного модуля
unit unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, DBTables
, unit3, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave,, unit4, unit5, unit6, Menus, ExtCtrls, DBCtrls, MXGRID, MXPIVSRC,, Mxstore, TeeProcs, TeEngine, Chart, MXGRAPH , Series, XPMan; = class (TForm): TDataSource;: TADOConnection;: TADOTable;: TADOStoredProc;: TDataSource;: TADOStoredProc;: TADOTable;: TADOTable;: TADOStoredProc;: TDataSource;: TDataSource;: TADOStoredProc;: TADOTab...
