Разработка программы при помощи языка программирования языка Delphi - Программирование, компьютеры и кибернетика курсовая работа

Главная

Программирование, компьютеры и кибернетика
Разработка программы при помощи языка программирования языка Delphi

Разработка программы обработки типизированных файлов с кодом на языке Object Pascal, с использованием компонентов Delphi для ввода и вывода данных. Разработка экранных форм и алгоритма программы. Описание программных модулей и инструкция оператору.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Министерство образования и науки Украины
Северодонецкое высшее профессиональное училище
По дисциплине «Программирование и алгоритмические языки»
Тема: Разработка программы при помощи языка программирования языка Delphi
3.2 Описание пользовательских процедур
Пояснительная записка к курсовой работе содержит:
Цель работы: разработать программу обработки типизированных файлов с кодом на языке Object Pascal , для ввода и вывода данных использовать компоненты Delphi.
В первом разделе курсовой работы выполнен анализ технического задания, выделены функции, которыми должно обладать разрабатываемое приложение, а также сформулированы требования к нему, произведена постановка задачи на проектирование. Во втором разделе выполняется анализ задачи проектирования, анализируется вид исходных данных, в зависимости от чего проектируется визуальный интерфейс и приводится словесный алгоритм работы программы. В третьем разделе рассматриваются алгоритмы разработанных процедур и функций, а также приводятся их описания. К реализованной программе разработана инструкция пользователя, которая приведена в четвертом разделе. Алгоритмы процедур приведены в приложении А. Листинг программы содержится в приложении Б.
Программа разработана с использованием среды визуального программирования Delphi 7 и языка Object Pascal.
ПРОГРАММА, ФАЙЛ, ТИПИЗИРОВАННЫЙ ФАЙЛ , ЗАПИСЬ , АЛГОРИТМ, ПРОЦЕДУРА , БАЗА КОМПЬЮТЕРОВ
Данный курсовой проект был разработан в среде Delphi7 с базовым языком программирования Object Pascal. Среди множества языков Pascal является наиболее универсальным и легко изучаемым языком. При этом его удобно использовать для создания сложных приложений, базами данных, приложения масштаба предприятия. Delphi так же прост в обучении, как и Visual Basic, но при этом средства языка программирования Pascal позволяет использовать все современные возможности объектно-ориентированного программирования.
Delphi -- это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi -- строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal.
Delphi прост и логичен. Основные конструкции языка четко выделяются в программе, что способствует хорошему восприятию написанного кода. Графический интерфейс Delphi отлично продуман, среда разработки предоставляет доступ только к тем участкам кода, с которыми необходимо работать, скрывая основную часть программы, которая создается автоматически самой разработкой.
Для выполнения данной курсовой работы необходимо разработать алгоритм решения поставленного задания, правильно указав последовательное выполнение соответствующих команд для получения необходимых результатов.
Цель работы заключается в том, чтобы правильно составить алгоритм поставленной задачи по обработке типизированного файла, разработать и отладить программу, реализующую разработанный алгоритм.
1 Анализ технического задания и постановка задачи проектирования
Согласно заданию необходимо разработать программу для системного администратора, в которой хранится вся комплектация компьютеров его предприятия, предусмотреть ввод, удаление и правку информации. При этом для каждого компьютера необходимо хранить следующую информацию: наименование, ёмкость жёсткого диска, ёмкость оперативной памяти, тип монитора, наличие подключения к интернет. Обработка должна включать: создание и чтение файла; дополнение, удаление, корректировка, поиск данных файла.
Поскольку структура информации для каждого компьютера одинакова, целесообразно для хранения данных использовать типизированный файл.
Дадим определение понятиям, которые используются в данной работе. Определим следующие понятия: строка, файл, типизированный файл, массив .
Тип STRING ( строка ) в «Borland Delphi» широко используется для обработки текстов. Он во многом похож на одномерный массив символов ARRAY [0..N] OF CHAR, однако, в отличие от последнего, количество символов в строке-переменной может меняться от 0 до N, где N - максимальное количество символов в строке.
Под файлом понимается либо именованная область внешней памяти ПК (жесткого диска, гибкой дискеты, электронного «виртуального» диска), либо логическое устройство - потенциальный источник или приемник информации.
Типизированный файл трактуется в «Borland Delphi» как файл записей.
Запись представляет собой совокупность компонент различных типов.
«Borland Delphi» может использовать объекты, содержащее множество однотипных элементов, которые называются массивами. Массив - это формальное обледенение нескольких однотипных объектов (чисел, символов, строк и т.п.), рассматриваемое как единое целое. Для хранения содержимого типизированного файла и обработки удобно использовать массивы с элементами типа запись. Удобство массивов заключается в том, что можно обращаться к отдельному элементу массива по номеру. Дополнительное удобство привносят динамические массивы, отличительной особенностью которых является возможность динамического изменения размерности массива, то есть динамическое выделение или освобождение памяти под требуемое в данный момент количество элементов массива.
Поскольку данная программа является приложением Windows, то для ее реализации будем использовать стандартный подход при написании программ под Windows с использованием графического интерфейса. Так отдельно создадим форму с визуальными компонентами, для различных визуальных компонент сопоставляем процедуры - обработчики. Далее, как только происходит событие на каком-то из визуальных компонент, (щелчок мыши, нажатие на кнопку или пункт меню), операционная система посылает приложению соответствующее сообщение, и запускается соответствующий обработчик именно для этого события. Тогда решение задачи можно разбить на 3 этапа:
1) Разработка визуального интерфейса пользователя, на основе экранных форм среды Delphi и визуальных компонент, предназначенных для ввода исходных данных, запуска действий по обработке исходных данных, вывода результата обработки, вывода результатов на экранную форму. Еще можно предусмотреть вывод информации разработчике и задании курсового проекта.
2) Разработка обработчиков событий от элементов экранных форм, разработка алгоритмов и программных кодов действий обработки текстового файла согласно заданию.
3) Подготовка тестовых исходных данных и отладка программы.
На первом этапе целесообразно выполнить разработку интерфейса таким образом, чтобы исходные данные, а именно типизированный файл с информацией о о компьютерах, можно было создать заново и сохранить на жестком диске или внешнем носителе. Также удобство увеличится, если можно будет открыть созданный ранее файл с жесткого диска или другого носителя и, по необходимости, отредактировать его. Также было бы полезно иметь средство вывода информации о разработчике приложения и о назначении приложения (задании курсового проекта). Для автоматизации и облегчения работы с программой полезно предусмотреть функции поиска требуемых компьютеров по одному или нескольким критериям.
Для просмотра данных об отдельных записях необходимо предусмотреть функции навигации для продвижения не последующую или предыдущую запись файла.
При выполнении второго этапа следует использовать модульный принцип построения программы, то есть разбить программу на отдельные части, каждая из которых выполняет какую-то законченную задачу, либо ее малую часть. Роль таких частей будут выполнять процедуры и функции. Программы, состоящие из процедур и функций, называются модульными.
Процедуры и функции в свою очередь могут вызывать процедуры и функции более низкого уровня и так далее. Таким образом, каждая модульная программа имеет иерархическую структуру. Следует заметить, что обработчики событий от объектов экранных форм тоже реализуются как процедуры.
На третьем этапе при отладке приложения обязательно должна анализироваться правильность работы на исходных тестовых образцах. На этом этапе нужно проверить соответствие разработанной программы исходному заданию, а также проверить ее на отсутствие ошибок.
Подытожив все вышесказанное можно сформулировать требования к разрабатываемому программному обеспечению и выполнить постановку задания на проектирование.
Программа должна быть реализована с графическим интерфейсом пользователя в среде Borland Delphi и должна выполнять следующие функции:
- создание нового типизированного файла, с информацией о компьютерах;
- открытие типизированного файла с жесткого диска и вывод его содержимого на экранной форме;
- редактирование данных и сохранение изменений в файле на жестком диске;
- сохранение типизированного файла под новым именем;
- вывод информации о разработчике и задании на курсовой проект;
- вывод информации об отдельном компьютере из типизированного файла на экранную форму в отдельные поля ввода;
- вывод содержимого всего файла на экранной форме в виде таблицы;
- продвижение к следующей записи в файле;
- продвижение на предыдущую запись типизированного файла;
- возможность редактирования данных в имеющихся записях типизированного файла;
- возможность добавления новых записей в типизированный файл;
- возможность удаления отдельных записей из типизированного файла;
- поиск записей по какому-либо критерию и вывод результатов на экранную форму;
Последующие разделы будут посвящены решению поставленных задач и разработке приложения с вышеперечисленными функциями.
2 Разработка ЭКРАННЫХ ФОРМ И алгоритма программы
В предыдущем разделе было сказано, что процесс решения поставленной задачи разбивается на 3 этапа, первый из которых заключается в построении интерфейса с пользователем на основе экранных форм и визуальных объектов проектирования.
По сформулированной в предыдущем задании постановке должна иметься возможность выполнения манипуляций с файлами на жестком диске (открытие, сохранение, создание). Для этого разместим на форме объекты OpenDlg типа TOpenDialog (стандартный диалог открытия файла) и SaveDlg типа TSaveDialog (стандартный диалог сохранения файла). Эти объекты помогают автоматизировать процесс навигации по иерархии файлов и папок жесткого диска компьютера и выбора требуемого имени для открытия или сохранения файла.
Для запуска процедур открытия или создания файла, разместим на форме объект MainMenu типа TMainMenu. Настройка пунктов меню приведена на рисунке 2.1
Рисунок 2.1 - Настройка пунктов главного меню
Для возможности ввода исходных данных о компьютере поместим на форме поля ввода типа TEdit и соответствующие метки описания к ним. Для вывода информации о всех компьютерах аэропорта, предусмотрим объект SGrid1 типа TStringGrid, в который позволяет выводить информацию в виде таблицы.
Также для запуска функции продвижение к следующей записи, продвижение на предыдущую запись, сохранение изменений об одной записи, добавления новых записей в типизированный файл, удаления отдельных записей из типизированного файла, поиск записей по какому-либо критерию и вывод результатов на экранную форму, поместим на форме кнопки типа TBitButton. Сами процедуры для выполнения тех или иных функций реализуем как обработчики нажатия на соответствующие кнопки.
В итоге, спроектируем экранную форму, вид которой приведен на рисунке 2.2
Рисунок 2.2 - Экранная форма приложения
Для удобства работы в программе целесообразно всю информацию из файла хранить в динамическом массиве с элементами типа запись и оперировать с элементами массива.
Словесный алгоритм действий при открытии файла:
2. Принять размерность массива равной нулю.
3. Считать очередную запись из файла.
4. Если достигнут конец файла, перейти на пункт 8.
5. Увеличить длину динамического массива на единицу.
6. Занести очередную запись, считанную из файла в конец массива.
9. Отобразить содержимое массива в таблице на экранной форме.
Словесный алгоритм действий при сохранении файла:
1. Открыть требуемый файл для записи.
2. Установить <номер> на начало массива (номер равен нулю).
3. Если достигнут конец массива, перейти на пункт 6.
4. Сохранить очередной элемент массива под номером <номер> в конец файла.
5. Нарастить <номер> на 1 и перейти на пункт 3.
При поиске все записи, удовлетворяющие критерию выбираются в отдельный массив и отображаются на экранной форме. Словесный алгоритм действий при поиске:
1. Установить <номер1> на начало исходного массива А.
2. Обнулить размерность результирующего массива В.
3. Если достигнут конец массива А, перейти на пункт 8.
4. Если запись <номер1> исходного массива А удовлетворяет критериям поиска, перейти на пункт 4, если не удовлетворяет, перейти на пункт 7.
5. Нарастить длину результирующего массива В на единицу.
6. Записать элемент <номер1> массива А в конец результирующего массива В.
7. Нарастить <номер1> на единицу и перейти на пункт 3.
8. Отобразить содержимое массива В в таблице на экранной форме.
Анализируя требования к функциям разрабатываемого приложения под разработанную экранную форму можно выделить следующие программные модули:
1) вывод информации о разработчике программы и задании на курсовой проект;
2) создание нового типизированного файла, с информацией о компьютерах (инициализация временного массива записей );
3) сохранение содержимого файла в типизированном файле на жестком диске;
4) сохранение содержимого файла в типизированном файле на жестком диске под новым именем;
5) вывод информации о компьютере текущей записи массива в поля ввода на экранной форме;
6) перенос информации из типизированного файла в динамический массив и вывод содержимого на форме;
7) продвижение к следующей записи в массиве;
8) продвижение на предыдущую запись массива;
9) перенос информации из полей ввода в поля текущей записи из массива;
10) добавление новой записи в массив;
11) удаление текущей записи из массива;
12) поиск записей по какому-либо критерию и вывод результатов на экранную форму;
13) вывод содержимого динамического массива на объекте типа TStringGrid.
Каждый из вышеприведенных модулей реализуем при помощи процедуры. Модули 1,2, 3, 4, 6 будут обработчиками нажатий на соответствующие пункты главного меню. Для запуска модулей 7, 8, 9, 10, 11, 12 предусмотрим экранные кнопки на форме, для чего поместим на форму объекты типа TBitButton. А сами процедуры будут реализованы как обработчики нажатия на соответствующие кнопки. Модули 5, 13 реализуем как отдельную процедуру.
Cоставим алгоритм приложения, который представлен в приложении на рисунке A.1. На алгоритме приведены основные события экранной формы. В этом алгоритме:
блок №3 реализован процедурой NOpenClick,
блок №8 реализован процедурой BBDeleteClick,
блок №12 - процедурой BBUpdateClick,
блок №14 - процедурой BBSearchClick,
Детальное описание разработанной программы, алгоритмов и их программной реализации приведено в последующих разделах.
В программе используется глобальная переменная Form1 , которая представляет собой экранную форму.
Для организации интерфейса с пользователем были разработаны экранные формы, в результате чего на экранной форме Form1 поместили элементы, приведенные в таблице 3.1
Таблица 3. 1 - Описание визуальных объектов на форме Form1
NOpen, NSave, NSaveAs, NCreate, NExit, NInfo, NShow
пункты главного меню «Открыть», «Сохранить», «Сохранить как», «Создать», «Выход», «Информация», «Показать»
поля для ввода данных о наименовании компьютера, объеме диска, памяти, типе монитора.
поле для ввода информации о подключении к интернет
вывод содержимого файла в виде таблицы
кнопка с надписью «Предыдущая запись»
кнопка с надписью «Следующая запись»
стандартный диалог сохранения файла
В разделе var опишем переменные, приведенные в таблице 3.2
Таблица 3.2- Переменные программы
типизированный файл с данными о компьютерах
данные обо всех компьютерах в виде массива
номер текущей записи в массиве AComp
Для хранения данных о компьютере разработаем составной тип данных TComp c полями, приведенными в таблице 3.3
Таблица 3. 3 - Информационные поля о компьютер е
В разработанной программе содержится описание 13 процедур обработчиков событий и 4 вспомогательных процедуры, которые приведены в таблице 3.4.
Таблица 3. 4 Пользовательские процедуры и обработчики событий
вывод информации о компьютере на форму
вывод информации о компьютере в таблицу
вывод содержимого массива FComp в таблицу
добавление новой записи о новом компьютере
запуск диалога и сохранение в файле с заданным именем
обновление записи в массиве данными из полей ввода
вывод содержимого текущего файла на форму
поиск компьютеров согласно некоторым критериям и вывод результатов поиска
Более подробно некоторые процедуры будут рассмотрены далее.
Кроме приведенных объектов, в разделе uses подключается модуль Unit2. В модуле Unit2 приведена форма AboutBox, на которой выводится информация о разработчике приложения и задании проекта.
3.2 Описание пользовательских процедур
Функция GetComp предназначена для поиска компьютера в массиве по имени. Синтаксис: GetComp(name:string;AComp:ATComp;var Comp:TComp):boolean. Где name - наименование компьютера, AComp - массив в котором производится поиск, Comp - объект, в который возвращается найденный объект. Если поиск удачен, то функция возвращает значение true, иначе - false.
Процедура ShowComp предназначена для вывода информации о компьютере в поля формы. Синтаксис: ShowComp(Comp:TComp). Где Comp - запись, хранящая информацию о компьютере.
Процедура ShowCompInGrid предназначена для вывода информации о компьютере в поля таблицы. Синтаксис:
ShowCompInGrid(Comp:TComp; Sgr:TStringGrid;Row:integer).
где Comp - запись, хранящая информацию о компьютере,
SGr - таблица, в которую производится вывод,
Row - номер строки, в которую выводится информация.
Процедура ShowAComp предназначена для вывода информации о всех компьютерах из массива AComp в поля таблицы. Синтаксис:
ShowAComp(AComp:ATComp;Sgr:TStringGrid).
где AComp - массив записей, хранящий информацию о компьютерах,
SGr - таблица, в которую производится вывод.
Алгоритм процедуры приведен на рисунке А.4.
Эта процедура является обработчиком события onClick для объектa NOpen, то есть запускается при щелчке на указанном объекте. В теле этого вызывается стандартный диалог открытия файла, в случае, если диалог был завершен успешно, имя файла сохраняется в переменной FName, производится чтение содержимого исходного файла в массив AComp, а затем его содержимое выводится на форму при помощи процедуры ShowAComp. Алгоритм процедуры приведен на рисунке А.2.
Процедура NShowClick является обработчиком события onClick для объектa NShow. В ней тоже происходит чтение файла в массив AComp и вывод содержимого на форму. Однако в этой процедуре не выполняется запуск диалога открытия файла, а производится чтение текущего файла, имя которого занесено в FName.
Эта процедура является обработчиком события onClick для объектa NSaveAs, то есть запускается при щелчке на указанном объекте. В теле этого вызывается стандартный диалог сохранения файла, в случае, если диалог был завершен успешно, имя файла сохраняется в переменной FName, производится сохранение содержимого массива AComp в файл с указанным именем. Алгоритм процедуры приведен на рисунке А.3.
Процедура NSaveClick является обработчиком события onClick для объектa NSave. В ней тоже происходит сохранение содержимого массива AComp в файл на жестком диске, однако в этой процедуре не выполняется запуск диалога сохранения файла, а производится сохранение в текущий файл, имя которого занесено в FName.
Процедура BBPrevClick является обработчиком события onClick для объектa BBPrev. Предназначена для перехода не предыдущую запись, для чего номер текущей записи CurK уменьшается на 1 и выводится на форму запись AComp[CurK] при помощи ShowComp. Следует заметить, что если текущая запись первая, то нажатие на кнопку переводит указатель на последнюю запись массива.
Процедура BBNextClick является обработчиком события onClick для объектa BBNext. Предназначена для перехода не следующую запись, для чего номер текущей записи CurK увеличивается на 1, а на форму выводится запись AComp[CurK] при помощи ShowComp. Следует заметить, что если текущая запись последняя, то нажатие на кнопку переводит указатель на первую запись массива.
Процедура BBDeleteClick является обработчиком события onClick для объектa BBDelete. Предназначена для удаления записи, для чего все записи после позиции CurK сдвигаются на одну позицию влево, а размерность массива уменьшается на 1.
Процедура BBUpdateClick является обработчиком события onClick для объектa BBUpdate. Предназначена для изменения данных о компьютере. В процедуре содержимое из полей ввода формы переносится в соответствующие поля текущего компьютера под номером CurK.
Процедура BBAddClick является обработчиком события onClick для объектa BBAdd. Предназначена для добавления данных о новом компьютере. В процедуре содержимое из полей ввода формы переносится в соответствующие поля компьютера, размер массива AComp увеличивается на 1 и новая запись добавляется в конец массива.
Процедура BBSearchClick является обработчиком события onClick для объектa BBSearch. Предназначена для поиска компьютеров по какому либо критерию. В процедуре анализируется содержимое из полей ввода формы, если содержимое пустое, то в поиске это поле не учитывается, если же нет, то происходит поиск записей с указанным значением соответствующего поля. Условия по всем полям объединяются условием И. Содержимое выборки заносится в массив Ares и выводится на форму. Следует заметить, что по текстовым полям «Наименование компьютера», «Тип монитора» выполняется сравнение не на полное соответствие строк, а на наличие указанной подстроки. То есть, если поле содержит искомый фрагмент и еще какую-то информацию, то такой компьютер тоже будет выведен.
Разработанная программа представляет собой исполняемый файл Computers.exe размером 493 568 байт. В программе выполняется обработка типизированных файлов.
После запуска программы появляется окно, изображенное на рисунке 4.1.
Рисунок 4.1 - Главное окно программы
- «Информация» (при нажатии запускается диалог с информацией о задании и разработчике, изображенный на рисунке 4.2);
- «Открыть файл» (при нажатии запускается диалог открытия файла, изображенный на рисунке 4.3)
- «Перенос» (при нажатии выполняются действия согласно заданию)
- «Сохранить результат» (при нажатии запускается диалог сохранения файла, изображенный на рисунке 4.4);
Рисунок 4.2 - Информационное окно «Задание»
Рисунок 4. 3 - Диалог открытия файла
Рисунок 4. 4 - Диалог сохранения файла
В качестве примера введем некоторые данные о нескольких компьютерах и сохраним в файле, нажав на пункт меню «Сохранить как».
При помощи кнопок «Предыдущая запись» и «Следующая запись» можно перемещаться между записями о компьютерах. Если необходимо изменить данные о каком то компьютере, то необходимо перейти на запись о нем, изменить соответствующие данные в индивидуальных полях, а потом нажать на кнопку «Обновить». Запись этого компьютера в массиве будет изменена.
Для удаления записи следует нажать на кнопку «Удалить».
Для поиска нужно в требуемые поля написать данные запроса и нажать на кнопку «Поиск». Если записи по заданным критериям найдены, то информация об этих компьютерах будет выведена на форму.
Например, пусть критерием поиска будет имя `USER1 ', а остальные поля оставим незаполненными. В результате будет выполнен поиск, выведены результаты, изображенные на рисунке 4.5. По результатам видно, что выводится компьютер с указанным именем.
Если мы хотим вновь отобразить содержимое обо всех введенных компьютерах, необходимо нажать на пункт главного меню Файл-> Показать. (см рисунок 4.6).
Можно осуществить поиск по нескольким полям, например: выведем все компьютеры с объемом оперативной памяти 256 Мб и имеющих подключение к интернет. Пример запроса и результат приведен на рисунке 4.7.
Рисунок 4.7 - Результат поиска по нескольким полям
Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде DELPHI 7.0. В ходе выполнения курсовой работы была разработана программа для обработки типизированных файлов, а также создан визуальный интерфейс для создания и ведения базы о компьютерах предприятия.
В результате выполнения данной курсовой работы, я убедилась в широких возможностях языка программирования Object Pascal и среды проектирования Delphi 7.
1. Валентин Озеров «Советы по Delphi», 1999
2. Зуев Е.А. Программирование на языке Turbo Pascal 6.0,7.0. - М.: Радио и связь, Веста, 1993.
3. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. - М.: Нолидж, 2000.
4. Фаронов В.В. «DELPHI. Программирование на языке высокого уровня». - Питер, 2005.
5. Дятченко Д.А. Методические указания к выполнению курсовой работы по дисциплине «Программирование и алгоритмические языки»- Северодонецк, 2005.
Рисунок А.1 - Обработка событий главной формы программы
типизированный файл программирование delphi
Рисунок А.3 - Алгоритм процедуры сохранения в файл
Рисунок А.4 - Алгоритм вывода содержимого массива A Comp на форму
4. Windows, Messages, SysUtils, Variants, Classes, Graphics,
5. Controls, Forms,Dialogs, Menus, StdCtrls, Buttons, ExtCtrls,
38. procedure FormCreate(Sender: TObject);
39. procedure NCreateClick(Sender: TObject);
40. procedure NOpenClick(Sender: TObject);
41. procedure NShowClick(Sender: TObject);
42. procedure NSaveClick(Sender: TObject);
43. procedure NSaveAsClick(Sender: TObject);
44. procedure NExitClick(Sender: TObject);
45. procedure NInfoClick(Sender: TObject);
46. procedure BBPrevClick(Sender: TObject);
47. procedure BBNextClick(Sender: TObject);
48. procedure BBUpdateClick(Sender: TObject);
49. procedure BBAddClick(Sender: TObject);
50. procedure BBDeleteClick(Sender: TObject);
51. procedure BBSearchClick(Sender: TObject);
62. Inet:boolean; {true - есть, false - нет}
78. Function GetComp(name:string;AComp:ATComp;var Comp:TComp):boolean;
90. // вывод информации об одном компьютерера из типизированного файла на экранную форму
91. Procedure ShowComp(Comp:TComp);
94. Form1.EHDD.Text:=FloatToStr(Comp.HDD);
95. Form1.ERAM.Text:=IntToStr(Comp.RAM);
100. Form1.EMonitor.Text:=Comp.Monitor;
102. // вывод информации о компьютере из типизированного файла в таблицу
103. Procedure ShowCompInGrid(Comp:TComp;Sgr:TStringGrid;Row:integer);
105. Sgr.Cells[0,Row]:=IntToStr(Row);
107. Sgr.Cells[2,Row]:=FloatToStr(Comp.HDD);
108. Sgr.Cells[3,Row]:=IntToStr(Comp.RAM);
109. Sgr.Cells[4,Row]:=Comp.Monitor;
115. // вывод содержимого массива FComp в таблицу
116. Procedure ShowAComp(AComp:ATComp;Sgr:TStringGrid);
126. ShowCompInGrid(AComp[i],Sgr,i+1);
128. // добавление новой записи в массив
129. procedure TForm1.BBAddClick(Sender: TObject);
134. Comp.HDD:=StrToFloat(EHDD.Text);
135. Comp.RAM:=StrToInt(ERAM.Text);
137. Comp.Inet:=RgrInet.ItemIndex = 1;
139. if GetComp(Comp.Name,AComp,Comp) then
141. MessageBox(0,PAnsiChar(String('Ошибка! Запись компьютера с именем '+Comp.Name+' уже существует!')),'Ошибка',0);
150. // переход на предыдущую запись массива
151. procedure TForm1.BBPrevClick(Sender: TObject);
154. if CurK<0 then CurK:=Length(AComp)-1;
158. // переход на последующую запись массива
159. procedure TForm1.BBNextClick(Sender: TObject);
162. if CurK>=Length(AComp) then CurK:=0;
166. // сохранение содержимого массива в типизированном файле
167. procedure TForm1.NSaveClick(Sender: TObject);
171. MessageBox(0,'Имя файла не задано!','Ошибка',0)
175. for i:=0 to Length(AComp)-1 do
180. // сохранение в содержимого массива в типизированном файле
181. // с возможностью указания имени файла
182. procedure TForm1.NSaveAsClick(Sender: TObject);
190. for i:=0 to Length(AComp)-1 do
195. // открытие типизированного файла и вывод его содержимого на форму
196. procedure TForm1.NOpenClick(Sender: TObject);
217. // удаление текущей записи из массива записей AComp
218. procedure TForm1.BBDeleteClick(Sender: TObject);
230. // Создание нового массива записей
231. procedure TForm1.NCreateClick(Sender: TObject);
238. // созание формы - формирование шапки таблицы
239. procedure TForm1.FormCreate(Sender: TObject);
243. SGrid1.Cells[2,0]:='Объём памяти';
244. SGrid1.Cells[3,0]:='Объём ОП';
245. SGrid1.Cells[4,0]:='Тип монитора';
246. SGrid1.Cells[5,0]:='Подключение к Internet';
248. // чтение инофрмации из полей ввода и обновление
249. // данных текцщей записи в массиве AComp
250. procedure TForm1.BBUpdateClick(Sender: TObject);
253. Comp.HDD:=StrToFloat(EHDD.Text);
254. Comp.RAM:=StrToInt(ERAM.Text);
256. Comp.Inet:=RgrInet.ItemIndex = 1;
259. ShowCompInGrid(Comp,SGrid1,CurK+1);
261. // ввод информации типизированного файла на форму
262. procedure TForm1.NShowClick(Sender: TObject);
279. // поиск записей, удовлетворяющих условию поиска
280. procedure TForm1.BBSearchClick(Sender: TObject);
288. Comp.HDD:=StrtoFloat(EHDD.Text);
292. Comp.RAM:=StrtoInt(ERAM.Text);
295. Comp.Inet:=RgrInet.ItemIndex = 1;
299. if ((Comp.Name='')or(Pos(Comp.Name,AComp[i].Name)<>0))and
300. ((Comp.HDD=0)or(Comp.HDD = AComp[i].HDD))and
301. ((Comp.RAM=0)or(Comp.RAM = AComp[i].RAM))and
303. (Pos(Comp.Monitor,AComp[i].Monitor)<>0))and
304. (Comp.Inet = AComp[i].Inet) then
312. // вывод информации о программе
313. procedure TForm1.NInfoClick(Sender: TObject);
317. // завершение работы приложения
318. procedure TForm1.NExitClick(Sender: TObject);
Созданная программа позволяет добавлять, редактировать и удалять записи, так же позволяет осуществлять поиск по нескольким полям.
При редактировании или удалении данных
Проектирование программы в среде Delphi для тестирования знаний студентов по программированию, с выводом оценки по окончанию тестирования. Разработка экранных форм и алгоритма программы. Описание программных модулей. Алгоритм процедуры BitBtn1Click. курсовая работа [365,0 K], добавлен 18.05.2013
Разработка программы проверки знаний для тестирования студентов по программированию с кодом на языке Delphi. Проектирование визуального интерфейса и словесный алгоритм работы програ
Разработка программы при помощи языка программирования языка Delphi курсовая работа. Программирование, компьютеры и кибернетика.
Дипломная работа по теме Основные направления развития современных международных финансовых отношений РФ
Курсовая работа: Учет хозяйственных ситуаций на промышленных предприятиях
Сочинение На Тему Яркие События Лета
Дипломная работа по теме Коммерческие банки и их деятельность
Новиков Избранные Сочинения 1951 Скачать Djvu
Курсовая работа: Уголовно-правовой анализ незаконного приобретения, передачи, сбыта, хранения, перевозки или ношения оружия, его основных частей, боеприпасов, взрывчатых веществ и взрывных устройств
Сколько Стоит Заказать Дипломную Работу
Биография Пушкина Реферат Кратко
Реферат На Тему Возрастная Психология
Гдз Итоговая Контрольная Работа
Продукты Пчеловодства Курсовая Работа
Доклад: Ознайомлення з архівною спадщиною міста Львова. Скачать бесплатно и без регистрации
Входная Контрольная Работа Ответы Английский Язык
Дипломная Работа На Тему Разработка Локальной Сети И Защита Передачи Данных На Основе Перспективных Технологий
Реферат: Налогообложение прибыли предприятий в Украине, определение валовых доходов, валовых расходов и п
Главные члены предложения
Реферат: Петропавловская крепость: исторический миф и градостроительная реальность
Эссе На Тему Типы Семьи
Магистерская Диссертация Мотивация Персонала
Эссе Безопасность Дорожного Движения
Коды и кодирование информации. Штрихкодирование - Менеджмент и трудовые отношения реферат
Эволюционные направления развития стратегического менеджмента - Менеджмент и трудовые отношения курсовая работа
Статистика внешнеэкономической деятельности Российской Федерации: экспорт и импорт товаров - Международные отношения и мировая экономика курсовая работа