Разработка и создание автоматизированной системы обработки информации (стр. 1 из 2)
Содержание
Введение
Раздел 1. Описание объекта для разработки и создания автоматизированной системы обработки информации.
Раздел 2. Описание алгоритма решения поставленной задачи.
Раздел 3. Описание кодов проектируемой системы автоматизированной обработки информации.
Раздел 4. Листинг программы.
Заключение
Список использованной литературы.
Введение
Экономическая информационная система (ЭИС) представляет собой совокупность организационных, технических, программных и информационных средств, объединенных в единую систему с целью сбора, хранения, обработки и выдачи необходимой информации, предназначенной для выполнения определенных функций.
Локальная ЭИС автоматизирует отдельные функции управления на отдельных уровнях управления. Такая ЭИС может быть однопользовательской, функционирующей в отдельных подразделениях системы управления.
Одним из основных свойств ЭИС является делимость на подсистемы, которая имеет ряд достоинств с точки разработки и эксплуатации ЭИС, к которым относится:
1. Упрощение разработки и модернизации ЭИС в результате специализации групп проектировщиков по подсистемам;
2. Упрощение внедрения и поставка готовых подсистем в соответствии с очередностью выполнения работ;
3. Упрощение эксплуатации ЭИС в следствии специализации работников предметной области.
Разработанная нами система является локальной и предназначена для применения на предприятии и в организациях различной формы собственности и с различными видами деятельности (производство продукции, выполнение работ, предоставление услуг). Система предназначена для применения на складах или для лиц, занимающихся реализации продукции.
Раздел 1. Описание объекта для разработки и создания автоматизированной системы обработки информации.
Проблема учета отгрузки и реализации готовой продукции на предприятии – одна из важнейших проблем на любом предприятии. Система учета отгрузки и реализации готовой продукции решает такие проблемы:
1. Учет отгрузки продукции;
2. Учет реализации продукции;
3. Ведение внутреннего учета;
4. Учет поступлений денег в кассу предприятия и на счет предприятия.
Наша система предназначена для ведения товарооборота (дата отгрузки, дата оплаты, наименование реализованного товара, данные клиента).
Кроме того система содержит данные о всей реализованной продукции, о всей продукции, которая хранится на складе.
Система отображает движение продукции на складе, накладные поступлений и реализаций.
Раздел 2. Описание алгоритма решения поставленной задачи.
Первым делом выбираем среду программирования. Для нас приемлемой будет среда BorlandDelphi, поскольку программные продукты – исполняемые файлы с расширением ехе.
Следующий этап - мы строим диаграмму будущего проекта – это будет 3 таблицы, связанные между собой:
· таблица «Реализация» - в ней отображаются данные клиента:
- № поля
- данные клиента
- адрес клиента
- сумма
- вид оплаты
- дата
· таблица «Накладная» - в ней отображаются данные купленного товара:
- №
- наименование товара
- цена единицы товара
- количество
- сумма
· Таблица «Движение» - в ней отображаются данные склада, поступление и отгрузка товара на склад и со склада:
- №
- наименование товара
- направление
- количество
- цена единицы
Таблицу «Накладная» мы связываем с двумя другими таблицами с таблицей «Реализация» через поле «Сумма»; и с таблицей «Движение» через поле наименование товара.
Таким образом диаграмма будущего проекта будет иметь такой вид:
| Таблица 2.Накладная:1.№2.Наименование товара3.Цена единицы4.Количество5.Сумма |
| Таблица 3.Движение:1.№2.Наименование товара3.Направление4.Количество5.Цена единицы |
 |
Таблицы мы создаем в DataBaseDesktop. Также создаем вторичные индексы к полям для создания связанных таблиц.
Для удобного переключения с одной таблицы на другую мы используем компонент 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
Table1.Post;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
RvProject3.Execute;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
Table3.Prior;
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
Table3.Next;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
Table3.Edit;
end;
procedure TForm1.Button20Click(Sender: TObject);
begin
Table3.Post;
end;
end.
Заключение