47578 (608305), страница 6

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

ALTER TABLE "Stroka_Zakaz" ADD CONSTRAINT "FK_N_Nakl_Z_Stroka_Zakaz" FOREIGN KEY ("N_Naklad_Zakaz") REFERENCES "Naklad_Zakaz" ("Numer") ON UPDATE CASCADE;

ALTER TABLE "Stroka_Zakaz" ADD CONSTRAINT "FK_N_Produkcia_Stroka_Zakaz" FOREIGN KEY ("N_Produkcia") REFERENCES "rodukcia" ("Usl_nomer") ON UPDATE CASCADE;

CREATE TABLE "Telefon" (

"Nomer" "Nomer_Tlf" NOT NULL,

"N_Firma" INTEGER,

"N_Rabotnik" INTEGER);

ALTER TABLE "Telefon" ADD CONSTRAINT "PK_Telefon" PRIMARY KEY ("Nomer");

ALTER TABLE "Telefon" ADD CONSTRAINT "FK_N_Rabotnik_Tlf" FOREIGN KEY ("N_Rabotnik") REFERENCES "Rabotnik" ("Usl_nomer") ON DELETE CASCADE ON UPDATE CASCADE;

ALTER TABLE "Telefon" ADD CONSTRAINT "FK_N_firma_Tlf" FOREIGN KEY ("N_Firma") REFERENCES "Klient" ("Usl_nomer") ON DELETE CASCADE ON UPDATE CASCADE;

3 Создание вторичных индексов

Для повышения производительности в таблицах «Работник», «Продукция», «Клиент» были созданы вторичные индексы.

Скрипты создания вторичных индексов

CREATE INDEX "Rabotnik_IDX1" ON "Rabotnik" ("R_Fio");

CREATE INDEX "Rabotnik_IDX2" ON "Rabotnik" ("Adres");

CREATE INDEX "Produkcia_IDX1" ON "Produkcia" ("Name");

CREATE INDEX "Produkcia_IDX2" ON "Produkcia" ("Cena");

CREATE UNIQUE INDEX "Klient_IDX1" ON "Klient" ("Name");

CREATE INDEX "Klient_IDX2" ON "Klient" ("Adres");

4 Права доступа

Транзакции 1,2 выполняет отдел кадров

Транзакции 3-6 - зав. делянками

Транзакции 9,7 - нач. базы

Транзакции 8,11,12 - нач. сбыта

Транзакции 10,13 - зав. складом

Приведем примеры таблиц и хранимых процедур.

Листинг процедуры добавления накладной на заказ товара

procedure TDob_Nakl_Zakaz.Button1Click(Sender: TObject);

var i,j:Integer;

Ok:Boolean;

begin

Ok:=False;

if(not DM4.IBTrans_Write.Active)

then DM4.IBTrans_Write.StartTransaction;

j:=0;

if((StringReplace(MaskEdit1.EditText,' ','',[rfReplaceAll])<>'') and

(StringReplace(MaskEdit2.EditText,' ','',[rfReplaceAll])<>''))

then

begin

DM4.IBSP_Dob_Nakl_Z.ParamByName('Name').AsString:=

ComboBox1.Text;

DM4.IBSP_Dob_Nakl_Z.ParamByName('Adres').AsString:=

Edit2.Text;

DM4.IBSP_Dob_Nakl_Z.ParamByName('Nomer').AsInteger:=

StrToInt(StringReplace(MaskEdit1.Text,' ','',[rfReplaceAll]));

DM4.IBSP_Dob_Nakl_Z.ParamByName('Srok').AsInteger:=

StrToInt(StringReplace(MaskEdit2.Text,' ','',[rfReplaceAll]));

DM4.IBSP_Dob_Nakl_Z.ParamByName('Data').AsDate:=

DateTimePicker1.Date;

try

DM4.IBSP_Dob_Nakl_Z.Prepare;

DM4.IBSP_Dob_Nakl_Z.ExecProc;

Ok:=True;

if(Ok) then

begin

for i:=1 to ValueListEditor1.RowCount-1 do

begin

if(StringReplace(StringReplace(ValueListEditor1.Values[ValueListEditor1.Keys[i]],' ','',[rfReplaceAll]),'.',',',[rfReplaceAll])<>'')

then

begin

DM4.IBSP_Dob_Str_Nakl_Z.ParamByName('NNakl_Zakaz').AsInteger:=

StrToInt(StringReplace(MaskEdit1.EditText,' ','',[rfReplaceAll]));

DM4.IBSP_Dob_Str_Nakl_Z.ParamByName('Naimen').AsString:=

ValueListEditor1.Keys[i];

DM4.IBSP_Dob_Str_Nakl_Z.ParamByName('Kolvo').AsFloat:=

StrToFloat(StringReplace(StringReplace(ValueListEditor1.Values[ValueListEditor1.Keys[i]],' ','',[rfReplaceAll]),'.',',',[rfReplaceAll]));

DM4.IBSP_Dob_Str_Nakl_Z.ParamByName('Cena').AsFloat:=

StrToFloat(ListBox1.Items[i-1]);

DM4.IBSP_Dob_Str_Nakl_Z.Prepare;

DM4.IBSP_Dob_Str_Nakl_Z.ExecProc;

j:=j+1;

end;

end

end;

if((Ok) and (j<>0))

then

DM4.IBTrans_Write.Commit

else ShowMessage('Ошибка добавления накладной !');

except

on E: Exception do

begin

if(Pos('Накладная с таким номером уже есть !!!',E.Message)<>0) then

ShowMessage(' Накладная с таким номером уже есть !')

else

ShowMessage('Ошибка БД');

DM4.IBTrans_Write.Rollback;

end;

end;

end

else ShowMessage('Введите номер накладной или срок выполнения !');

end;

Листинг процедуры добавления лесобилета

procedure TDob_Lesobilet.Button1Click(Sender: TObject);

var i,j:Integer;

begin

if(not DM1.IBTrans_Write.Active)

then DM1.IBTrans_Write.StartTransaction;

j:=0;

try

if(Kol_Del=0) then

begin

if(Trim(MaskEdit1.EditText)<>'') then

begin

DM1.IBSP_Dob_Lesobilet.ParamByName('Nomer').AsInteger:=

StrToInt(Trim(MaskEdit1.EditText));

DM1.IBSP_Dob_Lesobilet.ParamByName('Data').AsDate:=

DateTimePicker1.Date;

DM1.IBSP_Dob_Lesobilet.Prepare;

DM1.IBSP_Dob_Lesobilet.ExecProc;

Ok:=True;

MaskEdit1.ReadOnly:=True;

Kol_Del:=Kol_Del+1;

end

else

begin

ShowMessage('Введите номер лесобилета !');

Ok:=False;

end

end;

if((Ok) and (Trim(MaskEdit2.EditText)<>'') and

(Trim(MaskEdit3.EditText)<>'*') and (Trim(MaskEdit4.EditText)<>','))

then

begin

DM1.IBSP_Dob_Delanki.ParamByName('N_Delanka').AsInteger:=

StrToInt(Trim(MaskEdit2.EditText));

DM1.IBSP_Dob_Delanki.ParamByName('Kvadrat').AsString:=

Trim(MaskEdit3.EditText);

DM1.IBSP_Dob_Delanki.ParamByName('Plotschad').AsFloat:=

StrToFloat(Trim(MaskEdit4.EditText));

DM1.IBSP_Dob_Delanki.Prepare;

DM1.IBSP_Dob_Delanki.ExecProc;

DM1.IBSP_Dob_Str_Bilet.ParamByName('NLesobilet').AsInteger:=

StrToInt(Trim(MaskEdit1.EditText));

DM1.IBSP_Dob_Str_Bilet.ParamByName('NDelanka').AsInteger:=

StrToInt(Trim(MaskEdit2.EditText));

DM1.IBSP_Dob_Str_Bilet.Prepare;

DM1.IBSP_Dob_Str_Bilet.ExecProc;

for i:=1 to ValueListEditor1.RowCount-1 do

begin

if(ValueListEditor1.Values[ValueListEditor1.Keys[i]]<>'') then

begin

if(StrToFloat(ValueListEditor1.Values[ValueListEditor1.Keys[i]])>0)

then

begin

DM1.IBSP_Dob_Nal_Drevesini.ParamByName('Kolvo').AsFloat:=

StrToFloat(ValueListEditor1.Values[ValueListEditor1.Keys[i]]);

DM1.IBSP_Dob_Nal_Drevesini.ParamByName('Poroda').AsString:=

ValueListEditor1.Keys[i];

DM1.IBSP_Dob_Nal_Drevesini.ParamByName('Nomer').AsInteger:=

StrToInt(Trim(MaskEdit2.EditText));

DM1.IBSP_Dob_Nal_Drevesini.Prepare;

DM1.IBSP_Dob_Nal_Drevesini.ExecProc;

end

end

else

j:=j+1;

end

end;

if((Ok) and (j

DM1.IBTrans_Write.Commit;

except

on E: Exception do

begin

if(Pos('Лесобилет с таким номером уже существует !!!',E.Message)<>0) then

ShowMessage(' Лесобилет с таким номером уже существует !')

else if(Pos(‘Делянка с таким номером уже существует !!!',E.Message)<>0) then

ShowMessage(' Делянка с таким номером уже существует !')

else

ShowMessage('Ошибка БД !');

DM1.IBTrans_Write.Rollback;

end;

end

end;

Характеристики

Список файлов курсовой работы