Дипломная работа: Автоматизация учёта спроса на продуктовый ассортимент в фирме ООО "ПКФ ЭнергоСофт"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
146
DM.tbl_prodagi.Close;
DM.tbl_prodagi.Open;
F_prod_grah.ShowModal;
F_prod_grah.Destroy;
end;
procedure TMain.N20Click(Sender: TObject);
begin
Farhiv:=TFarhiv.Create(self);
Farhiv.ShowModal;
Farhiv.Destroy;
end;
procedure TMain.N19Click(Sender: TObject);
begin
DM.qry_itog_prod.Close;
DM.qry_itog_prod.Open;
F_itogi_prod:=TF_itogi_prod.Create(self);
F_itogi_prod.ShowModal;
F_itogi_prod.Destroy;
end;
procedure TMain.N23Click(Sender: TObject);
begin
F_graf_zakup:=TF_graf_zakup.Create(self);
F_graf_zakup.ShowModal;
F_graf_zakup.Destroy;
end;
procedure TMain.N29Click(Sender: TObject);
begin
DM.qry_itog_zakupki.Close;
DM.qry_itog_zakupki.Open;
F_itog_zakupki:=TF_itog_zakupki.Create(self);
F_itog_zakupki.ShowModal;
147
F_itog_zakupki.Destroy;
end;
procedure TMain.N28Click(Sender: TObject);
begin
F_zakupki:=TF_zakupki.Create(self);
F_zakupki.ShowModal;
F_zakupki.Destroy;
end;
procedure TMain.N32Click(Sender: TObject);
begin
frxReport1.LoadFromFile('tovar.fr3');
frxReport1.ShowReport(true);
end;
procedure TMain.N34Click(Sender: TObject);
begin
frxReport2.LoadFromFile('org.fr3');
frxReport2.ShowReport(true);
end;
procedure TMain.N3Click(Sender: TObject);
begin
F_anketa:=TF_anketa.Create(self);
F_anketa.ShowModal;
F_anketa.Destroy;
end;
procedure TMain.N16Click(Sender: TObject);
begin
F_vvod_ankety:=TF_vvod_ankety.Create(self);
F_vvod_ankety.ShowModal;
F_vvod_ankety.Destroy;
end;
procedure TMain.btn1Click(Sender: TObject);
148
begin
F_tovar:=TF_tovar.Create(self);
F_tovar.ShowModal;
F_tovar.Destroy;
end;
procedure TMain.btn2Click(Sender: TObject);
begin
F_org:=TF_org.Create(self);
F_org.ShowModal;
F_org.Destroy;
end;
procedure TMain.btn3Click(Sender: TObject);
begin
F_marka_tov:=TF_marka_tov.Create(self);
F_marka_tov.ShowModal;
F_marka_tov.Destroy
end;
procedure TMain.btn4Click(Sender: TObject);
begin
F_ed_izmer:=TF_ed_izmer.Create(self);
F_ed_izmer.ShowModal;
F_ed_izmer.Destroy;
end;
procedure TMain.btn5Click(Sender: TObject);
begin
F_tip_tov:=TF_tip_tov.Create(self);
F_tip_tov.ShowModal;
F_tip_tov.Destroy;
end;
149
procedure TMain.btn6Click(Sender: TObject);
begin
F_adres:=TF_adres.Create(self);
F_adres.ShowModal;
F_adres.Destroy;
end;
procedure TMain.btn8Click(Sender: TObject);
begin
F_prodagi:=TF_prodagi.Create(self);
F_prodagi.ShowModal;
F_prodagi.Destroy;
end;
procedure TMain.btn18Click(Sender: TObject);
begin
DM.qry_itog_prod.Close;
DM.qry_itog_prod.Open;
F_itogi_prod:=TF_itogi_prod.Create(self);
F_itogi_prod.ShowModal;
F_itogi_prod.Destroy;
end;
procedure TMain.btn10Click(Sender: TObject);
begin
F_zakupki:=TF_zakupki.Create(self);
F_zakupki.ShowModal;
F_zakupki.Destroy;
end;
procedure TMain.btn11Click(Sender: TObject);
begin
DM.qry_itog_zakupki.Close;
150
DM.qry_itog_zakupki.Open;
F_itog_zakupki:=TF_itog_zakupki.Create(self);
F_itog_zakupki.ShowModal;
F_itog_zakupki.Destroy;
end;
procedure TMain.btn12Click(Sender: TObject);
begin
F_anketa:=TF_anketa.Create(self);
F_anketa.ShowModal;
F_anketa.Destroy;
end;
procedure TMain.btn13Click(Sender: TObject);
begin
F_prod_grah:=TF_prod_grah.Create(self);
DM.tbl_prodagi.Filtered:=False;
DM.tbl_prodagi.Filter:='';
DM.tbl_prodagi.Filter:='(код_товара=1)';
DM.tbl_prodagi.Filtered:=True;
DM.tbl_prodagi.Close;
DM.tbl_prodagi.Open;
F_prod_grah.ShowModal;
F_prod_grah.Destroy;
end;
procedure TMain.btn14Click(Sender: TObject);
begin
F_graf_zakup:=TF_graf_zakup.Create(self);
F_graf_zakup.ShowModal;
F_graf_zakup.Destroy;
end;
procedure TMain.btn15Click(Sender: TObject);
Источник: https://baza.diplomsite.ru/previewfile/2489

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал