Файл: Разработка регламента выполнения процесса «Складской учет».pdf

Сделать презентацию

Скачать файл (0,19Мб)

Заказать решение

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 01.05.2023

Просмотров: 156

Скачиваний: 2

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

ЗАКЛЮЧЕНИЕ

Создание информационной системы предприятия. «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;

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

end;

procedure oc TForm1.BitBtn1Click(Sender: oc TObject);

begin

case RadioGroup1.ItemIndex of

0: Table1.IndexName:= 'Sort_Naimenovanie';

1: Table1.IndexName:= 'Sort_Telephone';

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;

procedure TForm2.N2Click(Sender: TObject);

begin

Form3.Show

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Form1.Show

end;

procedure TForm2.N4Click(Sender: TObject);

begin

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;

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;

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;

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

Смотрите также файлы

Методы кодирования данных (Кодирование информации).pdf

Государственная социальная политика в сфере занятости - региональный гендерный аспект (Формы и источники финансового обеспечения социальной политики в сфере занятости).pdf

Реклама в сети интернет на примере компании ООО «Знак.pdf

Менеджмент человеческих ресурсов(ТЕОРЕТИЧЕСКИЕ ОСНОВЫ СИСТЕМЫ И ТЕХНОЛОГИИ УПРАВЛЕНИЯ ПЕРСОНАЛОМ ОРГАНИЗАЦИИ).pdf

Мотивация и управленческая деятельность (Этапы развития систем мотивации).pdf

Файл: Разработка регламента выполнения процесса «Складской учет».pdf

Смотрите также файлы

Информация

Списки файлов

Дополнительно