Файл: Разработка регламента выполнения процесса «Складской учет».pdf
Добавлен: 13.03.2024
Просмотров: 23
Скачиваний: 0
Модулю oc «Реквизиты» oc соответствует oc экранная oc форма oc «Реквизиты».
На oc ней oc расположены:
- кнопки oc перехода oc к oc экранным oc формам;
- кнопка oc закрытия oc экранной oc формы;
- навигатор, oc позволяющий oc оперировать oc таблицей.
ЗАКЛЮЧЕНИЕ
Результатом данного oc курсового oc проекта oc является oc создание oc приложения oc для oc работы oc с oc базой oc данных oc «Заключение oc договоров oc с oc поставщиками oc товара oc ни oc оптовый oc склад». oc Оно oc автоматизирует oc доступ oc к oc базе oc данных, oc а oc также oc оптимизирует oc работу oc сотрудников oc и oc руководителей oc оптового oc склада.
Разработанное oc приложение oc может oc быть oc использовано oc оптовым oc складом, oc не oc зависимо oc от oc того, oc на oc каком oc товаре oc он oc специализируется. oc Данная oc программа oc обеспечивает oc надежное oc хранение oc информации, oc а oc также oc существенную oc экономию oc времени, oc затрачиваемого oc на oc работу oc с oc имеющимися oc данными.
При oc создании oc данного oc приложения oc были oc реализованы oc следующие oc задачи:
- была oc проанализирована oc предметная oc область oc – oc область oc автоматизации oc учета oc оказанных oc услуг oc в oc компьютерном oc сервисном oc центре;
- было oc проведено oc исследование oc по oc выбору oc программного oc обеспечения oc для oc создания oc базы oc данных oc и oc приложения, oc выбор oc был oc сделан oc в oc пользу oc Borland oc Delphi;
- была oc спроектирована oc информационная oc модель oc базы oc данных oc в oc ERWIN oc в oc стандарте oc IDEF1X, oc в oc соответствии oc с oc предметной oc областью;
- была oc разработана oc физическая oc модель oc базы oc данных oc заключения oc договоров oc с oc поставщиками oc товаров oc на oc оптовый oc склад;
- было oc создано oc приложения oc для oc работы oc с oc базой oc данных;
- приложение oc было oc протестировано oc и oc отлажено;
Таким oc образом, oc задачи oc курсового oc проекта oc выполнены, oc а oc значит, oc цель oc достигнута.
В oc будущем oc планируется oc усовершенствование oc данного oc приложения, oc а oc именно:
- разработка oc модулей, oc позволяющих oc устанавливать oc ограничения oc на oc доступ oc к oc данным oc для oc различных oc категорий oc пользователей
- расширение oc базы oc данных, oc за oc счет oc добавления oc дополнительных oc справочных oc таблиц.
На oc данном oc этапе oc разработки oc созданное oc приложение oc для oc работы oc с oc базой oc данных oc «Складской oc учет» oc выполняет oc свои oc функции, oc а oc значит, oc готово oc к oc использованию.
Список использованной литературы
- Создание информационной системы предприятия. «Computer Direct», 2016, N2
- DATARUN Concepts. Computer Systems Advisers Research Ltd., 2014.
- SE Companion Installation and Administration Manual. SECA Inc., 2015.
- Международные стандарты, поддерживающие жизненный цикл программных средств. М., МП «Экономика», 2015
- Панащук С.А. Разработка информационных систем с использованием CASE-системы Silverrun. «СУБД», 2016, №3.
- Горчинская О.Ю. Designer/2000 - новое поколение CASE-продуктов фирмы ORACLE. «СУБД», 2014, №3.
- Горин С.В., Тандоев А.Ю. Применение CASE-средства Erwin 2.0 для информационного моделирования в системах обработки данных. «СУБД», 2014, №3.
- Архангельский А.Я. Программирование в Delphi 5 – 2-е изд., переработ. И дополн. – М.: ЗАО «Издательство БИНОМ», 2014 г.
- http:\\www.delphiworld.narod.ru
- Дейт, К., Дж. Введение в системы баз данных, 6-е издание: Пер. с англ. – К.; М.; СПб.: Издательский дом «Вильямс», 2015. – 848 с.: Парал. тит. англ., уч. пос.
- Дж. Ульман, Дж. Видом. Введение в системы баз данных. М.: Лори.-2014.
- К. Дейт. Введение в системы баз данных. 7-е изд., М.; СПб.: Вильямс.-2015.
- Основы системного анализа: Учебник/ Феликс Иванович Перегудов, Феликс Петрович Тарасенко. - 2-е изд., доп. - Томск: Издательство научно-технической литературы, 2014. - 396 с.
- Теория систем и системный анализ: Учебное пособие/ С. Н. Павлов; Министерство образования Российской Федерации, Томский государственный университет систем управления и радиоэлектроники, Кафедра автоматизированных систем управления. - Томск: ТМЦДО, 2015. - 134 с.
- Автоматизированный бухгалтерский учет и основы аудита: Учебное пособие/ Адуева Т.В. - Томск: ТМЦДО, 2016. - 189 с.: ил.
- Проектирование экономических информационных систем: Учебник/ Галина Николаевна Смирнова, Алексей Алексеевич Сорокин, Юрий Филиппович Тельнов. - М.: Финансы и статистика, 2015. - 512 с.
- Проектирование информационных систем в экономике: Методическое пособие по дисциплине "Проектирование информационных систем в экономике". Курс лекций/ В. А. Щербанов - Томск: ТМЦДО, 2014. - 153 с.
- Распределенные информационные системы: Учебное пособие для вузов/ И. И. Веберова; Министерство образования Российской Федерации, Томский государственный университет систем управления и радиоэлектроники. - Томск: ТУСУР, 2013. – 345 с.
Приложение
Листинг программы
Модуль «Поставщики»
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls, Mask, DBCtrls,
Menus, Buttons;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
Button2: TButton;
Edit1: TEdit;
Button4: TButton;
Edit2: TEdit;
RadioGroup1: TRadioGroup;
Button1: TButton;
Label1: TLabel;
Button6: TButton;
Button7: TButton;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
DBGrid1: TDBGrid;
N6: TMenuItem;
N7: oc TMenuItem;
DBLookupComboBox1: oc TDBLookupComboBox;
Query1: oc TQuery;
DataSource2: oc TDataSource;
GroupBox1: oc TGroupBox;
RadioButton1: oc TRadioButton;
RadioButton2: oc TRadioButton;
RadioButton3: oc TRadioButton;
Edit4: oc TEdit;
Button3: oc TButton;
Button5: oc TButton;
N8: oc TMenuItem;
Label3: oc TLabel;
procedure oc Button2Click(Sender: oc TObject); oc
procedure oc Button3Click(Sender: oc TObject);
procedure oc Button4Click(Sender: oc TObject);
procedure oc Button1Click(Sender: oc TObject);
procedure oc Button5Click(Sender: oc TObject);
procedure oc Button6Click(Sender: oc TObject);
procedure oc Button7Click(Sender: oc TObject);
procedure oc Button9Click(Sender: oc TObject);
procedure oc Button10Click(Sender: oc TObject);
procedure oc Button8Click(Sender: oc TObject);
procedure oc N2Click(Sender: oc TObject);
procedure oc BitBtn1Click(Sender: oc TObject);
procedure oc N4Click(Sender: oc TObject);
procedure oc N5Click(Sender: oc TObject);
procedure oc N6Click(Sender: oc TObject);
procedure oc N7Click(Sender: oc TObject);
procedure oc N3Click(Sender: oc TObject);
procedure oc N8Click(Sender: oc TObject);
private
{ oc Private oc declarations oc }
public
{ oc Public oc declarations oc }
end;
var
Form1: oc TForm1;
implementation
uses oc Unit2, oc Unit3, oc Unit4, oc Unit5, oc Unit6, oc Unit7;
{$R oc *.dfm}
procedure oc TForm1.Button2Click(Sender: oc TObject);
begin
Table1.Locate('Name_post', oc edit1.Text, oc [loCaseInsensitive, oc loPartialKey]) oc ;
end;
procedure oc TForm1.Button3Click(Sender: oc TObject);
begin
try
if oc RadioButton1.Checked=True oc then
begin
Table1.Filtered:=true;
Table1.Filter:=' oc (Name_post='''+edit4.Text+''')';
end;
if oc RadioButton2.Checked=True oc then
begin
Table1.Filtered:=true;
Table1.Filter:=' oc (Adres='''+edit4.Text+''')';
end;
if oc RadioButton3.Checked=True oc then
begin
Table1.Filtered:=true;
Table1.Filter:=' oc (Kod_req='''+edit4.Text+''')';
end;
except
ShowMessage oc (' oc некорректно oc введены oc условия oc фильтра! oc ');
end;
end;
procedure oc TForm1.Button4Click(Sender: oc TObject);
begin
if oc Table1.Locate('Name_post;Adres',
VarArrayOf([edit1.Text, oc edit2.Text]),
[loCaseInsensitive, oc loPartialKey])=false oc then
ShowMessage oc (' oc Запись oc не oc найдена! oc ') oc ;
end;
procedure oc TForm1.Button1Click(Sender: oc TObject);
begin
case oc RadioGroup1.ItemIndex oc of
0: oc Table1.IndexName:= oc 'Sort_kod_post';
1: oc Table1.IndexName:= oc 'Sort_name_post';
End;
end;
procedure oc TForm1.Button5Click(Sender: oc TObject);
begin
Table1.Filtered:=False;
end;
procedure oc TForm1.Button6Click(Sender: oc TObject);
begin
Table1.First;
end;
procedure oc TForm1.Button7Click(Sender: oc TObject);
begin
Table1.Last
end;
procedure oc TForm1.Button9Click(Sender: oc TObject);
begin
Table1.Filtered:=False;
end;
procedure oc TForm1.Button10Click(Sender: oc TObject);
begin
Table1.Filtered:=True;
Table1.Filter:=edit4.text;
end;
procedure oc TForm1.Button8Click(Sender: oc TObject);
begin
Form2.Show
end;
procedure oc TForm1.N2Click(Sender: oc TObject);
begin
close
end;
procedure oc TForm1.BitBtn1Click(Sender: oc TObject);
begin
case RadioGroup1.ItemIndex of
0: Table1.IndexName:= 'Sort_Naimenovanie';
1: Table1.IndexName:= 'Sort_Telephone';
end;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.Show
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form2.Show
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form6.QuickRep1.Preview;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form7.show;
end;
end.
Модуль «Товары»
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls,
Menus;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Label4: TLabel;
Edit2: TEdit;
Button5: TButton;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure GroupBox1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
IF Table1. State = dsBrowse THEN
Table1.Insert;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
try
case RadioGroup1. ItemIndex of
0: Table1.IndexName:= 'Sort_kod_tov';
1: Table1.IndexName:= 'Sort_name_tov';
2: Table1.IndexName:= 'Sort_zena';
end;
except
ShowMessage ('ошибка! ');
end;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
Form3.Show
end;
procedure TForm2.N3Click(Sender: TObject);
begin
Form1.Show
end;
procedure TForm2.N4Click(Sender: TObject);
begin
close
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
try
if RadioButton1.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Name_tov='''+edit1.Text+''')';
end;
if RadioButton2.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Proiz='''+edit1.Text+''')';
end;
if RadioButton3.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Zena='''+edit1.Text+''')';
end;
if RadioButton4.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Srok_god='''+edit1.Text+''')';
end;
except
ShowMessage (' Некорректно введены условия фильтра! ');
end;
end;
procedure TForm2.GroupBox1Click(Sender: TObject);
begin
Form1.Show
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
Table1.Locate('Name_tov', edit2.Text, [loCaseInsensitive, loPartialKey]) ;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
end;
end.
Модуль «Договора»
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, Menus, StdCtrls, ExtCtrls, DBCtrls;
type
TForm3 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
RadioGroup1: TRadioGroup;
DBGrid1: TDBGrid;
Button2: TButton;
N5: TMenuItem;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBNavigator1: TDBNavigator;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Edit1: TEdit;
Button1: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
N6: TMenuItem;
Label1: TLabel;
Button6: TButton;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit2, Unit1, Unit4, Unit7;
{$R *.dfm}
procedure TForm3.N2Click(Sender: TObject);
begin
Form2. show ;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
Form1.Show ;
end;
procedure TForm3.N4Click(Sender: TObject);
begin
close ;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
case RadioGroup1. ItemIndex of
0: Table1.IndexName:= 'Sort_N_dog';
1: Table1.IndexName:= 'Sort_kol_vo';
end;
end;
procedure TForm3.N5Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
try
if RadioButton1.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Kod_tov='''+edit1.Text+''')';
end;
if RadioButton2.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Kod_post='''+edit1.Text+''')';
end;
if RadioButton3.Checked=True then
begin
Table1.Filtered:=true;
Table1.Filter:=' (Date='''+edit1.Text+''')';
end;
except
ShowMessage (' Некорректно введены условия фильтра! ');
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Table1.Filtered:=False;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
Form2. show ;
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
Form1.Show ;
end;
procedure TForm3.N6Click(Sender: TObject);
begin
Form7.Show ;
end;
procedure TForm3.Button6Click(Sender: TObject);
begin
Form7.Show ;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
end;
end.
Модуль «Реквизиты»
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;
type
TForm4 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var