Содержание
Введение
Раздел 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. Для передвижения назад:
procedureTForm1.Button6Click(Sender: TObject);
begin
Table2.Prior;
end;
Для передвижениявперед:
procedureTForm1.Button7Click(Sender: TObject);
begin
Table2.Next;
end;
Для передвиженияв начало:
procedureTForm1.Button8Click(Sender: TObject);
begin
Table2.First;
end;
Для передвиженияв конец:
procedureTForm1.Button9Click(Sender: TObject);
begin
Table2.Last;
end;
Для управления базойданных компонент Buttonпрописывается следующим образом:
Для добавления новойзаписи:
procedureTForm1.Button10Click(Sender: TObject);
begin
Table2.Insert;
end;
Для сохраненияновой записи:
procedureTForm1.Button11Click(Sender: TObject);
begin
Table2.Refresh;
end;
Для редактирования записи:
procedureTForm1.Button12Click(Sender: TObject);
begin
Table2.Edit;
end;
Для сохранения измененийв записи:
procedureTForm1.Button13Click(Sender: TObject);
begin
Table2.Post;
end;
Для отменыизменений:
procedureTForm1.Button14Click(Sender: TObject);
begin
Table2.Cancel;
end;
Для удаления записи:
procedureTForm1.Button15Click(Sender: TObject);
begin
Table2.Delete;
end;
В нашей базе данных привнесении новой записи в таблицу «Накладная»
компонент Button мы прописываем следующим образом:
procedureTForm1.Button1Click(Sender: TObject);
begin
Table1.Insert;
Table2.Insert;
Table3.Insert;
end;
Мы прописываем внесениеновой записи несколько раз потому что данные добавляются сразу в три таблицы.
Аналогично сохранение новой записи:
procedureTForm1.Button2Click(Sender: TObject);
begin
Table1.Refresh;
Table2.Refresh;
Table3.Refresh;
end;
Для вывода отчета мыиспользуем компоненты RvProject и RvDataSetConnection. А компонент Button мы прописываем следующим образом:
procedureTForm1.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;
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
procedureButton3Click(Sender: TObject);
procedureButton4Click(Sender: TObject);
procedureButton5Click(Sender: TObject);
procedureButton6Click(Sender: TObject);
procedureButton7Click(Sender: TObject);
procedureButton8Click(Sender: TObject);
procedureButton9Click(Sender: TObject);
procedureButton10Click(Sender: TObject);
procedureButton11Click(Sender: TObject);
procedureButton12Click(Sender: TObject);
procedureButton13Click(Sender: TObject);
procedureButton14Click(Sender: TObject);
procedureButton15Click(Sender: TObject);
procedureButton16Click(Sender: TObject);
procedureButton17Click(Sender: TObject);
procedureButton18Click(Sender: TObject);
procedureButton19Click(Sender: TObject);
procedureButton20Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Form1:TForm1;
implementation
{$R *.dfm}
procedureTForm1.Button1Click(Sender: TObject);
begin
Table1.Append;;
Table2.Append;
Table3.Append;
end;
procedure TForm1.Button2Click(Sender:TObject);
begin
Table1.Refresh;
Table2.Refresh;
Table3.Refresh;
end;
procedureTForm1.Button3Click(Sender: TObject);
begin
Table2.Delete;
end;
procedureTForm1.Button4Click(Sender: TObject);
begin
Table1.Delete;
end;
procedureTForm1.Button5Click(Sender: TObject);
begin
Table3.Delete;
end;
procedureTForm1.Button6Click(Sender: TObject);
begin
Table2.Prior;
end;
procedureTForm1.Button7Click(Sender: TObject);
begin
Table2.Next;
end;
procedureTForm1.Button8Click(Sender: TObject);
begin
Table2.Edit;
end;
procedureTForm1.Button9Click(Sender: TObject);
begin
Table2.Post;
end;
procedureTForm1.Button10Click(Sender: TObject);
begin
RvProject1.Execute;
end;
procedureTForm1.Button11Click(Sender: TObject);
begin
RvProject2.Execute;
end;
procedureTForm1.Button12Click(Sender: TObject);
begin
Table1.Prior;
end;
procedureTForm1.Button13Click(Sender: TObject);
begin
Table1.Next;
end;
procedureTForm1.Button14Click(Sender: TObject);
begin
Table1.Edit;
end;
procedureTForm1.Button15Click(Sender: TObject);
begin
Table1.Post;
end;
procedureTForm1.Button16Click(Sender: TObject);
begin
RvProject3.Execute;
end;
procedureTForm1.Button17Click(Sender: TObject);
begin
Table3.Prior;
end;
procedureTForm1.Button18Click(Sender: TObject);
begin
Table3.Next;
end;
procedureTForm1.Button19Click(Sender: TObject);
begin
Table3.Edit;
end;
procedureTForm1.Button20Click(Sender: TObject);
begin
Table3.Post;
end;
end.
Заключение
В данном курсовом проектемы реализовали систему, которая позволяет учитывать отгрузку и реализациюпродукции на складе, в том числе и поступление новой продукции.
Система дает возможностьпросматривать накладные реализаций, поступлений. Программа выполнена в видеисполняемого файла, а соответственно не требует дополнительного программногообеспечения.
Список использованнойлитературы.
1. Информационныетехнологии и системы в экономике\ Лахно В.А., Кукса И.Н., Пилипенко А.Н.\Л-2004.
2. Проектированиепрограммного обеспечение экономических информационных систем\ Вендров А.М.\М-2002.
3. Проектированиебаз данных\ Диго С.М. \М-1999.
4. Автоматизированныеинформационные технологии в экономике\ Титоренко Г. А. \ М-1998.
5. Компьютерныесистемы и сети\ Косарев В. П.\М-1998.