183636 (Разработка и создание автоматизированной системы обработки информации)

Содержание

Введение

Раздел 1. Описание объекта для разработки и создания автоматизированной системы обработки информации.

Раздел 2. Описание алгоритма решения поставленной задачи.

Раздел 3. Описание кодов проектируемой системы автоматизированной обработки информации.

Раздел 4. Листинг программы.

Заключение

Список использованной литературы.

Введение

Экономическая информационная система (ЭИС) представляет собой совокупность организационных, технических, программных и информационных средств, объединенных в единую систему с целью сбора, хранения, обработки и выдачи необходимой информации, предназначенной для выполнения определенных функций.

Локальная ЭИС автоматизирует отдельные функции управления на отдельных уровнях управления. Такая ЭИС может быть однопользовательской, функционирующей в отдельных подразделениях системы управления.

Одним из основных свойств ЭИС является делимость на подсистемы, которая имеет ряд достоинств с точки разработки и эксплуатации ЭИС, к которым относится:

1. Упрощение разработки и модернизации ЭИС в результате специализации групп проектировщиков по подсистемам;

2. Упрощение внедрения и поставка готовых подсистем в соответствии с очередностью выполнения работ;

3. Упрощение эксплуатации ЭИС в следствии специализации работников предметной области.

Разработанная нами система является локальной и предназначена для применения на предприятии и в организациях различной формы собственности и с различными видами деятельности (производство продукции, выполнение работ, предоставление услуг). Система предназначена для применения на складах или для лиц, занимающихся реализации продукции.

Раздел 1. Описание объекта для разработки и создания автоматизированной системы обработки информации.

Проблема учета отгрузки и реализации готовой продукции на предприятии – одна из важнейших проблем на любом предприятии. Система учета отгрузки и реализации готовой продукции решает такие проблемы:

1. Учет отгрузки продукции;

2. Учет реализации продукции;

3. Ведение внутреннего учета;

4. Учет поступлений денег в кассу предприятия и на счет предприятия.

Наша система предназначена для ведения товарооборота (дата отгрузки, дата оплаты, наименование реализованного товара, данные клиента).

Кроме того система содержит данные о всей реализованной продукции, о всей продукции, которая хранится на складе.

Система отображает движение продукции на складе, накладные поступлений и реализаций.

Раздел 2. Описание алгоритма решения поставленной задачи.

Первым делом выбираем среду программирования. Для нас приемлемой будет среда Borland Delphi, поскольку программные продукты – исполняемые файлы с расширением ехе.

Следующий этап - мы строим диаграмму будущего проекта – это будет 3 таблицы, связанные между собой:

• таблица «Реализация» - в ней отображаются данные клиента:

- № поля

- данные клиента

- адрес клиента

- сумма

- вид оплаты

- дата

• таблица «Накладная» - в ней отображаются данные купленного товара:

- №

- наименование товара

- цена единицы товара

- количество

- сумма

• Таблица «Движение» - в ней отображаются данные склада, поступление и отгрузка товара на склад и со склада:

- №

- наименование товара

- направление

- количество

- цена единицы

Таблицу «Накладная» мы связываем с двумя другими таблицами с таблицей «Реализация» через поле «Сумма»; и с таблицей «Движение» через поле наименование товара.

Таким образом диаграмма будущего проекта будет иметь такой вид:

Таблица 1.Реализация:

1.№

2.Данные клиента

3.Адресс

4.Сумма

5.Вид оплаты

6.Дата

Таблица 2.Накладная:

1.№

2.Наименование товара

3.Цена единицы

4.Количество

5.Сумма

Таблица 3.Движение:

1.№

2.Наименование товара

3.Направление

4.Количество

5.Цена единицы

Таблицы мы создаем в DataBase Desktop. Также создаем вторичные индексы к полям для создания связанных таблиц.

Для удобного переключения с одной таблицы на другую мы используем компонент PagtControl. Для отображения таблиц – DBGrid, для ввода данных – DBEdit и DBComboBox. DBComboBox мы применяем для ввода тех данных, которые имеют один или два варианта записи.

Раздел 3. Описание кодов проектируемой системы автоматизированной обработки информации.

Для отображения данных мы используем компоненты Table, DataSource, DBGrid. Для связи его с таблицей в свойстве DataBaseName указываем путь к базе данных, а в свойстве TableName имя базы данных. Для связи компонента DataSource с компонентом Table мы в свойстве DataSet компонента DataSource указываем соответствующий Table. Для связи компонента DBGrid с базой данных мы в свойстве DataSource компонента DBGrid указываем соответствующий DataSource.

Для ввода данных используются компоненты DBEdit и DBComboBox, которые связываются подобным образом с компонентом DataSource.

Для навигации по базе данных мы используем компоненты Button. Для передвижения назад:

procedure TForm1.Button6Click(Sender: TObject);

begin

Table2.Prior;

end;

Для передвижения вперед:

procedure TForm1.Button7Click(Sender: TObject);

begin

Table2.Next;

end;

Для передвижения в начало:

procedure TForm1.Button8Click(Sender: TObject);

begin

Table2.First;

end;

Для передвижения в конец:

procedure TForm1.Button9Click(Sender: TObject);

begin

Table2.Last;

end;

Для управления базой данных компонент Button прописывается следующим образом:

Для добавления новой записи:

procedure TForm1.Button10Click(Sender: TObject);

begin

Table2.Insert;

end;

Для сохранения новой записи:

procedure TForm1.Button11Click(Sender: TObject);

begin

Table2.Refresh;

end;

Для редактирования записи:

procedure TForm1.Button12Click(Sender: TObject);

begin

Table2.Edit;

end;

Для сохранения изменений в записи:

procedure TForm1.Button13Click(Sender: TObject);

begin

Table2.Post;

end;

Для отмены изменений:

procedure TForm1.Button14Click(Sender: TObject);

begin

Table2.Cancel;

end;

Для удаления записи:

procedure TForm1.Button15Click(Sender: TObject);

begin

Table2.Delete;

end;

В нашей базе данных при внесении новой записи в таблицу «Накладная»

компонент Button мы прописываем следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Insert;

Table2.Insert;

Table3.Insert;

end;

Мы прописываем внесение новой записи несколько раз потому что данные добавляются сразу в три таблицы.

Аналогично сохранение новой записи:

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1.Refresh;

Table2.Refresh;

Table3.Refresh;

end;

Для вывода отчета мы используем компоненты RvProject и RvDataSetConnection. А компонент Button мы прописываем следующим образом:

procedure TForm1.Button16Click(Sender: TObject);

begin

RvProject1.Execute;

end;

Раздел 4. Листинг программы.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ComCtrls,

StdCtrls, Mask, RpCon, RpConDS, RpDefine, RpRave, XPMan, jpeg;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet4: TTabSheet;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Table1: TTable;

Table2: TTable;

Table3: TTable;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBComboBox1: TDBComboBox;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBComboBox2: TDBComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

XPManifest1: TXPManifest;

Bevel1: TBevel;

RvProject2: TRvProject;

RvDataSetConnection1: TRvDataSetConnection;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

RvProject1: TRvProject;

RvDataSetConnection2: TRvDataSetConnection;

RvProject3: TRvProject;

RvDataSetConnection3: TRvDataSetConnection;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Append;;

Table2.Append;

Table3.Append;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1.Refresh;

Table2.Refresh;

Table3.Refresh;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Table2.Delete;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Table3.Delete;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Table2.Prior;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Table2.Next;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Table2.Edit;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Table2.Post;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

RvProject2.Execute;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Table1.Prior;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

Table1.Edit;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin