Разработка АИС для автоматизации учета выпуска и реализации готовой продукции

procedure TForm10.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm10.Image2Click(Sender: TObject);

begin

module.postavki.IndexFieldNames:='Кодпоставки';

end;

procedure TForm10.Image3Click(Sender: TObject);

begin

module.postavki.IndexFieldNames:='Кодпоставщика';

end;

procedure TForm10.Image4Click(Sender: TObject);

begin

module.postavki.IndexFieldNames:='датапоставки';

end;

рисунок 13-форма просмотра списка поставок

листинг 14-поиск сотрудника

procedure TForm6.Button2Click(Sender: TObject);

begin

module.Psotrydnika.Active:=false;

module.Psotrydnika.sql.Clear;

module.Psotrydnika.sql.add('select *');

module.Psotrydnika.sql.add('from Сотрудники');

module.Psotrydnika.sql.add('where фамилия like '''+inttostr(0)+'''');

module.psotrydnika.active:=true;

edit1.Clear;

end;

procedure TForm6.Image2Click(Sender: TObject);

begin

module.Psotrydnika.Active:=false;

module.Psotrydnika.sql.Clear;

module.Psotrydnika.sql.add('select *');

module.Psotrydnika.sql.add('from Сотрудники');

module.Psotrydnika.sql.add('where фамилия like '''+edit1.text+'''');

module.psotrydnika.active:=true;

end;

рисунок 14-форма поиска сотрудника

листинг 15-поиск товара

procedure TForm8.Image2Click(Sender: TObject);

begin

module.Ptovara.Active:=false;

module.Ptovara.sql.Clear;

module.Ptovara.sql.add('select *');

module.Ptovara.sql.add('from товар');

module.Ptovara.sql.add('where код товара like '''+edit1.text+'''');

module.Ptovara.active:=true;

end;

procedure TForm8.Image3Click(Sender: TObject);

begin

module.Ptovara.Active:=false;

module.Ptovara.sql.Clear;

module.Ptovara.sql.add('select *');

module.Ptovara.sql.add('from товар');

module.Ptovara.sql.add('where код товара like '''+inttostr(0)+'''');

module.Ptovara.active:=true;

edit1.Clear;

end;

procedure TForm8.N1Click(Sender: TObject);

begin

close;

рисунок 15-форма поиска товара

листинг 16-поиск клиента

procedure TForm31.Image2Click(Sender: TObject);

begin

module.Pklienta.Active:=false;

module.Pklienta.sql.Clear;

module.Pklienta.sql.add('select *');

module.Pklienta.sql.add('from клиент');

module.Pklienta.sql.add('where код like '''+edit1.text+'''');

module.Pklienta.active:=true;

end;

procedure TForm31.Image3Click(Sender: TObject);

begin

module.Pklienta.Active:=false;

module.Pklienta.sql.Clear;

module.Pklienta.sql.add('select *');

module.Pklienta.sql.add('from клиент);

module.Pklienta.sql.add('where код like '''+inttostr(0)+'''');

module.Pklienta.active:=true;

edit1.Clear;

end;

procedure TForm31.N1Click(Sender: TObject);

begin

close;

end;

рисунок 16-форма поиска клиента

листинг 17-поиск поставщика

procedure TForm30.Image2Click(Sender: TObject);

begin

module.Ppostavhika.Active:=false;

module.Ppostavhika.sql.Clear;

module.Ppostavhika.sql.add('select *');

module.Ppostavhika.sql.add('from ïîñòàâùèê');

module.Ppostavhika.sql.add('where ÍàçâàíèåÏîñòàâùèêà like '''+edit1.text+'''');

module.Ppostavhika.active:=true;

end;

procedure TForm30.Image3Click(Sender: TObject);

begin

module.Ppostavhika.Active:=false;

module.Ppostavhika.sql.Clear;

module.Ppostavhika.sql.add('select *');

module.Ppostavhika.sql.add('from ïîñòàâùèê');

module.Ppostavhika.sql.add('where ÍàçâàíèåÏîñòàâùèêà like '''+inttostr(0)+'''');

module.Ppostavhika.active:=true;

edit1.Clear;

end;

procedure TForm30.N1Click(Sender: TObject);

begin

close;

end;

рисунок 17-форма поиска поставщика

листинг 18-запрос на отсутствующие товары

procedure TForm32.Image2Click(Sender: TObject);

begin

module.zot.Active:=false;

module.zot.sql.Clear;

module.zot.sql.add('SELECT Товары.КодТовара,

Товары.НаименованиеТовара, Товары.СтоимостьЗакупки');

module.zot.sql.add('from Товары');

module.zot.sql.add('where(((Товары.Наличие)=False))');

module.zot.active:=true;

end;

procedure TForm32.N1Click(Sender: TObject);

begin

close;

end;

рисунок 18-форма запроса отсутствующих товаров

листинг 19-запрос товаров в наличии

procedure TForm20.Image2Click(Sender: TObject);

begin

module.ZNT.Active:=false;

module.ZNT.sql.Clear;

module.ZNT.sql.add('SELECT Товары.КодТовара,

товары.НаименованиеТовара, Товары.СтоимостьЗакупки,

Товары.Наличие, Товары.[Кол-во]');

module.ZNT.sql.add('from Товары');

module.ZNT.sql.add('WHERE (((Товары.Наличие)=True))');

module.ZNT.active:=true;

end;

procedure TForm20.N1Click(Sender: TObject);

begin

close;

end;

рисунок 19-форма запросов товаров в наличии

листинг 20-просмотр данных о товаре

procedure TForm21.N1Click(Sender: TObject);

begin

close;

end;

рисунок 20-форма просмотра данных о товаре

листинг 21-о программе

procedure TForm15.N1Click(Sender: TObject);

begin

close;

end;

рисунок 21 о программе