329414 (610144), страница 3
Текст из файла (страница 3)
begin
form3.showmodal;
end;
end.
Затем добавляем третью форму (Form3), которая служит для организации ИС Автоматизации организации перевозок (рис.23). Так как у поставщика имеется много заказчиков различной удаленности, необходимо проанализировать и выбрать наиболее рациональный путь. Программа будет сортировать заказчиков по удаленности, тем самым повышается эффективность транспортных грузоперевозок.
Рис.23 Вид третей формы.
На форму добавляем следующие компоненты:
-
StringGrid1 - представляет собой таблицу, ячейки которой содержат строки символов. Для ввода массива удобно использовать компонент StringGrid.
В Unit3 заносим программный код:
procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
Form3.Close;
end;
procedure TForm3.FormActivate(Sender: TObject)
begin
tabl.Cells[0,0]:= Заказчик';
tabl.Cells[1,0]:='Расстояние (km)';
tabl.Cells[0,1]:='Гипермаркет «Линия» ';
tabl.Cells[0,2]:='Супермаркет «Европа» ';
tabl.Cells[0,3]:='Торговый центр «Поиск»';
tabl.Cells[0,4]:='777';
end;
procedure TForm3.Button2Click(Sender: TObject);
var
c,r:integer;
s:integer;
p:integer;
m:integer;
buf:array[0..5] of string;
i:integer;
begin
for r:=1 to tabl.rowcount do /
begin
for c:=1 to 3 do
if tabl.cells[c,r] <> ''
then s:=s+StrToInt(tabl.cells[c,r])
else tabl.cells[c,r]:='0';
p:=7*StrToInt(tabl.cells[1,r])+
6*StrToInt(tabl.cells[2,r])+
5*StrToInt(tabl.cells[3,r]);
tabl.cells[4,r]:=IntToStr(s); // âñåãî ìåäàëåé
tabl.cells[5,r]:=IntToStr(p); // î÷êîâ
end;
for r:=1 to tabl.rowcount-1 do
begin
m:=r; // for i:=r to tabl.rowcount-1 do
if StrToInt(tabl.cells[5,i])>StrToInt(tabl.cells[5,m])
then m:=i;
if r <> m then
begin
for c:=0 to 5 do
begin
buf[c]:=tabl.Cells[c,r];
tabl.Cells[c,r]:=tabl.Cells[c,m];
tabl.Cells[c,m]:=buf[c];
end;
end;
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
form4.showmodal;
end; end.
Завершающей формой будет четвертая форма (Form4), которая будет формировать ИС Автоматизация планирования накладной на продукцию (рис.24). Ознакомившись с продукцией производителя, заказчик сможет сделать заказ, для этого клиент, ориентируясь на таблицу Ассортимента, введет Наименование необходимой продукции и Количество. Данные заказа автоматически передадутся в текстовый документ более удобный для печати.
Рис.24 Вид четвертой формы.
На форму добавляем следующие компоненты:
-
LabeledEdit1-2 - комбинация однострочного редактора и метки. Впервые введен в версии 6.
-
WordApplication1 - запуск и соединение с сервером.
-
WordParagraphFormat1 - Для создания документа Microsoft Word из Delphi.
-
SaveDialog - диалог «Сохранить файл как...».
В Unit4 заносим программный код:
procedure TForm4.Button1Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
Form3.Close;
Form4.Close;
end;
procedure TForm4.FormCreate(Sender: TObject);
var TS: OleVariant;
NT: OleVariant;
begin
WordApplication1.Connect;
TS:='Normal';
NT:=FALSE;
WordApplication1.Documents.AddOld(TS,NT);
WordApplication1.ActiveDocument.PageSetup.LeftMargin:=15.0;
WordApplication1.ActiveDocument.PageSetup.TopMargin:=10.0;
WordApplication1.ActiveDocument.PageSetup.RightMargin:=10.0;
WordApplication1.ActiveDocument.PageSetup.BottomMargin:=10.0; // end;
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WordApplication1.Disconnect
end;
procedure TForm4.Button2Click(Sender: TObject);
var CD: OleVariant;
FN: OleVariant;
FT: OleVariant;
begin
if SaveDialog.Execute then
begin
CD:=wdCollapseEnd;
FN:=SaveDialog.FileName;
FT:=wdFormatDocument;
WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; WordApplication1.Selection.InsertBefore(labeledEdit1.text+' '+ #30);
WordApplication1.Selection.Collapse(CD); WordApplication1.Selection.InsertBefore(LabeledEdit2.Text+#13);
WordApplication1.Selection.Collapse(CD); WordApplication1.ActiveDocument.SaveAs(FN,FT,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.Visible:=TRUE
end
end;
procedure TForm4.WordApplicationQuit(Sender: TObject);
begin
Close
end; end.
5. Результат машинного эксперимента и их анализ
После того как программа полностью составлена, производим ее отладку и запуск (рис.25).
Рис.25 Вход в систему
Администратор при каждом входе в систему должен вводить логин, который используется для идентификации, и пароль (рис.26).
Рис.26 Ввод данных для идентификации
После нажатия на кнопку Вход программа проанализирует введенные данные, а затем предоставит информацию об Ассортименте (рис.27).
Рис.27 Наглядное представление информации производителя
По необходимости, данные о производимой продукции могут меняться не только через программу Access, но и в Delphi в режиме on-line (рис.28). Мы с помощью панели управления выбираем необходимое действие (добавить, удалить строку, перемещение по значениям таблицы), и производим операции с данными в DBEdit. Также можно просто удалить всю строку. Или с помощью стрелочек просмотреть всю таблицу. При необходимости пользователь может завершить работу с программой воспользовавшись кнопкой Выход.
Рис.28 Внесение новых данных
Нажав на кнопку Транспортировка, пользователь перейдет на третью форму ИС Автоматизации организации перевозок (рис.29). Перечень заказчиков представлен в табличном виде, необходимо лишь внести расстояние до каждого пункта. И после нажатия кнопки расчет клиенты будут расположены в порядке удаленности.
Рис.29 Нахождение оптимального пути
После нажатия на кнопку Накладная пользователь перейдет на четвертую форму, предназначенную для Автоматизации планирования накладной на продукцию (рис.30).
Рис.30 Внесение данных в накладную.
После нажатия на кнопку Добавить, появится перечень текстовых документов, в которые выведется информация (рис.31). Или можно создать новый документ.
Рис. 31 Сохранение накладной
После того как список сформирован в документе можно просмотреть следующие данные:
Кефир ‑5
Сметана ‑7
Йогурт ‑25
Для удобного выхода из программы на каждой форме расположены кнопки Выход, после нажатия, на которую работа программы прерывается.
Проанализировав работу Подсистемы Сбыта приходим, к выводу о том, что в ней рассмотрена необходимые возможности создания и ведения БД, удобное визуальное представление ассортимента и логотипа для заказчиков, а так же есть возможность сортировки данных и вывода их в текстовый документ. Таким образом, была представлена возможность обслуживания системы в разных программах. Мы рассмотрели следующие программные продукты:
-
Word 2003
-
Access2003
-
Delphi 7
Также есть возможность преобразования системы в необходимых направлениях.
Заключение
В наше время происходит автоматизация различных сфер производства, обслуживания и досуга человека. С переходом предприятия на рыночные отношения приходится сталкиваться с задачами привлечения новых клиентов, удержания существующих, а также расширения отношений с ними. Соответственно, компании начинают «осваивать» управление взаимоотношениями с клиентами, используя при этом информационные технологии.
Распространено использование современных ИТ-решений для автоматизации маркетинговых процессов предприятия. Основные области автоматизации — это взаимодействие с клиентами, управление потенциальными продажами, интеграция данных о клиентах и их аналитика, и другие функциональные и аспекты.
Автоматизация позволяет вывести рутинные процессы, которые обычно выполняются вручную, на более высокий уровень, интегрирует источники данных, повышает уровень безопасности и защиты корпоративных данных, открывает новые возможности и повышает эффективность продаж.
Функциональная подсистема «Сбыта» представлена как вариант решения сложившихся проблем. Она имеет гибкий интерфейс, проста в обслуживании, и защищена от несанкционированного доступа.
информационный учет программный алгоритм
Список использованных источников
-
Багиев, Георгий Леонидович. Маркетинг: Учеб. Для вузов / Багиев, Георгий Леонидович, Тарасевич, Валентина Михайловна, Анн, Холгер; Под ред. Г.Л. Багиева. – 2-е изд., перераб. И доп. – М.: Экономика, 2005. - 736 с.
-
Сафаров А., Тина Бабенкова. Контроллинг: история внедрения// Управление компанией. – 2005. - № 8. – 30 с.
-
Герчикова Н.И. Менеджмент: Учебник. - М., Банки и биржи, ЮНИТИ, 1994. - 685 с.
-
Курочкин А.С. Организация управления предприятием: Учебник. – К.: МАУП, 2001.
-
Delhphi 6.5, Дарахвелидзе П.Г., Марков Е. П. 2002, 816 с.
-
1. А. Архангельский, В. Ильин, М. Тагин
-
Русская справка (HELP) по Delphi 5 и Object Pascal (32 стр. с CD-ROM) Бином, ISBN 5-7989-0168-8.
-
А. Архангельский. Программирование в Delphi 5 Бином, ISBN 5-7989-0104-1.
-
А. Архангельский. Программирование в Delphi 6 Бином, ISBN 5-7989-0227-7.
-
П.Даpахвелидзе, Е.Маpков Delphi 4 в подлиннике.
Приложение
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
