тестирование системы, выявление и устранение ошибок (7 дней).
6. Первичная информация должна вводиться вручную с использованием экранных форм. Вводится информация из следующих документов: прайс-лист на товары или услуги, список типов товаров и услуг, сведения о клиентах, сведения о заказах. Используются следующие экранные формы: «Данные о товарах», «Тип товара, услуги», «Данные клиентов», «Новый заказ».
. Результатная информация выдается на экран в следующих формах: «Окно запросов по заказам», «Результаты поиска клиентов», «Товары». Данная информация используется сотрудниками по работе с клиентами, причем, для защиты от несанкционированного доступа к персональной информации клиентов необходимо ввести пароль.
. В базе данных должны быть созданы следующие таблицы (таблица 1):
Таблица 1. Список таблиц базы данных
Наименование таблицыСписок полейТип клиентаТип клиентаДанные клиентаКод клиента Тип клиента Ф.И.О. Город Адрес Эл. почта ТелефонТип товара / услугиТип товара / услугиТовары/ УслугиКод товара / услуги Тип товара / услуги Наименование ЦенаЗаказыКод заказа Код клиента Дата заказа Код товара / услуги Количество
Таблицы обновляются по мере поступления новой информации. Таблица «Товары/ Услуги» обновляется по мере поступления товаров или изменения цен, таблица «Данные клиента» поступает по мере появления нового клиента. В среднем, это происходит ежедневно в рабочие дни. Информация в таблицу «Заказы» поступает ежедневно в рабочие дни.
. Режим работы приложения должен быть диалоговый с максимально простым и понятным интерфейсом.
. Использоваться приложение должно ежедневно.
2. Анализ существующих разработок
Для управления информацией о клиентах разработаны и используются CRM (Customer Relationships Management) - системы управления взаимоотношениями с потребителями.
Системы, реализующие эту концепцию, собирают информацию о клиентах фирмы и используют ее в интересах компании путем выстраивания взаимовыгодных отношений с ними.
По прогнозу IDC, рынок программного обеспечения CRM развивается благодаря социальным сетям и облачным технологиям. [2]
Основным фактором, сдерживающим развитие рынка, остается недостаток ресурсов на автоматизацию во многих российских компаниях.
Проблема выбора определяется сложностью выбора CRM-системы из-за нехватки квалифицированных кадров, большого числа конкурирующих предложений на рынке, проблем оценки окупаемости проектов.
Согласно исследованию IDC «Российский рынок программного обеспечения CRM: итоги 2012 года и прогноз на 2013 год» по итогам 2012 года международные поставщики по-прежнему занимают главные позиции на российском рынке программного обеспечения CRM, однако их доля постепенно снижается - с 68.0% в 2011 году до 64.3% в 2012 году. Компания Oracle занимает лидирующее положение на российском рынке программного обеспечения CRM.
Наиболее крупными поставщиками облачных CRM являются Salesforce.com и «Мегаплан».
Заказчики все больше предпочитают внедрять с нуля все основные модули CRM для автоматизации всего процесса взаимодействия с клиентами - от управления продажами и закупками до планирования маркетинговых кампаний.
Информация о стоимости популярных CRM взята с сайтов разработчиков, сайта www.crmonline.ru и сведена в таблицу 2. [3]
Таблица 2. Стоимость CRM
КомпанияCRM системаСтоимость одной лицензииКомпасКомпас CRM7 000 р.TerrasoftTerrasoft Sales8 503 р.1C и 1С Рарус1С: Предприятие 8. CRM ПРОФ10 800 р.WinPeakWinPeak CRM Standard 4.011 520 р.TerrasoftTerrasoft CRM14 913 р.Monitor CRMMonitor CRM 3.5 / Услуги15 200 р.1С: Бухучет и ТорговляБИТ:CRM 8. Управление взаимоотношениями с клиентами15 300 р.
Кроме стоимости лицензии нужно учитывать еще и дополнительные затраты. Стоимость внедрения может варьироваться от 0 до 300%% от общей стоимости лицензий. Часто предлагают внедрение за 20-50%% от стоимости лицензий (только системы CRM начального и среднего уровня). Редко стоимость внедрения учитывается в общей цене решения, без выделения.
Ставки консультантов по системам CRM начинаются с 25 долларов/час и достигают 100 долларов в час и более.
Еще нужно учесть затраты на обучение специалистов и администратора системы CRM.
Стоимость доработки системы под требования компании, установка связи с ERP-системами и системами документооборота может меняться в широких пределах у различных компаний. Обычно стоимость определяется трудоемкостью доработки, уровнем оплаты программистов и именем компании.
Необходимость покупки дополнительного аппаратного обеспечения возникает в проектах, где требуется использовать выделенный сервер для работы серверной части CRM, включая промышленную СУБД.
Стоимость эксплуатации, платного сопровождения и обновлений новыми версиями также немаловажная часть общей стоимости CRM-решения. Эти затраты отличаются от «единичной» стоимости решения для покупателя тем, что производятся в течение определенного времени после покупки, и размером затрат можно управлять в определенных пределах.
Если в состав решения входит Call-центр, то его стоимость может значительно повлиять на удорожание системы.
Стоимость готовых решений велика для небольшой фирмы, функциональность в основном избыточна. По этой причине был выбран способ разработки ИС собственными силами.
3. Информационное обеспечение задачи
.1 Используемые классификаторы и системы кодирования
Основные понятия, термины и определения, используемые при классификации установлены ГОСТ 6.01.1-87 «Единая система классификации и кодирования технико-экономической информации. Основные положения».
Классификация - разделение множества объектов на подмножества по сходству или различию в соответствии с выбранными методами.
Уточняя понятие классификации, можно сказать, что это последовательное распределение множества объектов на отдельные классы по наиболее общим для каждого уровня признакам. Признак классификации - это свойство или характеристика объекта, по которому производится классификация. Наиболее часто применяются следующие признаки:
-сырьевой;
-технологический;
-назначение;
-физико-химические свойства.
В зависимости от характера выбранных признаков различают естественные и вспомогательные классификации. Естественные осуществляются по таким признакам как состав, структура, свойства, характеризующие внутреннюю общность предметов данной группы. Вспомогательные осуществляются по внешним признакам - они служат для придания множеству товаров определенного порядка.
Различают два метода классификации:
-фасетный
-иерархический;
Фасетный метод классификации объектов по одному признаку на отдельные независимые подразделения - фасеты.
Иерархический метод классификации - последовательное разделение множества объектов на подчиненные классификационные группировки.
Разработка системы классификации сопровождается присвоением каждому наименованию номенклатурного номера. Величина кода зависит от принятой системы классификации и системы цифр, которым обозначается каждый класс.
Кодирование - образование и присвоение кода классификационной группировке и/ли объекту классификации.
Код - знак или совокупность знаков, применяемых для обозначения классификационной группировки и / или объекта классификации.
Цель кодирования - систематизация объектов путем их идентификации, ранжирования и присвоения условного обозначения (кода), по которому можно найти и распознать любой объект среди множества других.
Длина кода - число знаков в коде без учета пробелов.
Основными методами кодирования являются:
Порядковый - образование и присвоение кода из чисел натурального ряда. Самый простой и распространенный метод кодирования, не требующий определенных знаний в этой области.
Серийно-порядковый - образование и присвоение кода из чисел натурального ряда, закрепление отдельных серий и диапазонов этих чисел за объектами классификации с определенными признаками.
Последовательный метод кодирования - образование и присвоение кода классификационной группировки и|или объекта классификации с использованием кодов последовательно расположенных подчиненных группировок, полученных при иерархическом методе классификации. Высокая степень упорядочения и возможность выявления общих и частных признаков.
Параллельный метод кодирования - образование и присвоение кода классификационной группы и|или объекта классификации с использованием ков независимых группировок, полученных при фасетном методе классификации.
Совокупность правил и методов кодирования классификационных группировок и объектов классификации заданного множества называется системой кодирования.
Классификатор - официальный документ, представляющий собой систематизированный свод наименований и кодов классификационных группировок и / или объектов классификации.
Емкость классификатора - наибольшее число позиций, которое может содержать классификатор.
Категория классификатора указывает на принадлежность классификатора к определенной группе в зависимости от уровня его утверждения и сферы применения. Различают классификаторы общероссийские, отраслевые и предприятий.
Для ИС разработаны следующие виды классификаторов:
Классификатор «код товара, услуги» вводится для идентификации товара, услуги:
1.Система кодирования - порядковая;
2.Количество признаков классификации - 1;
.Объекты кодирования - товары, услуги;
В таблице 3 представлен классификатор товаров и услуг.
Таблица 3/ Классификатор товаров, услуг
НаименованиеКодТовары, услуги1-100
Классификатор «код клиента» вводится для идентификации клиентов:
1.Система кодирования - порядковая;
2.Количество признаков классификации - 1;
.Объекты кодирования - клиенты;
В таблице 4 представлен классификатор клиентов.
Таблица 4. Классификатор клиентов
НаименованиеКодКлиенты1-1000
Классификатор «код заказа» вводится для идентификации заказов:
1.Система кодирования - порядковая;
2.Количество признаков классификации - 1;
.Объекты кодирования - заказы;
В таблице 5 представлен классификатор заказов.
Таблица 5. Классификатор заказов
НаименованиеКодЗаказы1-1000
3.2 Характеристика первичных документов с нормативно-справочной и входной оперативной информацией
Для ввода данных используются входные экранные формы «Данные клиента», «Новый заказ» и «Данные о товарах».
К нормативно-справочной информации относятся таблицы «Тип клиента», «Тип товара-услуги» и «Товары-услуги». Источником получения информации таблицы является ИС. Частота возникновения - по мере необходимости. Содержание таблицы «Тип клиента» не меняется. «Тип товара-услуги» меняется по мере появления или удаления типов товаров и услуг при изменении маркетинговой политики компании. Таблица «Товары-услуги» меняется по мере появления или удаления товаров и услуг при изменении маркетинговой политики компании примерно раз в месяц.
К входной оперативной информации относятся таблицы «Данные клиента» и «Заказы». Источником получения информации таблицы - является клиент и ИС. Частота возникновения - несколько раз в день.
Реквизитный состав таблицы «Тип клиента»:
-Тип клиента.
-Тип товара-услуги.
Реквизитный состав таблицы «Товары-услуги»:
-Код товара, услуги,
-Тип товара, услуги,
-Стоимость.
Реквизитный состав таблицы «Данные клиента»:
-Код клиента,
-Тип клиента,
-Ф.И.О.,
-Город,
-Адрес.
-Телефон.
Реквизитный состав таблицы «Заказы»:
-Код заказа,
-Код клиента,
-Дата заказа,
-Код товара, услуги,
-Количество.
.3 Характеристика базы данных
На рисунке 1 представлена схема данных ИС управления информацией о клиентах.
Схема данных состоит из пяти таблиц: три справочника и две таблицы: справочник «Тип_клиента», справочник «Тип_товара_услуги», справочник «Товары_услуги», таблица «Данные_клиента», таблица «Товары_услуги», таблица «Заказы».
Рис. 1. Схема данных ИС управления информацией о клиентах
Справочник «Тип_товара_услуги» связан со справочником «Товары_услуги», по ключевому полю «Тип_товара_услуги». При изменении справочника, то есть, добавлении нового типа продукции, данные о нём, автоматически вносятся в справочник товаров и услуг.
Справочник «Тип_клиента» связан с таблицей «Данные_клиента» по полю «Тип_клиента». При изменении справочника, то есть, добавлении нового типа клиента, данные о нём, автоматически вносятся в таблицу.
Справочник «Товары_услуги» связан с таблицей «Заказы» по ключевому полю «Код_товара_услуги».
Таблица «Данные_клиента» связана с таблицей «Заказы» по ключевому полю «Код_клиента».
Ниже в таблицах с 6 по 10 представлены характеристики полей и размер записей в них для всех таблиц базы данных ИС.
Таблица 6. Поля справочника «Тип_клиента»
НазваниеТипРазмерОсобенностиТип_клиентатекстовый50первичный ключ
Таблица 7. Поля справочника «Тип_товара_услуги»
НазваниеТипРазмерОсобенностиТип_товара_услугитекстовый50первичный ключ
Таблица 8. Поля справочника «Товары_услуги»
НазваниеТипРазмерОсобенностиКод_товара_услугисчетчикпервичный ключТип_товара_услугитекстовый50вторичный ключ, подстановка из таблицы «Тип_товара_услуги»Стоимостьденежный
Таблица 9
Поля справочника «Данные_клиента»
НазваниеТипРазмерОсобенностиКод_клиентасчетчикпервичный ключТип_клиентатекстовый50вторичный ключ, подстановка из таблицы «Тип_клиента»Ф.И.О.текстовый50Городтекстовый50Адрестекстовый50Телефонтекстовый15Ввод по шаблону 9-999-999-99-99
Таблица 10. Поля справочника «Заказы»
НазваниеТипРазмерОсобенностиКод_заказасчетчикпервичный ключКод_клиентаДлинное целоевторичный ключ, подстановка из таблицы «Данные_клиента»Дата_заказаДата/времяКраткий формат даты, Шаблон ДД.ММ.ГГГГКод_товара_услугиДлинное целоевторичный ключ, подстановка из таблицы «Товары_услуги»КоличествоЦелое
Таким образом, поля в таблицах базы данных ИС не являются избыточными по их количеству и размерности, взаимосвязь между таблицами позволяет осуществить преобразование информационных объектов в соответствии с информационной моделью.
.4 Характеристика результатной информации
К результативной информации относятся запросы.
Структура запросов представлена в таблицах 11-16.
Таблица 11. Запрос «Заказы клиентов»
ПолеИсточникСортировкаГруппировка, формулаКод_клиента«Данные клиента»По возрастаниюФ.И.О.«Данные клиента»Код_заказа«Заказы»Дата_заказа«Заказы»Наименование«Товары_услуги»Цена«Товары_услуги»Количество«Заказы»Стоимость-=Цена*Количество
Таблица 12. Запрос «Заказы физлиц»
ПолеИсточникСортировкаГруппировка, формулаТип_клиента«Данные клиента»«физ лицо»Ф.И.О.«Данные клиента»Код_заказа«Заказы»Наименование«Товары_услуги»Цена«Товары_услуги»Количество«Заказы»Стоимость-По возрастанию=Цена*КоличествоТаблица 13. Запрос «Заказы юрлиц»
ПолеИсточникСортировкаГруппировка, формулаТип_клиента«Данные клиента»«юр лицо»Ф.И.О.«Данные клиента»Код_заказа«Заказы»Наименование«Товары_услуги»Цена«Товары_услуги»Количество«Заказы»Стоимость-По возрастанию=Цена*Количество
Таблица 14. Запрос «Итоги_заказов физлиц»
ПолеИсточникСортировкаГруппировка, формулаТип_клиентаЗапрос «Заказы_физлиц»ГруппировкаФ.И.О.Запрос «Заказы_физлиц»ГруппировкаИтоги по заказамЗапрос «Заказы_физлиц»По возрастаниюСумма по полю Стоимость заказа
Таблица 15. Запрос «Итоги_заказов юрлиц»
ПолеИсточникСортировкаГруппировка, формулаТип_клиентаЗапрос «Заказы_юрлиц»ГруппировкаФ.И.О.Запрос «Заказы_юрлиц»Группировка
Таблица 16. Запрос «Количество_заказов»
ПолеИсточникСортировкаГруппировка, формулаФ.И.О.«Данные_клиента»ГруппировкаИтоги по заказам«Заказы»По возрастаниюКоличество по полю Код заказа
4. Программное обеспечение задачи
.1 Общие положения (дерево функций и сценарий диалога)
На рисунке 2 приведена схема иерархии функций обработки данных.
На схеме выделены и детализированы два подмножества функций:
-служебные функции: вызов заставки и основных экранных форм;
-основные функции: ввод и обработка первичной информации, форматирование результативных документов.
Выявление состава иерархии функции позволяет разработать структуру сценария диалога, дающего возможность определить состав кадров диалога, содержание каждого кадра и их соподчиненность.
Дерево функций включает в себя основные функции: ведение справочников - их просмотр, ввод первичных документов, формирование результативных документов. Данные из первичных документов вводятся в таблицы БД. Данные из таблиц с результативной информацией просматриваются.
Экранные формы для формирования запросов только просматриваются.
Рис. 2. Дерево функций
На рисунке 3 представлен сценарий диалога.
Работа с программой начинается с вызова заставки. В рамках заставки можно вызвать любой пункт из меню. Если выбран пункт Клиенты - Данные клиентов, то система запрашивает пароль (134).
Рис. 3. Сценарий диалога
4.2 Структурная схема пакета (дерево вызова процедур и программ)
Дерево вызова процедур представлено на рисунке 4.
Рис. 4. Дерево вызова процедур
5. Технологический процесс решения задачи и его описание
Главная форма - заставка представлена на рисунке 5.
Рис. 5. Заставка
При выборе пункта Клиенты-Данные о клиентах появляется форма ввода пароля (рис. 6)
Рис. 6. Форма ввода пароля
Программный код представлен ниже:
Процедура нажатия кнопки ОК:
procedure TPasswordDlg.OKBtnClick (Sender: TObject);Password. Text='134' Then // Если набран пароль 134
Form_dannie. Show; // Показать форму
// Данные клиентов
PasswordDlg. Password. Text:=''; // Очистить окно ввода пароля
PasswordDlg. Close; // Закрыть форму;
Процедура нажатия кнопки Отмена:
TPasswordDlg. CancelBtnClick (Sender: TObject);. Password. Text:=''; // Очистить окно ввода пароля
PasswordDlg. Close; // Закрыть форму;
Процедура появления формы
procedure TPasswordDlg. FormShow (Sender: TObject);. CanFocus; // Фокус ввода - в поле ввода пароля;
Форма ввода и редактирования данных клиентов представлена на рисунке 7.
Рис. 7. Форма ввода и редактирования данных клиентов
Форма обеспечивает возможность поиска по любому полю. При нажатии кнопки Поиск открывается форма с данными клиентов в табличном виде. (рис. 8) Также можно просмотреть все записи при нажатии кнопки Просмотр в таблице.
Рис. 8. Табличный просмотр сведений о клиентах
При закрытии формы фильтр отменяется.
В данной форме есть функция сортировки по любому полю. Программный код приведен ниже.
TForm_Filter. Button1Click (Sender: TObject);.dannie. IndexFieldNames:=Combobox1. Text;;
При закрытии формы сортировка происходит по ключевому полю.
Для каждой таблицы на форме предусмотрен компонент DBNavigator для навигации по записям. Ввод данных предусмотрен только в форме с полями ввода, в таблице - только просмотр.
При выборе пункта меню Товары открывается форма (рис. 9)
Рис. 9. Форма Данные о товарах
В ней можно добавлять, удалять и редактировать данные.
Для удобства есть кнопки перехода к табличному виду (рис. 10).
Рис. 10. Форма Товары
Для удобства предусмотрена возможность сортировки по любому полю, а также редактирование.
Форма Заказы клиентов позволяет просмотреть все заказы (рис. 11)
Рис. 11. Форма Заказы клиентов
Все результаты запросов доступны на этой же форме только для просмотра. Меняется лишь заголовок формы.
Форма Новый заказ представлена на рисунке 12. Программный код вызова формы представлен ниже.
procedure TForm1.N14Click (Sender: TObject);
Form_New_Zakaz. Show; // Открыть форму ввода нового заказа
DataModule2.zakazi. Edit; // Для редактирования
DataModule2.zakazi. Insert; // Добавить запись
end;
Рис. 12. Форма Новый заказ
Дата заказа добавляется автоматически - текущая дата. Кнопка сохранить сохраняет данные. Ее программный код:
procedure TForm_New_Zakaz. Button1Click (Sender: TObject);.zakazi_3. Value:=Date; // Автоматическое
// добавление даты
DataModule2.zakazi. Post; // Сохранение таблицы
Button1. Enabled:=false; // Кнопка недоступна;
Пункт Тип товара открывает форму редактирования справочника (рис. 13)
Рис. 13. Форма Тип товара / услуги
Пункт Выход закрывает программу.
Заключение
В курсовом проекте была спроектирована ИС «Управление информацией о клиентах». Приложение использует базу данных Access под управлением программы на Delphi. База данных состоит из 5 таблиц.
Доступ к информации о клиентах защищен паролем.
Решены следующие задачи:
-Проанализированы существующие разработки CRM. Выбрана разработка собственными силами для снижения стоимости.
-Разработана система кодирования.
-Описаны справочники, входные и выходные документы.
-Разработаны дерево функций и сценарий диалога.
-Описан технологический процесс решения задачи.
Программа протестирована и работает без сбоев.
Список используемой литературы
1.Н. Селищев 1С: Предприятие 8.2. Управление торговлей. - СПб.: Питер, 2011. - 400 с.
2.СПЕЦИАЛЬНОЕ ИССЛЕДОВАНИЕ Российский рынок программного обеспечения CRM: итоги 2014 года и прогноз на 2015 год, Людмила Калабина. URL: https://docs.google.com/file/d/0BzQy9ZwUn-JeNFp4bmRnNUhSd0U/edit (Дата доступа 08.03.2014)
3.CRM-online. Независимый CRM-портал URL: #"justify">Приложение
Программный кодmain;
interface
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls;
= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TMenuItem;N11Click (Sender: TObject);N4Click (Sender: TObject);N5Click (Sender: TObject);N6Click (Sender: TObject);N7Click (Sender: TObject);N8Click (Sender: TObject);N9Click (Sender: TObject);N10Click (Sender: TObject);N2Click (Sender: TObject);N14Click (Sender: TObject);N12Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm1;
{$R *.dfm}
TForm1.N11Click (Sender: TObject);;;
procedure TForm1.N4Click (Sender: TObject);. Show;. Password. Focused;. Password. Text:='';;
TForm1.N5Click (Sender: TObject);_okno. Show;_okno. Caption:='Заказы клиентов';_okno. Table. DataSource:=DataModule2.ds_vse_zakazi;_okno. Nav. DataSource:=DataModule2.ds_vse_zakazi;;
TForm1.N6Click (Sender: TObject);_okno. Show;_okno. Caption:='Количество заказов';
Form_okno. Table. DataSource:=DataModule2.ds_kolvo_zakazov;_okno. Nav. DataSource:=DataModule2.ds_kolvo_zakazov;;
TForm1.N7Click (Sender: TObject);_okno. Show;_okno. Caption:='Все заказы физических лиц';
Form_okno. Table. DataSource:=DataModule2.ds_vse_zakazi_fizlic;_okno. Nav. DataSource:=DataModule2.ds_vse_zakazi_fizlic;;TForm1.N8Click (Sender: TObject);_okno. Show;_okno. Caption:='Все заказы юридических лиц';
Form_okno. Table. DataSource:=DataModule2.ds_vse_zakazi_urlic;_okno. Nav. DataSource:=DataModule2.ds_vse_zakazi_urlic;;
TForm1.N9Click (Sender: TObject);_okno. Show;_okno. Caption:='Итоги заказов физических лиц';
Form_okno. Table. DataSource:=DataModule2.ds_itogi_zak_fizlic;_okno. Nav. DataSource:=DataModule2.ds_itogi_zak_fizlic;;
TForm1.N10Click (Sender: TObject);_okno. Show;_okno. Caption:='Итоги заказов юридических лиц';
Form_okno. Table. DataSource:=DataModule2.ds_itogi_zak_urlic;_okno. Nav. DataSource:=DataModule2.ds_itogi_zak_urlic;;
TForm1.N2Click (Sender: TObject);_Tovar. Show;;
procedure TForm1.N14Click (Sender: TObject);_New_Zakaz. Show;.zakazi. Edit;.zakazi. Insert;;
TForm1.N12Click (Sender: TObject);. Show;;
.dannie_klientov;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBCtrls, Mask, ExtCtrls;
_dannie = class(TForm): TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBNavigator;: TDBComboBox;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TComboBox;: TEdit;: TButton;: TButton;: TLabel;: TLabel;: TLabel;: TDBEdit;Button1Click (Sender: TObject);Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};
_dannie: TForm_dannie;
datamodule, filtr_klientov;
{$R *.dfm}TForm_dannie. Button1Click (Sender: TObject);_Filter. Show;
// В таблице разрешить фильтрацию.dannie. Filtered:=true;
// фильтр.dannie. Filter:=Combobox1. Text+'='''+Edit1. Text+'''';
;
TForm_dannie. Button2Click (Sender: TObject);
// В таблице запретить фильтрацию.dannie. Filtered:=false;_Filter. Show;;.okno_zaprosov;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, Grids, DBGrids;
_okno = class(TForm): TDBGrid;: TDBNavigator;
{Private declarations}
{Public declarations};
_okno: TForm_okno;
datamodule;
{$R *.dfm}
.parol;
Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,;
= class(TForm): TLabel;: TEdit;: TButton;: TButton;OKBtnClick (Sender: TObject);CancelBtnClick (Sender: TObject);FormShow (Sender: TObject);
{Private declarations}
{Public declarations};
: TPasswordDlg;
dannie_klientov;
{$R *.dfm}
TPasswordDlg.OKBtnClick (Sender: TObject);Password. Text='134' Then_dannie. Show;. Password. Text:='';. Close;;
TPasswordDlg. CancelBtnClick (Sender: TObject);. Password. Text:='';. Close;;
procedure TPasswordDlg. FormShow (Sender: TObject);. CanFocus;;
.
filtr_klientov;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
_Filter = class(TForm): TDBGrid;: TDBNavigator;: TComboBox;: TLabel;: TButton;FormClose (Sender: TObject; var Action: TCloseAction);Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};
var_Filter: TForm_Filter;
datamodule;
{$R *.dfm}
TForm_Filter. FormClose (Sender: TObject;Action: TCloseAction);.dannie. Filtered:=false;.dannie. IndexFieldNames:='код_клиента';;
TForm_Filter. Button1Click (Sender: TObject);.dannie. IndexFieldNames:=Combobox1. Text;;
.