Вход

Автоматизация защиты коммерческой тайны на примере "ОАО Банка ВТБ"

Дипломная работа*
Код 98581
Дата создания 2011
Страниц 139
Источников 27
По техническим причина покупка готовых работ временно недоступна.
7 680руб.

Содержание

ВВЕДЕНИЕ
I АНАЛИТИЧЕСКАЯ ЧАСТЬ
1.1 Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности “КАК ЕСТЬ”
1.1.1 Характеристика предприятия и его деятельности
1.1.2 Организационная структура управления предприятием
1.1.3 Программная и техническая архитектура ИС предприятия
1.2 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации
1.2.1 Выбор комплекса задач автоматизации и характеристика существующих бизнес процессов
1.2.2 Определение места проектируемой задачи в комплексе задач и ее описание
1.2.3 Обоснование необходимости использования вычислительной техники для решения задачи
1.2.4 Анализ системы обеспечения информационной безопасности и защиты информации
1.3 Анализ существующих разработок и выбор стратегии автоматизации
1.3.1 Анализ существующих разработок для автоматизации задачи
1.3.2 Выбор и обоснование стратегии автоматизации задачи
1.3.3 Выбор и обоснование способа приобретения ИС для автоматизации комплекса задач
1.4 Обоснование проектных решений
1.4.1 Обоснование проектных решений по информационному обеспечению
1.4.2 Обоснование проектных решений по программному обеспечению
1.4.3 Обоснование проектных решений по техническому обеспечению
2. ПРОЕКТНАЯ ЧАСТЬ
2.1 Разработка проекта автоматизации
2.1.1 Этапы жизненного цикла проекта автоматизации
2.1.2 Ожидаемые риски на этапах жизненного цикла и их описание
2.1.3 Организационно-правовые и программно-аппаратные средства обеспечения информационной безопасности и защиты информации
2.2 Информационное обеспечение задачи
2.2.1 Информационная модель и её описание
2.2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.2.3 Характеристика результатной информации
2.3 Описание программного проекта
2.3.1.Общие положения
2.3.2. Характеристика базы данных
2.3.3 Структурная схема пакета
2.3.4 Описание программных модулей
2.4 Контрольный пример реализации проекта и его описание
III ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ Листинг разработанной программы

Фрагмент работы для ознакомления

Коэффициент эффективности по затратам:Kc=(С/С0)*100 (%)Т1в (3.5)Индекс изменения стоимостных затратYc=С0/С1 (3.6)Помимо рассмотренных показателей целесообразно также рассчитать срок окупаемости затрат на внедрение проекта машинной обработки информации (Ток), рассчитываемые в годах, долях года или в месяцах года:Ток = КП /C (3.7)где КП - затраты на создание проекта (проектирование и внедрение).А также расчетный коэффициент эффективности капитальных затрат:Ер = 1/Ток (3.8)Таблица 3.1Характеристика затрат на обработку информации по базовому варианту.№ п/пНаименование операций технологического процесса решения комплекса задачОборудо-ваниеЕд. Изм.Объем работы в годНорма выра-ботки / производительность устройств ЭВМ (опер/в час.)Тру-доем-кость Средне-часовая зарплата специалиста (руб.)Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.)Часовая стоимость накладных расходов (руб.)Стоимостные затраты для ручных операцийСтои-мостные затраты для операций, вып. на ЭВМ ,тыс1071234567891011121прием контроль, регистрация документовкалькулятордоку-менто-строка408123425008,2912,7521,042ввод исходных данныхканцеляр-ские принадлежностисимвол10101128412500,12128,55197,77327,273вычисление и подсчет итоговкалькулятордействие833223212500423,11650,951074,064Занесение данных в результа-тивные формыканцеляр-ские принадлежностисимвол128030442500,126931066,921765,54Итого:Х31644261200Ххх10200300000Таблица 3.2Характеристика затрат на обработку информации по проектируемому варианту.108№ п/пНаименование операций технологического процесса решения комплекса задачОборудо-ваниеЕд. Изм.Объем работы в годНорма выра-ботки / произв.устр. ЭВМ (опер/в час.)Тру-доем-кость Средне-часовая зарплата специалиста (руб.)Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.)Часовая стоимость накладных расходов (руб.)Стоимостные затраты для ручных операцийСтои-мостные затраты для операций, вып. на ЭВМ тыс.1234567891011121прием контроль, регистрация документовкалькуля-тордоку-менто-строка20880034250х08,2921,042ввод исходных данныхперсон. компьютерсимвол316.44150100Х40хх316,443вычисление и подсчет итоговперсон. компьютердействие433210650Х40хх3,24Занесение данных в результа-тивные формыперсон. компьютерсимвол1280305·10624.4Х40хх1,045печать результатовлазерный принтерстраница3401302.6Х40хх40,68Итого:Х31644150211250хх8.2937500,003.2 Расчёт показателей экономической эффективности проекта В данном пункте рассчитаем затраты (трудовые и стоимостные) на работу в базовом варианте и на работу после внедрения задачи автоматизации.Расчет трудовых затрат по базовому и проектируемому варианту.А). Базовый вариант.Объём работы измеряется количеством обработанных документов, которые должен обработать специалист в существующей системе. При этом учет заявок и проектов ведется на основе бумажных форм документов, то есть ответственное лицо заносит необходимые сведения вручную на формализованный бланк, анализ представленной информации происходит без применения средств автоматизации.Норма выработки показывает, сколько за один час специалист может обработать документов при базовом варианте решения задачи. В нашем случае норма выработки в час составляет 1,5 документа.Трудоёмкость (Тб) определяется делением объёма работы на норму выработки.Тб =31644 /26.7 = 1200 час. (3.9)Б.)Проектный вариант.Норма выработки при проектном варианте показывает, сколько специалист за один час обрабатывает документов с использованием разработанной системы.Норма выработки в час составляет 12,0 документов.Трудоёмкость (Тп) определяется делением объёма работы на норму выработки:Тп = 31644 /150 = 211 час. (3.10)Абсолютный показатель снижения трудовых затрат(∆T ) рассчитываем используя формулу (3.1):∆T= 1200-211=989 час. . (3.11)Для расчета коэффициент относительного снижения трудовых затрат (Кт) используем формулу (3.2):Кт=989/1200*100%=82,4% . (3.12)Индекс изменения трудовых затрат или повышение производительности труда (Yт) вычислим используя соотношения (3.3):Yт =1200/211=5.68 . (3.13)Расчет стоимостных показателей по базовому и проектируемому варианту:А. Базовый вариант1. Материальные затраты:В материальные затраты на обработку информации включаются затраты на расходные материалы. Посчитано, что ежемесячно на это необходимо расходовать 350 рублей.Картриджи: 1 шт. х 500 руб. = 500 руб.;Итого: 850 руб. в месяцСоответственно на год потребуется:850 х 12 = 10200 руб.2.Трудовые затраты.Количество работников - 1 человека. сотрудника – 250руб./час. * 100 час. = 25000 рублей в месяц.Фонд заработной платы за год составляет:25000 х 12 = 300000 руб.Всего затраты на базовый вариант обработки информации составляет:Сб =300000+10200=310200 руб.Б. Проектный вариант.1. Материальные затраты:В материальные затраты на обработку информации включаются следующие расходные материалы:- картриджи 1 шт. х 500 руб. = 500 руб.;- бумага 1 шт. х 105 руб. = 105 руб.;Итого: 605 руб. в месяцСоответственно на год потребуется:605 х 12 = 7260 руб.2.Трудовые затраты.Количество работников - 1 человека. ФОТ (Фонд оплаты труда) сотрудника – 250 руб./час. * 12,5 = 3125 рублей в месяц.Фонд заработной платы за год составляет:3125 x12= 37500 руб.3.Накладные расходы (в данном случае состоят из суммы стоимости потреблённой электроэнергии):2500Кв/ч*1,50руб.=37500,00 руб.Сопровождение - 30000 руб. в год.Срок действия проекта - 7 лет, тогда амортизационные отчисления составят 14,28% (100% / 7) от капитальных вложений.Капитальные вложения (инвестиции) в создание проекта.Сводный инвестиционный план проекта, таким образом, суммарные затраты стоимость проекта равна 207750,00 руб.Сумма амортизационных начислений 14,28% от капитальных вложений:207750,00 х 0, 14 = 29085,00 руб.Всего затраты на автоматизированную обработку информации составляют:Сп = 7260+37500+37500+30000+29085= 141345 руб.Рассчитаем значение стоимостных показателей:Абсолютное снижение стоимостных затрат(∆С), вычисляем используя соотношения (3.4):∆С =310200- 141345= 168855 руб. . (3.14)Коэффициента относительного снижения стоимостных затрат (Кс) определяется по формуле (3.5):Кс=168855/310200*100%=54,4% . (3.15)Для вычисления индекса изменения стоимостных затрат (Yc) использовать соотношение (3.6):Yc=310200/141345=2,19 . (3.16)Определим экономическую эффективность от системы. Это отношение экономического эффекта, полученного за определённый период времени от вложения капитала (или от внедрения мероприятий), к объёму вложенного капитала, обеспечившего внедрение мероприятий и получение экономического эффекта.Экономический эффект представляет собой чистый доход (прибыль), т. е. цена минус себестоимость.Расчет экономической эффективности при помощи (3.8) примет вид:Е =168855/207750=0,81 . (3.17)Эффективность капитальных затрат определяется сроком окупаемости (Т) дополнительных капитальных затрат на модернизацию информационной системы:Срок окупаемости определяется, как обратная величина Е (3.7)Т = 1 /0,81 = 1,2 . (3.18)Экономические показатели, полученные в результате дипломного проектирования, представлены в таблице 3.1:Таблица 3.3 Экономические показатели проектаНаименование показателей эффективностиЕд. измеренияРезультатНеобходимые инвестиции на разработку системыруб.178221,00Годовые затраты на планирование продаж при базовом вариантеруб.310200,00Годовые затраты на автоматизированное на планирование продажруб.191345,00Годовой экономический эффектруб.168855,00Экономическая эффективность проекта0,81Срок окупаемости проекталет1,2Получив все необходимые расчетные показатели, для наглядности, составим графические диаграммы, представленные на рисунке 3.1 (сравнительная диаграмма трудовых затрат) и 3.2 - сравнительная диаграмма стоимостных затрат.Рис. 3.1. Cравнительная диаграмма трудовых затратРис. 3.2. Сравнительная диаграмма стоимостных затратЗАКЛЮЧЕНИЕВ дипломном проекте была спроектирована и разработана Автоматизация защиты коммерческой тайны на примере «ОАО Банка ВТБ». Для решения поставленной задачи в работе было проведено решение следующих задач- исследование предметной области;- разработана структура базы данных;- спроектированы SQL-запросы к базе данных;- разработано алгоритмическое и программное обеспечение,- спроектирован программный интерфейс системы, - проведено тестирование разработанной системы, о- оценена экономическая целесообразность внедрения системы.Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о запросах, клиентах, кодах доступа.В дипломной работе сделан вывод о том, что с внедрением системы будет происходить повышение эффективности учета данных обспечивающих коммерческую тайну клиентов. Одним из самых главных качественных результатов является то, что у руководителя службы безопасности, несущего наибольшую ответственность за правильность учета и доступа, имеется полное представление о запросах, клиентах, кодах доступа, поскольку он сам оперативно организует доступ к данным составляющим коммерческую тайну клиентов. При этом в банке используются новая информационная система, предложенная и разработанная в дипломной работе, которая позволяет автоматизировать трудоемкие операции поиска данных, их обработки и принятия управленческих решений на разрешение доступа к коммерческой тайне.Для обеспечения функций системы было разработано программное обеспечение, обладающее «дружественным интерфейсом», а так же составлено руководство пользователя.Несанкционированный доступ к системе не возможен, так как разработан программный механизм, обеспечивающий проверку пароля пользователя.После разработки программного обеспечения, было проведено тестирование системы.Процесс разработки системы завершился тестированием функционирования системы, а так же выполнены операции валидации и верификации. Функционирование системы проиллюстрировано контрольным примером работоспособности системы. Для быстрой адаптации пользователя к системе было разработано руководство пользователя системы.В третьем разделе работы рассчитана экономическая эффективность предлагаемой системы. Расчеты показывают, что расчетный коэффициент эффективности капитальных вложений больше нормативного, поэтому разработку программной системы следует считать целесообразной. Срок ее окупаемости составляет примерно 5 месяцев.Считаю, что созданная в дипломном проекте автоматизированная Автоматизация защиты коммерческой тайны «ОАО Банка ВТБ», полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы. ЛИТЕРАТУРААрхангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Дайан А. и др. Маркетинг. М., Экономика, 1993. Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COMФатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COMПРИЛОЖЕНИЕЛистинг разработанной программыunit MainClients;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate, addsorce, DateUtils,parampoisk, jpeg, ExtCtrls, ToolWin, ComCtrls, Buttons, RzSpnEdt;type TMainClientsForm = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N17: TMenuItem; N19: TMenuItem; DataSource1: TDataSource; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; Image1: TImage; ADOTable8: TADOTable; N18: TMenuItem; procedure N18Click(Sender: TObject); procedure RzRapidFireButton1Click(Sender: TObject); procedure RzRapidFireButton2Click(Sender: TObject); procedure RzRapidFireButton5Click(Sender: TObject); procedure RzRapidFireButton4Click(Sender: TObject); procedure RzRapidFireButton6Click(Sender: TObject); procedure RzRapidFireButton7Click(Sender: TObject); procedure RzRapidFireButton3Click(Sender: TObject); procedure RzRapidFireButton8Click(Sender: TObject); procedure N12Click(Sender: TObject); function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; function IsFormOpen(const FormName : string): Boolean; procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N3Click(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); procedure N4Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N19Click(Sender: TObject); private { Private declarations } procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); public { Public declarations } end;var MainClientsForm: TMainClientsForm; nastr:tinifile; DirectoryForm : TDBDirectoryTemplateForm; prosmForm: Taddform; mainflag:boolean; a:integer; nomer_poisk:word; id_dostup, id_zapros, id_client, id_obshkod,id_razresh:integer;implementation{$R *.dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 do if (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 do if (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end; procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end;procedure TMainClientsForm.N12Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N6Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;mainclientsform.ADOTable1.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('доступ', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.доступа';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ид. запрос';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ид.киент';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид. разреш';end;procedure TMainClientsForm.N7Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Запросы', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. запрос';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Ид. сотрудник';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='дата запроса';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='пароль';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид. информации';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='ид. клиент';end;procedure TMainClientsForm.N8Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('вид транзации', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. вида транз.';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Инф.';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='цель';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Вид транз';end;procedure TMainClientsForm.N9Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сотрудники', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид сотрудник';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Фамилия';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Имя';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Отчество';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='пароль';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='класс';end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);begin MainClientsForm.N6Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);begin MainClientsForm.N22Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);beginMainClientsForm.N19Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton6Click(Sender: TObject);beginMainClientsForm.N11Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton7Click(Sender: TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton8Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N10Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Счета', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='номер';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='код доступа';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='остаток';end;procedure TMainClientsForm.N20Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Клиенты', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Фамилия';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Имя ';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Отчество';//DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='куда';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='год';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='секретное слово';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='ид код'; end;procedure TMainClientsForm.N21Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Банковские карточки', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='PIN1';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='PIN2';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='вид карты';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Остаток';end;procedure TMainClientsForm.N22Click(Sender: TObject); begin IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N6Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator1.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.Button1.Visible:=false; prosmForm.GroupBox3.Visible:=false; prosmForm.GroupBox4.Visible:=false; MainClientsForm.DataSource1.DataSet.lastend;procedure TMainClientsForm.FormCreate(Sender: TObject); var NewConnection: Widestring;beginNewConnection := PromptDataSource(Handle, MainClientsForm.ADOConnection1.Connectionstring);MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;MainClientsForm.ADOConnection1.Connected:=true;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;end;procedure TMainClientsForm.N3Click(Sender: TObject);var zakForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'zakForm'); IsMDIChildOpen(MainClientsForm,'addForm'); zakForm:=Taddform.Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='создание клиента'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=true; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox3.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox1.Left:=2; zakForm.GroupBox1.Top:=2;end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField); var sql_str,rez:string; P11:Tparameter; rezdate:tdatetime; rezint, id_kod:integer; rezfloat:real; id_sotrudnyk,id_inform:integer; Ayear, amonth,aday,ahour,aminute,asecond,amillisecond:word;beginif mainflag thenbegin prosmForm.edit1.text:=''; prosmForm.edit2.text:=''; prosmForm.edit3.text:=''; prosmForm.edit4.text:=''; prosmForm.edit18.text:=''; prosmForm.edit19.text:=''; prosmForm.edit20.text:=''; prosmForm.edit21.text:=''; prosmForm.edit22.text:=''; prosmForm.edit23.text:=''; id_zapros:=MainClientsForm.DataSource1.DataSet.FieldByName('id_zapros').AsInteger; id_client:=MainClientsForm.DataSource1.DataSet.FieldByName('id_client').AsInteger; id_razresh:=MainClientsForm.DataSource1.DataSet.FieldByName('id_razresh').AsInteger; prosmForm.edit2.text:= inttostr(id_zapros); prosmForm.edit3.text:= inttostr(id_client); prosmForm.edit1.text:= inttostr(id_razresh); sql_str:='SELECT * from Client where id_client= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_client; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; rez:=MainClientsForm.ADOQuery1.FieldByName('fam').AsString; prosmForm.Edit18.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('name').AsString; prosmForm.Edit19.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('otchestvo').AsString; prosmForm.Edit23.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('sekretnoe_slovo').AsString; prosmForm.Edit21.Text:=rez; rezint:= MainClientsForm.ADOQuery1.FieldByName('god').AsInteger; prosmForm.Edit20.Text:=inttostr(rezint); id_kod:=MainClientsForm.ADOQuery1.FieldByName('id_kartochhka').AsInteger; prosmForm.Edit8.Text:=inttostr(id_kod); sql_str:='SELECT * from kartochhka where id_kartochhka= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_kod; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; rezint:= MainClientsForm.ADOQuery1.FieldByName('pin1').AsInteger; prosmForm.Edit22.Text:=inttostr(rezint); rezint:= MainClientsForm.ADOQuery1.FieldByName('pin2').AsInteger; prosmForm.Edit30.Text:=inttostr(rezint); rez:= MainClientsForm.ADOQuery1.FieldByName('vid_kartu').AsString; prosmForm.Edit31.Text:=inttostr(rezint); sql_str:='SELECT * from razresh where id_razresh= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_razresh; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; rez:=MainClientsForm.ADOQuery1.FieldByName('status').AsString; prosmForm.Edit17.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('status_dostupa').AsString; prosmForm.Edit14.Text:=rez; rezdate:=MainClientsForm.ADOQuery1.FieldByName('date_dost').AsDateTime; prosmForm.Edit14.Text:=datetostr(rezdate); sql_str:='SELECT * from zapros where id_zapros= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_zapros; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; rezint:=MainClientsForm.ADOQuery1.FieldByName('id_sotrudnyk').AsInteger; prosmForm.Edit17.Text:=inttostr(rezint); rez:=MainClientsForm.ADOQuery1.FieldByName('parol').AsString; prosmForm.Edit16.Text:=rez; rezdate:=MainClientsForm.ADOQuery1.FieldByName('date_zapros').AsDateTime; prosmForm.Edit15.Text:=datetostr(rezdate); rezint:=MainClientsForm.ADOQuery1.FieldByName('id_vid_zapros').AsInteger; prosmForm.Edit12.Text:=inttostr(rezint); end;end;procedure TMainClientsForm.N4Click(Sender: TObject);var zakForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'zakForm'); IsMDIChildOpen(MainClientsForm,'addForm'); zakForm:=Taddform.Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='создание запроса'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2; // show;end;procedure TMainClientsForm.N14Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск клиента'; nomer_poisk:=1; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск отклоненного доступа'; nomer_poisk:=2; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false;poisk.Label3.Visible:=false; poisk.Label2.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false;poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N16Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск размещения товара'; nomer_poisk:=3; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N17Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='просмотр разрешений '; nomer_poisk:=4; poisk.Label1.Visible:=false; poisk.Edit1.Visible:=false; poisk.Label7.Caption:='Разрешения в период' end;procedure TMainClientsForm.N18Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Разрешения', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ разрешения';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Ид. запрос';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='дата разрешения';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='статус';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='статус доступа';end;procedure TMainClientsForm.N11Click(Sender: TObject);var naklForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'naklForm'); IsMDIChildOpen(MainClientsForm,'addForm'); naklForm:=Taddform.Create(Owner); naklForm.Top:=240; naklForm.Left:=3; naklForm.Caption:='создание содержание информационного запроса'; naklForm.Show; // zakForm.Button1.Visible:=true; naklForm.GroupBox1.Visible:=false; naklForm.GroupBox2.Visible:=false; naklForm.GroupBox3.Visible:=false; naklForm.GroupBox4.Left:=2; naklForm.GroupBox4.Top:=2; naklForm.GroupBox4.Width:=600; naklForm.GroupBox4.Height:=250;end;procedure TMainClientsForm.N19Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Получение доступа'; nomer_poisk:=5; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; poisk.Label1.Caption:='номер запроса'; poisk.Button1.Caption:='Получение доступа' end;end.unit addsorce;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls ;type TaddForm = class(TForm) Panel1: TPanel; GroupBox1: TGroupBox; Label15: TLabel; Edit18: TEdit; Label16: TLabel; Edit19: TEdit; Label18: TLabel; Edit23: TEdit; GroupBox2: TGroupBox; Edit16: TEdit; Button1: TButton; DBNavigator1: TDBNavigator; Label8: TLabel; Label7: TLabel; Label5: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit17: TEdit; Label14: TLabel; Label4: TLabel; Label3: TLabel; Edit6: TEdit; Edit12: TEdit; Label13: TLabel; Label12: TLabel; Label11: TLabel; Edit14: TEdit; Edit15: TEdit; Edit4: TEdit; GroupBox3: TGroupBox; Label19: TLabel; Label20: TLabel; Label21: TLabel; Edit24: TEdit; Edit25: TEdit; Edit26: TEdit; Edit27: TEdit; Edit28: TEdit; Edit29: TEdit; Label22: TLabel; Button2: TButton; GroupBox4: TGroupBox; Label24: TLabel; Edit33: TEdit; Label25: TLabel; Edit34: TEdit; Label28: TLabel; Edit36: TEdit; Button3: TButton; Label32: TLabel; Edit41: TEdit; Label17: TLabel; Edit20: TEdit; Label23: TLabel; Edit21: TEdit; Label26: TLabel; Edit22: TEdit; Edit30: TEdit; Label27: TLabel; Edit31: TEdit; Label29: TLabel; Button4: TButton; Edit7: TEdit; Label1: TLabel; Label9: TLabel; Edit8: TEdit; procedure Button4Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var addForm: TaddForm; naim:string;ed_izm:string;kolvo:integer;cena:real;nomerpartiya:string;sernum:string;srok_godnost:tdate;data_postavka:tdate;postavchik:string;description:string; location:string; location_part:string; primech:string; Ayear, amonth,aday:word; razmer_part,kol:integer; id_part,idaddional,idlocation,idzapas:integer; idtov:integer;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender: TObject);beginend;procedure TaddForm.Button2Click(Sender: TObject);var srtkl,name_poisk,sqlwhere,stroka_SQL :string;id_inform, id_client,id_sotrudnyk:integer;parol:string;date_zapros:tdatetime;p1:tparameter;begin id_inform:=strtoint(Edit24.Text); id_client:=strtoint(Edit41.Text); id_sotrudnyk:=strtoint(Edit28.Text); parol:=edit29.Text; mainclientsform.ADOTable2.Active:=true; mainclientsform.ADOTable2.Insert; mainclientsform.ADOTable2.FieldByName('id_vid_zapros').AsInteger:=id_inform; mainclientsform.ADOTable2.FieldByName('id_client').AsInteger:=id_client; mainclientsform.ADOTable2.FieldByName('id_sotrudnyk').AsInteger:=id_sotrudnyk; mainclientsform.ADOTable2.FieldByName('parol').AsString:=parol; Ayear:=strtoint(Edit27.Text); amonth:= strtoint(Edit26.Text); aday:= strtoint(Edit25.Text); date_zapros:=encodedate(Ayear, amonth,aday); mainclientsform.ADOTable2.FieldByName('date_zapros').AsDateTime:=date_zapros; mainclientsform.ADOTable2.Post;end;procedure TaddForm.Button3Click(Sender: TObject);var {tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;}inform, target,stepen:string;begininform:=Edit33.Text;target:=Edit34.Text;stepen:=Edit36.Text;mainclientsform.ADOTable3.Active:=true; mainclientsform.ADOTable3.Insert; mainclientsform.ADOTable3.FieldByName('inform').AsString:=inform; mainclientsform.ADOTable3.FieldByName('target').AsString:=target; mainclientsform.ADOTable3.FieldByName('vid').AsString:=stepen;mainclientsform.ADOTable3.post;end;procedure TaddForm.Button4Click(Sender: TObject);var fam,name,otchestvo,sekretnoe_slovo:string;god,id_kod,pin1,pin2,puk:integer;ostatok:real;vid:string;beginpin1:=strtoint(edit22.text);pin2:=strtoint(edit30.text);god:=strtoint(edit20.text);sekretnoe_slovo:=edit21.Text;fam:=edit18.Text;name:=edit19.Text;otchestvo:=edit23.Text;vid:=edit31.Text;ostatok:=strtofloat(edit7.Text);mainclientsform.ADOTable7.Active:=true; mainclientsform.ADOTable7.Insert; mainclientsform.ADOTable7.FieldByName('Pin1').AsInteger:=Pin1; mainclientsform.ADOTable7.FieldByName('Pin2').AsInteger:=Pin2; mainclientsform.ADOTable7.FieldByName('vid_kartu').asstring:=vid; mainclientsform.ADOTable7.FieldByName('ostatok').AsFloat:=ostatok; mainclientsform.ADOTable7.post; id_kod:=mainclientsform.ADOTable7.FieldByName('id_kartochhka').AsInteger; mainclientsform.ADOTable6.Active:=true; mainclientsform.ADOTable6.Insert; mainclientsform.ADOTable6.FieldByName('id_kartochhka').AsInteger:=id_kod; mainclientsform.ADOTable6.FieldByName('god').AsInteger:=god; mainclientsform.ADOTable6.FieldByName('sekretnoe_slovo').AsString:=sekretnoe_slovo; mainclientsform.ADOTable6.FieldByName('fam').AsString:=fam; mainclientsform.ADOTable6.FieldByName('name').AsString:=name; mainclientsform.ADOTable6.FieldByName('otchestvo').AsString:=otchestvo; mainclientsform.ADOTable6.post;end;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Label7: TLabel; Edit2: TEdit; UpDown1: TUpDown; Edit3: TEdit; Edit4: TEdit; UpDown2: TUpDown; Edit5: TEdit; UpDown3: TUpDown; Edit6: TEdit; UpDown4: TUpDown; Edit7: TEdit; Label2: TLabel; Label3: TLabel; procedure RzBitBtn4Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn1Click(Sender: TObject);begin{CheckBox1.Checked:=true;CheckBox2.Checked:=true;CheckBox3.Checked:=true;CheckBox4.Checked:=true;CheckBox6.Checked:=true;CheckBox7.Checked:=true;CheckBox9.Checked:=true;CheckBox10.Checked:=true;RzCheckBox12.Checked:=true;RzCheckBox13.Checked:=true;RzCheckBox14.Checked:=true;RzCheckBox15.Checked:=true;RzCheckBox16.Checked:=true;RzCheckBox17.Checked:=true;RzCheckBox18.Checked:=true;RzCheckBox19.Checked:=true;}end;procedure Tparampoik.RzBitBtn2Click(Sender: TObject);begin{RzCheckBox16.Checked:=false;RzCheckBox17.Checked:=false;RzCheckBox1.Checked:=false;RzCheckBox2.Checked:=false;RzCheckBox3.Checked:=false;RzCheckBox4.Checked:=false;RzCheckBox6.Checked:=false;RzCheckBox7.Checked:=false;RzCheckBox9.Checked:=false;RzCheckBox10.Checked:=false;RzCheckBox12.Checked:=false;RzCheckBox13.Checked:=false;RzCheckBox14.Checked:=false;RzCheckBox15.Checked:=false;RzCheckBox18.Checked:=false;RzCheckBox19.Checked:=false;}end;procedure Tparampoik.RzBitBtn3Click(Sender: TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;beginMainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; //mainclientsform.ADOQuery1.Active :=true; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender: TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender: TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime; parol:integer;begin{flagsort:=false;} MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit1.Text<>'' then begin srtkl := edit1.Text;end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информация о клиента: '+edit1.Text; stroka_SQL:='select * from client where (client.fam like :P1)'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=2 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; P1.Value := timenach; P2.Value := timekon;sqlwhere:= ' where (razresh.date_dost > :P1) and (razresh.date_dost < :P2)'; stroka_SQL:='select * from razresh'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); ChildTemplateForm.Label1.Caption:='Информация о имевших место разрешениях '; if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=5 then begin id_zapros:=strtoint(edit1.Text); mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.Insert; mainclientsform.ADOTable8.FieldByName('id_zapros').AsInteger:=id_zapros; mainclientsform.ADOTable8.FieldByName('status_dostupa').AsString:='n'; mainclientsform.ADOTable8.FieldByName('status').AsString:='ожидание'; mainclientsform.ADOTable8.FieldByName('date_dost').AsDateTime:=now; mainclientsform.ADOTable8.post; id_razresh:=mainclientsform.ADOTable8.FieldByName('id_razresh').AsInteger; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftinteger;srtkl:='%'+ srtkl+'%';P1.Value:=id_zapros; P1.Size:=4; stroka_SQL:='select * from zapros where (zapros.id_zapros = :P1)'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end;if mainclientsform.ADOQuery2.RecordCount<>0 thenbegin id_client:=mainclientsform.ADOQuery2.FieldByName('id_client').AsInteger; parol:=mainclientsform.ADOQuery2.FieldByName('parol').AsInteger; mainclientsform.ADOTable1.Active:=true; mainclientsform.ADOTable1.Insert; mainclientsform.ADOTable1.FieldByName('id_zapros').AsInteger:=id_zapros; mainclientsform.ADOTable1.FieldByName('id_client').AsInteger:=id_client; mainclientsform.ADOTable1.FieldByName('id_razresh').AsInteger:=id_razresh; mainclientsform.ADOTable1.post; mainclientsform.ADOTable6.Active:=true; mainclientsform.ADOTable6.First; a:=0; for i := 1 to mainclientsform.ADOTable6.RecordCount do begin if mainclientsform.ADOTable6.FieldByName('id_client').AsInteger=id_client thenbegin a:=mainclientsform.ADOTable6.FieldByName('sekretnoe_slovo').asinteger; if parol=mainclientsform.ADOTable6.FieldByName('sekretnoe_slovo').asinteger then begin a:=1; end else showmessage('В доступе отказано');end; mainclientsform.ADOTable6.Next; end; mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.First; for i := 1 to mainclientsform.ADOTable8.RecordCount do begin if mainclientsform.ADOTable8.FieldByName('id_razresh').AsInteger=id_razresh then if a=1 then begin mainclientsform.ADOTable8.Edit;mainclientsform.ADOTable8.FieldByName('status_dostupa').asstring:='y'; mainclientsform.ADOTable8.Next; end; end;end;end;end;end.

Список литературы

1.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
2.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
3.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
4.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
5.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
6.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
7.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
8.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
9.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
10.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
11.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
12.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
13.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
14.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.
15.Дайан А. и др. Маркетинг. М., Экономика, 1993.
16.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
17.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
18.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
19.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
20.Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
21.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
22.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997
23.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
24.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.
25.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
26.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
27.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COM
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
Сколько стоит
консультация по подготовке материалов?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТ, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2018