Реализация информационной подсистемы "Computers"

гдеЗ_РУЧ - затраты на ручную обработку информации, руб.;

З_АВТ - затраты на автоматизированную обработку информации, руб.;

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

Данный программный продукт использует заведующий сектором ТО Усть-Джегутинского ГМУП «УЖКХ». Оклад заведующего сектором ТО - 14000 руб. Тогда, цена одного часа работы этого работника ц_Ч, руб./ч, составит

руб./ч.

В результате предпроектного обследования было установлено, что затраты t_Р, ч, на ручную обработку информации в месяц, связанные с учетом заведующим сектором ТО компьютерной техники Усть-Джегутинского ГМУП «УЖКХ», составление паспортов компьютеров и др. сопутствующей документации составляют 80 ч.

Годовые затраты (затраты за 12 месяцев) заведующий сектором ТО при ручной обработке информации вычислим по формуле

З_РУЧН = t _Р •12• ц_Ч.(4.21)

Тогда годовые затраты заведующего сектором ТО при ручной обработке информации составят

З_РУЧН = 80Ч12Ч79,55 = 76363,64 руб.

Годовые затраты (затраты за 12 месяцев) заведующего сектором ТО при автоматизированной обработке информации вычислим по формуле

З_АВТ = t_А •12• ц_Ч, (4.22)

гдеt_А - затраты времени при автоматизированной обработке информации за один месяц, ч.

В результате тестирования программного продукта установлено, что затраты времени заведующего сектором ТО при автоматизированной обработке информации за один месяц составляют t_А = 10 ч.

Таким образом, на основании формулы (4.22), получим:

З_АВТ = 10Ч12Ч79,55 = 9545,45 руб.

Следовательно, годовой эффект от внедрения программного продукта, даже без учета дополнительный экономический эффекта (Э_ДОП = 0), на основании формулы (4.20), получится равным

Э = З_РУЧН - З_АВТ = 76363,64 - 9545,45 = 66818,18 руб.

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

На основании формулы (4.15), для персонального компьютера заведующего сектором ТО за 12 месяцев затраты на электроэнергию при потребляемой мощности компьютера P_В =0,3 кВт составят (стоимость электроэнергии ц_Э =3,60 руб./кВтч.)

З_Э = 0,3Ч10Ч12Ч3,60 = 129,60 руб.

Балансовая стоимость вычислительной техники (персонального компьютера заведующего сектором ТО) = 20000,00 руб. Тогда, на основании формулы (4.17), для персонального компьютера заведующего сектором ТО за 12 месяцев затраты на техническое обслуживание и текущий ремонт составят

руб.

Затраты на амортизацию вычислительной техники:

руб.

Тогда, эксплуатационные затраты при использовании программного продукта составят:

З = З_Э + З_П + З_АО = 129,60 + 48,34 + 241,69 = 419,63 руб.

Прибыль рассчитаем по формуле (4.20):

П = Э - З = 66818,18 - 419,63 = 66398,55 руб.

Таким образом, мы имеем следующий денежный поток:

0 шаг (капиталовложения) - 70656,41 руб.;

1 шаг - 66398,55 руб.;

2 шаг - 66398,55 руб.;

3 шаг - 66398,55 руб.;

4 шаг - 66398,55 руб.;

Чистый дисконтированный доход ЧДД, руб., от использования программного продукта определим по формуле:



гдеN - расчетный период, год;

П_k - прибыль от использования программного продукта за k-й год его

эксплуатации, руб.;

Е - норма дисконта, %;

K - капиталовложения при внедрении программного продукта, руб.

Следовательно, ЧДД, руб., при N = 4, т. е. за четыре года использования программного продукта (срок до морального старения рассматриваемой информационной подсистемы) при норме дисконта E = 20% в соответствии с формулой (4.23) составит:

Приходим к выводу, что ЧДД ? положителен, т. е. проект эффективен.

Внутреннюю норму доходности проекта , %, определим по формуле

где - максимальное значение внутренней нормы дисконта, %, при которой ЧДД является положительной величиной (ЧДД > 0);

- минимальное значение внутренней нормы дисконта, %, при которой ЧДД является отрицательной величиной (ЧДД < 0);

- ЧДД, руб., вычисленный по формуле (4.23) при подстановке нормы дисконта ;

- ЧДД, руб., вычисленный по формуле (4.23) при подстановке нормы дисконта.

Предположим, что Е_вн лежит в диапазоне 85 ... 87%. При норме дисконта Е_вн = 85% ЧДД = 790,66 руб. (положителен), а при Е_вн = 87% получаем ЧДД = - 577,50 руб. (отрицателен).

.

Рассчитаем срок окупаемости проекта. Срок окупаемости проекта , год, найдем по формуле

где N - максимальное количество лет, прошедших с начала эксплуатации программного продукта, в течении которых, величина дохода от его использования не превысила величины капиталовложения при внедрении программного продукта;

- величины приведенных (дисконтированных) годовых эффектов за j-й год, руб., прошедший с начала эксплуатации программного продукта, вычисленные по формуле (4.23) при подстановке нормы дисконта E = 20%.

Величины приведенного (дисконтированного) годового эффекта за первый год расчетного периода:

руб.;

что меньше величины капиталовложений (K = 70656,41 руб.).

Величина приведенного (дисконтированного) годового эффекта за второй год расчетного периода:

руб.;

Таким образом, величины приведенных (дисконтированных) годовых эффектов по первым двум годам расчетного периода составит:

руб.,

что больше величины капиталовложений (K = 70656,41 руб.).

Тогда срок окупаемости проекта составит

года.

4.5 Основные технико-экономические показатели проекта

Для удобства анализа, все основные технико-экономические показатели проекта сведены в таблицу 4.5.

Таблица 4.5 ? Основные технико-экономические показатели проекта

Основные характеристики	Единицы измерения	Проект
Итоговая трудоемкость разработки	чел.-ч.	448,37
Полные затраты на создание программного продукта	руб.	61440,35
Оптовая цена программного продукта	руб.	70656,41
Годовой эффект от внедрения программного продукта	руб.	74454,43
Чистый дисконтированный доход за 4 года использования программного продукта	руб.	101231,80
Внутренняя нома доходности	%	86,16
Срок окупаемости проекта	год	1,67

Выводы

1. Итоговая трудоемкость разработки программного продукта (информационной подсистемы «Computers») составляет 448,37 чел.-ч.

2. Полные затраты на создание программного продукта составляют 61440,35 руб.

3. Оптовая цена программного продукта - 70656,41 руб.

4. Годовой эффект от внедрения программного продукта составляет 74454,43 руб.

5. Чистый дисконтированный доход за 4 года использования программного продукта равен 101231,80 руб.

6. Внутренняя нома доходности 86,16%.

7. Срок окупаемости проекта 1,67 года.

8. После внедрения программного продукта ежемесячные затраты времени заведующего сектором ТО на учет компьютерной техники Усть-Джегутинского ГМУП «УЖКХ», составление паспортов компьютеров и др. сопутствующей документации сократились с 80 до 10 часов, т. е. в восемь раз.

9. Таким образом, разработка информационной подсистемы «Computers» является экономически обоснованной и эффективной.

Заключение

Основным результатом дипломного проектирования является разработка, на основе использования современных CASE-технологий и средства Delphi 7, информационной подсистемы «Computers», автоматизирующей учет компьютерной техники Усть-Джегутинского ГМУП «УЖКХ».

В результате дипломного проектирования было показано, что:

1. Итоговая трудоемкость разработки программного продукта (информационной подсистемы «Computers») составляет 448,37 чел.-ч.

2. Полные затраты на создание программного продукта составляют 61440,35 руб.

3. Оптовая цена программного продукта - 70656,41 руб.

4. Годовой эффект от внедрения программного продукта составляет 74454,43 руб.

5. Чистый дисконтированный доход за 4 года использования программного продукта равен 101231,80 руб.

6. Внутренняя нома доходности 86,16%.

7. Срок окупаемости проекта 1,67 года.

После внедрения программного продукта ежемесячные затраты времени заведующего сектором ТО на учет компьютерной техники Усть-Джегутинского ГМУП «УЖКХ», составление паспортов компьютеров и др. сопутствующей документации сократились с 80 до 10 часов, т. е. в восемь раз.

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

БИБЛИОГРАФИЧЕСКИЙ список

1. Петров, А. И. Информационные системы [Текст]/ А. И. Петров. - М.: Горячая линия-Телеком, 2000. ? 300с., ил.

2. Буч, Г., Рамбо, Д., Джекобсон, А. Язык UML для пользователя: Пер. с англ [Текст]/ Г. Буч, Д. Рамбо, А. Джекобсон. - М.: ДМК, 2000. ? 432 с., ил. (Серия «для программистов»).

3. Боггс, У., Боггс, М.. UML и Rational Rose: Пер. с англ [Текст] / У. Боггс, М. Боггс. - М.: Издательство «Лори», 2000.- 581 с.

4. Калянов, Г. Н. CASE-технологии. Консалтинг при автоматизации бизнес процессов. 2-е изд. перераб. И доп [Текст] /Г. Н. Калянов. - М.: Горячая линия- Телеком, 2000. ? 320 с.

5. Ларман, К. применение UML и шаблонов проектирования: Пер. с англ [Текст] / К. Ларман. - М.: Издательский дом «Вильямс», 2001. - 496 с.

6. Архангельский, А. Я. Программирование в Delphi 7 [Текст] / А. Я. Архангельский. - М.: ООО «Бином-Пресс», 2003. - 1152 с.

7. Тейксера, Стив, Пачеко, Ксавье. Borland Delphi 6 [Текст] / Стив Тейксера, Ксавье Пачеко. Руководство разработчика.: Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 1120 с..

8. Баженова, И. Ю. Delphi 7 Самоучитель программиста [Текст] / И. Ю. Баженова. - М.: Кудиц-Образ, 2003. - 436 с.

9. Культин, Н. Б. Основы программирования в Delphi 7 [Текст] / Н. Б. Культин. - СПб.: БХВ-Петербург, 2003. - 608 с.

10. Гофман, В.Э, Хомоненко, А. Д. Delphi 5 [Текст] / В.Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ, 2000. - 800 с.: ил.

11. Тейксера Стив, Пачеко Ксавье. Borland Delphi 5. Руководство разработчика.: Пер. с англ. - М.: Издательский дом «Вильямс», 2000. - 817 с..

12. Кандзюба, С. П., Громов, В. Н. Delphi 6. Базы данных и приложения. Лекции и упражнения [Текст] / С. П. Кандзюба, В. Н. Громов. - К.:Издательство «ДиаСофт», 2001. - 576 с.

13. Епанешников, А. М., Епанешников, В. А. DELPHI. Программирование СУБД [Текст] / А. М. Епанешников, В. А. Епанешников. - М.: ДИАЛОГ-МИФИ, 2001 - 528 с.

14. Методические указания к дипломному проектированию для студентов специальности 230201. - Ставрополь: Изд-во СевКавГТУ, 2006. - 168 с..

15. Хомоненко, А. Д. Базы данных [Текст]: учебник для высших учебных заведений / А. Д. Хомоненко, В. М. Цыганков, М. Г. Мальцев; под ред. проф. А. Д.. Хомоненко. - Издание второе, дополненное и переработанное. - СПб.: Корона принт, 2002.- 672 с.

16. Мишенин, А. И. Теория экономических информационных систем [Текст] / А. И. Мишенин. - М.: Финансы и статистика, 1999. - 168 с.

17. Дж.Ульман. Основы систем баз данных [Текст] -- М.: Финансы и статистика,1983. -- 345с.

18. Дейт К. Введение в системы баз данных [Текст] -- М.: Hаука, 1980. --420с.

19. Шумаков П. В. Delphi 5.0 и создание баз данных [Текст] -- М.: Наука, 2002. --400с.

20. Диго С.М. Проектирование и использования баз данных [Текст] -- М.: Финансы и статистика, 1995. --200с.

21. Сучков А.Н., Зотов И.В. Автоматизированные информационные технологии в экономике [Текст] -- М.: Финансы и статистика, 1999 . -- 415с.

ПРИЛОЖЕНИЕ А

SQL-скрипт создания базы данных информационной подсистемы «Computers»

CREATE TABLE CHARACTERISTICDRIVER (

CDName Memo(20),

CharacteristicDriverID Long Integer

);

CREATE UNIQUE INDEX Primary ON CHARACTERISTICDRIVER

(

CharacteristicDriverID

);

CREATE TABLE COMPUTER (

ComputerTypeID Long Integer,

CWorkgroup Memo(20),

CIPAddress Memo(20),

COnWhatGrounds Memo(20),

CDiscardDate Date,

CDiscardYesNo Binary(18),

CImplementationDate Date,

CInventoryNumber Memo(20),

ComputerID Long Integer

);

CREATE UNIQUE INDEX Primary ON COMPUTER

(

ComputerID

);

CREATE TABLE COMPUTERTYPE (

CTName Memo(20),

ComputerTypeID Long Integer

);

CREATE UNIQUE INDEX Primary ON COMPUTERTYPE

(

ComputerTypeID

);

CREATE TABLE DEPARTMENT (

DName Memo(20),

DepartmentID Long Integer

);

CREATE UNIQUE INDEX Primary ON DEPARTMENT

(

DepartmentID

);

CREATE TABLE HARDWARE (

ComputerID Long Integer,

HardwareTypeID Long Integer,

HNote Memo(20),

HInUseYesNo Binary(18),

HContainPartsYesNo Binary(18),

HLiquidationDate Date,

HLiquidationYesNo Binary(18),

HPartDueDate Date,

HDateInstalled Date,

HBillOfLadingDate Date,

HBillOfLadingNumber Memo(20),

HRemittanceOrderDate Date,

HRemittanceOrderNumber Memo(20),

HDeliveryDate Date,

HPrice Long Integer,

HGuaranteePeriod Memo(20),

HRainCheckDate Date,

HRainCheckNumber Memo(20),

HAccountDate Date,

HAccountNumber Memo(20),

HInventoryNumber Memo(20),

HSN Memo(20),

HModel Memo(20),

HardwareID Long Integer,

SupplierID Long Integer,

MotiveInstallationsID Long Integer,

StatusDataID Long Integer,

CharacteristicDriverID Long Integer,

WhoProduceInstalledID Long Integer,

MotiveLiquidationID Long Integer,

PeriodicityPMID Long Integer

);

CREATE UNIQUE INDEX Primary ON HARDWARE

(

HardwareID

);

CREATE TABLE HARDWARETYPE (

HTName Memo(20),

HardwareTypeID Long Integer

);

CREATE UNIQUE INDEX Primary ON HARDWARETYPE

(

HardwareTypeID

);

CREATE TABLE HEAD (

HActual Binary(18),

HFIO Memo(20),

HeadID Long Integer

);

CREATE UNIQUE INDEX Primary ON HEAD

(

HeadID

);

CREATE TABLE LICENZETYPE (

LName Memo(20),

LicenzeTypeID Long Integer

);

CREATE UNIQUE INDEX Primary ON LICENZETYPE

(

LicenzeTypeID

);

CREATE TABLE LOCATION (

ComputerID Long Integer,

DepartmentID Long Integer,

LRoom Memo(20),

LocationID Long Integer

);

CREATE UNIQUE INDEX Primary ON LOCATION

(

LocationID

);

CREATE TABLE MOTIVEINSTALLATIONS (

MIName Memo(20),

MotiveInstallationsID Long Integer

);

CREATE UNIQUE INDEX Primary ON MOTIVEINSTALLATIONS

(

MotiveInstallationsID

);

CREATE TABLE MOTIVEINSTALLSOFT (

MISName Memo(20),

MotiveInstallSoftD Long Integer

);

CREATE UNIQUE INDEX Primary ON MOTIVEINSTALLSOFT

(

MotiveInstallSoftD

);

CREATE TABLE MOTIVELIQUIDATION (

MLName Memo(20),

MotiveLiquidationID Long Integer

);

CREATE UNIQUE INDEX Primary ON MOTIVELIQUIDATION

(

MotiveLiquidationID

);

CREATE TABLE MOTIVELIQUIDATIONSOFT (

MLSName Memo(20),

MotiveLiquidSoftID Long Integer

);

CREATE UNIQUE INDEX Primary ON MOTIVELIQUIDATIONSOFT

(

MotiveLiquidSoftID

);

CREATE TABLE PERIODICITYPM (

PMName Memo(20),

PeriodicityPMID Long Integer

);

CREATE UNIQUE INDEX Primary ON PERIODICITYPM

(

PeriodicityPMID

);

CREATE TABLE PERIPHERALDEVICE (

ComputerID Long Integer,

PeripheralDeviceTypeID Long Integer,

PInventoryNumber Memo(20),

PSN Memo(20),

PeripheralDeviceModel Memo(20),

PeripheralDeviceID Long Integer

);

CREATE UNIQUE INDEX Primary ON PERIPHERALDEVICE

(

PeripheralDeviceID

);

CREATE TABLE PERIPHERALDEVICETYPE (

PeripheralDeviceTypeID Long Integer,

PDTName Memo(20)

);

CREATE UNIQUE INDEX Primary ON PERIPHERALDEVICETYPE

(

PeripheralDeviceTypeID

);

CREATE TABLE SOFTWARE (

ComputerID Long Integer,

SoftwareTypeID Long Integer,

HNote Memo(20),

HInUseYesNo Binary(18),

SLiquidationDate Date,

SLiquidationYesNo Binary(18),

SBillOfLadingDate Date,

SBillOfLadingNumber Memo(20),

SRemittanceOrderDate Date,

SRemittanceOrderNumber Memo(20),

SDeliveryDate Date,

SPrice Long Integer,

SAccountDate Date,

SAccountNumber Memo(20),

SInventoryNumber Memo(20),

SLicenzeDateFinish Date,

SLicenzeDateStart Date,

SLicenzeNumber Memo(20),

SLicenzeEAddress Memo(20),

SLicenceGrantor Memo(20),

SName Memo(20),

SoftwareID Long Integer,

SupplierSoftwareID Long Integer,

StatusSoftwareDataID Long Integer,

LicenzeTypeID Long Integer,

MotiveInstallSoftD Long Integer,

MotiveLiquidSoftID Long Integer

);

CREATE UNIQUE INDEX Primary ON SOFTWARE

(

SoftwareID

);

CREATE TABLE SOFTWARETYPE (

STName Memo(20),

SoftwareTypeID Long Integer

);

CREATE UNIQUE INDEX Primary ON SOFTWARETYPE

(

SoftwareTypeID

);

CREATE TABLE STATUSDATA (

SDName Memo(20),

StatusDataID Long Integer

);

CREATE UNIQUE INDEX Primary ON STATUSDATA

(

StatusDataID

);

CREATE TABLE STATUSSOFTWAREDATA (

SSDName Memo(20),

StatusSoftwareDataID Long Integer

);

CREATE UNIQUE INDEX Primary ON STATUSSOFTWAREDATA

(

StatusSoftwareDataID

);

CREATE TABLE SUPPLIER (

SEMail Memo(20),

SFax Memo(20),

STelephone Memo(20),

SAddress Memo(20),

SName Memo(20),

SupplierID Long Integer

);

CREATE UNIQUE INDEX Primary ON SUPPLIER

(

SupplierID

);

CREATE TABLE SUPPLIERSOFTWARE (

SEMail Memo(20),

SFax Memo(20),

STelephone Memo(20),

SAddress Memo(20),

SName Memo(20),

SupplierSoftwareID Long Integer

);

CREATE UNIQUE INDEX Primary ON SUPPLIERSOFTWARE

(

SupplierSoftwareID

);

CREATE TABLE USER (

UPasswd Memo(20),

UDostup Long Integer,

UFIO Memo(20),

UserPseudonym Memo(20)

);

CREATE UNIQUE INDEX Primary ON USER

(

UserPseudonym

);

CREATE TABLE WHOPRODUCEINSTALLED (

WPost Memo(20),

WFamNamPat Memo(20),

WhoProduceInstalledID Long Integer

);

CREATE UNIQUE INDEX Primary ON WHOPRODUCEINSTALLED

(

WhoProduceInstalledID

);

ПРИЛОЖЕНИЕ Б

Текст модуля fmMainU.pas

unit fmMainU;

interface

uses

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

Dialogs, Menus, ExtCtrls, ComCtrls, jpeg;

type

TfmMain = class(TForm)

MainMenu1: TMainMenu;

Handbooks: TMenuItem;

ComputerType: TMenuItem;

HardwareType: TMenuItem;

Supplier: TMenuItem;

MotiveInstallations: TMenuItem;

StatusData: TMenuItem;

CharacteristicDriver: TMenuItem;

WhoProduceInstalled: TMenuItem;

MotiveLiquidation: TMenuItem;

PeriodicityPM: TMenuItem;

PeripheralDeviceType: TMenuItem;

Department: TMenuItem;

StocktakingComputers: TMenuItem;

N2: TMenuItem;

SoftwareType: TMenuItem;

SupplierSoftware: TMenuItem;

StatusSoftware: TMenuItem;

LicenzeType: TMenuItem;

N1: TMenuItem;

MotiveInstallSoft: TMenuItem;

MotiveLiquidSoft: TMenuItem;

N3: TMenuItem;

Head: TMenuItem;

Exit: TMenuItem;

DepartmentRoom: TMenuItem;

N4: TMenuItem;

StatusBar1: TStatusBar;

Timer1: TTimer;

Image1: TImage;

Administration: TMenuItem;

UserList: TMenuItem;

ReplacementPassword: TMenuItem;

AboutBox: TMenuItem;

MainMenu2: TMainMenu;

MenuItem1: TMenuItem;

MenuItem2: TMenuItem;

MenuItem3: TMenuItem;

MenuItem4: TMenuItem;

MenuItem5: TMenuItem;

MenuItem6: TMenuItem;

MenuItem7: TMenuItem;

MenuItem8: TMenuItem;

MenuItem9: TMenuItem;

MenuItem10: TMenuItem;

MenuItem11: TMenuItem;

MenuItem12: TMenuItem;

MenuItem13: TMenuItem;

MenuItem14: TMenuItem;

MenuItem15: TMenuItem;

MenuItem16: TMenuItem;

MenuItem17: TMenuItem;

MenuItem18: TMenuItem;

MenuItem19: TMenuItem;

MenuItem20: TMenuItem;

MenuItem21: TMenuItem;

MenuItem22: TMenuItem;

MenuItem23: TMenuItem;

MenuItem24: TMenuItem;

MenuItem25: TMenuItem;

MenuItem29: TMenuItem;

MenuItem30: TMenuItem;

procedure ComputerTypeClick(Sender: TObject);

procedure HardwareTypeClick(Sender: TObject);

procedure MotiveInstallationsClick(Sender: TObject);

procedure StatusDataClick(Sender: TObject);

procedure CharacteristicDriverClick(Sender: TObject);

procedure WhoProduceInstalledClick(Sender: TObject);

procedure MotiveLiquidationClick(Sender: TObject);

procedure PeriodicityPMClick(Sender: TObject);

procedure SupplierClick(Sender: TObject);

procedure PeripheralDeviceTypeClick(Sender: TObject);

procedure DepartmentClick(Sender: TObject);

procedure StocktakingComputersClick(Sender: TObject);

procedure SoftwareTypeClick(Sender: TObject);

procedure SupplierSoftwareClick(Sender: TObject);

procedure StatusSoftwareClick(Sender: TObject);

procedure LicenzeTypeClick(Sender: TObject);

procedure MotiveInstallSoftClick(Sender: TObject);

procedure MotiveLiquidSoftClick(Sender: TObject);

procedure HeadClick(Sender: TObject);

procedure ExitClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure DepartmentRoomClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure UserListClick(Sender: TObject);

procedure ReplacementPasswordClick(Sender: TObject);

procedure AboutBoxClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmMain: TfmMain;

Go_Login : Boolean;

Go_UserName,Go_FIO:String;

implementation

uses fmCharacteristicDriverU, fmComputerTypeU, fmHardwareTypeU,

fmHardwareU, fmMotiveInstallationsU, fmMotiveLiquidationU,

fmPeriodicityPMU, fmStatusDataU, fmStocktakingComputersU, fmSupplierU,

fmWhoProduceInstalledU, fmPeripheralDeviceTypeU, fmDepartmentU,

fmSoftwareTypeU, fmSupplierSoftwareU, fmStatusSoftwareU, fmLicenzeTypeU,

fmMotiveInstallSoftU, fmMotiveLiquidSoftSoftU, fmHeadU,

fmDepartmentRoomU, fmPasswordDlgU, fmUserListU,

fmPasswordConfirmationDlgU, fmAboutBoxU;

{$R *.dfm}

procedure TfmMain.ComputerTypeClick(Sender: TObject);

begin

fmComputerType.ShowModal;

end;

procedure TfmMain.HardwareTypeClick(Sender: TObject);

begin

fmHardwareType.ShowModal;

end;

procedure TfmMain.MotiveInstallationsClick(Sender: TObject);

begin

fmMotiveInstallations.ShowModal;

end;

procedure TfmMain.StatusDataClick(Sender: TObject);

begin

fmStatusData.ShowModal;

end;

procedure TfmMain.CharacteristicDriverClick(Sender: TObject);

begin

fmCharacteristicDriver.ShowModal;

end;

procedure TfmMain.WhoProduceInstalledClick(Sender: TObject);

begin

fmWhoProduceInstalled.ShowModal;

end;

procedure TfmMain.MotiveLiquidationClick(Sender: TObject);

begin

fmMotiveLiquidation.ShowModal;

end;

procedure TfmMain.PeriodicityPMClick(Sender: TObject);

begin

fmPeriodicityPM.ShowModal;

end;

procedure TfmMain.SupplierClick(Sender: TObject);

begin

fmSupplier.ShowModal;

end;

procedure TfmMain.PeripheralDeviceTypeClick(Sender: TObject);

begin

fmPeripheralDeviceType.ShowModal;

end;

procedure TfmMain.DepartmentClick(Sender: TObject);

begin

fmDepartment.ShowModal;

end;

procedure TfmMain.StocktakingComputersClick(Sender: TObject);

begin

fmStocktakingComputers.Show;

end;

procedure TfmMain.SoftwareTypeClick(Sender: TObject);

begin

fmSoftwareType.ShowModal;

end;

procedure TfmMain.SupplierSoftwareClick(Sender: TObject);

begin

fmSupplierSoftware.ShowModal;

end;

procedure TfmMain.StatusSoftwareClick(Sender: TObject);

begin

fmStatusSoftware.ShowModal;

end;

procedure TfmMain.LicenzeTypeClick(Sender: TObject);

begin

fmLicenzeType.ShowModal;

end;

procedure TfmMain.MotiveInstallSoftClick(Sender: TObject);

begin

fmMotiveInstallSoft.ShowModal;

end;

procedure TfmMain.MotiveLiquidSoftClick(Sender: TObject);

begin

fmMotiveLiquidSoft.ShowModal;

end;

procedure TfmMain.HeadClick(Sender: TObject);

begin

fmHead.ShowModal;

end;

procedure TfmMain.ExitClick(Sender: TObject);

begin

close;

end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if MessageDlg('Завершить работу с программой?',mtConfirmation,

[mbYes,mbNo],0)=mrNo Then Action:=caNone;

end;

procedure TfmMain.DepartmentRoomClick(Sender: TObject);

begin

fmDepartmentRoom.ShowModal;

end;

procedure TfmMain.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[3].Text:= 'Текущее время:' + TimeToStr(now);

end;

procedure TfmMain.FormCreate(Sender: TObject);

begin

Go_Login:=False;

StatusBar1.Panels[2].Text:= 'Сегодня:' + DateToStr(Date);

end;

procedure TfmMain.FormActivate(Sender: TObject);

begin

if not Go_Login then fmPasswordDlg.Show;

end;

procedure TfmMain.UserListClick(Sender: TObject);

begin

fmUserList.ShowModal;

end;

procedure TfmMain.ReplacementPasswordClick(Sender: TObject);

begin

fmPasswordConfirmationDlg.Caption:= 'Смена пароля';

fmPasswordConfirmationDlg.ShowModal;

end;

procedure TfmMain.AboutBoxClick(Sender: TObject);

begin

fmAboutBox.ShowModal;

end;

end.

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