Курсовик. ГордеевКурсовой проект(1)(1). Разработка информационной подсистемы для ведения реестра физических лиц для военкомата
 Скачать 0.92 Mb.
|
|
2.4 Техническое обеспечение Техническое обеспечение - комплекс технических средств, предназначенных для работы информационной системы, а также соответствующая документация на эти средства и технологические процессы Комплекс технических средств составляют: компьютеры любых моделей; устройства сбора, накопления, обработки, передачи и вывода информации; устройства передачи данных и линий связи; оргтехника и устройства автоматического съема информации; эксплуатационные материалы и др. Документацией оформляются предварительный выбор технических средств, организация их эксплуатации, технологический процесс обработки данных, технологическое оснащение. Документацию можно условно разделить на три группы: общесистемную, включающую государственные и отраслевые стандарты по техническому обеспечению; специализированную, содержащую комплекс методик по всем этапам разработки технического обеспечения; нормативно-справочную, используемую при выполнении расчетов по техническому обеспечению. К настоящему времени сложились две основные формы организации технического обеспечения (формы использования технических средств): централизованная и частично или полностью децентрализованная. Централизованное техническое обеспечение базируется на использовании в информационной системе больших ЭВМ и вычислительных центров. Децентрализация технических средств предполагает реализацию функциональных подсистем на персональных компьютерах непосредственно на рабочих местах. Перспективным подходом следует считать, по-видимому, частично децентрализованный подход - организацию технического обеспечения на базе распределенных сетей, состоящих из персональных компьютеров и большой ЭВМ для хранения баз данных, общих для любых функциональных подсистем. Учитывая системные требования базы данных и программной среды, можно определить следующие технические требования для нормальной работы информационной подсистемы «Регистрации и учета призывников и солдат» Минимальные требования к техническим характеристикам ПК: * Процессор – Intel Pentium IV (1.5 ГГц); * Объем оперативной памяти – 512 Мб; * Жесткий диск – 20 Гб; * Операционная система – Windows XP (SP2 или SP3). Рекомендуемые требования к техническим характеристикам ПК: * Процессор – Intel Pentium D (3 ГГц); * Объем оперативной памяти – 2 Гб; * Жесткий диск – 300 Гб; * Операционная система – Windows (SP3; 7). Заключение Главным результатом проведенной работы является создание функционирующей БД, которая выполняет требуемый круг задач, с которыми сталкиваются сотрудники военкомата. Реализация данного проекта была проведена без привлечения мощных средств работы с базами данных, которые очень громоздки, поскольку носят универсальный характер и к тому же требуют необходимую базу знаний по теории баз данных. Использование мощных средств Delphi 7 по созданию приложений работающих в операционной системе Windows и в частности приложений баз данных, позволило создать программный продукт максимально ориентированный на конечного пользователя, который не искушен в вопросах теории баз данных. Вся необходимая работа по осуществлению методов доступа к информации, хранимой в базе данных, её модификации, поддержании базы данных в целостном виде скрыта внутри и пользователю нет необходимости знать о ней, чтобы успешно решать весь круг возникающих задач, связанных с использованием информации хранимой базе данных. Более того, программный интерфейс максимально облегчает работу по обращению с базой данных. Все функции, выполняемые БД, были тщательным образом проверены и протестированы в процессе разработки и их работа гарантируется. Данный продукт без сомнения может конкурировать с существующей на данный момент базой данных и средствами её управления. Список использованных источников С. Бобровский С.- П. 2001г. «DELPHI 5» - Москва, 548 с. А.Д. Хоменко «Основы современных компьютерных технологий». М. 2000г – Москва, 380 с. А.Я.Архангальский «Программирование в Delphi 5», Москва 2000г. С.Н.Кандзюба, В.Н.Громова «DELPHI 5», Петербург 2003, 568 с. 5. Марко Кэнту «DELPHI 5», Издательство "ДиаСофт", 2001. – 276 с. 2003. 6. В.Гофман, А.Хаменко «Работа с БД в DELPHI»:Электроника, 2002– 452 с. К.Дэйт «Введение в системы баз данных» К.2000г:Питер, 2000.-644 с. 8. Гофман В. Э., Хомоненко А. Д. Delphi: быстрый старт. – СПб.:БХВ-Петербург,2002. 9. Дарахвелидзе П.Г., Марков Е.Н. Программирование в Delphi 5.-СПб.: БХВ-Петербург, 2004.-748 с.:ил. 10. Кандзюба С.П., Громов В.Н. Delphi. Базы данных и приложения. Лекции и упражнения. – К.: Издательство "ДиаСофт", 2001. – 576 с. 11. Контур Д.С. "Защита компьютеров и информации от несанкционированного доступа" - М.: Электроника, 1985. -257с. 12.Стив Тейксейра, Ксавье Пачеко Delphi. Руководство разработчика, том 1. Основные методы и технологии программирования: Пер. с англ.: Уч. пос. – М.: Издательский дом "Вильямс", 2000. - 832 с.: ил. – Парал. тит. англ. 13.Стив Тейксейра, Ксавье Пачеко Delphi. Руководство разработчика, том 2. Разработка компонентов и программирование баз данных: Пер. с англ.: Уч. пос. – М.: Издательский дом "Вильямс", 2000. – 992 с.: ил. – Парал. тит. англ. 14. А. Жуков Изучаем Delphi- СПб: Питер, 2000 – 352 с.: ил. 15. Борис Карпов Delphi: специальный справочник – СПб.: Питер, 2001.-688 с. : ил. Приложение Процедура авторизации на главном модуле программы (Unit1) реализована следующей процедурой: procedure TForm1.Button2Click(Sender: TObject); var F: TextFile; begin if Edit1.Text ='' then ShowMessage('Введитеновыйпароль') else begin AssignFile(F,'Password.vn'); Rewrite(F); pas:=Edit1.Text; Writeln(F,pas); CloseFile(F); Application.MessageBox('Пароль пользователя изменен','Военкомат'); Edit1.Text:=''; end; end; Подобной процедурой реализована возможность смены пароля(Unit1): procedure TForm1.Button2Click(Sender: TObject); var F: TextFile; begin if Edit1.Text ='' then ShowMessage('Введите новый пароль') else begin AssignFile(F,'Password.vn'); Rewrite(F); pas:=Edit1.Text; Writeln(F,pas); CloseFile(F); Application.MessageBox('Пароль пользователя изменен','Военкомат'); Edit1.Text:=''; end; end; Проверка призывника на состояние здоровья осуществляется следующим методом (Unit2): if DBGrid1.DataSource.DataSet.FieldByName('Medobsledovanie').Value= 'Негоден' then begin if Application.MessageBox('Призывникнездоров! Наслужбупризватьневозможно','Военкомат',MB_OK) =id_ok then Form2.Show; end else Begin Form4.DBGrid1.DataSource.DataSet.Insert; Form4.DBGrid1.DataSource.DataSet.FieldbyName('FIO_Priziv').AsString:=Form2.DBGrid1.DataSource.DataSet.FieldByName('FIO').AsString; Form4.DBGrid1.DataSource.DataSet.FieldByName('Adres').AsString:=Form2.DBGrid1.DataSource.DataSet.FieldByName('Adres').AsString; Form4.DBGrid1.DataSource.DataSet.FieldByName('Telephone').AsString:=Form2.DBGrid1.DataSource.DataSet.FieldByName('Telephone').AsString; Form4.DBGrid1.DataSource.DataSet.FieldByName('Data_roz').AsString:=Form2.DBGrid1.DataSource.DataSet.FieldByName('Data_rozhdeniya').AsString; Form4.DBGrid1.DataSource.DataSet.Post; DBGrid1.DataSource.DataSet.Delete; Перевод призывника в ряды армии осуществляется следующей процедурой (Unit2): procedure TForm2.BitBtn3Click(Sender: TObject); begin if Edit2.Text= '' then ShowMessage('Введите дату'); RvProject1.SetParam('FIO',DBGrid1.DataSource.DataSet.FieldbyName('FIO').AsString); RvProject1.SetParam('Adres',DBGrid1.DataSource.DataSet.FieldbyName('Adres').AsString); RvProject1.SetParam('data', Edit2.Text); RvProject1.Execute; end; Осуществление поисков на формах выглядит следующим образом (пример поиска на форме «Солдаты») (Unit4) procedure TForm4.Edit1Change(Sender: TObject); begin if Length(Edit1.Text) > 0 then begin DataModule3.Sluzhba.Filtered:=false; DataModule3.Sluzhba.Filter:= 'FIO LIKE '+ #39 + Edit1.Text + '%' + #39; DataModule3.Sluzhba.Filtered:=true; end else DataModule3.Prizivnik.Filtered:=false; end; Перевод солдаты в солдатов запаса осуществляется следующей процедурой (Unit4): procedure TForm4.BitBtn1Click(Sender: TObject); begin Form9.DBGrid1.DataSource.DataSet.Insert; Form9.DBGrid1.DataSource.DataSet.FieldbyName('FIO').AsString:=Form4.DBGrid1.DataSource.DataSet.FieldByName('FIO_priziv').AsString; Form9.DBGrid1.DataSource.DataSet.FieldByName('Adres').AsString:=Form4.DBGrid1.DataSource.DataSet.FieldByName('Adres').AsString; Form9.DBGrid1.DataSource.DataSet.FieldByName('Telephone').AsString:=Form4.DBGrid1.DataSource.DataSet.FieldByName('Telephone').AsString; Form9.DBGrid1.DataSource.DataSet.FieldByName('Data_r').AsString:=Form4.DBGrid1.DataSource.DataSet.FieldByName('Data_roz').AsString; Form9.DBGrid1.DataSource.DataSet.Post; DBGrid1.DataSource.DataSet.Delete; end; Процедура автоматической проверки заполненных полей медицинского обследования призывников (Unit3). procedure TForm3.Button1Click(Sender: TObject); begin if (DBGrid1.DataSource.DataSet.FieldByName('Hirurg').Value='Годен') AND (DBGrid1.DataSource.DataSet.FieldByName('Terapevt').Value='Годен') AND (DBGrid1.DataSource.DataSet.FieldByName('Psiholog').Value='Годен') AND (DBGrid1.DataSource.DataSet.FieldByName('Oculist').Value='Годен') AND (DBGrid1.DataSource.DataSet.FieldByName('Lor').Value='Годен') then begin Form2.DBGrid1.DataSource.DataSet.Edit; Form2.DBGrid1.DataSource.DataSet.FieldByName('Medobsledovanie').Value:='Годен'; Form2.DBGrid1.DataSource.DataSet.Post; end else if (DBGrid1.DataSource.DataSet.FieldByName('Hirurg').Value='') OR (DBGrid1.DataSource.DataSet.FieldByName('Terapevt').Value='') OR (DBGrid1.DataSource.DataSet.FieldByName('Psiholog').Value='') OR (DBGrid1.DataSource.DataSet.FieldByName('Oculist').Value='') OR (DBGrid1.DataSource.DataSet.FieldByName('Lor').Value='') then begin Form2.DBGrid1.DataSource.DataSet.Edit; Form2.DBGrid1.DataSource.DataSet.FieldByName('Medobsledovanie').Value:='Непрошел'; Form2.DBGrid1.DataSource.DataSet.Post; end else begin Form2.DBGrid1.DataSource.DataSet.Edit; Form2.DBGrid1.DataSource.DataSet.FieldByName('Medobsledovanie').Value:='Негоден'; Form2.DBGrid1.DataSource.DataSet.Post; end; Form2.Show; Form3.Close; end; Удаление солдата запаса осуществлено следующим методом (Unit9) procedure TForm9.Button2Click(Sender: TObject); var ret:integer; begin ret := Application.MessageBox(PChar('Выдействительнохотитеудалитьзапись?'),'Подтверждениеудаления',MB_YESNO + MB_ICONQUESTION); if ret = IDYES then DBGrid1.DataSource.DataSet.Delete else exit; end; |