
- •IfRedak - Редактирование данных 42
- •Введение
- •Техническое задание
- •IfRedak - Редактирование данных
- •4.1.1.2. Требования к организации обмена информацией между компонентами Системы
- •4.1.1.3. Требования к составу интегрируемых программ
- •4.1.1.4. Требования к режимам функционирования программы
- •4.1.2. Требования к надежности
- •4.1.3. Требования по обеспечению безопасности при эксплуатации технических средств
- •4.1.4. Требования к безопасности и защите информации
- •4.1.4.1. Среда безопасности
- •4.1.10. Требования к масштабируемости и открытости
- •4.1.11. Номенклатура показателей качества
- •4.2. Функциональные требования
- •4.6.6.1.1. Выбор помещения серверной
- •4.6.6.1.2. Требования к дверным проемам и окнам
- •4.6.6.1.3. Требования к отделке помещения
- •4.6.6.1.4. Требования к прокладке коммуникаций
- •4.6.6.2. Инфраструктура серверной
- •4.6.6.2.1. Система электропитания
- •4.6.6.2.1.1. Подсистема гарантированного электропитания
- •4.6.6.2.1.2. Подсистема бесперебойного электропитания
- •4.6.6.2.1.3. Подсистема распределения электропитания
- •4.6.6.2.1.4. Подсистема технологического заземления
- •4.6.6.2.1.5. Подсистема электрического освещения
- •4.6.6.2.2. Система обеспечения микроклимата
- •4.6.6.2.2.1. Подсистема кондиционирования и вентиляции
- •4.6.6.2.2.2. Подсистема мониторинга микроклимата
- •4.6.6.2.3. Система организации оборудования и кабельного хозяйства
- •4.6.6.2.3.1. Подсистема фальшпотолков и фальшполов
- •4.6.6.2.3.2. Подсистема телекоммуникационных шкафов и стоек
- •4.6.6.2.3.3. Подсистема организации коммуникаций
- •4.6.6.2.4. Система безопасности
- •4.6.6.2.4.1. Подсистема контроля доступа
- •4.6.6.2.4.2. Подсистема охранной сигнализации
- •4.6.6.2.4.3. Подсистема охранного видеонаблюдения
- •4.6.6.2.4.4. Подсистема пожарной сигнализации
- •4.6.6.2.4.5. Подсистема газового пожаротушения
- •4.6.6.2.4.6. Подсистема газо- и дым удаления
- •7. Требования к документированию
- •Составили
- •Согласовано
- •Общее описание системы
- •IfRedak - Редактирование данных
- •2.2 Сведения, необходимые для обеспечения эксплуатации системы
- •IfRedak - Редактирование данных
- •4.2 Сведения необходимые для обеспечения функционирования подсистем
- •4.3 Описание функционирования под программы
- •Термины и сокращения
- •Составили
- •Согласовано
- •Объект испытаний
- •1.1 Наименование программы
- •1.2 Комплектность испытываемой программы
- •Цель испытаний
- •Согласовано
- •Общие положения
- •IfRedak - Редактирование данных
IfRedak - Редактирование данных
fRedak1 - Редактирование данных
fSp - Спрашивает перед удалением
fSp1 - Спрашивает перед удалением
fSpravca - Дата создание программы
fUspeva - Главное меню
fVremya - Просмотр текущего времени
Средства и способы взаимодействия для информационного обмена между компонентами Системы
Все средства связи можно разделить на две части:
взаимодействие компонент внутри узла;
взаимодействие с внешними информационными системами.
Взаимодействие компонент внутри узла
Взаимодействие с компонентами внутри узла не предусмотрено
Взаимодействие с внешними системами, обеспечение их совместимости
Взаимодействие с внешними системами не предусмотрены
Решения по режимам функционирования системы
Режим функционирования системы в моей программе неимеется.
Диагностирование прикладных программных средств
Я диагностировал Microsoft Office Access 2003 для начала диагностирования надо проверить программу на ошибки и на стабильность
Решения по численности, квалификации, функциям и режимам работы персонала
Решения по численности, квалификации и функциям персонала АС, режимам его работы, порядку взаимодействия
Обеспечение заданных в техническом задании характеристик, определяющих качество Системы
Поддерживаемые OS: Microsoft Windows 98/98 SE/ME/2000/XP/2003/Vista/7/8 Платформа: x86/x64 Лекарство: Не требуется Процессор: 0.56 GHz; Установленная память (ОЗУ): 256 MB; Видео-карта: 64 MB; Свободное место на диске: 6,63 МБ
Качество программы проверяется по его функционированию, стабильности как он сохраняет данные как она выводит на печать.
Надежность
Моя программа безотказно может добавлять редактировать удалять данные в таблице, также он выводит на печать. Программа будет работать стабильно без каких либо ошибок.
Удобство применения
Для удобства были расположены кнопки на самой форме.
Функциональность
fMain – выполняет функцию которая выводит данные прикладной программы Microsoft Office Access 2003.Также имеется функция вывод на печать на форме fOtchet также есть функция авторизации.
Состав функций, комплексов задач, реализуемых программы
Хранилище данных – база данных под управлением Microsoft Access 2010, обеспечивающая хранение всех данных системы, и доступ к этим данным.
Офисные программы – стандартные программы, обеспечивающие отображение, редактирование и печать офисных документов.
Комплекс технических средств и его размещение на объекте автоматизации
Программное обеспечение Клиент Microsoft Access 2010, Delphi 7 устанавливается на компьютер.
Специальные технические средства не требуются.
Структура комплекса технических средств
Поддерживаемые OS: Microsoft Windows 98/98 SE/ME/2000/XP/2003/Vista/7/8 Платформа: x86/x64 Лекарство: Не требуется Процессор: 0.56 GHz; Установленная память (ОЗУ): 256 MB; Видео-карта: 64 MB; Свободное место на диске: 6,63 МБ
Размещение комплекса технических средств на объектах с учетом выполнения требований техники безопасности и соблюдения условий эксплуатации
Требованиями норм СНиП 11-2-80 для зданий категории "В", "Инструкции по проектированию зданий и помещений для электронно-вычислительных машин СН 512-78".
Объем, состав, способы организации, последовательность обработки информации
Информация идет с программы Microsoft Access 2010 , которая занимает 296 КБ, программу можно заносить на дисковой и флэш накопитель , Данные можно сохранить через программу также можно делать это через программу , Обработка данных идет через программу Успеваемость которая редактирует данные.
Состав информационного обеспечения
Журналы групп, личные дела учащийся.
Принципы организации информационного обеспечения системы
Вся информация в программе хранится в одной базе данных. База данных организована в виде реляционной табличной структуры
Доступ к информации БД Системы производится через программу.
Обращение к данным осуществляется обращением как непосредственно к таблицам, так и к представлениям данных.
Виды машинных носителей
Носителем можно сделать как диском, так и флэш носителем.
Входные и выходные документы и сообщения
Выходные данные программа База данных успеваемость
Входные данные программа Microsoft Access 2010
Состав программных продуктов, языки деятельности, алгоритмы процедур и операций и методы их реализации
Программный продукт состоит из файлов. Сама программа состоит из модулей и компонентов, в котором описывается алгоритмы, процедуры через которую связывается с программой Microsoft Access 2010.
Мероприятия по подготовке объекта автоматизации к вводу системы в действие
Мероприятия по приведению информации к виду, пригодному для обработки на ЭВМ не требуются, поскольку реализуемая система предназначена для обработки данных, То есть данные, поставляемые застройщиками, будут представлены в том формате, для обработки которого и предназначена Программа.
Специальные мероприятия по обучению и проверке квалификации персонала не требуются, поскольку использование системы требует лишь базовых навыков работы с персональными компьютерами, которые, как правило, являются обязательным условием при найме персонала в контролирующие организации.
Специальные мероприятия по созданию подразделений и рабочих мест не требуются, поскольку программа должна быть развернута на имеющихся рабочих местах.
Специальные мероприятия по изменению объекта автоматизации не требуются, поскольку Программа создается исходя из существующей структуры объекта автоматизации.
Дополнительных мероприятиях не требуется.
Термины и сокращения
Термин |
Полная форма |
БД |
База данных |
БДУ |
База Данных Успеваемость |
|
|
СОСТАВИЛИ
Наименование организации, предприятия |
Должность исполнителя |
Фамилия, имя, отчество |
Подпись |
Дата |
КГКП Колледж Радиотехники и Связи |
Студент |
Козинский Анатолий Максимович |
|
|
|
|
|
|
СОГЛАСОВАНО
Наименование организации, предприятия |
Должность исполнителя |
Фамилия, имя, отчество |
Подпись |
Дата |
КГКП Колледж Радиотехники и Связи |
Преподаватель |
Тусупбаева Кульпан Мухаметкалиевна |
|
|
|
|
|
|
|
|
|
|
|
5.РУКОВСТВО ПОЛЬЗОВАТЕЛЯ
УТВЕРЖДАЮ
должность подпись _______________________ ФИО
«____»_______________________ 20__ г. |
|
База данных Успеваемость наименование вида ИС
БДУ Сокращенное наименование ИС
А. В.ХХХХХ-ХХ ХХ (согласно ГОСТ 19.103-77)
|
|
СОГЛАСОВАНО
должность _______________________
подпись___________________ ФИО
«____»__________________ 20__ г. |
РАЗРАБОТЧИК
должность Студент группы № 343 подпись _______________________ ФИО Архипов Виктор Максимович «____»___________________ 20__ г.
|
Семей 2012 |
Введение
Область применения
Область применения программы: Колледже.
Краткое описание возможностей
Предназначена для работы с успеваемости учащийся, также в ней можно редактировать, добавлять, удалять запись есть текущие время и дата, справка о программе.
Уровень подготовки пользователя
Особые требования к уровню подготовки пользователя для работы с АС не требуется.
Перечень эксплуатационной документации
Руководство пользователя, которая находится в папке с программой.
Назначение и условия применения
Назначение системы
Для ввода данных Успеваемость в Колледжах, редактирование удаление, добавление записи, вывод на печать, просмотр текущей даты и время. для автоматизации которых предназначено данное средство автоматизации
Условия применения Портала
Год выпуска: 2012 Версия продукта: 1.0 Размер продукта: 6,63 МБ Язык интерфейса: Руский Разработчик: Козинский Анатоилй Поддерживаемые OS: Microsoft Windows 98/98 SE/ME/2000/XP/2003/Vista/7/8 Платформа: x86/x64 Лекарство: Не требуется Системные требования: * Процессор: 0.56 GHz; * Установленная память (ОЗУ): 256 MB; * Видео-карта: 64 MB; * Свободное место на диске: 6,63 МБ
Особых требований к подготовке к программе не требуется.
Подготовка к работе
Состав и содержание дистрибутивного носителя данных
Дистрибутивный носитель данных программы представляет собой один CD-ROM, на котором располагаются следующие файлы: 4,121(1), 1200638, 1578023, Data.~ddp, Data.~dfm, Data.~pas, Data.dcu, Data.ddp, Data, Data, Database14, dhdhndhdhdhndhn, DM.~ddp, DM.~dfm, DM.~pas, DM.dcu, DM.ddp, DM, DM, Main.~ddp, Main.~dfm, Main.~pas, Main.dcu, Main.ddp, Main, Main, Oprog.~dfm, Oprog.~pas, Oprog.~pas, Oprog.dcu, Oprog.ddp, Oprog, Oprog, Otchet.~dfm, Otchet.dcu, Otchet, Otchet, Otchet1.~dfm, Otchet1.~pas, Otchet1.dcu, Otchet1.ddp, Otchet1, Otchet1, Parol.~ddp, Parol.~dfm, Parol.~pas, Parol.dcu, Parol.ddp, Parol, Parol, password, Project1.~dpr, Project1.cfg, Project1.dof, Project1, Project1.res, Redak.~ddp, Redak.~dfm, Redak.~pas, Redak.dcu, Redak.ddp, Redak, Redak, Redak1.~ddp, Redak1.~dfm, Redak1.~pas, Redak1.dcu, Redak1.ddp, Redak1, Redak1, Sp.~dfm, Sp.~pas, Sp.dcu, Sp.ddp, Sp, Sp, Sp1.~dfm, Sp1.~pas, Sp1.dcu, Sp1, Sp1, Spravca.~ddp, Spravca.~dfm, Spravca.~pas, Spravca.dcu, Spravca.ddp, Spravca, Spravca, time, Unit1.~dfm, Unit1.~pas, Unit1.dcu, Unit1.ddp, Unit1,Unit1, Unit2.dcu, Uspeva.~ddp, Uspeva.~dfm, Uspeva.~pas, Uspeva.dcu, Uspeva.ddp, Uspeva, Uspeva, Vremya.~dfm, Vremya.~pas, Vremya.dcu, Vremya, Vremya, Безымянный, Успеваемость.
content.doc - файл с описанием состава дистрибутивного дискаПорядок загрузки данных и проверка работоспособности
Для начала необходимо запустить файл Успеваемость.exe
Первое проверяется на работоспособность проверка логина и пароля затем открывается главное которое надо нажать на кнопку главное меню затем открывается окно в котором можно изменять записи в таблице при нажатии кнопки редактировать выходит окно редактирование записи.
Описание операций
Описание всех выполняемых функций, задач, комплексов задач, процедуры:
procedure TfParol.BitBtn2Click(Sender: TObject); //Обработка событий нажатие кнопки
begin// операторные скобки
close; // выход с программы
end; //закрытие операторных скобок
procedure TfParol.BitBtn1Click(Sender: TObject); //Обработка событий нажатие кнопки
var login,pass:string; //описание переменых
begin// операторные скобки
login:='1'; //присвоение к переменной число
pass:='1'; //присвоение к переменной число
if (edit1.text=login) and (edit2.text=pass) // Задается условие
then / /Есле условие выполняется
begin// Операторные скобки
fUspeva.Show; // вызов модуля
fParol.Visible:=false; // видимость формы
end
else// есле условие не выполняется
begin
Showmessage('Неверный логин или пароль');//Выдает окно
end;
end;
procedure TfMain.BitBtn1Click(Sender: TObject);
begin
close;//выход
end;
procedure TfMain.BitBtn2Click(Sender: TObject);
begin
fRedak.Caption:='Редоктирование'; //Присваивание формы название
fRedak.ShowModal; //вызов форммы
end;
procedure TfMain.BitBtn3Click(Sender: TObject);
begin
fRedak.Caption:='Добавить '; //Присваивание формы название
fDM.usp.Append;// Повторное открытие для добавления в конец файла заключительной строки
fRedak.ShowModal;//вызов модуля
end;
procedure TfMain.BitBtn4Click(Sender: TObject);
begin
fSp.showmodal; //Вызов модуля
end;
procedure TfMain.BitBtn6Click(Sender: TObject);
begin
fRedak1.Caption:='Редоктирование'; //Присваивание формы название
fRedak1.ShowModal; //вызов формы
end;
procedure TfMain.BitBtn5Click(Sender: TObject);
begin
fRedak.Caption:='Добавить '; //Присваивание формы название
fDM.uspv.Append;// Повторное открытие для добавления в конец файла заключительной строки
fRedak1.ShowModal; //вызов формы
end;
procedure TfMain.BitBtn7Click(Sender: TObject);
begin
fSp1.ShowModal; //вызов формы
end;
procedure TfMain.Edit1Change(Sender: TObject);
begin
fDM.MyLocate(Edit1.Text);// добавление записи с компонента Edit1
end;
procedure TfMain.Edit2Change(Sender: TObject);
begin
fDM.MyLocate1(Edit2.Text); // добавление записи с компонента Edit1
end;
procedure TfMain.N6Click(Sender: TObject);
begin
close;
end;
procedure TfMain.Label1Click(Sender: TObject);
begin
fRedak.Caption:='Редоктирование'; //Присваивание формы название
fRedak.ShowModal; //вызов формы
end;
procedure TfMain.N3Click(Sender: TObject);
begin
fRedak.Caption:='Добавить ';
fDM.usp.Append; ;// Повторное открытие для добавления в конец файла заключительной строки
fRedak.ShowModal; //вызов формы
end;
procedure TfMain.N21Click(Sender: TObject);
begin
fOtchet1.QuickRep1.PreviewModal;// вызов формы для вывода на печать
end;
procedure TfRedak.BitBtn1Click(Sender: TObject);
begin
if fDM.usp.Modified then // копка сохранить и выйти
fDM.usp.Post;
Close;
end;
procedure TfRedak.BitBtn2Click(Sender: TObject);
begin
fDM.usp.Append;
DBEdit1.SetFocus; //Добвление записи в баззу с компонента DBEdit1 очищается
Описание операции 1
Для каждой операции обработки данных указывается:
наименование;
условия, при соблюдении которых возможно выполнение операции;
подготовительные действия;
основные действия в требуемой последовательности;
заключительные действия;
ресурсы, расходуемые на операцию.
Аварийные ситуации
Действий при длительных отказах технических средств не имеется .
Действия по восстановлению программ и/или данных при отказе магнитных носителей или обнаружении ошибок в данных: Надо занести информацию на диск или на USB флешку.
Если имеется случай обнаружении несанкционированного вмешательства в данные перед запуске имеется запрос логина и пароля .
Рекомендации по освоению
Перед запуском программы необходимо прочитать руководство пользователя .
Термины и сокращения
Термин |
Полная форма |
ОС |
Операционная Система |
БД |
База Данных |
СОСТАВИЛИ
Наименование организации, предприятия |
Должность исполнителя |
Фамилия, имя, отчество |
Подпись |
Дата |
КГКП Колледж Радиотехники и Связи |
Студент |
Архипов Виктор Максимович |
|
|
|
|
|
|
СОГЛАСОВАНО
Наименование организации, предприятия |
Должность исполнителя |
Фамилия, имя, отчество |
Подпись |
Дата |
КГКП Колледж Радиотехники и Связи |
Преподаватель |
Тусупбаева Кульпан Мухаметкалиевна |
|
|
|
|
|
|
|
|
|
|
|
ЗАКЛЮЧЕНИЕ
В данной практике я разработал программу “База Данных Успеваемость ”
С помощью моей программы можно без затруднений и специальных знаний вести в базу данных, которая позволяет делать все операции с платежами. То есть добавлять, изменять, удалять, выполнять
Эта программа достаточна проста и удобна в обращении.
Я считаю, что применении база данных в среде Delphi удобна и достаточно эффективна. Все зависит от пользователя, объема располагаемых им знаний и умения ими воспользоваться. Говоря о себе могу сказать, что эта программа имеет много полезных функций и в дальнейшем мне очень пригодится.
Данной практике
я узнал много интересного о ТРПО узнал,
как правильно заполнять документы такие
как: общее описание, пояснительная
записка, техническое задание, руководство
пользователя,
Конечно, не все функции были реализованы я бы хотел дополнить их в следующей версии программы.
СПИСОК ЛИТЕРАТУРЫ
Фаронов В.В. Delphi7. Учебный курс. - М.: Нолидж, 1999
Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие.
Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 7. -М.: Нолидж 1999
Баженова И.Ю. Delphi 7. Самоучитель программиста. - М.:
Фаронов В.В. Delphi 7: учебный курс. - С-Пб.: Питер, 2002
Бобровский С. Delphi 7: учебный курс. - С-Пб.: Питер, 2001
Хомоненко А.Д. Delphi 7. - С-Пб: Петербург, 2002
ПРИЛОЖЕНИЯ
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, DBGrids, jpeg, ExtCtrls, StdCtrls, Buttons, XPMan,
DBCtrls;
type
TfMain = class(TForm)
Image1: TImage;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
Bevel1: TBevel;
BitBtn1: TBitBtn;
XPManifest1: TXPManifest;
Bevel2: TBevel;
Label1: TLabel;
Label2: TLabel;
DBText1: TDBText;
DBText2: TDBText;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
Bevel3: TBevel;
Bevel4: TBevel;
Edit1: TEdit;
Label3: TLabel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
Label4: TLabel;
Edit2: TEdit;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
Label10: TLabel;
DBText8: TDBText;
DBText9: TDBText;
DBText10: TDBText;
DBText11: TDBText;
DBText12: TDBText;
Label8: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N21: TMenuItem;
Label15: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
uses DM, Redak, Sp, Redak1, Sp1, Otchet, Otchet1;
{$R *.dfm}
procedure TfMain.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TfMain.BitBtn2Click(Sender: TObject);
begin
fRedak.Caption:='Редоктирование';
fRedak.ShowModal;
end;
procedure TfMain.BitBtn3Click(Sender: TObject);
begin
fRedak.Caption:='Добавить ';
fDM.usp.Append;
fRedak.ShowModal;
end;
procedure TfMain.BitBtn4Click(Sender: TObject);
begin
fSp.showmodal;
end;
procedure TfMain.BitBtn6Click(Sender: TObject);
begin
fRedak1.Caption:='Редоктирование';
fRedak1.ShowModal;
end;
procedure TfMain.BitBtn5Click(Sender: TObject);
begin
fRedak.Caption:='Добавить ';
fDM.uspv.Append;
fRedak1.ShowModal;
end;
procedure TfMain.BitBtn7Click(Sender: TObject);
begin
fSp1.ShowModal;
end;
procedure TfMain.Edit1Change(Sender: TObject);
begin
fDM.MyLocate(Edit1.Text);
end;
procedure TfMain.Edit2Change(Sender: TObject);
begin
fDM.MyLocate1(Edit2.Text);
end;
procedure TfMain.N6Click(Sender: TObject);
begin
close;
end;
procedure TfMain.Label1Click(Sender: TObject);
begin
fRedak.Caption:='Редоктирование';
fRedak.ShowModal;
end;
procedure TfMain.N3Click(Sender: TObject);
begin
fRedak.Caption:='Добавить ';
fDM.usp.Append;
fRedak.ShowModal;
end;
procedure TfMain.N4Click(Sender: TObject);
begin
fSp.showmodal;
end;
procedure TfMain.N2Click(Sender: TObject);
begin
fRedak.Caption:='Редоктирование';
fRedak.ShowModal;
end;
procedure TfMain.N8Click(Sender: TObject);
begin
fRedak1.Caption:='Редоктирование';
fRedak1.ShowModal;
end;
procedure TfMain.N9Click(Sender: TObject);
begin
fRedak.Caption:='Добавить ';
fDM.uspv.Append;
fRedak1.ShowModal;
end;
procedure TfMain.N10Click(Sender: TObject);
begin
fSp1.ShowModal;
end;
procedure TfMain.N12Click(Sender: TObject);
begin
fOtchet.QuickRep1.PreviewModal;
end;
procedure TfMain.N21Click(Sender: TObject);
begin
fOtchet1.QuickRep1.PreviewModal;
end;
procedure TfMain.Label15Click(Sender: TObject);
begin
fDM.MyLocate2(Edit1.Text);
end;