Дипломная работа: Автоматизированное рабочее место менеджера по продажам (на примере ООО "СОКОЛ")

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
72
38. Трубилин закрепление И.Т., Семенов М.И., Лойко разработка В.И., Барановская Т.П.
Автоматизированные консалтинг информационные технологии данную в экономике. М.:
Финансы пользователей и статистика, 2012. глобального –413 с.
39. Харитонов гост С.А. Введение в конфигурирование классификаторы в системе «1С –
Предприятие титоренко 8.1». Основные объекты экономической. СПб.: Питер, 2011. кранные –89 с.
40. Хрусталева Е.Ю. Разработка информационной сложных отчетов«1С windows –Предприятие
8». Система базу компоновки данных месяцев. СПб.: Питер, 2012. унок –483с.
41. Хрусталева procedure Е.Ю. Разработка отчетов качестве «1С –Предприятие 8». СПб.:
Питер ресурсам, 2013. –275с данных.
73
ПРИЛОЖЕНИЕ А
Листинг приложение АРМ
unit Unit стратегии1;
procedure TForm1.BitBtn1Click(Sender страняется: TObject);
begin базу
DataModule5.Q_IN.Close;
DataModule5.Q_IN.Active список := False;
DataModule5.Q_IN.Parameters.ParamByName('ID').Value финансы := Edit1.Text;
DataModule5.Q_IN.Open стоимостные;
DataModule5.Q_IN.Active := True сформулировать;
if DataModule5.Q_IN.FieldByName('PAROL').AsString = Edit2.Text среди then
begin неограниченно
Form2.ShowModal;
Form1.Hide приложение;
end
else
ShowMessage('Неправильный программист пользователь и/или зависит пароль. Повторите унок
попытку');
end;
procedure решения TForm1.BitBtn2Click(Sender: TObject актуальную);
begin
Close поля;
end;
end.
unit Unit содержащая2;
procedure TForm2.N10Click(Sender папки: TObject);
begin описание
DataModule5.T_SPR_CAT.Active := True procedure;
74
DataModule5.T_PRICE.Active := True раза;
Form3.ShowModal;
end;
procedure результате TForm2.N3Click(Sender: TObject работы);
begin
DataModule5.T_SPR_STO.Active теория := True;
DataModule5.T_SPR_SPO.Active факел := True;
DataModule5.T_DOG.Active прежде := True;
Form8.ShowModal дополнительные;
end;
procedure TForm2.N4Click(Sender адаптивный: TObject);
begin оболочку
Close;
Form1.Close диаграмма;
end;
procedure TForm2.N5Click(Sender высоких: TObject);
begin модель
DataModule5.T_SPR_CAT.Active := True продаж;
Form4.ShowModal;
end;
procedure реалистичной TForm2.N6Click(Sender: TObject документов);
begin
DataModule5.T_SPR_CLIENT.Active используется := True;
Form6.ShowModal после;
end;
procedure TForm2.N7Click(Sender справочник: TObject);
begin автоматизации
Form4.ShowModal;
end;
75
procedure информационной TForm2.N8Click(Sender: TObject времени);
begin
DataModule5.T_SPR_CLIENT.Active унок := True;
Form6.ShowModal именно;
end;
procedure TForm2.N9Click(Sender обоснование: TObject);
begin определяющим
DataModule5.T_SALE.Active := True другие;
Form7.ShowModal;
end;
end.
unit этап Unit3;
procedure управления TForm3.BitBtn1Click(Sender: TObject данные);
begin
Close сведения;
end;
procedure TForm3.BitBtn2Click(Sender можно: TObject);
var
xlsApp система, xlsBook, xlsSheet собственной: Variant;
RowCount базы, NumRow, NumCol базу: Integer;
begin системе
try
//создаем объект документов Excel
xlsApp госстандарт := CreateOleObject('Excel.Application');
except сервере
ShowMessage('Возможно не установлен фазе MS Excel.');
Exit анализ;
end;
76
xlsApp.Visible := True более;
xlsApp.DisplayAlerts := False повышает;
try
xlsBook :=
Ошибка!
\Прейскурант');
xlsSheet этого := xlsBook.Worksheets.Item[1];
DataModule5.T_PRICE.First клиентов;
while not DataModule5.T_PRICE.Eof должна do
begin
xlsSheet.Cells[DataModule5.T_PRICE.RecNo можно+1,1] :=
IntToStr(DataModule5.T_PRICE.FieldByName('ID_PRICE').AsInteger);
xlsSheet.Cells[DataModule5.T_PRICE.RecNo обоснование+1,2] :=
DataModule5.T_PRICE.FieldByName('NAME_PROD').AsString;
xlsSheet.Cells[DataModule5.T_PRICE.RecNo индекс+1,3] :=
DataModule5.T_PRICE.FieldByName('CAT_NAME').AsString;
xlsSheet.Cells[DataModule5.T_PRICE.RecNo издержками+1,4] :=
FloatToStr(DataModule5.T_PRICE.FieldByName('PRICE_ED').AsFloat);
DataModule5.T_PRICE.Next приводит;
end;
except
ShowMessage('Невозможно приведе открыть файл управления.');
end;
xlsSheet := xlsBook.Worksheets.Item отсутствие[1];
end;
procedure TForm3.FormActivate(Sender регистрации: TObject);
begin своей
DataModule5.T_SPR_CAT.Active := True server;
DataModule5.T_PRICE.Active := True информационной;
end;
procedure TForm3.FormCloseQuery(Sender спирали: TObject; var CanClose пересекающихся: Boolean);
Источник: https://baza.diplomsite.ru/previewfile/2525

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

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