Procedure TGlavnaya_.Button1Click - процедура добавления нового клиента фирмы;

1.         procedure TGlavnaya_.Button1Click - процедура добавления нового клиента фирмы;

procedure TGlavnaya_.Button1Click(Sender: TObject);

begin

DBEdit1.ReadOnly:=false;// активация поля ввода

DBEdit2.ReadOnly:=false;// активация поля ввода

DBEdit3.ReadOnly:=false; // активация поля ввода

Button3.Enabled:=true; //активация кнопки

Button4.Enabled:=true;// активация кнопки

Button1.Enabled:=false;// деактивация кнопки

Button2.Enabled:=false;// деактивация кнопки

Button6.Enabled:=false; // деактивация кнопки

Button7.Enabled:=false; // деактивация кнопки

DBEdit1.SetFocus; // Установка курсора

DataModule1.Klient_Table1.Insert; //Добавление записи

end;

2.         procedure TGlavnaya_.Button3Click – процедура сохранения данных;

procedure TGlavnaya_.Button3Click(Sender: TObject);

begin

if (DBEdit1.Text='') or (DBEdit2.Text='') or (DBEdit3.Text='')

then

begin

ShowMessage('Заполните все поля'); // вывод сообщения

DBEdit1.SetFocus;// установка курсора

end

else

begin

Button3.Enabled:=false; // деактивация кнопки

Button4.Enabled:=false; // деактивация кнопки

Button1.Enabled:=true; // активация кнопки

Button2.Enabled:=true; // активация кнопки

Button6.Enabled:=true; // активация кнопки

Button7.Enabled:=true; // активация кнопки

DataModule1.Klient_Table1.Post; // Сохранение записи

DBEdit1.ReadOnly:=true; // деактивация поля ввода

DBEdit2.ReadOnly:=true; // деактивация поля ввода

DBEdit3.ReadOnly:=true; // деактивация поля ввода

end;

end;

3.         procedure TGlavnaya_.Button4Click - процедура нажатия кнопки "Отмена";

procedure TGlavnaya_.Button4Click(Sender: TObject);

begin

Button3.Enabled:=false; // деактивация кнопки

Button4.Enabled:=false; // деактивация кнопки

Button1.Enabled:=true; // активация кнопки

Button2.Enabled:=true; // активация кнопки

Button6.Enabled:=true; // активация кнопки

Button7.Enabled:=true; // активация кнопки

DataModule1.Klient_Table1.Cancel; // отмена

DBEdit1.ReadOnly:=true;// деактивация поля ввода

DBEdit2.ReadOnly:=true; // деактивация поля ввода

DBEdit3.ReadOnly:=true; // деактивация поля ввода

end;

4.         procedure TGlavnaya_.Button7Click – процедура перехода к предыдущей записи в таблице

procedure TGlavnaya_.Button7Click(Sender: TObject);

begin

DataModule1.Klient_Table1.Prior;// переход к предыдущей записи

end;

5.         procedure TGlavnaya_.Button9Click – процедура создания отчета

procedure TGlavnaya_.Button9Click(Sender: TObject);

begin

Otch_Nakladnaya_.QRLabel9.Caption:='Товарный чек';// присвоение полю значения

Otch_Nakladnaya_.QRLabel26.Caption:=DBEdit1.Text; // присвоение полю значения

Otch_Nakladnaya_.QRLabel27.Caption:=DBEdit1.Text;// присвоение полю значения

Otch_Nakladnaya_.QuickRep1.Preview;// просмотр отчета

end;

6.         procedure TGlavnaya_.Button21Click – Процедура сохранения поступившего товара

procedure TGlavnaya_.Button21Click(Sender: TObject);

begin

if (Edit1.Text='') or (Edit1.Text='0')

then

ShowMessage('Введите колличество принятого товара')

Else

begin

DBText1.Caption:=IntToStr((strtoint(Edit1.Text))+(strtoint(DBText1.Caption)));

DataModule1.Uslugi_Table2.FieldByName('К-во').AsString:=DBText1.Caption;;

Edit1.Text:='0';

DataModule1.Uslugi_Table2.Post; // сохранение данных

Button13.Enabled:=true; // активация кнопки

Button14.Enabled:=true; // активация кнопки

Button10.Enabled:=true; // активация кнопки

Button15.Enabled:=true; // активация кнопки

Button21.Visible:=false; // скрытие кнопки

Button21.Enabled:=false; // деактивация кнопки

Button11.Visible:=true; // отображение кнопки

Button11.Enabled:=false; // деактивация кнопки

Button12.Enabled:=false; // деактивация кнопки

Edit1.ReadOnly:=true; // деактивация поля ввода

end;

end;

7.         procedure TGlavnaya_.Button11Click – Процедура расчета цены продажи товара

procedure TGlavnaya_.Button11Click(Sender: TObject);

begin

if (DBEdit7.Text='') or (Edit1.Text='') or (DBEdit11.Text='')

or (Edit2.Text='')

then

ShowMessage('Заполните все поля') // Вывод сообщения

Else

begin

DBText1.Caption:=Edit1.Text; // перенос значения

DataModule1.Uslugi_Table2.FieldByName('К-во').AsString:=DBText1.Caption;;

Edit1.Text:='0';

Edit3.Text:=IntToStr(((strtoint(DBEdit11.Text))* (strtoint(Edit2.Text))) div (strtoint('100')) );

DBEdit9.Text:=IntToStr((strtoint(Edit3.Text))+(strtoint(DBEdit11.Text)));

DataModule1.Uslugi_Table2.Post;

Button13.Enabled:=true; //активация кнопки

Button14.Enabled:=true; //активация кнопки

Button10.Enabled:=true; //активация кнопки

Button15.Enabled:=true; //активация кнопки

Button21.Visible:=true; // отображение кнопки

Button21.Enabled:=false; //деактивация кнопки

Button11.Visible:=false; // скрытие кнопки

Button11.Enabled:=false; //деактивация кнопки

Button12.Enabled:=false; //деактивация кнопки

DBEdit7.Enabled:=false; //деактивация поля ввода

Edit1.ReadOnly:=true; //деактивация поля ввода

DBEdit11.ReadOnly:=true; //деактивация поля ввода

Edit2.ReadOnly:=true; //деактивация поля ввода

end;

end;