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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

141

btn14: TToolButton;

btn15: TToolButton;

btn16: TToolButton;

btn17: TToolButton;

btn18: TToolButton;

btn19: TToolButton;

btn20: TToolButton;

btn21: TToolButton;

procedure N14Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure tmr1Timer(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N30Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N29Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure N32Click(Sender: TObject);

procedure N34Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N16Click(Sender: TObject);

142

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure btn6Click(Sender: TObject);

procedure btn8Click(Sender: TObject);

procedure btn18Click(Sender: TObject);

procedure btn10Click(Sender: TObject);

procedure btn11Click(Sender: TObject);

procedure btn12Click(Sender: TObject);

procedure btn13Click(Sender: TObject);

procedure btn14Click(Sender: TObject);

procedure btn15Click(Sender: TObject);

procedure btn21Click(Sender: TObject);

procedure btn17Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Main: TMain;

implementation

uses Unit2, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit3,

Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit17, Unit18, Unit19, Unit20,

Unit21, Unit22, Unit23;

{$R *.dfm}

procedure TMain.N14Click(Sender: TObject);

begin

Application.Terminate;

143

end;

procedure TMain.N7Click(Sender: TObject);

begin

AboutBox:=TAboutBox.Create(self);

AboutBox.ShowModal;

AboutBox.Destroy;

end;

procedure TMain.tmr1Timer(Sender: TObject);

begin

stat1.Panels[0].Text:='Сегодня: '+ DateToStr(now);

stat1.Panels[1].Text:='Время: '+timetostr(now);

end;

procedure TMain.N8Click(Sender: TObject);

begin

F_tovar:=TF_tovar.Create(self);

F_tovar.ShowModal;

F_tovar.Destroy;

end;

procedure TMain.N12Click(Sender: TObject);

begin

F_ed_izmer:=TF_ed_izmer.Create(self);

F_ed_izmer.ShowModal;

F_ed_izmer.Destroy;

end;

procedure TMain.N11Click(Sender: TObject);

begin

F_marka_tov:=TF_marka_tov.Create(self);

144

F_marka_tov.ShowModal;

F_marka_tov.Destroy;

end;

procedure TMain.N13Click(Sender: TObject);

begin

F_tip_tov:=TF_tip_tov.Create(self);

F_tip_tov.ShowModal;

F_tip_tov.Destroy;

end;

procedure TMain.N10Click(Sender: TObject);

begin

F_org:=TF_org.Create(self);

F_org.ShowModal;

F_org.Destroy;

end;

procedure TMain.N25Click(Sender: TObject);

begin

F_city:=TF_city.Create(self);

F_city.ShowModal;

F_city.Destroy;

end;

procedure TMain.N26Click(Sender: TObject);

begin

F_street:=TF_street.Create(self);

F_street.ShowModal;

F_city.Destroy;

end;

procedure TMain.N9Click(Sender: TObject);

145

begin

F_adres:=TF_adres.Create(self);

F_adres.ShowModal;

F_adres.Destroy;

end;

procedure TMain.N30Click(Sender: TObject);

begin

F_month:=TF_month.Create(self);

F_month.ShowModal;

F_month.Destroy;

end;

procedure TMain.N31Click(Sender: TObject);

begin

F_year:=TF_year.Create(self);

F_year.ShowModal;

F_year.Destroy;

end;

procedure TMain.N18Click(Sender: TObject);

begin

F_prodagi:=TF_prodagi.Create(self);

F_prodagi.ShowModal;

F_prodagi.Destroy;

end;

procedure TMain.N22Click(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;

Источник: https://baza.diplomsite.ru/previewfile/2489

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








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