Система учета компьютеров и комплектующих на предприятии

д.Locate производит поиск по любому полю; поле или поля, по которым производится поиск, могут не только не входить в текущий индекс, но и не быть индексными вообще.Метод Lookup записывается следующей функцией и имеет следующее значение: function Lookup(const KeyFields: String; const KeyValues: Variant; const ResultFields: String): Variant;Метод Lookup находит запись, удовлетворяющую условию, но не делает ее текущей, а возвращает значения некоторых полей этой записи. Тип результата – Variant или вариантный массив. Независимо от успеха поиска записи указатель текущей записи в НД не изменяется. В отличие от Locate Lookup осуществляет поиск только на точное соответствие критерия поиска и значения полей записи. В KeyFields указывается список полей, по которым необходимо осуществить поиск. При наличии в этом списке более чем одного поля соседние поля разделяются точкой с запятой. KeyValues указывает поисковые значения полей, список которых содержится в KeyFields.Если имеется несколько поисковых полей, каждому i-му полю в списке KeyFields ставится в соответствие i-е значение в списке KeyValues. При наличии одного поля его поисковое значение можно указывать в качестве KeyValues непосредственно; в случае нескольких полей их необходимо приводить к типу вариантного массива при помощи VarArrayOf.Если в результате поиска запись не найдена, метод Lookup возвращает Null. Что можно проверить с помощью оператораIf VarType(LookupResults) = varNull then …В противном случае Lookup возвращает из этой записи значения полей, список которых содержит ResultFields. При этом размерность результата зависит от того, сколько результирующих полей указано в ResultFields:одно поле – результатом будет значение соответствующего типа или Null, если поле в найденной записи содержит пустое значение;несколько полей – результатом будет вариантный массив, число элементов в котором меньше или равно числу результирующих полей (некоторые поля найденной записи могут содержать пустые значения).2. Разработка автоматизированной информационной системы "Система учета компьютеров и комплектующих на предприятии"2.1 Функциональная модельС целью автоматизации рабочего места на предприятии разработано приложение в среде Delphi XE8, которое называется IT_Tech.exe и имеет иконку. Запустить приложение можно двойным кликом мыши или заранее создать ярлык и запустить приложение с помощью ярлыка. Для хранения информации при первом запуске приложения по пути расположения загрузочного модуля будет создан файл с именем IT_DB.mdb, который представляет собой БД формата Microsoft Access.2.2ПроектированиеграфическогопользовательскогоинтерфейсаГлавная формарис.1. Главная формаОписание работы:Отражение основной информации из таблиц БД. На главной форме приложения создана панель меню с основными пунктами по работе с приложением, окно отображения сведений. Отображаемая информация представлена в виде таблицы, а также при перемещении по таблице дополнительные сведения отражаются в поле дополнительных сведений.рис.2. Отбор данных по условиюОтбор данных можно произвести из главной формы при помощи поля поиска по заводскому и инвентарному номерам. Просмотр и редактирование полных сведений возможно при помощи кнопок «Просмотр» и «Изменить».рис.3. Просмотр сведений по ИТ-техникерис.3. Редактирование сведений по ИТ-техникеПриложение позволяет изменить форму презентации данных, сменив вид (Обычный, Табличный) из поля меню.рис.4. Табличная форма представления данныхрис.5.Просмотр общих сведенийМеню Файл программы:рис.6. Меню ФайлМеню Файл содержи пункты: Добавить запись, просмотр, изменить, поиск по, информация о таблице, выход.Все эти пункты меню позволяют получать, добавлять, редактирования информацию по требуемым пользователю параметрам. Меню Вид предназначено для изменения вида отображения данных (обычный – главная форма приложения, табличный – рис. 5).Меню сортировка дает возможность отсортировать данные по выбранному критерию.рис.7.меню СортировкаДля выполнения сложных комбинаций для поиска в приложении есть функция «Поиск по…», позволяющая осуществлять комбинированный поиск по некольким критериям.рис.8. Поиск по…2.3 Установление связи между базой данных и средой программирования Delphi XE8При помощи компонентов вкладки ADO можно связать базу данных с приложением, создаваемым в среде визуального программирования Delphi.Для этого запустим программу Delphi XE8 и, используя компонент ADO Connection, создадим соединение с базой данных (см. рис 9).рис. 9 Окно мастера построения соединения с базой данных через ADO ConnectionЗаключениеДанный проект представляет собой всего лишь демонстрационную очень упрощенную модель АИС «Система учета компьютеров и комплектующих на предприятии», но в этой работе выполнены все основные требования и функции, такие как:поиск и фильтрация данныхнавигация данных по таблицамредактирование и возможности поискаС прибавлением нетрудно трудится в том числе и неопытному пользователю. Она красочно оформлена (добавлены иллюстрации, иконки и т.д.) чтобы пользователю было хорошо и удобно трудится в этой программе. Этот проект быть может конкретнее и тщательнейшим образом разработан позднее, собственно принесет его создателю большую прибыль.Необходимость применения современных ИТ при автоматизации управленческой деятельности объясняется необходимостью получения оперативной информации в режиме реального времени.Каждая АИС в зависимости от назначения имеет дело с той или иной частью конкретного мира, которую принято называть ее предметной областью. Анализ предметной области является необходимым начальным этапом разработки любой АИС.Список литературы.Шумаков П.В. «Delphi 5, и разработка приложений баз данных.» - М.: “Нолидж”.Дейт К. Дж. «Введение в системы баз данных», 6-е изд. – К.: Диалектика, 1998.Гофман В.Э., Хомоненко А.Д. «Delphi. Быстрый старт.» – СПб: БХВ-Петербург, 2003.Мансуров К.Т. Основы программирования в среде Lazarus. М.: НОУ "Интуит", 2010.Алексеев Е.Р., Чеснокова О.В., Кучер Т.В.Программирование на Free Pascal и Lazarus. М.: НОУ "Интуит", 2016.В. Кошелев. Базы данных Access 2007. М. Бином, 2013.Алексеев Е.Р., Чеснокова О.В., Кучер Т.В. Free Pascal и Lazarus. Учебник по программированию. М.: НОУ "Интуит", 2016.Балдин К. В., Уткин В. Б. Информационные системы в экономике. - М. Финансы и статистика, 2013.Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем. Учеб.пособие. – М.: Финансы и статистика, 2004.Гарсиа-Молина Г., Ульман Дж. Системы баз данных. - Изд. дом "Вильямс" М., 2003 – 1088 с.Голицина О.Л., Максимов Н.В., Попов И.И. Базы данных: Учебное пособие. – М.: Формум: ИНФРА-М, 2003. – 352 с.Карабутов Н. Н. Информационные технологии в экономике. - М.: Экономика; 2009.Марков А.С., Лисовский К.Ю. Базы данных. Введение в теорию и методологию. Учебник. - М.: Финансы и статистика, 2011. – 442 с.Родионов И. И., и др. Рынок информационных услуг и продуктов. - М.: МК-Периодика, 2012.Delphi в примерах, играх и программах. Рубанцев Валерий. – М.: Я + R, 2011. – 418.Базы данных и Delphi. Теория и практика. Осипов Д.Л. – СПб.: БХВ-Петербург, 2011. – 752 с.Приложениие АЛистинг кода фильтрации по заводскому номеру:procedure TForm1.FilterEditChange(Sender: TObject);beginIf Length(FilterEdit.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Заводской_номер>'''+FilterEdit.Text+'''';end;Листинг кода фильтрации по 'Инвентарному номеру:procedure TForm1.FilterEdit1Change(Sender: TObject);beginIf Length(FilterEdit1.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Инвентарный_номер>'''+FilterEdit1.Text+'''';end;Выполнение операции «Поиск по…»procedure TForm15.Edit1Change(Sender: TObject);beginIf Length(Edit1.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Наименование_техники>'''+Edit1.Text+'''';end;procedure TForm15.Edit2Change(Sender: TObject);beginIf Length(Edit1.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Заводской_номер>'''+Edit1.Text+'''';end;procedure TForm15.Edit3Change(Sender: TObject);beginIf Length(Edit1.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Инвентарный_номер>'''+Edit1.Text+'''';end;procedure TForm15.Edit4Change(Sender: TObject);beginIf Length(Edit4.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Заводской_номер>'''+Edit4.Text+'''';end;procedure TForm15.Edit5Change(Sender: TObject);beginIf Length(Edit5.Text)>0 then Form1.ADOTable1.Filtered:=Trueelse Form1.ADOTable1.Filtered:=False;Form1.ADOTable1.Filter:='Инвентарный_номер>'''+Edit5.Text+'''';end;Выполнение пункта меню сортировка:procedure TForm1.N33Click(Sender: TObject);beginForm1.ADOTable1.Sort:='Наименование_техники';end;procedure TForm1.N34Click(Sender: TObject);beginForm1.ADOTable1.Sort:='Заводской_номер';end;procedure TForm1.N35Click(Sender: TObject);beginForm1.ADOTable1.Sort:='Инвентарный_номер';end;Выполнение пункта меню добавить запись:procedure TForm1.N7Click(Sender: TObject);begincase MessageDlg('Добавитьзапись?', mtCustom, mbYesNoCancel, 0) of mrYes:Form1.ADOTable1.Insert; mrNo:Abort; mrCancel:Abort;end;Form2.ShowModal;end;Получение сведений о таблице:procedure TForm1.N32Click(Sender: TObject);vars:integer;i:integer;begins:=0;for i:=0 to Form1.ADOTable1.RecordCount-1 do s:=s+1;ShowMessage('Названиетаблицы: '+Form1.ADOTable1.TableName+#13+'Количествозаписей: '+IntToStr(s));end;