Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Санкт-Петербургский государственный университет технологии и дизайна

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Пример оформления пояснительной записики на КП.doc

Скачиваний:

Добавлен:

24.08.2019

Размер:

975.36 Кб

Скачать

☆

1 / 161 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 > Следующая >>>

С одержание

Введение 21

2. Постановка задачи 23

3. Анализ предметной области. 24

4. Разработка структуры базы данных и алгоритмов обработки. 26

4.1. ER-диаграмма БД 26

4.2. Описание таблиц БД 27

4.3. Алгоритм программы 29

5. Описание программной реализации 32

5.1. Описание программы 32

5.1.1 Вход в систему 33

5.1.2. Работа в главном меню 33

5.1.3. Просмотр БД 33

5.1.4. Ввод новых данных 33

5.1.5. Редактирование информации 33

5.1.6. Получение отчетных форм 34

5.1.7. Выход из программы 34

5.2. Результаты опытной эксплуатации 34

6.Экономико-организационная часть 40

6.1. Затраты на эксплуатацию и обслуживания оборудования. 41

6.1.1. Расходы на электроэнергию 41

6.1.2. Арендная плата 41

6.2. Расчет заработной платы 42

6.2.1. Расчет заработной платы 42

6.2.2. Дополнительная заработная плата 42

6.3. Отчисления на социальные нужды 43

6.4. Косвенные расходы 43

6.5. Полная себестоимость 43

6.6. Сводная система затрат на программный продукт 43

6.7. Расчет прибыли 44

6.8. Расчет экономической эффективности 45

Заключение 47

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

Приложение 1 49

Техническое задание на разработку АРМ менеджера по продажам «Евроинтерьер» 49

Приложение 2 52

Руководство пользователя АРМ менеджера по продажам 52

«Евроинтерьер». 52

Приложение 3 57

Текст программы. 57

unit Unit2; 60

interface 60

uses 60

SysUtils, Classes, DB, ADODB; 60

type 60

TDM = class(TDataModule) 60

ADOConnection1: TADOConnection; 60

ADOT1: TADOTable; 60

ADOT2: TADOTable; 60

ADOT3: TADOTable; 60

ADOT4: TADOTable; 60

DS1: TDataSource; 60

DS2: TDataSource; 60

DS3: TDataSource; 60

DS4: TDataSource; 60

ADOT5: TADOTable; 60

DS5: TDataSource; 60

ADOQ1: TADOQuery; 60

DS6: TDataSource; 60

DS7: TDataSource; 60

ADOT6: TADOTable; 60

ADOT6ID: TAutoIncField; 60

ADOT6ID_: TIntegerField; 61

ADOT6ID_2: TIntegerField; 61

ADOT6DSDesigner: TIntegerField; 61

ADOT5ID: TAutoIncField; 61

ADOT5DSDesigner: TWideStringField; 61

ADOT5DSDesigner2: TWideStringField; 61

ADOT5_: TDateTimeField; 61

ADOQ2: TADOQuery; 61

DS8: TDataSource; 61

ADOT3ID: TAutoIncField; 61

ADOT3DSDesigner: TWideStringField; 61

ADOT3DSDesigner2: TWideStringField; 61

ADOT3DSDesigner3: TWideStringField; 61

ADOT3DSDesigner4: TWideStringField; 61

ADOT1ID: TAutoIncField; 61

ADOT1_: TIntegerField; 61

ADOT1DSDesigner: TWideStringField; 61

ADOQ1ID: TAutoIncField; 61

ADOQ1DSDesigner: TWideStringField; 61

ADOQ1DSDesigner2: TIntegerField; 61

ADOQ1DSDesigner3: TIntegerField; 61

ADOQ1DSDesigner4: TIntegerField; 61

DSSklad: TDataSource; 61

Sklad: TADOTable; 61

ADOQPrihod: TADOQuery; 61

DSPrihod: TDataSource; 61

ADOQPrihod1: TADOQuery; 61

DSPrihod2: TDataSource; 61

SkladID: TAutoIncField; 61

SkladDSDesigner: TWideStringField; 61

SkladDSDesigner2: TWideStringField; 61

Prihod: TADOTable; 61

DSPrihod1: TDataSource; 61

PrihodID: TAutoIncField; 61

PrihodDSDesigner: TIntegerField; 61

PrihodID_: TIntegerField; 61

Prihod_: TDateTimeField; 61

PrihodDSDesigner2: TIntegerField; 61

PrihodDSDesigner3: TIntegerField; 61

Tovari: TADOTable; 61

DSTovari: TDataSource; 62

ADOQ2ID: TAutoIncField; 62

ADOQ2_: TDateTimeField; 62

ADOQ2_2: TWideStringField; 62

ADOQ2DSDesigner: TWideStringField; 62

ADOQ2DSDesigner2: TIntegerField; 62

ADOQ2DSDesigner3: TWideStringField; 62

private 62

{ Private declarations } 62

public 62

{ Public declarations } 62

end; 62

var 62

DM: TDM; 62

implementation 62

uses Unit1; 62

{$R *.dfm} 62

end. 62

unit Unit3; 62

Interface 62

uses 62

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

Dialogs, Menus, DB, ADODB, StdCtrls, DBCtrls, Grids, DBGrids, ExtCtrls, 62

jpeg; 62

type 62

TForm3 = class(TForm) 62

DBGrid1: TDBGrid; 62

GroupBox1: TGroupBox; 62

DBMemo1: TDBMemo; 62

DBImage1: TDBImage; 62

DataSource1: TDataSource; 62

ADOTable1: TADOTable; 62

MainMenu1: TMainMenu; 62

N1: TMenuItem; 62

N3: TMenuItem; 62

N4: TMenuItem; 62

ADOTable1ID_: TIntegerField; 62

ADOTable1DSDesigner: TWideStringField; 62

ADOTable1DSDesigner2: TIntegerField; 62

ADOTable1DSDesigner3: TMemoField; 62

ADOTable1DSDesigner4: TWideStringField; 62

ADOTable1DSDesigner5: TBlobField; 62

ComboBox1: TComboBox; 62

N5: TMenuItem; 62

N6: TMenuItem; 62

N7: TMenuItem; 62

N10: TMenuItem; 62

N11: TMenuItem; 62

N12: TMenuItem; 62

N13: TMenuItem; 62

N14: TMenuItem; 62

N15: TMenuItem; 62

N16: TMenuItem; 62

N17: TMenuItem; 62

N18: TMenuItem; 62

N19: TMenuItem; 62

N20: TMenuItem; 62

N21: TMenuItem; 63

N22: TMenuItem; 63

N23: TMenuItem; 63

N24: TMenuItem; 63

N25: TMenuItem; 63

N26: TMenuItem; 63

N27: TMenuItem; 63

N28: TMenuItem; 63

N29: TMenuItem; 63

N30: TMenuItem; 63

ADOQuery1: TADOQuery; 63

ComboBox2: TComboBox; 63

N2: TMenuItem; 63

N31: TMenuItem; 63

N32: TMenuItem; 63

ADOTable1ID: TAutoIncField; 63

N33: TMenuItem; 63

N34: TMenuItem; 63

N36: TMenuItem; 63

ADOTable1_: TWideStringField; 63

ADOTable1DSDesigner6: TIntegerField; 63

Button1: TButton; 63

Button2: TButton; 63

Button3: TButton; 63

Image1: TImage; 63

Label1: TLabel; 63

Label2: TLabel; 63

Label3: TLabel; 63

procedure N3Click(Sender: TObject); 63

procedure DBGrid1DblClick(Sender: TObject); 63

procedure N11Click(Sender: TObject); 63

procedure N12Click(Sender: TObject); 63

procedure N13Click(Sender: TObject); 63

procedure N15Click(Sender: TObject); 63

procedure N14Click(Sender: TObject); 63

procedure ComboBox1Click(Sender: TObject); 63

procedure ComboBox2Click(Sender: TObject); 63

procedure N16Click(Sender: TObject); 63

procedure N17Click(Sender: TObject); 63

procedure N18Click(Sender: TObject); 63

procedure N19Click(Sender: TObject); 63

procedure N20Click(Sender: TObject); 63

procedure N21Click(Sender: TObject); 63

procedure N22Click(Sender: TObject); 63

procedure N23Click(Sender: TObject); 63

procedure N24Click(Sender: TObject); 63

procedure N25Click(Sender: TObject); 63

procedure N2Click(Sender: TObject); 63

procedure N31Click(Sender: TObject); 63

procedure N32Click(Sender: TObject); 63

procedure N33Click(Sender: TObject); 63

procedure N34Click(Sender: TObject); 63

procedure Button1Click(Sender: TObject); 63

procedure Button3Click(Sender: TObject); 63

procedure Button2Click(Sender: TObject); 63

private 63

{ Private declarations } 63

public 63

{ Public declarations } 63

end; 63

var 63

Form3: TForm3; 63

i: integer; 63

implementation 64

uses Unit1, Unit2, Unit4, Unit5, Unit6, Unit9; 64

{$R *.dfm} 64

procedure TForm3.N3Click(Sender: TObject); 64

begin 64

DM.ADOT5.Append; 64

DM.ADOT3.Append; 64

DM.ADOQ1.SQL.Clear; 64

Form4.Show; 64

Form4.Edit1.Text:=''; 64

Form4.Edit2.Text:=''; 64

Close; 64

end; 64

procedure TForm3.DBGrid1DblClick(Sender: TObject); 64

begin 64

form4.Show; 64

Close; 64

end; 64

procedure TForm3.N11Click(Sender: TObject); 64

begin 64

Combobox1.Text:=''; 64

GroupBox1.Caption:=N5.Caption; 64

Combobox1.Items.Clear; 64

Combobox1.Items.Add('Смеситель'); 64

Combobox1.Items.Add('Êðàí'); 64

Combobox1.Items.Add('Душевой гарнитур'); 64

ADOQuery1.SQL.Clear; 64

DataSource1.DataSet:=ADOQuery1; i:=26; 64

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 64

ADOQuery1.Open; 64

end; 64

procedure TForm3.N12Click(Sender: TObject); 64

begin 64

Combobox1.Text:=''; 64

GroupBox1.Caption:=N5.Caption; 64

Combobox1.Items.Clear; 64

Combobox1.Items.Add('Ванна'); 64

Combobox1.Items.Add('Джакузи'); 64

Combobox1.Items.Add('Душевая кабина'); 64

ADOQuery1.SQL.Clear; 64

DataSource1.DataSet:=ADOQuery1; i:=27; 64

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 64

ADOQuery1.Open; 64

end; 64

procedure TForm3.N13Click(Sender: TObject); 64

begin 64

Combobox1.Text:=''; 64

GroupBox1.Caption:=N5.Caption; 64

Combobox1.Items.Clear; 64

Combobox1.Items.Add('Раковина'); 64

Combobox1.Items.Add('Мойка'); 64

ADOQuery1.SQL.Clear; 64

DataSource1.DataSet:=ADOQuery1; i:=28; 64

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 65

ADOQuery1.Open; 65

end; 65

procedure TForm3.N15Click(Sender: TObject); 65

begin 65

Combobox1.Text:=''; 65

GroupBox1.Caption:=N5.Caption; 65

Combobox1.Items.Clear; 65

Combobox1.Items.Add('Унитаз'); 65

Combobox1.Items.Add('Áèäå'); 65

ADOQuery1.SQL.Clear; 65

DataSource1.DataSet:=ADOQuery1; i:=30; 65

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 65

ADOQuery1.Open; 65

end; 65

procedure TForm3.N14Click(Sender: TObject); 65

begin 65

Combobox1.Text:=''; 65

GroupBox1.Caption:=N5.Caption; 65

Combobox1.Items.Clear; 65

Combobox1.Items.Add('Аксессуары'); 65

Combobox1.Items.Add('Расходники'); 65

Combobox1.Items.Add('Запчасти'); 65

ADOQuery1.SQL.Clear; 65

DataSource1.DataSet:=ADOQuery1; i:=29; 65

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 65

ADOQuery1.Open; 65

end; 65

procedure TForm3.ComboBox1Click(Sender: TObject); 65

begin 65

ADOQuery1.SQL.Clear; 65

DataSource1.DataSet:=ADOQuery1; 65

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where Название Like '''+'%'+Combobox1.Text+'%'+''''); 65

ADOQuery1.Open; 65

end; 65

procedure TForm3.ComboBox2Click(Sender: TObject); 65

begin 65

if ComboBox2.ItemIndex=0 then begin 65

ADOQuery1.SQL.Clear; 65

DataSource1.DataSet:=ADOQuery1; 65

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+IntToStr(i) ); 65

ADOQuery1.SQL.Add('ORDER BY Продукция.Цена;'); 65

ADOQuery1.Open; 65

end; 65

if ComboBox2.ItemIndex=1 then begin 65

ADOQuery1.SQL.Clear; 65

DataSource1.DataSet:=ADOQuery1; 65

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+IntToStr(i)); 65

ADOQuery1.SQL.Add('ORDER BY Продукция.Название;'); 65

ADOQuery1.Open; 65

end; 65

procedure TForm3.N16Click(Sender: TObject); 65

begin 65

Combobox1.Text:=''; 66

GroupBox1.Caption:=N16.Caption; 66

Combobox1.Items.Clear; 66

Combobox1.Items.Add('Îáîè'); 66

ADOQuery1.SQL.Clear; 66

DataSource1.DataSet:=ADOQuery1; i:=6; 66

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 66

ADOQuery1.Open; 66

end; 66

procedure TForm3.N17Click(Sender: TObject); 66

begin 66

Combobox1.Text:=''; 66

GroupBox1.Caption:=N17.Caption; 66

Combobox1.Items.Clear; 66

Combobox1.Items.Add('Ëàê'); 66

Combobox1.Items.Add('Краска'); 66

Combobox1.Items.Add('Êëåé'); 66

Combobox1.Items.Add('Герметик'); 66

ADOQuery1.SQL.Clear; 66

DataSource1.DataSet:=ADOQuery1; i:=7; 66

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 66

ADOQuery1.Open; 66

end; 66

procedure TForm3.N18Click(Sender: TObject); 66

begin 66

Combobox1.Text:=''; 66

GroupBox1.Caption:=N18.Caption; 66

Combobox1.Items.Clear; 66

Combobox1.Items.Add('Плитка'); 66

ADOQuery1.SQL.Clear; 66

DataSource1.DataSet:=ADOQuery1; i:=8; 66

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 66

ADOQuery1.Open; 66

end; 66

procedure TForm3.N19Click(Sender: TObject); 66

begin 66

Combobox1.Text:=''; 66

GroupBox1.Caption:=N19.Caption; 66

Combobox1.Items.Clear; 66

Combobox1.Items.Add('Гипсокартон'); 66

Combobox1.Items.Add('Панель'); 66

Combobox1.Items.Add('Кирпич'); 66

ADOQuery1.SQL.Clear; 66

DataSource1.DataSet:=ADOQuery1; i:=9; 66

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 66

ADOQuery1.Open; 66

end; 66

procedure TForm3.N20Click(Sender: TObject); 66

begin 66

Combobox1.Text:=''; 66

GroupBox1.Caption:=N20.Caption; 66

Combobox1.Items.Clear; 66

Combobox1.Items.Add('Паркет'); 66

Combobox1.Items.Add('Линолеум'); 66

ADOQuery1.SQL.Clear; 66

DataSource1.DataSet:=ADOQuery1; i:=10; 66

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 67

ADOQuery1.Open; 67

end; 67

procedure TForm3.N21Click(Sender: TObject); 67

begin 67

Combobox1.Text:=''; 67

GroupBox1.Caption:=N21.Caption; 67

Combobox1.Items.Clear; 67

ADOQuery1.SQL.Clear; 67

DataSource1.DataSet:=ADOQuery1; i:=18; 67

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 67

ADOQuery1.Open; 67

end; 67

procedure TForm3.N22Click(Sender: TObject); 67

begin 67

Combobox1.Text:=''; 67

GroupBox1.Caption:=N22.Caption; 67

Combobox1.Items.Clear; 67

ADOQuery1.SQL.Clear; 67

DataSource1.DataSet:=ADOQuery1; i:=19; 67

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 67

ADOQuery1.Open; 67

end; 67

procedure TForm3.N23Click(Sender: TObject); 67

begin 67

Combobox1.Text:=''; 67

GroupBox1.Caption:=N23.Caption; 67

Combobox1.Items.Clear; 67

Combobox1.Items.Add('Камин'); 67

Combobox1.Items.Add('Ïå÷ü'); 67

ADOQuery1.SQL.Clear; 67

DataSource1.DataSet:=ADOQuery1; i:=20; 67

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 67

ADOQuery1.Open; 67

end; 67

procedure TForm3.N24Click(Sender: TObject); 67

begin 67

Combobox1.Text:=''; 67

GroupBox1.Caption:=N24.Caption; 67

Combobox1.Items.Clear; 67

Combobox1.Items.Add('Шторы'); 67

Combobox1.Items.Add('Жалюзи'); 67

Combobox1.Items.Add('Гардины'); 67

ADOQuery1.SQL.Clear; 67

DataSource1.DataSet:=ADOQuery1; i:=21; 67

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 67

ADOQuery1.Open; 67

end; 67

procedure TForm3.N25Click(Sender: TObject); 67

begin 67

Combobox1.Text:=''; 67

GroupBox1.Caption:=N25.Caption; 67

Combobox1.Items.Clear; 67

Combobox1.Items.Add('Текстиль для дома'); 67

ADOQuery1.SQL.Clear; 67

DataSource1.DataSet:=ADOQuery1; i:=22; 68

ADOQuery1.SQL.Add('Select ID, Название, Цена, Производитель, Описание, Фото from Продукция where ID_Категория='+inttoStr(i)); 68

ADOQuery1.Open; 68

end; 68

procedure TForm3.N2Click(Sender: TObject); 68

begin 68

Form5.Show; 68

end; 68

procedure TForm3.N31Click(Sender: TObject); 68

begin 68

Form3.ADOTable1.Append; 68

Form3.Hide; 68

Form6.Show; 68

end; 68

procedure TForm3.N32Click(Sender: TObject); 68

begin 68

Form1.Close; 68

end; 68

procedure TForm3.N33Click(Sender: TObject); 68

begin 68

Form6.Show; 68

Form6.DB2.ListSource:=DM.DS1; 68

Form6.DB2.KeyField:='ID'; 68

Form6.DB2.ListField:='Категория'; 68

Form3.Hide; 68

end; 68

procedure TForm3.N34Click(Sender: TObject); 68

begin 68

//dm.Prihod.Append; 68

dm.ADOQPrihod.Active:=False; 68

DM.ADOQPrihod1.Active:=False; 68

form9.Show; 68

Form3.Hide; 68

end; 68

procedure TForm3.Button1Click(Sender: TObject); 68

begin 68

DM.ADOT5.Append; 68

DM.ADOT3.Append; 68

DM.ADOQ1.SQL.Clear; 68

Form4.Show; 68

Form4.Edit1.Text:=''; 68

Form4.Edit2.Text:=''; 68

Close; 68

end; 68

procedure TForm3.Button3Click(Sender: TObject); 68

begin 68

Form6.Show; 68

Form6.DB2.ListSource:=DM.DS1; 68

Form6.DB2.KeyField:='ID'; 68

Form6.DB2.ListField:='Категория'; 68

Form3.Hide; 68

end; 68

procedure TForm3.Button2Click(Sender: TObject); 68

begin 68

Form3.ADOTable1.Append; 68

Form3.Hide; 69

Form6.Show; 69

end; 69

end. 69

unit Unit4; 69

1 / 161 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
18.04.201514.87 Кб34Практическое занятие № 3.docx.doc
#
22.03.201698.3 Кб153предания легенды.doc
#
17.11.2019234.5 Кб17преддипломная практика.doc
#
03.08.2019149.5 Кб8Предмет и задачи менеджмента.doc
#
27.08.20193.35 Mб21Пример Диплома.doc
#
24.08.2019975.36 Кб22Пример оформления пояснительной записики на КП.doc
#
20.08.2019130.05 Кб5ПРОБЛЕМЫ КОММУН для 4-ЕГ.doc
#
18.11.2019278.02 Кб3Проблемы современной семьи.doc
#
01.09.2019128.51 Кб1Пробный вариант.doc
#
07.09.201940.94 Кб4ПРОГРАММА ПО ХУДОЖЕСТВЕННОЙ ПРАКТИКЕ 2011.docx
#
31.08.2019125.44 Кб4ПРОГРАММНЫЕ ПАКЕТЫ В ДИЗАЙНЕ_СО.doc