Разработка программы на Delphi (стр. 2 из 3)
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
F: TextFile;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
var stroka, s: string;
begin
stroka:=Combobox1.Items.Strings[Combobox1.ItemIndex]; // присвоение переменной "stroka" названия выбранного компонента в ComboBox
AssignFile(F, '1.txt'); // привязка текстового файла к файловой переменной F
Reset(F); // открытие файла F для чтения
Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox
readln(F,s)
until s='***'+stroka+'***';
Memo2.Lines.Text:='';
readln(F,s); // опять считывается
while s<>'***' do begin // цикл с предусловием.
Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s
readln(F,s); // считывается строка из файла в переменную S
end;
CloseFile(F); // закрытие файла
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Memo2.LINES.Text:='Работает'
end;
procedure TForm1.Button2Click(Sender: TObject);
var stroka, s: string;
label W;
begin
stroka:=Edit3.Text; // присвоить переменной текст из поля Edit3
AssignFile(F, '1.txt'); // привязка текстового файла к файловой переменной F
Reset(F); // открытие файла F для чтения
Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox
readln(F,s);
if seekEof(F) then begin // условие о совпадении
Edit3.Text:='Компонент не найден или вы ошиблись в написании!!!!'; // если не совпадет то вывести надпись
goto w;
end;
until s='***'+stroka+'***';
Memo2.Lines.Text:=''; // очищение поля Мемо2
readln(F,s); // опять считывается
while s<>'***' do begin // цикл с предусловием.
Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s
readln(F,s);
end;
W:
CloseFile(F);
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.Show; // переход на форму 2
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Close; //закрытие формы 1(осуществление выхода из программы)
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form4.Show;
end;
end.
2.4 Описание программы
1) Общие сведения.
Программа написана с среде программирования Delphi. Для запуска программы необходима операционная система Windows 98, Nt, 2000, Me, XP. Программа не предназначена для работы в DOS.
2) Функциональное назначение.
Программа может использоваться в учебных заведениях.
3) Используемые технические средства (минимальные требования).
Рекомендуемые системные требования: процессор Pentium-133 и выше, ОЗУ 16Мб, место на диске не меньше 2Мб.
4) Вызов и загрузка.
Исполняемый файл программы – Project5.exe. В родительском каталоге программы также содержится файл БД – 1.txt. Запустить программу можно
пользуясь стандартным приложением для Windows «проводник» или через «Мой компьютер», просмотрев содержимое диска.
5) Входные данные.
Входные данные представляют собой название визуального компонента.
6) Выходные данные.
Выходные данные выводятся на экран компонентом Memo.
2.5 Тестирование
Тестирование было проведено на примере Базы Данных в каталоге A:\Программа\1.txt. В базу данных было произведено введение данных о компонентах. Всего было введено 47 компонентов. Все данные были введены в случайном порядке.для начала произвольный компонент был выбран из прокручиваемого списка, потом в графе поиска были,по очереди, прописаны все компоненты из списка. Программа не дала сбоев и ошибок. Потом был открыт файл 1.ТХТ. и в графу StringGrid были дописаны свойства. При повторном запуске и запросе справки для компонента StringGrid программа не дала ошибок и выдала дополненную справку.Было проверенна работа информационного сообщения на случай неправильно написанного названия компонента или отсутствия такого в базе данных.Программа успешно прошла тестирование.
3. Внедрение
1) Условия выполнения программы.
Для выполнения программы необходим IBM совместимый компьютер с процессором 133МГц и выше, ОЗУ3 объемом не менее 16Мб и стандартным набором внутренних и внешних устройств. Программное обеспечение – ОС Windows 95 и более поздние версии Windows.
2) Выполнение программы.
Для того чтобы запустить программу на панели управления щелкните кнопкой мыши кнопку Пуск. Выберете в развернувшимся меню пункт «Программы»-«проводник». В проводнике выберете нужный каталог с файлом Project5.exe и дважды щелкните по нему левой кнопкой мыши. Программа запустится. На экране вы увидите окно программы в соответствии с рисунком 1 (см приложение А).
Рисунок 1 - Окно программы.
Для выбора компонента из списка необходимо нажать на стрелочку, выделенную на рисунке 2, расположенную в поле с подписью «выберите компонент из списка», при помощи бегуна найдите нужный компонент и щелкните по нему левой кнопкой мыши. В нижнем окне высветится справка, в соответствии с рисунком 3.
Рисунок 2 - прокручиваемый список.
Рисунок 3 - Вид выводимой справки.
Также можно воспользоваться поиском по базе данных. Для этого нужно ввести название компонента в поле расположенном в правой верхней части диалогового окна программы, с подписью «Введите название компонента»
Рисунок 4 - Поиск компонентов по базе данных.
Внимание в названии компонента не надо указывать класс к которому он относится. После того как было введено название в указанное поле нужно нажать на кнопку «Search» расположение которой показано на рисунке 5.
Рисунок 5 - Кнопка поиска.
Если название введено с ошибкой или такого компонента не существует в безе данных то в поле ввода появится соответствующее информационное сообщение. Для продолжения работы с поиском необходимо с помощью мышки выделить сообщение и набрать новое название компонента или установить курсор и стереть сообщение при помощи клавиатуры, клавишей Backspace.
Рисунок 6 - Сообщение об ошибке.
Для выхода из программы нужно нажать «меню» \ «выход» или
 |
кнопку закрытия окна приложения.
Рисунок 7 - Выход из программы.
Также доступен просмотр справочной информации. Для этого надо нажать на «Справка» в верхнем левом углу диалогового окна программы, появится новое окно с информацией.
Рисунок 8 - Справочная информация.
Если в меню нажать на вкладку «Автор работы» то появится новое окно содержащее определённую информацию.
Рисунок 9 - Автор работы.
Заключение
Для того чтобы удобнее и проще было работать с языком Delphi я создал справочную программу по визуальным компонентам интегрированной среды Delphi.
Программа значительно облегчает работу пользователя, экономит время и помогает при разработке других программ. Особенно полезна программа студенту, который начал изучать программирование на Delphi.
Программированию присущ значительный консерватизм, так как в принципе можно создавать программы, ограничиваясь знаниями многолетней давности. Однако сегодня программирование безусловно превратилось из искусства в ремесло. Конечно, вряд ли можно стать профессиональным разработчиком, не изучив внутреннее устройство Windows или структуру компонентов VCL и принципы оптимизации программ. Однако такие знания сегодня отходят на второй или третий план. Работодателей интересует, прежде всего, скорость и качество создания программ в коллективе, а эти характеристики может обеспечить только среда визуального проектирования, способная взять на себя значительные объёмы рутинной работы по подготовке приложений, а также согласовывать деятельность группы постановщиков, кодировщиков, тестеров и технических писателей4.
Разработанная мной программа позволяет экономить время на поиске справки о компоненте. Разработка таких приложений в настоящее время является очень актуальной темой, так как приложения именно такого рода сейчас пользуются большим спросом. Основываясь на этом, я и выбрал именно эту тему для курсового проекта.
Глоссарий
| № п/п | Новые понятия | Содержание |
| 1 | 2 | 3 |
| 1 | База данных | совокупность данных, числовых значений показателей, используемых при анализе и расчетах. При применении ЭВМ — файл (файлы) данных, для обращения к которому используют средства системы управления Б.Д |
| 2 | Диалоговая программа | программа, рассчитанная на удобное взаимодействие пользователя и ЭВМ |
| 3 | Кодирование | перевод алгоритмической структуры на язык программирования |
| 4 | Команды | сообщения, посредством которых осуществляется управление ходом диалога |
| 5 | Меню | способ проведения диалога, когда на экран выводится информация в виде списка альтернатив, а пользователь выбирает нужный пункт. |
| 6 | Ошибка | сообщение о том, что работа программного комплекса прервана, так как введенные пользователем входные данные не могут быть обработанны |
| 7 | Процедура | понятие, определяющее аппарат подпрограмм; часть программы предназначенная для решения определённой задачи или подзадачи |
| 8 | Справка | сообщение в виде справочной информации, что следует делать дальше и почему это надо делать при затруднениях, возникающих в процессе работы пользователя с программным комплексом. |
| 9 | Тестирование | действия по контролю правильности функционирования программы |
| 10 | Форма | окно приложения на этапе разработки |
| 11 | Файл проекта | автоматически создаваемый файл, связывающий вместе все файлы приложения и содержащий код инициализации |
Список использованных источников