Разработка АИС учета запчастей

Гарантийный общий экономический эффект рассчитывается при постановке программного изделия на производство на основе обобщения фактических показателей использования программного изделия (по ряду объектов внедрения), а также данных об объемах внедрения программного изделия, соответствующих возможностям изготовления, внедрения и сопровождения. Гарантированный общий эффект служит для разработки и утверждения экономически обоснованной цены на программную продукцию, выбор варианта производства и внедрения программного изделия.

Фактический экономический эффект рассчитывается на основе данных учета и сопоставления затрат и результатов при конкретных применениях программного изделия. Фактический эффект рассчитывается от одного программовнедрения конкретного программного изделия на конкретном объекте, а также как общий экономический эффект от использования конкретного программного изделия на всех объектах внедрения за расчетный период. Фактический эффект используется для оценки деятельности организаций, разрабатывающих, внедряющих и использующих программные изделия, для определения размеров отчислений в фонды экономического стимулирования, а также для анализа эффективности функционирования программного изделия и выработки технических предложений по совершенствованию программного изделия и условий его применения.

Показатели экономической эффективности программного изделия определяются:

экономической оценкой результатов влияния программного изделия на конечный результат их использования (основное направление анализа и расчета показателей эффективности - для прикладных программных изделий);

экономической оценкой результатов влияния на технологические процессы подготовки, передачи, переработки данных в вычислительных системах (основное направление анализа и расчета показателей эффективности - для программного изделия организации вычислительных процессов и эксплуатации средств вычислительной техники и программных изделий, расширяющих функции операционных систем);

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

При необходимости определения экономической эффективности программных изделий, входящих в состав АИС и другие системы через оценку влияния программного изделия на конечные результаты функционирования этих систем, доля эффекта от программного изделия оценивается по коэффициенту долевого участия программного изделия в показателях эффективности автоматизированных систем. Эти показатели рассчитываются по результатам основной деятельности организации на основе соответствующих общегосударственных, отраслевых и ведомственных методик. Долевой коэффициент участия программного изделия в показателях эффективности автоматизированных систем в зависимости от условий расчета может определяться как отношение трудозатрат на разработку программного изделия к трудозатратам на разработку системы, а также методом экспертных оценок по взаимному соглашению разработчиков, изготовителей и пользователей.

В основе описания экономической эффективности лежат сопоставление существующего в внедряемого технологических процессов.

В данном случае под существующим процессом подразумевается та методика ведения учета операций прихода, расхода и списания товаров, которая не предполагает использования АИС.

В таком случае менеджерам приходилось бы вести учет при помощи пакета Microsoft Excel, возможности которого по автоматизации учета является ограниченными. Формирование общей суммы операций и печать чеков тоже вызывали бы некоторые трудности.

Эффективность - одно из наиболее общих экономических понятий, не имеющих пока, по-видимому, единого общепризнанного определения. Это одна из возможных характеристик качества системы, а именно её характеристика с точки зрения соотношения затрат и результатов функционирования системы.

В дальнейшем будем понимать под экономической эффективностью меру соотношения затрат и результатов функционирования.

Экономическая эффективность проекта складывается из двух составляющих: косвенный эффект, прямой эффект.

Косвенный эффект характеризуется увеличением прибыли, привлечением большего числа покупателей, снижением затрат на сырьё и материалы.

Прямой эффект характеризуется снижением трудовых и стоимостных показателей.

3.2 Расчет показателей экономической эффективности проекта

В данном разделе рассчитываются конкретные суммы затрат на работу в базовом варианте и на разработку программы автоматизации. Трудовые и стоимостные затраты при базовом и проектном варианте представлены в таблице 3.1 и таблице 3.2.

Объем работы измеряется количеством записей, которые необходимо внести в базу данных. Под записями понимается вся новая информация, которая вносится в систему (поставщики, экспедиторы, товары) и данные по операциям (приход, расход, списание).

Норма выработки показывает, сколько записей может внести расчетчик, если будет вносить данные вручную. Такие небольшие цифры обусловлены тем, что нужно затрачивать время не только на внесение данных, но и на их проверку и возможную корректировку.

Трудоемкость определяется путем деления графы 3 (объем работы) на графу 4 (норма выработки) :

Т₁= 5000 / 30 = 16,67

Т₂= 15000 / 60 = 250

Т₃= 2500 / 60 = 416,67

Среднечасовая зарплата получается в результате деления заработной платы работника (25000) на количество рабочих часов в месяце (8-часовой рабочий день).

ЗП = 25000 / (22 * 8) = 142,05 руб (3)

Часовая норма амортизации определяется по следующему алгоритму: берется стоимость компьютера и делится на среднегодовое время работы, умноженное на пять лет (срок эксплуатации компьютера, в соответствии с законодательством (пять лет). На компьютере работает только оператор, соответственно время эксплуатации компьютера составляет 8 часов в день.

Стоимость компьютера: 30000

Среднегодовое время работы: 251 * 8 = 2008

Часовая норма амортизации: 30000 / (2008 * 5) = 2,99 руб

Стоимость накладных расходов не учитывается, т.к. для работы компьютера необходима только электроэнергия, а ее стоимость в данном случае не считается.

Стоимость работы оборудования получается путем складывания графы 6 (среднечасовая зарплата), графы 7 (часовая норма амортизации) и 8 (накладные расходы). Эта графа показывает сколько стоит для предприятия один час работы оператор на компьютере.

142,05 + 2,99 = 145,04 руб

Стоимостные затраты показывают общую стоимость данной операции.

16,67 * 145,04 = 2417,82

250 * 145,04 = 36260

416,67 * 145,04 = 60433,82

Таблица 3.1 Характеристика затрат на обработку при базовом варианте

N п/п	Наименование операций технологического процесса комплекса задач	Объём работы в год, записей/операций	Норма выработки (производительность устройств ЭВМ(в час))	Трудоёмкость, часов	Среднечасовая зарплата, руб	Часовая норма Амортизации, руб	Часов. стоим накладных расходов(руб	Стоимость работы оборудования, руб	Стоимостные затраты для операций, вып. на ЭВМ
	Ввод новой информации в систему	500	30	16,67	142,05	2,99	Не учитывается	145,04	2417,82
2	Проведение операций прихода запчастей	15000	60	250	142,05	2,99	Не учитывается	145,04	36260
3	Проведение операций продажи запчастей	25000	60	416,67	142,05	2,99	Не учитывается	145,04	60433,82
	Итого			683,34					99111,64

Таблица 3.2 Характеристика затрат на обработку при проектном варианте

N п/п	Наименование операций технологического процесса комплекса задач	Объём работы в год, записей/операций	Норма выработки (производительность устройств ЭВМ(в час))	Трудоёмкость, часов	Среднечасовая зарплата, руб	Часовая норма амортизации, руб	Часов. стоим накладных расходов (руб)	Стоимость работы оборудования, руб	Стоимостные затраты для операций, вып. на ЭВМ
	Ввод новой информации в систему	500	45	11,11	142,05	2,99	Не учитывается	145,04	1611,556
2	Проведение операций прихода запчастей	15000	90	166,67	142,05	2,99	Не учитывается	145,04	24173,33
3	Проведение операций продажи запчастей	25000	90	277,78	142,05	2,99	Не учитывается	145,04	40288,89
	Итого			455,56					66073,78

При расчете экономической эффективности и использования проекта, надо рассчитывать следующий момент: когда сравниваются показатели для выявления разницы между занесением данных в базу при ручной и автоматизированной технологии, то эти показатели описывают только работу бухгалтера. Расчет показателей эффективности от внедрения проекта автоматизации приведен в табл. 3.3

Таблица 3.3. Расчет показателей эффективности

Показатели	Затраты	Абсолютное изменение затрат ()	Коэффициент изменения затрат, %	Индекс изменения затрат
	Базовый вариант	Проектный вариант
Трудоемкость	683,34 часа	455,56 часа	227,78 часа	33,33 %	1,5
Стоимость	99111,64 руб	66073,78 руб.	33037,86 руб.	33,33 %	1,5

Из таблицы 3.3 видно, что проектный вариант решения задачи является на 33,33% выгоднее базового варианта как в плане стоимости, так и в плане трудовых затрат и нормы выработки.

Выгода состоит из уменьшения общего времени на выполнение операций. Программное средство «АИС учета запчастей» помогает выполнять многие операции, не требуя от пользователя необходимости проверять каждое действие. Расчеты при этом проводятся автоматически избавляя пользователя от необходимости выполнять их вручную.

Заключение

В процессе написания выпускной работы в качестве объекта исследования выступал магазин «Запчасти Ford», находящийся в городе Сыктывкар на улице Станционной 45.

При исследовании объекта были рассмотрены следующие моменты:

- проведена общая характеристика магазина,

- рассмотрена организационная структура магазина,

- проведено моделирование основных бизнес-процессов,

- сформулирована постановка задачи,

- проведено обоснование решений по видам обеспечения.

После проведения анализа предметной области на основании постановки задачи была проведена разработки системы учета запчастей магазина «Запчасти Ford».

В рамках разработки системы учета запчастей были рассмотрены следующие вопросы:

- проведен выбор СУБД,

- проведен выбор среды разработки,

- разработана информационная модель и приведено ее описание,

- проведено инфологическое моделирование предметной области,

- проведено даталогическое проектирование,

- приведено описание программных модулей разработанной АИС,

- составлено руководство пользователя.

После этого проводилось обоснование экономической эффективности проекта, для чего рассматривалось два вопроса:

- выбор и обоснование методики расчёта экономической эффективности,

- расчет показателей экономической эффективности проекта.

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

1. Андреев А.М., Березкин Д.В., Кантонистов Ю.А. Обзор по объектно-ориентированным базам данных, включающим средства разработки. //Мир ПК, 2008. - № 4. - С. 78

2. Атре Ш. Структурный подход к организации баз данных. - М.: Финансы и статистика, 1983. - 320с.

3. Архангельский А.Я. Приемы программирования в Delphi. Версии 5-7. - М: ЗАО Издательство БИНОМ, 2003

4. Архангельский А.Я. Delphi 7. Справочное пособие,- М: ЗАО Издательство БИНОМ, 2003

5. Архангельский А.Я. Object Pascal в Delphi. - М: ЗАО Издательство БИНОМ, 2002

6. Бирник А.С. Информация и управление. - М., 2007. - 240 с.

7. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. - М.: Финансы и статистика, 1989. - 351с.

8. Введение в информационный бизнес: Учебное пособие. /Под ред. В.П. Тихомирова, А.В. Хорошилова. - М.: Финансы и статистика, 2007

9. Вычислительные машины, системы и сети. /Под ред. А.П. Пячтибратова. - М.: Финансы и статистика, 2007

10. Влияние информационных технологий на обеспечение устойчивого социально-экономического развития. Материалы Всероссийской конференции "Ресурсы устойчивого развития России: предприятия, технологии, наука" -- М.: ТЭиУ, 2006. - 0,5 п. л.

11. Гери Хансен, Джеймс Хансен, Базы данных: разработка и управление: Пер. с англ. - М:ЗАО “Издательство БИНОМ”, 1999.-704 с.

12. Глушаков С.В., Ломотько Д.В. Базы данных. - Харьков: Фолио; М.: ООО «Издательство АСТ», 2002. - 504 с.

13. Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД - СПб.: Питер, 1997 - 704с.

14. Информатика: Энциклопедический словарь для начинающих. /Сост.Д.А.Поспелов. - М.: Педагогика-Пресс, 2006

15. Информационное обеспечение предпринимательской деятельности. -- М.: ВИНИТИ, 2006. - 0,2 п. л.

16. Информационный обмен: проблемы и перспективы. ///Торгово-промышленные ведомости, 2010. - № . 6. - С. 3

17. Информационные технологии бизнеса. //Банки и технологии, 2008. - № 2. - С. 25

18. Карминский А.М., Нестеров П.В. Информатизация бизнеса. - 2-е изд. - М.: Финансы и статистика, 2004

19. Конюховский К. Экономическая информатика. - СПб.: Питер, 2004

20. Культин Н. Б. Delphi 6 Программирование на Object Pascal - СПб : БХВ-Петербург 2001 - 528 с : ил

21. Лямец В.Н., Тевяшев А.Д. Системный анализ: Учебн. пособие. - Харьков: ХТУРЭ, 1998.-252с.

22. Маклаков С.В. Моделирование бизнес-процессов с BPwin 4.0 . - М.: ДИАЛОГ-МИФИ, 2002. 209 с.

23. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite. - М.:ДИАЛОГ-МИФИ, 2003. 432 с.

24. Маклаков С.В. BPwin и ERwin. CASE - средства разработки информационных систем . - М.:ДИАЛОГ-МИФИ, 2000. 256 с.

25. Мейер М. Теория реляционных баз данных. - М.: Мир, 1987. - 608с.

26. Мюллер-Штевенс Г., Ашванден С. Информационная технология и управление предприятием. //Проблемы теории и практики управления, - 2009. - № 1

27. Российская информационная сеть делового сотрудничества -- новые возможности. //Деловые связи, 2009. - № 2. - С. 25

28. Свириденко С.С. Современные информационные технологии. - М.: Радио и связь, 2009

29. Симонович. Информатика для юристов и экономистов. - СПб: Питер, 2010

30. Системная организация экономического пространства на основе информационного обеспечения предпринимательства. (монография). -- М.: “Метаинформ”, 2009. 22,5 п. л.

31. Сухарев М.В. Основы Delphi. Профессиональный подход. - СПб.: Наука и Техника, 2004. 600 c.

32. Тейксейра C, Пачеко К Borland Delphi 6. Руководство разработчика. : Пер. с англ. -- М. : Издательский дом “Вильямс”, 2002. -- 1120 с.

33. Технологии электронных коммуникаций» (сборник). - М.: «Эко-трендз», 2004

34. Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., - М.: Мир, 1985. Кн. 1. - 287 с.: Кн. 2. - 320 с.

35. Титоренко Г.А. Автоматизированные информационные технологии в экономике. - М.: Компьютер, ЮНИТИ, 2009.

36. Трубилин И.Т., Семенов М.И., Лойко В.И., Барановская Т.П. Автоматизированные информационные технологии в экономике. - М.: Финансы и статистика, 2009

37. Фленов М.Е. Библия Delphi. - СПб.: БХВ-Петербург, 2004. - 880 с.:

38. Фаронов В.В. Программирование баз данных в Delphi 7. Учебный курс. - СПб.: «Питер», 2004. 713 с.

39. Цикритизис Д., Лоховски Ф. Модели данных. - М.: Финансы и статистика, 1985. - 344с.

40. Чистов Д.В. Основы компьютерной бухгалтерии. /Учебный практикум по ведению бухгалтерского учета в «1С:Бухгалтерии-Проф 7.7». - М.: Компьютер пресс, 2004.

41. Экономическая информатика и вычислительная техника: Учебник. /Под ред. В.П. Косарева и А.Ю. Королева, - М.: Финансы и статистика, 2009

Приложение А

Код главной формы программы

unit MainUnit;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, Grids, DBGrids,

ExtCtrls, DB;

type

TMainForm = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

Splitter1: TSplitter;

GroupBox2: TGroupBox;

Panel1: TPanel;

DBGrid2: TDBGrid;

Panel2: TPanel;

GroupBox1: TGroupBox;

Panel4: TPanel;

Panel3: TPanel;

DBGrid1: TDBGrid;

Panel5: TPanel;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

Panel6: TPanel;

DBNavigator1: TDBNavigator;

DBGrid3: TDBGrid;

BitBtn1: TBitBtn;

Panel7: TPanel;

LEPostNazva: TLabeledEdit;

Panel8: TPanel;

DBNavigator2: TDBNavigator;

DBGrid4: TDBGrid;

Panel9: TPanel;

LETypeZap: TLabeledEdit;

Panel10: TPanel;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton7: TSpeedButton;

Panel11: TPanel;

DBNavigator3: TDBNavigator;

DBGrid5: TDBGrid;

Panel12: TPanel;

LEModel: TLabeledEdit;

Panel13: TPanel;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

GroupBox3: TGroupBox;

Panel14: TPanel;

DBGrid6: TDBGrid;

Panel15: TPanel;

Label1: TLabel;

SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton;

SpeedButton17: TSpeedButton;

SpeedButton18: TSpeedButton;

CBTypeZap: TComboBox;

CheckBox2: TCheckBox;

Splitter2: TSplitter;

GroupBox4: TGroupBox;

Panel16: TPanel;

DBGrid7: TDBGrid;

Panel17: TPanel;

SpeedButton19: TSpeedButton;

Panel18: TPanel;

LEZapchast: TLabeledEdit;

GroupBox5: TGroupBox;

Panel19: TPanel;

DBGrid8: TDBGrid;

Panel20: TPanel;

SpeedButton1: TSpeedButton;

Splitter3: TSplitter;

GroupBox6: TGroupBox;

Panel21: TPanel;

DBGrid9: TDBGrid;

Panel22: TPanel;

SpeedButton13: TSpeedButton;

SpeedButton14: TSpeedButton;

SpeedButton12: TSpeedButton;

procedure BitBtn1Click(Sender: TObject);

procedure LEPostNazvaChange(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure LETypeZapChange(Sender: TObject);

procedure LEModelChange(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure LEZapchastChange(Sender: TObject);

procedure TabSheet3Enter(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure DBGrid6DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

first : boolean;

implementation

uses DataModule, UnitRedPostavshik, UnitRedTypeZap, UnitRedModel,

UnitRedZapchast, UnitRepZap, UnitRedZapModel, UnitRedPostavka,

UnitRedSostPost, UnitRedKolZapInProd, UnitRedSostProdaza, UnitRepProdaza,

UnitZapToModel;

{$R *.dfm}

procedure TMainForm.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TMainForm.LEPostNazvaChange(Sender: TObject);

begin

DM.Postavshik.Locate('NazvaPostavshik', LEPostNazva.Text, [loCaseInsensitive, loPartialKey]);

end;

procedure TMainForm.SpeedButton6Click(Sender: TObject);

begin

if DM.Postavshik.RecordCount = 0 then

Exit;

if MessageDlg('Вы точно хотите удалить: ' + DM.PostavshikNazvaPostavshik.Value + '?' , mtConfirmation, [mbOK, mbCancel], 0) = mrOK then

begin

try

DM.Postavshik.Delete;

except

MessageDlg('При удалении данных возникла ошибка.', mtError, [mbOK], 0);

end;

end;

end;

procedure TMainForm.FormActivate(Sender: TObject);

begin

if first then

begin

first := false;

PageControl1.ActivePageIndex := 0;

try

DM.Base.Connected := false;

DM.Base.ConnectionString := 'Data Source=' + GetCurrentDir + '\Baza.mdb';

DM.Base.Connected := true;

DM.ActivateAll;

except

MessageDlg('Невозможно подключиться к БД!', mtError, [mbOK], 0);

Application.Terminate;

end;

end;

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

first := true;

end;

procedure TMainForm.SpeedButton4Click(Sender: TObject);

begin

DM.Postavshik.Append;

RedPostavshik.ShowModal;

end;

procedure TMainForm.SpeedButton5Click(Sender: TObject);

begin

DM.Postavshik.Edit;

RedPostavshik.ShowModal;

end;

procedure TMainForm.SpeedButton10Click(Sender: TObject);

begin

if DM.Model.RecordCount = 0 then

Exit;

if MessageDlg('Вы точно хотите удалить: ' + DM.ModelNazvaModel.Value + '?' , mtConfirmation, [mbOK, mbCancel], 0) = mrOK then

begin

try

DM.Model.Delete;

except

MessageDlg('При удалении данных возникла ошибка.', mtError, [mbOK], 0);

end;

end;

end;

procedure TMainForm.SpeedButton7Click(Sender: TObject);

begin

if DM.Postavshik.RecordCount = 0 then

Exit;

if MessageDlg('Вы точно хотите удалить: ' + DM.TypeZapchastNazvaTypeZapchast.Value + '?' , mtConfirmation, [mbOK, mbCancel], 0) = mrOK then

begin

try

DM.TypeZapchast.Delete;

except

MessageDlg('При удалении данных возникла ошибка.', mtError, [mbOK], 0);

end;

end;

end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);

begin

DM.TypeZapchast.Append;

RedTypeZap.ShowModal;

end;

procedure TMainForm.SpeedButton3Click(Sender: TObject);

begin

DM.TypeZapchast.Edit;

RedTypeZap.ShowModal;

end;

procedure TMainForm.LETypeZapChange(Sender: TObject);

begin

DM.TypeZapchast.Locate('NazvaTypeZapchast', LETypeZap.Text, [loCaseInsensitive, loPartialKey]);

end;

procedure TMainForm.LEModelChange(Sender: TObject);

begin

DM.Model.Locate('NazvaModel', LEModel.Text, [loCaseInsensitive, loPartialKey]);

end;

procedure TMainForm.SpeedButton8Click(Sender: TObject);

begin

DM.Model.Append;

RedModel.ShowModal;

end;

procedure TMainForm.SpeedButton9Click(Sender: TObject);

begin

DM.Model.Edit;

RedModel.ShowModal;

end;

procedure TMainForm.LEZapchastChange(Sender: TObject);

begin

DM.Zapchast.Locate('NazvaZapchast', LEZapchast.Text, [loCaseInsensitive, loPartialKey]);

end;

procedure TMainForm.TabSheet3Enter(Sender: TObject);

var

i : integer;

begin

CBTypeZap.Items.Clear;

DM.TypeZapchast.First;

while not DM.TypeZapchast.Eof do

begin

CBTypeZap.Items.Add(DM.TypeZapchastNazvaTypeZapchast.Value);

DM.TypeZapchast.Next;

end;

end;

procedure TMainForm.CheckBox2Click(Sender: TObject);

var

id : integer;

begin

if CheckBox2.Checked = true then

begin

if CBTypeZap.ItemIndex > 0 then

begin

DM.TypeZapchast.Locate('NazvaTypeZapchast', CBTypeZap.Text, [loCaseInsensitive, loPartialKey]);

id := DM.TypeZapchastIDTypeZapchast.Value;

DM.Zapchast.SQL.Clear;

DM.Zapchast.SQL.Add('select * from Zapchast where IDTypeZapchast = ' + IntToStr(id) + '');

DM.Zapchast.Close;

DM.Zapchast.Open;

end;

end

else

begin

DM.Zapchast.SQL.Clear;

DM.Zapchast.SQL.Add('select * from Zapchast order by NazvaZapchast');

DM.Zapchast.Close;

DM.Zapchast.Open;

end;

end;

procedure TMainForm.SpeedButton15Click(Sender: TObject);

begin

DM.Zapchast.Append;

RedZapchast.mode := 1;

RedZapchast.ShowModal;

end;

procedure TMainForm.SpeedButton16Click(Sender: TObject);

begin

DM.Zapchast.Edit;

RedZapchast.mode := 2;

RedZapchast.ShowModal;

end;

procedure TMainForm.SpeedButton18Click(Sender: TObject);

begin

RepZap.QuickRep1.PreviewModal;

end;

procedure TMainForm.SpeedButton19Click(Sender: TObject);

begin

RedZapModel.ShowModal;

end;

procedure TMainForm.SpeedButton17Click(Sender: TObject);

begin

if DM.Zapchast.RecordCount = 0 then

Exit;

if MessageDlg('Вы точно хотите удалить: ' + DM.ZapchastNazvaZapchast.Value + '?' , mtConfirmation, [mbOK, mbCancel], 0) = mrOK then

begin

try

DM.Zapchast.Delete;

except

MessageDlg('При удалении данных возникла ошибка.', mtError, [mbOK], 0);

end;

end;

end;

procedure TMainForm.SpeedButton14Click(Sender: TObject);

begin

DM.SostPostavka.Append;

RedSostPost.ShowModal;

end;

procedure TMainForm.SpeedButton11Click(Sender: TObject);

begin

DM.Postavka.Append;

RedPostavka.ShowModal;

end;

procedure TMainForm.DBGrid6DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if DM.ZapchastKolichestvoZapchast.Value = 0 then

begin

DBGrid6.Canvas.Brush.Color := clRed;

DBGrid6.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end

else if DM.ZapchastKolichestvoZapchast.Value <= 3 then

begin

DBGrid6.Canvas.Brush.Color := clYellow;

DBGrid6.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);

begin

DM.Prodaza.Append;

DM.ProdazaDataProdaza.Value := Now;

DM.ProdazaItogSumma.Value := 0;

DM.Prodaza.Post;

RedSostProdaza.ShowModal;

end;

procedure TMainForm.SpeedButton12Click(Sender: TObject);

begin

RepProdaza.Itogo.Caption := FloatToStrF(DM.ProdazaItogSumma.Value, ffFixed, 6, 2);

RepProdaza.LData.Caption := DateToStr(Now);

RepProdaza.QuickRep1.PreviewModal;

end;

procedure TMainForm.SpeedButton13Click(Sender: TObject);

begin

DM.Zapchast.SQL.Clear;

DM.Zapchast.SQL.Add('select a.* from Zapchast a, ZapModel b where a.IDZapchast = b.IDZapchast and b.IDModel = ' + IntToStr(DM.ModelIDModel.Value) + ' order by a.NazvaZapchast');

DM.Zapchast.Close;

DM.Zapchast.Open;

ZapToModel.ShowModal;

end;

end.

Приложение Б

Схема взаимосвязи моделей программы

Размещено на Allbest.ru