Реферат Мережа комп'ютерних магазинів "21 століття"

p align="justify">// val (edit26.Text, x, z4);

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

// val (edit30.Text, x, z7); (dblookupcombobox1.Text <>'') and

// and

(z6 = 0)

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

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

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

(edit29.Text <>'')

// and (edit30.Text <>'') and (edit27.Text <>'') begin. Parameters.ParamValues ​​['@ lnom']: = dblookupcombobox1.KeyValue;

// ADOStoredProc24. Parameters.ParamValues ​​['@ nomp']: = Edit24.Text;. Parameters.ParamValues ​​['@ nompo']: = dblookupcombobox24.KeyValue;

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

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

// ADOStoredProc24. Parameters.ParamValues ​​['@ cena']: = Edit28.Text;. Parameters.ParamValues ​​['@ kol']: = Edit29.Text;. Parameters.ParamValues ​​['@ art']: = dblookupcombobox21.KeyValue;. ExecProc;. Close;. Open; showmessage ('Неправильний введення');; TForm1.Button26Click (Sender: TObject); parolbegin.Visible: = true;. 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; TForm1.Button27Click (Sender: TObject);. Terminate;; TForm1.N1Click (Sender: TObject);. Form4.Visible: = true;: = true;; TForm1.N2Click (Sender: TObject);. Form4.Visible: = true;: = false; ; TForm1.Button28Click (Sender:

end

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

end; TForm1.Button31Click (Sender: TObject); parolbegin

// label1.Visible: = true;

// edit5.Visible: = true;. Visible: = true; 5.Visible: = true;

end

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

end; TForm1.Button32Click (Sender: TObject);