Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

На этом создание главной формы закончено. Можно скомпилировать и запустить проект, и если всё сделано правильно, то ошибок не каких быть не должно.

- 13 -

Описание вспомогательных программ, использованных в программе «Записная книжка»

«Справочник друзей»

Постановка задачи

Так как в программе «Справочник друзей» нужно будет записывать телефон, адрес, фамилию и имя человека то нужен компонент который мог бы это разрешить. Можно использовать базу данных для этих целей, но Delphi имеет компонент StringGrid. Для StringGrid’а ненужно дополнительных компонентов, а для работы с базами данных нужно несколько компонентов, которые лишь увеличивают размер программы. На форме будет 3 кнопки: «Добавить» (добавить строку), «Удалить » (удалить выделиную строку), «Выйти» (сохранить и закрыть программу).

Создание интерфейса

В свойстве Caption формы введём текст: ‘Справочник друзей’, а в свойстве формы Name введём имя формы: ‘Dryzi’. В свойстве формы AutoSize нужно выставить True, для то чтобы форма изменяла размер вместе с компонентами.
Перенесём с закладки Additional компонент StringGrid на форму. Выставляем следующие свойства этого компонента:

1.ColCount = 6 (количество столбцов)

2.FixedCols = 0 (зафиксировать(нельзя изменять) первый столбец)

3.FixedRows = 1 (зафиксировать(нельзя изменять) первую строку)

4.RowCount = 2 (количество строк)

5.SrollBars = ssVertical (ползунок вертикального типа)
Перенесём на форму 3 кнопки BitBtn. Эти кнопки даёт возможно прикепить к ним пиктограмму. Назовем кнопки: 1. «Добавить»

2. «Удалить»

3. «Выйти»
Поместим эти 3 кнопки сверху StringGrid1.

Описание процедур и функций

Начнём с кнопок. В кнопку «Добавить» вставляем следующий код:
StringGrid1.RowCount:= StringGrid1.RowCount+1;(добавить строку)
В кнопку «Удалить» вставляем код: var i,j: Integer; begin j:=StringGrid1.Row; // строка с выделением
StringGrid1.Rows[j].Clear; //очистить выдилиную строку for i:=j to StringGrid1.RowCount-2 do //цикл нахождения выделиной строки

- 14 -

StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]); //

StringGrid1.RowCount:=StringGrid1.RowCount-1; // удалить строку
В кнопку «Выйти» просто вставим один оператор: ‘Close’.

Для каждой кнопки нужно подобрать пиктограму, для этого нужно использовать свойство Glyph.
Так как это справочник, то нужно чтобы все записи сохранялись, при выходе, и загружались, при запуске программы. Для этого в Окне Редактора Кода между словами Type и где объявляются другие процедуры нужно написать: ‘Procedure
SaveGrid;’, а после слова implementation нужно вставить следующий код: procedure TBaseForm.SaveGrid; // имя процедуры var f: textfile; x, y: integer; begin assignfile(f, 'Base.zap');// открыть файл ‘Base’ rewrite(f); // переписать файл writeln(f, StringGrid1.colcount); //просмотр значения столбцов writeln(f, StringGrid1.rowcount);// просмотр значения строк for X := 0 to StringGrid1.colcount - 1 do // начало цикла записи значения каждой ячейки for y := 0 to StringGrid1.rowcount - 1 do writeln(F, StringGrid1.cells[x, y]); closefile(f);//закрыть файл end;
А для загрузки: аналогичным способом объявим процедуру загрузки: ‘Procedure
LoadGrid’, а процедура загрузки имеет следующий код: procedure TBaseForm.LoadGrid; var f: textfile; temp, x, y: integer; tempstr: string; begin assignfile(f, 'Base.zap'); // открыть файл ‘Base’ reset(f); // Сбить файл readln(f, temp); //Прочитать файл
StringGrid1.colcount := temp; // выставить количество столбцов readln(f, temp); // прочитать файл
StringGrid1.rowcount := temp; //выставить количество строк for X := 0 to StringGrid1.colcount - 1 do // начало цикла заполнения каждой ячейки for y := 0 to StringGrid1.rowcount - 1 do begin readln(F, tempstr);

StringGrid1.cells[x, y] := tempstr; end; closefile(f); // закрыть файл end;

- 15 -
Для загрузки нужно в свойство OnCreate формы вставить следующий оператор:
‘LoadGrid;’

Для сохранения нужно в свойство OnClose формы вставить следующий оператор: ‘SaveGrid;’.
Напишем названия колонок, для этого в свойство OnCreate формы вставим следующий код: with stringgrid1 do begin
Cells[0,0]:=' № '; //названия колонки с координатами
Cells[1,0]:='Фамилия'; //названия колонки с координатами
Cells[2,0]:='Имя'; //названия колонки с координатами
Cells[3,0]:='Отчество'; //названия колонки с координатами
Cells[4,0]:='Адрес'; //названия колонки с координатами
Cells[5,0]:='Телефон'; //названия колонки с координатами
Всё на этом создание программы «Справочник друзей» закончен. Теперь можно скомпилировать и запустить программу. Если всё правильно, то можно сохранить эту программу.

«Media Player»

Рекомендуем скачать другие рефераты по теме: курсовая работа по менеджменту, реферат факторы.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата