Сеть компьютерных магазинов "21 век"

RvDataSetConnection23: TRvDataSetConnection;

N6: TMenuItem;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure Button31Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button32Click(Sender: TObject);

procedure Button30Click(Sender: TObject);

procedure Button33Click(Sender: TObject);

procedure Button34Click(Sender: TObject);

procedure Button35Click(Sender: TObject);

procedure Button36Click(Sender: TObject);

procedure Button37Click(Sender: TObject);

procedure Button38Click(Sender: TObject);

procedure Button39Click(Sender: TObject);

procedure Button43Click(Sender: TObject);

procedure Button44Click(Sender: TObject);

procedure Button45Click(Sender: TObject);

procedure Button40Click(Sender: TObject);

procedure Button41Click(Sender: TObject);

procedure Button42Click(Sender: TObject);

procedure Button47Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button46Click(Sender: TObject);

procedure Button54Click(Sender: TObject);

procedure Button53Click(Sender: TObject);

procedure Button50Click(Sender: TObject);

procedure Button51Click(Sender: TObject);

procedure Button52Click(Sender: TObject);

procedure Button49Click(Sender: TObject);

procedure Button57Click(Sender: TObject);

procedure Button58Click(Sender: TObject);

procedure Button59Click(Sender: TObject);

procedure Button48Click(Sender: TObject);

procedure Button55Click(Sender: TObject);

procedure Button56Click(Sender: TObject);

procedure Button63Click(Sender: TObject);

procedure Button64Click(Sender: TObject);

procedure Button65Click(Sender: TObject);

procedure Button60Click(Sender: TObject);

procedure Button61Click(Sender: TObject);

procedure Button62Click(Sender: TObject);

procedure Button66Click(Sender: TObject);

procedure Button67Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure DBLookupComboBox2Click(Sender: TObject);

procedure DBLookupComboBox4Click(Sender: TObject);

procedure DBLookupComboBox6Click(Sender: TObject);

procedure DBLookupComboBox8Click(Sender: TObject);

procedure DBLookupComboBox10Click(Sender: TObject);

procedure DBLookupComboBox13Click(Sender: TObject);

procedure DBLookupComboBox3Click(Sender: TObject);

procedure DBLookupComboBox5Click(Sender: TObject);

procedure DBLookupComboBox7Click(Sender: TObject);

procedure DBLookupComboBox14Click(Sender: TObject);

procedure DBLookupComboBox16Click(Sender: TObject);

procedure DBLookupComboBox19Click(Sender: TObject);

procedure DBLookupComboBox22Click(Sender: TObject);

procedure DBLookupComboBox24Click(Sender: TObject);

procedure DBLookupComboBox11Click(Sender: TObject);

procedure DBLookupComboBox26Click(Sender: TObject);

procedure Button68Click(Sender: TObject);

procedure Button69Click(Sender: TObject);

procedure DBLookupComboBox28Click(Sender: TObject);

procedure Button70Click(Sender: TObject);

procedure Edit22KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Edit22Enter(Sender: TObject);

procedure Edit22Exit(Sender: TObject);

procedure Edit22Change(Sender: TObject);

procedure hggfh1Click(Sender: TObject);

procedure Button71Click(Sender: TObject);

procedure Button72Click(Sender: TObject);

procedure Button73Click(Sender: TObject);

procedure Button74Click(Sender: TObject);

procedure Button75Click(Sender: TObject);

procedure Button76Click(Sender: TObject);

procedure Button77Click(Sender: TObject);

procedure Button78Click(Sender: TObject);

procedure Button79Click(Sender: TObject);

procedure Button80Click(Sender: TObject);

procedure Button82Click(Sender: TObject);

procedure DBLookupComboBox29Click(Sender: TObject);

procedure Button81Click(Sender: TObject);

procedure Button83Click(Sender: TObject);

procedure Button85Click(Sender: TObject);

procedure Button84Click(Sender: TObject);

procedure Button87Click(Sender: TObject);

procedure Button86Click(Sender: TObject);

procedure DBLookupComboBox30Click(Sender: TObject);

procedure Button88Click(Sender: TObject);

procedure DBLookupComboBox42Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,nomer:integer;

z1,z2,z3,z4,z5,z6,z7:integer;

bool:boolean;

s: TDateTime;

a:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

//ADOStoredProc1.ExecProc;

//ADOTable1.Refresh;

if parol then begin

//val(edit53.Text,x,z1);

if //(z1=0) and (edit53.Text<>'') and

(edit54.Text<>'')

and (edit55.Text<>'') and (edit56.Text<>'')

then begin

adostoredproc1.Parameters.ParamValues['@nom']:=dblookupcombobox2.KeyValue;

ADOStoredProc1. Parameters.ParamValues['@nazv']:= Edit54.Text;

ADOStoredProc1. Parameters.ParamValues['@fio']:= Edit55.Text;

ADOStoredProc1.Parameters.ParamValues['@adr']:= Edit56.Text;

ADOStoredProc1.ExecProc;

adotable1.Close;

adotable1.Open;

{label51.Visible:=false;

label52.Visible:=false;

label53.Visible:=false;

label54.Visible:=false;

edit53.Visible:=false;

edit54.Visible:=false;

edit55.Visible:=false;

edit56.Visible:=false;

button1.Visible:=false; }

end

else showmessage('Неправильный ввод');

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//addpokup.Form2.Visible:=true;

if (adotable2.Locate('Nomer_pokupatelya',edit1.Text,[])=false) then begin

val(edit1.Text,x,z1);

if edit11.Text<>''

then val(edit11.Text,x,z2)

else z2:=0;

if (z1=0) and (z2=0)

and (edit1.Text<>'') and (edit3.Text<>'')

then begin

//ADOStoredProc2. Parameters.ParamValues['@nom1']:= Edit45.Text;

ADOStoredProc2. Parameters.ParamValues['@nazv']:= Edit2.Text;

ADOStoredProc2. Parameters.ParamValues['@fio']:= Edit3.Text;

ADOStoredProc2.Parameters.ParamValues['@adr']:= Edit4.Text;

if edit11.Text<>''

then

ADOStoredProc2.Parameters.ParamValues['@tel']:= Edit11.Text;

adostoredproc2.Parameters.ParamValues['@nom']:=Edit1.Text;

ADOStoredProc2.ExecProc;

adotable2.Close;

adotable2.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('Запись уже существует');

//ADOTable2.Refresh;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if (adotable3.Locate('Nomer_postavschika',edit5.Text,[])=false) then begin

val(edit5.Text,x,z1);

if edit14.Text<>''

then val(edit14.Text,x,z2)

else z2:=0;

if (z1=0) and (z2=0)

and (edit5.Text<>'') and (edit6.Text<>'') and (edit13.Text<>'')

then begin

ADOStoredProc3. Parameters.ParamValues['@nom']:= Edit5.Text;

ADOStoredProc3.Parameters.ParamValues['@nazv']:= Edit6.Text;

ADOStoredProc3. Parameters.ParamValues['@adr']:= Edit13.Text;

if edit14.Text<>'' then

ADOStoredProc3. Parameters.ParamValues['@tel']:= Edit14.Text;

ADOStoredProc3.ExecProc;

adotable3.Close;

adotable3.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('Запись уже существует');

//ADOTable3.Refresh;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if (adotable4.Locate('Lichniy_nomer',edit8.Text,[])=false) then begin

//val(edit7.Text,x,z1);

val(edit8.Text,x,z2);

if //(z1=0) and

(z2=0)

//and (edit7.Text<>'')

and (edit8.Text<>'') and (edit15.Text<>'')

then begin

ADOStoredProc4. Parameters.ParamValues['@nom']:= nomer;

ADOStoredProc4. Parameters.ParamValues['@lnom']:= Edit8.Text;

ADOStoredProc4. Parameters.ParamValues['@fio']:= Edit15.Text;

ADOStoredProc4.ExecProc;

adotable4.Close;

adotable4.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('Запись уже существует');

//ADOTable4.Refresh;

//Edit8.Text:=

//ADOStoredProc4.Parameters.ParamValues['@RETURN_VALUE'];

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if (adotable5.Locate('artikul',edit9.Text,[])=false) then begin

val(edit9.Text,x,z1);

val(edit16.Text,x,z2);

val(edit7.Text,x,z4);

if edit38.Text=''

then z3:=0

else if (edit38.Text='+') or (edit38.Text='-')

then z3:=0

else z3:=1;

if (z1=0) and (z3=0)and (z2=0) and (z4=0)

and (edit9.Text<>'') and (edit10.Text<>'') and (edit7.Text<>'')

and (edit16.Text<>'') and (dblookupcombobox12.Text<>'')

then begin

ADOStoredProc5. Parameters.ParamValues['@arti']:= Edit9.Text;

ADOStoredProc5. Parameters.ParamValues['@naim']:= Edit10.Text;

if edit16.Text<>'' then

ADOStoredProc5. Parameters.ParamValues['@kol']:= Edit16.Text;

ADOStoredProc5. Parameters.ParamValues['@opis']:= Edit17.Text;

ADOStoredProc5. Parameters.ParamValues['@nal']:= Edit38.Text;

ADOStoredProc5. Parameters.ParamValues['@cena']:= Edit7.Text;

ADOStoredProc5. Parameters.ParamValues['@n']:= dblookupcombobox12.KeyValue;

ADOStoredProc5.ExecProc;

adotable5.Close;

adotable5.Open;

end

else if z3=0 then showmessage('Неправильный ввод')

else showmessage('Неправильный ввод: Наличие +/-')

end

else showmessage('Запись уже существует');

// Считать значение выходного параметра

//Edit10.Text:= ADOStoredProc5.Parameters.ParamValues['@s'];

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if parol then begin

val(edit22.Text,x,z5);

if (z5=0)

and (dblookupcombobox15.Text<>'') and

(dblookupcombobox16.Text<>'')

and (dblookupcombobox18.Text<>'')

and (edit22.Text<>'')

then begin

ADOStoredProc6. Parameters.ParamValues['@art']:= dblookupcombobox15.KeyValue;

ADOStoredProc6. Parameters.ParamValues['@nomp']:= dblookupcombobox16.KeyValue;

ADOStoredProc6. Parameters.ParamValues['@nomm']:= nomer;

ADOStoredProc6. Parameters.ParamValues['@data']:= datetimepicker1.Date;

//ADOStoredProc6. Parameters.ParamValues['@cena']:= Edit21.Text;

ADOStoredProc6. Parameters.ParamValues['@kol']:= Edit22.Text;

ADOStoredProc6. Parameters.ParamValues['@l']:= dblookupcombobox18.KeyValue;

ADOStoredProc6.ExecProc;

x:= ADOStoredProc6.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Продажа осуществлена');

1: showmessage('Нет товара в наличии');

end;

adotable6.Close;

adotable6.Open;

adotable5.Close;

adotable5.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('У вас нет прав для изменения данных в БД');

//ADOStoredProc6.Close;

//ADOStoredProc6. Parameters.ParamValues['@n']:= Edit12.Text;

//ADOStoredProc6.Open;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

//val(edit23.Text,x,z1);

//val(edit24.Text,x,z2);

//val(edit25.Text,x,z3);

//val(edit26.Text,x,z4);

val(edit23.Text,x,z5);

val(edit29.Text,x,z6);

//val(edit30.Text,x,z7);

if (z6=0) and (z5=0)

and (dblookupcombobox1.Text<>'')

and (dblookupcombobox21.Text<>'') and (dblookupcombobox19.Text<>'')

//and (edit28.Text<>'')

and

(edit29.Text<>'') and

(edit23.Text<>'')

//and (edit30.Text<>'') and (edit27.Text<>'')

then begin

ADOStoredProc7. Parameters.ParamValues['@n']:= Edit23.Text;

ADOStoredProc7. Parameters.ParamValues['@lnom']:= dblookupcombobox1.KeyValue;

//ADOStoredProc7. Parameters.ParamValues['@nomp']:= Edit24.Text;

ADOStoredProc7. Parameters.ParamValues['@nompo']:=dblookupcombobox19.KeyValue;

ADOStoredProc7. Parameters.ParamValues['@nomm']:= nomer;

ADOStoredProc7. Parameters.ParamValues['@data']:= datetimepicker2.Date;

//ADOStoredProc7. Parameters.ParamValues['@cena']:= Edit28.Text;

ADOStoredProc7. Parameters.ParamValues['@kol']:= Edit29.Text;

ADOStoredProc7. Parameters.ParamValues['@art']:= dblookupcombobox21.KeyValue;

ADOStoredProc7.ExecProc;

adotable7.Close;

adotable7.Open;

end

else showmessage('Неправильный ввод');

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

if (adotable8.Locate('artikul',dblookupcombobox42.KeyValue,[])=false)

and (adotable5.Locate('artikul',dblookupcombobox42.KeyValue,[])=true)

then begin

// val(dblookupcombobox42.k,x,z1);

if //(z1=0)

//dblookupcombobox42.Text<>'') and

(dblookupcombobox42.Text<>'')

ti']:= dblookupcombobox42.KeyValue;

ADOStoredProc8.ExecProc;

adotable8.Close;

adotable8.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('Запись уже существует/данный товар отсутствует в каталоге');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

label40.Caption:=Unit2.Form2.DBLookupComboBox1.Text;

label89.Visible:=false;

dblookupcombobox44.Visible:=false;

label94.Visible:=false;

edit23.Visible:=false;

label96.Visible:=false;

label95.Visible:=false;

button88.Visible:=false;

button86.Visible:=false;

dblookupcombobox30.Visible:=false;

dblookupcombobox43.Visible:=false;

dblookupcombobox42.Visible:=false;

dblookupcombobox31.Visible:=false;

dblookupcombobox32.Visible:=false;

dblookupcombobox33.Visible:=false;

dblookupcombobox34.Visible:=false;

dblookupcombobox35.Visible:=false;

dblookupcombobox36.Visible:=false;

dblookupcombobox37.Visible:=false;

dblookupcombobox38.Visible:=false;

dblookupcombobox39.Visible:=false;

dblookupcombobox40.Visible:=false;

dblookupcombobox41.Visible:=false;

//label92.Visible:=false;

edit21.Visible:=false;

button79.Visible:=false;

button84.Visible:=false;

button85.Visible:=false;

label93.Visible:=false;

dblookupcombobox29.Visible:=false;

button81.Visible:=false;

button82.Visible:=false;

label88.Visible:=false;

edit12.Visible:=false;

button71.Visible:=false;

label89.Visible:=false;

edit18.Visible:=false;

button73.Visible:=false;

label90.Visible:=false;

edit19.Visible:=false;

button75.Visible:=false;

label91.Visible:=false;

edit20.Visible:=false;

button77.Visible:=false;

//form1.Caption:='ООО ' + unit2.Form2.DBLookupComboBox1.Text;

// nomer:= unit2.Form2.DBLookupComboBox1.KeyValue;

with ADOtable6 do

begin

if locate('nomer_magazina',nomer,[])

then begin

Filtered:= False;

Filter:= 'nomer_magazina = ' + Quotedstr(inttostr(nomer));

Filtered:= True;

end

else begin showmessage('В данном магазине не осуществлялась ни одна продажа');

end

end;

with ADOtable7 do

begin

if locate('nomer_magazina',nomer,[])

then begin

Filtered:= False;

Filter:= 'nomer_magazina = ' + Quotedstr(inttostr(nomer));

Filtered:= True;

end

else begin showmessage('В данном магазине не осуществлялся ни один заказ');end

end;

with ADOtable4 do

begin

if

locate('nomer_magazina',nomer,[])

then begin

Filtered:= False;

Filter:= 'nomer_magazina = ' + Quotedstr(inttostr(nomer));

Filtered:= True;

end

else begin showmessage('В данном магазине нет ни одного продавца');end

end;

//datetimepicker3.Visible:=false;

label87.Visible:=false;

dblookupcombobox26.Visible:=false;

dblookupcombobox27.Visible:=false;

label81.Visible:=false;

label82.Visible:=false;

label83.Visible:=false;

label84.Visible:=false;

dblookupcombobox28.Visible:=false;

button68.Visible:=false;

button53.Visible:=false;

label85.Visible:=false;

edit7.Visible:=false;

datetimepicker1.Visible:=false;

dblookupcombobox15.Visible:=false;

dblookupcombobox16.Visible:=false;

dblookupcombobox17.Visible:=false;

dblookupcombobox18.Visible:=false;

//dblookupcombobox24.Visible:=false;

dblookupcombobox22.Visible:=false;

dblookupcombobox23.Visible:=false;

label27.Visible:=false;

label30.Visible:=false;

label34.Visible:=false;

label80.Visible:=false;

label78.Visible:=false;

label79.Visible:=false;

dblookupcombobox24.Visible:=false;

dblookupcombobox25.Visible:=false;

datetimepicker2.Visible:=false;

dblookupcombobox19.Visible:=false;

dblookupcombobox21.Visible:=false;

dblookupcombobox20.Visible:=false;

dblookupcombobox1.Visible:=false;

//dbgrid1.Visible:=false;

//unit3.Form3.Visible:=true;

//addpokup.Form2.Visible:=true;

label58.Visible:=false;

dblookupcombobox2.Visible:=false;

label59.Visible:=false;

dblookupcombobox3.Visible:=false;

label60.Visible:=false;

dblookupcombobox4.Visible:=false;

label61.Visible:=false;

dblookupcombobox5.Visible:=false;

label62.Visible:=false;

dblookupcombobox6.Visible:=false;

label63.Visible:=false;

dblookupcombobox7.Visible:=false;

label64.Visible:=false;

dblookupcombobox8.Visible:=false;

dblookupcombobox9.Visible:=false;

label65.Visible:=false;

label66.Visible:=false;

label67.Visible:=false;

dblookupcombobox10.Visible:=false;

label68.Visible:=false;

label69.Visible:=false;

label70.Visible:=false;

dblookupcombobox11.Visible:=false;

label71.Visible:=false;

dblookupcombobox12.Visible:=false;

label72.Visible:=false;

label73.Visible:=false;

label74.Visible:=false;

dblookupcombobox13.Visible:=false;

label75.Visible:=false;

label76.Visible:=false;

label77.Visible:=false;

dblookupcombobox14.Visible:=false;

//1

unit2.Form2.Visible:=true;

label51.Visible:=false;

label52.Visible:=false;

label53.Visible:=false;

label54.Visible:=false;

edit53.Visible:=false;

edit54.Visible:=false;

edit55.Visible:=false;

edit56.Visible:=false;

button1.Visible:=false;

button27.Visible:=false;

//3

label1.Visible:=false;

label2.Visible:=false;

label19.Visible:=false;

label20.Visible:=false;

edit5.Visible:=false;

edit6.Visible:=false;

edit13.Visible:=false;

edit14.Visible:=false;

button3.Visible:=false;

button31.Visible:=false;

button11.Visible:=false;

button32.Visible:=false;

button21.Visible:=false;

button33.Visible:=false;

//4

label11.Visible:=false;

label12.Visible:=false;

label21.Visible:=false;

//edit7.Visible:=false;

edit8.Visible:=false;

edit15.Visible:=false;

button4.Visible:=false;

button37.Visible:=false;

button12.Visible:=false;

button38.Visible:=false;

button22.Visible:=false;

button39.Visible:=false;

//5

label14.Visible:=false;

label15.Visible:=false;

label22.Visible:=false;

label23.Visible:=false;

label44.Visible:=false;

edit9.Visible:=false;

edit10.Visible:=false;

edit16.Visible:=false;

edit17.Visible:=false;

edit38.Visible:=false;

button5.Visible:=false;

button40.Visible:=false;

button13.Visible:=false;

button41.Visible:=false;

button23.Visible:=false;

button42.Visible:=false;

//6

label17.Visible:=false;

label24.Visible:=false;

label25.Visible:=false;

label26.Visible:=false;

//label27.Visible:=false;

label28.Visible:=false;

label55.Visible:=false;

//edit12.Visible:=false;

//edit18.Visible:=false;

//edit19.Visible:=false;

//edit20.Visible:=false;

//edit21.Visible:=false;

edit22.Visible:=false;

//edit48.Visible:=false;

button6.Visible:=false;

button16.Visible:=false;

button18.Visible:=false;

button66.Visible:=false;

//7

label29.Visible:=false;

//label30.Visible:=false;

label31.Visible:=false;

label32.Visible:=false;

label33.Visible:=false;

//label34.Visible:=false;

label35.Visible:=false;

label36.Visible:=false;

//edit23.Visible:=false;

//edit24.Visible:=false;

//edit25.Visible:=false;

//edit26.Visible:=false;

//edit27.Visible:=false;

//edit28.Visible:=false;

edit29.Visible:=false;

//edit30.Visible:=false;

button7.Visible:=false;

button50.Visible:=false;

button18.Visible:=false;

button14.Visible:=false;

button51.Visible:=false;

button25.Visible:=false;

button52.Visible:=false;

button17.Visible:=false;

//8

label37.Visible:=false;

label38.Visible:=false;

//label39.Visible:=false;

//label40.Visible:=false;

//label41.Visible:=false;

//label42.Visible:=false;

//label43.Visible:=false;

label44.Visible:=false;

//label45.Visible:=false;

//label46.Visible:=false;

//label47.Visible:=false;

//abel48.Visible:=false;

//label49.Visible:=false;

//label50.Visible:=false;

//edit31.Visible:=false;

//edit32.Visible:=false;

//edit33.Visible:=false;

//edit34.Visible:=false;

//edit35.Visible:=false;

//edit36.Visible:=false;

//edit37.Visible:=false;

edit38.Visible:=false;

//edit39.Visible:=false;

//edit40.Visible:=false;

//edit41.Visible:=false;

//edit42.Visible:=false;

//edit43.Visible:=false;

//edit44.Visible:=false;

button8.Visible:=false;

button48.Visible:=false;

button15.Visible:=false;

button55.Visible:=false;

button19.Visible:=false;

button56.Visible:=false;

//2

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;

label8.Visible:=false;

label18.Visible:=false;

edit1.Visible:=false;

edit2.Visible:=false;

edit3.Visible:=false;

edit4.Visible:=false;

edit11.Visible:=false;

button2.Visible:=false;

button60.Visible:=false;

button10.Visible:=false;

button61.Visible:=false;

button20.Visible:=false;

button62.Visible:=false;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

if dbgrid1.Visible=false

then dbgrid1.Visible:=true

else dbgrid1.Visible:=false;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

if parol then begin

label59.Visible:=true;

dblookupcombobox3.Visible:=true;

//val(edit1.Text,x,z1);

//if (z1=0)

//and (edit1.Text<>'')

//then begin

ADOStoredProc9. Parameters.ParamValues['@N1']:=dblookupcombobox3.KeyValue;

ADOStoredProc9.ExecProc;

adotable2.Close;

adotable2.Open;

//ADOTable4.Refresh;

x:=

ADOStoredProc9.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

2: showmessage('Данная запись не существует')

end;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

//val(edit5.Text,x,z1);

//if //(z1=0)

//and

//(edit5.Text<>'') and

// (edit6.Text<>'') and (edit13.Text<>'')

//then

//begin

label61.Visible:=true;

dblookupcombobox5.Visible:=true;

ADOStoredProc10. Parameters.ParamValues['@N1']:=dblookupcombobox5.KeyValue;

ADOStoredProc10.ExecProc;

adotable3.Close;

adotable3.Open;

//ADOTable4.Refresh;

x:=

ADOStoredProc10.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

2: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

//val(edit8.Text,x,z1);

//if (z1=0)

//and (edit8.Text<>'')

//then begin

ADOStoredProc11. Parameters.ParamValues['@N1']:=dblookupcombobox10.KeyValue;

ADOStoredProc11.ExecProc;

adotable4.Close;

adotable4.Open;

//ADOTable4.Refresh;

x:=

ADOStoredProc11.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

2: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

//val(edit9.Text,x,z1);

//if //(z1=0)

//and

//(edit9.Text<>'')

//then begin

ADOStoredProc12. Parameters.ParamValues['@N1']:=dblookupcombobox13.KeyValue;

ADOStoredProc12.ExecProc;

adotable5.Close;

adotable5.Open;

//ADOTable4.Refresh;

x:=

ADOStoredProc12.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

2: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

//val(edit25.Text,x,z1);

if (dblookupcombobox22.Text<>'')

//and (edit25.Text<>'')

then begin

ADOStoredProc13. Parameters.ParamValues['@N1']:=dblookupcombobox22.KeyValue;

ADOStoredProc13.ExecProc;

adotable7.Close;

adotable7.Open;

//ADOTable4.Refresh;

x:=

ADOStoredProc13.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

2: showmessage('Данная запись не существует')

end;

end

else showmessage('Неправильный ввод');

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

//val(edit31.Text,x,z1);

//if

//(z1=0)

//and

//(edit31.Text<>'') and

// (edit31.Text<>'')

//then begin

ADOStoredProc14. Parameters.ParamValues['@N1']:=dblookupcombobox7.KeyValue;

ADOStoredProc14.ExecProc;

adotable8.Close;

adotable8.Open;

//ADOTable4.Refresh;

x:=

ADOStoredProc14.Parameters.ParamValues['@RETURN_VALUE'];

case x of

0: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

2: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

//val(edit25.Text,x,z1);

if (z1=0)

//and (edit25.Text<>'')

then begin

// ADOStoredProc15.Parameters.ParamValues['@n']:=edit25.Text;

//ADOStoredProc16.Parameters.ParamValues['@n']:=edit25.Text;

RvProject1.Execute;

button17.Visible:=false;

//edit25.Visible:=false;

label31.Visible:=false;

end

else showmessage('Неправильный ввод');

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

//val(edit18.Text,x,z1);

if (z1=0)

//and (edit18.Text<>'')

then begin

// ADOStoredProc17.Parameters.ParamValues['@n']:=edit18.Text;

//ADOStoredProc18.Parameters.ParamValues['@n']:=edit18.Text;

RvProject2.Execute;

button18.Visible:=false;

//edit18.Visible:=false;

label24.Visible:=false;

end

else showmessage('Неправильный ввод');

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

if parol then begin

//val(edit31.Text,x,z1);

//if //(z1=0)

//and

//(dblookupcombobox42.Text<>'')

// then

begin

ADOStoredProc19. Parameters.ParamValues['@art']:= dblookupcombobox8.KeyValue;

ADOStoredProc19. Parameters.ParamValues['@naim']:= dblookupcombobox8.Text;

ADOStoredProc19. Parameters.ParamValues['@mp']:= dblookupcombobox31.Text;

ADOStoredProc19. Parameters.ParamValues['@proc']:= dblookupcombobox32.Text;

ADOStoredProc19. Parameters.ParamValues['@kuler']:= dblookupcombobox33.Text;

ADOStoredProc19. Parameters.ParamValues['@vid']:= dblookupcombobox34.Text;

ADOStoredProc19. Parameters.ParamValues['@op']:= dblookupcombobox35.Text;

ADOStoredProc19. Parameters.ParamValues['@vin']:= dblookupcombobox36.Text;

ADOStoredProc19. Parameters.ParamValues['@klav']:= dblookupcombobox37.Text;

ADOStoredProc19. Parameters.ParamValues['@manip']:= dblookupcombobox38.Text;

ADOStoredProc19. Parameters.ParamValues['@DC']:= dblookupcombobox39.Text;

ADOStoredProc19. Parameters.ParamValues['@kor']:= dblookupcombobox40.Text;

ADOStoredProc19. Parameters.ParamValues['@floopy']:= dblookupcombobox41.Text;

ADOStoredProc19.ExecProc;

adotable8.Close;

adotable8.Open;

end

//else showmessage('Неправильный ввод');

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

if parol then begin

//val(edit1.Text,x,z1);

if edit11.Text<>''

then val(edit11.Text,x,z2)

else z2:=0;

if //(z1=0) and

(z2=0)

//and (edit1.Text<>'')

and (edit3.Text<>'')

then begin

adostoredproc20.Parameters.ParamValues['@nom']:=dblookupcombobox4.KeyValue;

ADOStoredProc20. Parameters.ParamValues['@nazv']:= dblookupcombobox4.Text;

ADOStoredProc20. Parameters.ParamValues['@fio']:= Edit3.Text;

ADOStoredProc20.Parameters.ParamValues['@adr']:= Edit4.Text;

if edit11.Text<>''

then

ADOStoredProc20.Parameters.ParamValues['@tel']:= Edit11.Text;

//adostoredproc20.Parameters.ParamValues['@nom']:=Edit1.Text;

ADOStoredProc20.ExecProc;

adotable2.Close;

adotable2.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button21Click(Sender: TObject);

begin

if parol then begin

//val(edit5.Text,x,z1);

if edit14.Text<>''

then val(edit14.Text,x,z2)

else z2:=0;

if //(z1=0) and

(z2=0)

//and (edit5.Text<>'') and (edit6.Text<>'')

and (edit13.Text<>'')

then begin

ADOStoredProc21. Parameters.ParamValues['@nom']:= dblookupcombobox6.KeyValue;;

ADOStoredProc21.Parameters.ParamValues['@nazv']:= dblookupcombobox6.Text;

ADOStoredProc21. Parameters.ParamValues['@adr']:= Edit13.Text;

if edit14.Text<>''

then

ADOStoredProc21. Parameters.ParamValues['@tel']:= Edit14.Text;

ADOStoredProc21.ExecProc;

adotable3.Close;

adotable3.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button22Click(Sender: TObject);

begin

if parol then begin

//val(edit7.Text,x,z1);

//val(edit8.Text,x,z2);

if //(z1=0)

//and (z2=0)

//and (edit7.Text<>'')

//and (edit8.Text<>'') and

(edit15.Text<>'')

//(dblookupcombobox9.Text<>'')

then begin

ADOStoredProc22. Parameters.ParamValues['@nom']:= nomer;

ADOStoredProc22.

Parameters.ParamValues['@lnom']:= dblookupcombobox11.KeyValue;

ADOStoredProc22. Parameters.ParamValues['@fio']:= Edit15.Text;

ADOStoredProc22.ExecProc;

adotable4.Close;

adotable4.Open;

end

else showmessage('Неправильный ввод');

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button24Click(Sender: TObject);

begin

if parol

then begin

label24.Visible:=true;

//edit18.Visible:=true;

button18.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

{ADOStoredProc23. Parameters.ParamValues['@art']:= Edit12.Text;

ADOStoredProc23. Parameters.ParamValues['@nomp']:= Edit18.Text;

ADOStoredProc23. Parameters.ParamValues['@nomm']:= Edit19.Text;

ADOStoredProc23. Parameters.ParamValues['@data']:= Edit20.Text;

ADOStoredProc23. Parameters.ParamValues['@cena']:= Edit21.Text;

ADOStoredProc23. Parameters.ParamValues['@kol']:= Edit22.Text;

ADOStoredProc23. Parameters.ParamValues['@l']:= Edit48.Text;

ADOStoredProc23.ExecProc;

adotable6.Close;

adotable6.Open; }

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

if parol then begin

//val(edit9.Text,x,z1);

//if edit16.Text<>'' then

val(edit16.Text,x,z2);

val(edit7.Text,x,z1);

//else z2:=0;

if edit38.Text=''

then z3:=0

else if (edit38.Text='+') or (edit38.Text='-')

then z3:=0

else z3:=1;

if

(z1=0) and

(z2=0) and (z3=0) and (edit7.Text<>'')

and (edit16.Text<>'') and (edit10.Text<>'')

and (dblookupcombobox12.Text<>'')

then begin

ADOStoredProc23. Parameters.ParamValues['@art']:= dblookupcombobox14.KeyValue;

ADOStoredProc23. Parameters.ParamValues['@naim']:= Edit10.Text;

ADOStoredProc23. Parameters.ParamValues['@kol']:= Edit16.Text;

ADOStoredProc23. Parameters.ParamValues['@opis']:= Edit17.Text;

ADOStoredProc23. Parameters.ParamValues['@nal']:= Edit38.Text;

ADOStoredProc23. Parameters.ParamValues['@n']:= dblookupcombobox12.KeyValue;

ADOStoredProc23. Parameters.ParamValues['@cena']:= Edit7.Text;

ADOStoredProc23.ExecProc;

adotable5.Close;

adotable5.Open;

end

else if z3=0 then showmessage('Неправильный ввод')

else showmessage('Неправильный ввод: Наличие +/-')

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button25Click(Sender: TObject);

begin

//val(edit23.Text,x,z1);

//val(edit24.Text,x,z2);

//val(edit25.Text,x,z3);

//val(edit26.Text,x,z4);

//val(edit28.Text,x,z5);

val(edit29.Text,x,z6);

//val(edit30.Text,x,z7);

if (dblookupcombobox1.Text<>'') and

//and

(z6=0)

//and (edit23.Text<>'') and (edit24.Text<>'')

//and (edit25.Text<>'') and (edit26.Text<>'')

//and (edit28.Text<>'')

and

(edit29.Text<>'')

//and (edit30.Text<>'') and (edit27.Text<>'')

then begin

ADOStoredProc24. Parameters.ParamValues['@lnom']:= dblookupcombobox1.KeyValue;

//ADOStoredProc24. Parameters.ParamValues['@nomp']:= Edit24.Text;

ADOStoredProc24. Parameters.ParamValues['@nompo']:= dblookupcombobox24.KeyValue;

ADOStoredProc24. Parameters.ParamValues['@nomm']:= nomer;

ADOStoredProc24. Parameters.ParamValues['@data']:= datetimepicker2.Date;

//ADOStoredProc24. Parameters.ParamValues['@cena']:= Edit28.Text;

ADOStoredProc24. Parameters.ParamValues['@kol']:= Edit29.Text;

ADOStoredProc24. Parameters.ParamValues['@art']:= dblookupcombobox21.KeyValue;

ADOStoredProc24.ExecProc;

adotable7.Close;

adotable7.Open;

end

else showmessage('Неправильный ввод');

end;

procedure TForm1.Button26Click(Sender: TObject);

begin

if parol

then begin

label58.Visible:=true;

dblookupcombobox2.Visible:=true;

//label51.Visible:=true;

//label52.Visible:=true;

//label53.Visible:=true;

//label54.Visible:=true;

//edit53.Visible:=true;

//edit54.Visible:=true;

//edit55.Visible:=true;

//edit56.Visible:=true;

//button1.Visible:=true;

//button27.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button27Click(Sender: TObject);

begin

label51.Visible:=false;

label52.Visible:=false;

label53.Visible:=false;

label54.Visible:=false;

edit53.Visible:=false;

edit54.Visible:=false;

edit55.Visible:=false;

edit56.Visible:=false;

button1.Visible:=false;

button27.Visible:=false;

label58.Visible:=false;

dblookupcombobox2.Visible:=false;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

unit4.Form4.Visible:=true;

bool:=true;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

unit4.Form4.Visible:=true;

bool:=false;

end;

procedure TForm1.Button28Click(Sender: TObject);

begin

if parol

then begin

label1.Visible:=true;

label2.Visible:=true;

label19.Visible:=true;

label20.Visible:=true;

edit5.Visible:=true;

edit6.Visible:=true;

edit13.Visible:=true;

edit14.Visible:=true;

button3.Visible:=true;

button31.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button31Click(Sender: TObject);

begin

label1.Visible:=false;

label2.Visible:=false;

label19.Visible:=false;

label20.Visible:=false;

edit5.Visible:=false;

edit6.Visible:=false;

edit13.Visible:=false;

edit14.Visible:=false;

button3.Visible:=false;

button31.Visible:=false;

end;

procedure TForm1.Button29Click(Sender: TObject);

begin

if parol

then begin

//label1.Visible:=true;

//edit5.Visible:=true;

label61.Visible:=true;

dblookupcombobox5.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button32Click(Sender: TObject);

begin

//label1.Visible:=false;

//edit5.Visible:=false;

button11.Visible:=false;

button32.Visible:=false;

label61.Visible:=false;

dblookupcombobox5.Visible:=false;

end;

procedure TForm1.Button30Click(Sender: TObject);

begin

if parol then begin

//label1.Visible:=true;

//label2.Visible:=true;

//label19.Visible:=true;

//label20.Visible:=true;

//edit5.Visible:=true;

//edit6.Visible:=true;

//edit13.Visible:=true;

//edit14.Visible:=true;

//button21.Visible:=true;

//button33.Visible:=true;

label62.Visible:=true;

dblookupcombobox6.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button33Click(Sender: TObject);

begin

label1.Visible:=false;

label2.Visible:=false;

label19.Visible:=false;

label20.Visible:=false;

edit5.Visible:=false;

edit6.Visible:=false;

edit13.Visible:=false;

edit14.Visible:=false;

button21.Visible:=false;

button33.Visible:=false;

label62.Visible:=false;

dblookupcombobox6.Visible:=false;

end;

procedure TForm1.Button34Click(Sender: TObject);

begin

if parol then begin

//label11.Visible:=true;

label12.Visible:=true;

label21.Visible:=true;

//dblookupcombobox9.Visible:=true;

//edit7.Visible:=true;

edit8.Visible:=true;

edit15.Visible:=true;

button4.Visible:=true;

button37.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button35Click(Sender: TObject);

begin

if parol then begin

label65.Visible:=true;

label66.Visible:=true;

label67.Visible:=true;

dblookupcombobox10.Visible:=true;

//label12.Visible:=true;

//edit8.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button36Click(Sender: TObject);

begin

if parol then begin

label68.Visible:=true;

label69.Visible:=true;

label70.Visible:=true;

dblookupcombobox11.Visible:=true;

//label11.Visible:=true;

//label12.Visible:=true;

//label21.Visible:=true;

//edit7.Visible:=true;

//edit8.Visible:=true;

//edit15.Visible:=true;

//button22.Visible:=true;

//button39.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button37Click(Sender: TObject);

begin

label11.Visible:=false;

label12.Visible:=false;

label21.Visible:=false;

//edit7.Visible:=false;

edit8.Visible:=false;

edit15.Visible:=false;

button4.Visible:=false;

button37.Visible:=false;

dblookupcombobox9.Visible:=false;

end;

procedure TForm1.Button38Click(Sender: TObject);

begin

label65.Visible:=false;

label66.Visible:=false;

label67.Visible:=false;

dblookupcombobox10.Visible:=false;

//label12.Visible:=false;

//edit8.Visible:=false;

button12.Visible:=false;

button38.Visible:=false;

end;

procedure TForm1.Button39Click(Sender: TObject);

begin

label68.Visible:=false;

label69.Visible:=false;

label70.Visible:=false;

dblookupcombobox11.Visible:=false;

dblookupcombobox9.Visible:=false;

label11.Visible:=false;

label12.Visible:=false;

label21.Visible:=false;

//edit7.Visible:=false;

edit8.Visible:=false;

edit15.Visible:=false;

button22.Visible:=false;

button39.Visible:=false;

end;

procedure TForm1.Button43Click(Sender: TObject);

begin

if parol then begin

label14.Visible:=true;

label15.Visible:=true;

label22.Visible:=true;

label23.Visible:=true;

label44.Visible:=true;

edit9.Visible:=true;

edit10.Visible:=true;

edit16.Visible:=true;

edit17.Visible:=true;

edit38.Visible:=true;

button5.Visible:=true;

button40.Visible:=true;

label71.Visible:=true;

label85.Visible:=true;

edit7.Visible:=true;

dblookupcombobox12.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button44Click(Sender: TObject);

begin

if parol then begin

//label14.Visible:=true;

//edit9.Visible:=true;

label72.Visible:=true;

label73.Visible:=true;

label74.Visible:=true;

dblookupcombobox13.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button45Click(Sender: TObject);

begin

if parol then begin

{label14.Visible:=true;

label15.Visible:=true;

label22.Visible:=true;

label23.Visible:=true;

label44.Visible:=true;

edit9.Visible:=true;

edit10.Visible:=true;

edit16.Visible:=true;

edit17.Visible:=true;

edit38.Visible:=true;

button23.Visible:=true;

button42.Visible:=true;}

label75.Visible:=true;

label76.Visible:=true;

label77.Visible:=true;

dblookupcombobox14.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button40Click(Sender: TObject);

begin

label14.Visible:=false;

label15.Visible:=false;

label22.Visible:=false;

label23.Visible:=false;

label44.Visible:=false;

edit9.Visible:=false;

edit10.Visible:=false;

edit16.Visible:=false;

edit17.Visible:=false;

edit38.Visible:=false;

button5.Visible:=false;

button40.Visible:=false;

label71.Visible:=false;

dblookupcombobox12.Visible:=false;

label85.Visible:=false;

edit7.Visible:=false;

end;

procedure TForm1.Button41Click(Sender: TObject);

begin

//label14.Visible:=false;

///edit9.Visible:=false;

label72.Visible:=false;

label73.Visible:=false;

label74.Visible:=false;

dblookupcombobox13.Visible:=false;

button13.Visible:=false;

button41.Visible:=false;

end;

procedure TForm1.Button42Click(Sender: TObject);

begin

label75.Visible:=false;

label76.Visible:=false;

label77.Visible:=false;

dblookupcombobox14.Visible:=false;

dblookupcombobox12.Visible:=false;

label14.Visible:=false;

label15.Visible:=false;

label22.Visible:=false;

label71.Visible:=false;

label23.Visible:=false;

label44.Visible:=false;

edit9.Visible:=false;

edit10.Visible:=false;

edit16.Visible:=false;

edit17.Visible:=false;

edit38.Visible:=false;

label85.Visible:=false;

edit7.Visible:=false;

button5.Visible:=false;

button40.Visible:=false;

button13.Visible:=false;

button41.Visible:=false;

button23.Visible:=false;

button42.Visible:=false;

end;

procedure TForm1.Button47Click(Sender: TObject);

begin

if parol then begin

dblookupcombobox15.Visible:=true;

button16.Visible:=true;

label17.Visible:=true;

label28.Visible:=true;

//edit12.Visible:=true;

//edit18.Visible:=true;

//edit19.Visible:=true;

//edit20.Visible:=true;

//edit21.Visible:=true;

edit22.Visible:=true;

//edit48.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

label17.Visible:=false;

label24.Visible:=false;

label25.Visible:=false;

label26.Visible:=false;

//label27.Visible:=false;

label28.Visible:=false;

label55.Visible:=false;

datetimepicker1.Visible:=false;

//edit12.Visible:=false;

//edit18.Visible:=false;

//edit19.Visible:=false;

//edit20.Visible:=false;

//edit21.Visible:=false;

edit22.Visible:=false;

//edit48.Visible:=false;

button6.Visible:=false;

button16.Visible:=false;

dblookupcombobox15.Visible:=false;

dblookupcombobox16.Visible:=false;

dblookupcombobox17.Visible:=false;

dblookupcombobox18.Visible:=false;

end;

procedure TForm1.Button46Click(Sender: TObject);

begin

if parol

then begin

label94.Visible:=true;

edit23.Visible:=true;

datetimepicker2.Visible:=true;

dblookupcombobox19.Visible:=true;

dblookupcombobox21.Visible:=true;

//dblookupcombobox20.Visible:=true;

dblookupcombobox1.Visible:=true;

label29.Visible:=true;

//label30.Visible:=true;

label31.Visible:=true;

//label32.Visible:=true;

label33.Visible:=true;

//label34.Visible:=true;

label35.Visible:=true;

label36.Visible:=true;

//edit23.Visible:=true;

//edit24.Visible:=true;

//edit25.Visible:=true;

//edit26.Visible:=true;

//edit27.Visible:=true;

//edit28.Visible:=true;

edit29.Visible:=true;

//edit30.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button54Click(Sender: TObject);

begin

if parol

then begin

dblookupcombobox22.Visible:=true;

//dblookupcombobox23.Visible:=true;

label27.Visible:=true;

label30.Visible:=true;

//edit25.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button50Click(Sender: TObject);

begin

label94.Visible:=false;

edit23.Visible:=false;

label29.Visible:=false;

//label30.Visible:=false;

label31.Visible:=false;

label32.Visible:=false;

label33.Visible:=false;

//label34.Visible:=false;

label35.Visible:=false;

label36.Visible:=false;

//edit23.Visible:=false;

//edit24.Visible:=false;

//edit25.Visible:=false;

//edit26.Visible:=false;

//edit27.Visible:=false;

//edit28.Visible:=false;

edit29.Visible:=false;

//edit30.Visible:=false;

datetimepicker2.Visible:=false;

dblookupcombobox19.Visible:=false;

dblookupcombobox21.Visible:=false;

dblookupcombobox20.Visible:=false;

dblookupcombobox1.Visible:=false;

button7.Visible:=false;

button50.Visible:=false;

end;

procedure TForm1.Button51Click(Sender: TObject);

begin

label27.Visible:=false;

label30.Visible:=false;

dblookupcombobox22.Visible:=false;

dblookupcombobox23.Visible:=false;

label34.Visible:=false;

//edit25.Visible:=false;

button14.Visible:=false;

button51.Visible:=false;

end;

procedure TForm1.Button52Click(Sender: TObject);

begin

dblookupcombobox21.Visible:=false;

dblookupcombobox19.Visible:=false;

dblookupcombobox20.Visible:=false;

dblookupcombobox1.Visible:=false;

label80.Visible:=false;

datetimepicker2.Visible:=false;

label29.Visible:=false;

//label30.Visible:=false;

label31.Visible:=false;

label32.Visible:=false;

label33.Visible:=false;

//label34.Visible:=false;

label35.Visible:=false;

label36.Visible:=false;

//edit23.Visible:=false;

//edit24.Visible:=false;

//edit25.Visible:=false;

//edit26.Visible:=false;

//edit27.Visible:=false;

//edit28.Visible:=false;

edit29.Visible:=false;

//edit30.Visible:=false;

label78.Visible:=false;

label79.Visible:=false;

dblookupcombobox24.Visible:=false;

dblookupcombobox25.Visible:=false;

button52.Visible:=false;

button25.Visible:=false;

end;

procedure TForm1.Button49Click(Sender: TObject);

begin

if parol

then begin

label78.Visible:=true;

label79.Visible:=true;

dblookupcombobox24.Visible:=true;

//dblookupcombobox25.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button53Click(Sender: TObject);

begin

if parol

then begin

label31.Visible:=true;

//edit25.Visible:=true;

button17.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button57Click(Sender: TObject);

begin

if parol

then begin

label37.Visible:=false;

label38.Visible:=true;

//label39.Visible:=true;

//label40.Visible:=true;

//label41.Visible:=true;

//label42.Visible:=true;

//label43.Visible:=true;

label44.Visible:=true;

//label45.Visible:=true;

//label46.Visible:=true;

//label47.Visible:=true;

//label48.Visible:=true;

//label49.Visible:=true;

//label50.Visible:=true;

dblookupcombobox43.Visible:=false;

dblookupcombobox42.Visible:=true;

dblookupcombobox31.Visible:=true;

dblookupcombobox32.Visible:=true;

dblookupcombobox33.Visible:=true;

dblookupcombobox34.Visible:=true;

dblookupcombobox35.Visible:=true;

dblookupcombobox36.Visible:=true;

dblookupcombobox37.Visible:=true;

dblookupcombobox38.Visible:=true;

dblookupcombobox39.Visible:=true;

dblookupcombobox40.Visible:=true;

dblookupcombobox41.Visible:=true;

edit38.Visible:=true;

button8.Visible:=true;

button48.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button58Click(Sender: TObject);

begin

if parol

then begin

//label37.Visible:=true;

//edit31.Visible:=true;

label63.Visible:=true;

dblookupcombobox7.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

{procedure TForm1.Button59Click(Sender: TObject);

begin

if parol

then begin

label63.Visible:=true;

dblookupcombobox7.Visible:=true;

{label37.Visible:=true;

label38.Visible:=true;

label39.Visible:=true;

label40.Visible:=true;

label41.Visible:=true;

label42.Visible:=true;

label43.Visible:=true;

label44.Visible:=true;

label45.Visible:=true;

label46.Visible:=true;

label47.Visible:=true;

label48.Visible:=true;

label49.Visible:=true;

label50.Visible:=true;

edit31.Visible:=true;

edit32.Visible:=true;

edit33.Visible:=true;

edit34.Visible:=true;

edit35.Visible:=true;

edit36.Visible:=true;

edit37.Visible:=true;

edit38.Visible:=true;

edit39.Visible:=true;

edit40.Visible:=true;

edit41.Visible:=true;

edit42.Visible:=true;

edit43.Visible:=true;

edit44.Visible:=true;

button19.Visible:=true;

button56.Visible:=true; }

{end

else showmessage('У вас нет прав для изменения данных в БД');

end; }

procedure TForm1.Button48Click(Sender: TObject);

begin

label96.Visible:=false;

label37.Visible:=false;

label38.Visible:=false;

//label39.Visible:=false;

//label40.Visible:=false;

//.Visible:=false;

//label42.Visible:=false;

//label43.Visible:=false;

label44.Visible:=false;

//label45.Visible:=false;

//label46.Visible:=false;

//label47.Visible:=false;

//label48.Visible:=false;

//label49.Visible:=false;

//label50.Visible:=false;

dblookupcombobox43.Visible:=false;

dblookupcombobox42.Visible:=false;

dblookupcombobox31.Visible:=false;

dblookupcombobox32.Visible:=false;

dblookupcombobox33.Visible:=false;

dblookupcombobox34.Visible:=false;

dblookupcombobox35.Visible:=false;

dblookupcombobox36.Visible:=false;

dblookupcombobox37.Visible:=false;

dblookupcombobox38.Visible:=false;

dblookupcombobox39.Visible:=false;

dblookupcombobox40.Visible:=false;

dblookupcombobox41.Visible:=false;

edit38.Visible:=false;

button8.Visible:=false;

button48.Visible:=false;

end;

procedure TForm1.Button55Click(Sender: TObject);

begin

label63.Visible:=false;

dblookupcombobox7.Visible:=false;

{label37.Visible:=false;

label38.Visible:=false;

label39.Visible:=false;

label40.Visible:=false;

label41.Visible:=false;

label42.Visible:=false;

label43.Visible:=false;

label44.Visible:=false;

label45.Visible:=false;

label46.Visible:=false;

label47.Visible:=false;

label48.Visible:=false;

label49.Visible:=false;

label50.Visible:=false;

edit31.Visible:=false;

edit32.Visible:=false;

edit33.Visible:=false;

edit34.Visible:=false;

edit35.Visible:=false;

edit36.Visible:=false;

edit37.Visible:=false;

edit38.Visible:=false;

edit39.Visible:=false;

edit40.Visible:=false;

edit41.Visible:=false;

edit42.Visible:=false;

edit43.Visible:=false;

edit44.Visible:=false; }

button15.Visible:=false;

button55.Visible:=false;

end;

procedure TForm1.Button56Click(Sender: TObject);

begin

label64.Visible:=false;

dblookupcombobox8.Visible:=false;

label37.Visible:=false;

label38.Visible:=false;

//.Visible:=false;

//label40.Visible:=false;

//label41.Visible:=false;

//label42.Visible:=false;

//label43.Visible:=false;

label44.Visible:=false;

//label45.Visible:=false;

//label46.Visible:=false;

//label47.Visible:=false;

//label48.Visible:=false;

//label49.Visible:=false;

//label50.Visible:=false;

dblookupcombobox43.Visible:=false;

dblookupcombobox42.Visible:=false;

dblookupcombobox31.Visible:=false;

dblookupcombobox32.Visible:=false;

dblookupcombobox33.Visible:=false;

dblookupcombobox34.Visible:=false;

dblookupcombobox35.Visible:=false;

dblookupcombobox36.Visible:=false;

dblookupcombobox37.Visible:=false;

dblookupcombobox38.Visible:=false;

dblookupcombobox39.Visible:=false;

dblookupcombobox40.Visible:=false;

dblookupcombobox41.Visible:=false;

edit38.Visible:=false;

button19.Visible:=false;

button56.Visible:=false;

end;

procedure TForm1.Button63Click(Sender: TObject);

begin

if parol

then begin

label5.Visible:=true;

label6.Visible:=true;

label7.Visible:=true;

label8.Visible:=true;

label18.Visible:=true;

edit1.Visible:=true;

edit2.Visible:=true;

edit3.Visible:=true;

edit4.Visible:=true;

edit11.Visible:=true;

button2.Visible:=true;

button60.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button64Click(Sender: TObject);

begin

if parol

then begin

//label5.Visible:=true;

//edit1.Visible:=true;

label59.Visible:=true;

dblookupcombobox3.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button65Click(Sender: TObject);

begin

if parol

then begin

label60.Visible:=true;

dblookupcombobox4.Visible:=true;

//label5.Visible:=true;

//label6.Visible:=true;

//label7.Visible:=true;

//label8.Visible:=true;

//label18.Visible:=true;

//edit1.Visible:=true;

//edit2.Visible:=true;

//edit3.Visible:=true;

//edit4.Visible:=true;

//edit11.Visible:=true;

//button20.Visible:=true;

//button62.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button60Click(Sender: TObject);

begin

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;

label8.Visible:=false;

label18.Visible:=false;

edit1.Visible:=false;

edit2.Visible:=false;

edit3.Visible:=false;

edit4.Visible:=false;

edit11.Visible:=false;

button2.Visible:=false;

button60.Visible:=false;

end;

procedure TForm1.Button61Click(Sender: TObject);

begin

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;

label8.Visible:=false;

label18.Visible:=false;

edit1.Visible:=false;

edit2.Visible:=false;

edit3.Visible:=false;

edit4.Visible:=false;

edit11.Visible:=false;

label59.Visible:=false;

dblookupcombobox3.Visible:=false;

button10.Visible:=false;

button61.Visible:=false;

end;

procedure TForm1.Button62Click(Sender: TObject);

begin

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;

label8.Visible:=false;

label18.Visible:=false;

edit1.Visible:=false;

edit2.Visible:=false;

edit3.Visible:=false;

edit4.Visible:=false;

edit11.Visible:=false;

label5.Visible:= false;

label60.Visible:= false;

dblookupcombobox4.Visible:= false;

button20.Visible:=false;

button62.Visible:=false;

end;

procedure TForm1.Button66Click(Sender: TObject);

begin

// val(edit18.Text,x,z1);

//if (z1=0)

//and (edit18.Text<>'')

//then begin

//edit12.Text:=datetostr(datetimepicker3.Date);

ADOStoredProc30.Parameters.ParamValues['@n']:=dblookupcombobox26.KeyValue;

ADOStoredProc30.Parameters.ParamValues['@d']:=dblookupcombobox44.Text;