д.L ocate производит поиск по любому полю; поле или поля, по которым производится поиск, могут не только не входить в текущий индекс, но и не быть индексными вообще. Метод Lookup записывается следующей функцией и имеет следующее значение: function Lookup (const KeyFields: String; const KeyValues: Variant; const ResultFields: String): Variant;Метод Lookup находит запись, удовлетворяющую условию, но не делает ее текущей, а возвращает значения некоторых полей этой записи. Тип результата — Variant или вариантный массив. Независимо от успеха поиска записи указатель текущей записи в НД не изменяется. В отличие от Locate Lookup осуществляет поиск только на точное соответствие критерия поиска и значения полей записи. В KeyFields указывается список полей, по которым необходимо осуществить поиск. При наличии в этом списке более чем одного поля соседние поля разделяются точкой с запятой.
K eyValues указывает поисковые значения полей, список которых содержится в 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.
Гарсиа-Молина Г., Ульман Дж. Системы баз данных. — Изд. дом & quot;Вильямс" М., 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;
