Читать курсовая по информационному обеспечению, программированию: "Разработка программного обеспечения для обработки данных о товарах зоомагазина" Страница 3

(Назад) (Cкачать работу)

Было разработано главное окно программы, Данные представлены в виде таблицы, поэтому основная часть формы занимает таблица StrinGrid. На форме были расположены кнопки, они отображены на (Рисунок 1). Рисунок 1 - Главная форма программы Кнопка «Открыть» позволяет открыть диалоговое окно с информацией о товарах зоомагазина. Причем в заголовке отображено назначение диалогового окна. Оно отображено на рисунке 2. Для этого окна были установлены фильтры для открытия различных типов документов: текстовые файлы, все файлы (рисунок 3). Рисунок 2 - Открытие файла Рисунок 3 - Установленные фильтры Для реализации этой кнопки используется код:

TForm2.Button1Click(Sender: TObject);OpenDialog1.Execute then:=OpenDialog1.FileNames:='primer.txt';(f,s);(f);:=0;not eof(f) do(f);(f);(f);(f);(f);(k);(f);;(f);(f,s);(f);.ColCount:=5;.rowCount:=k;.cells[0,0]:='Наименование';.cells[1,0]:='Зоомагазин';.cells[2,0]:='Цена';.cells[3,0]:='Дата продажи';.cells[4,0]:='Дата поставки';i:= 1 to SG1.RowCount-1 doj:= 0 to SG1.ColCount-1 do begin(f,x);.Cells[j,i]:=x;;(f,x);;(f);; Кнопка «Добавить» позволяет добавить одну строку в таблицу StringGrid. Для реализации этой кнопки используется код:

TForm2.Button5Click(Sender: TObject); //добавитьSG1.RowCount>1 then.RowCount:=SG1.RowCount+1;; Кнопка «Удалить» позволяет удалить строку из таблицы. Для реализации этой кнопки используется код:

TForm2.Button6Click(Sender: TObject);: string;: integer;,j:integer;:=inputbox('Ввод данных','Введите номер строки для удаления', '1');

b:=strtoint(a);(b SG1.RowCount) then ShowMessage('Такого поля нет')SG1 do begini := b to RowCount - 1 doj := 0 to ColCount - 1 do[j,i]:=cells[j,i+1];:=RowCount-1;

;

;

end; Кнопка «Сохранить» сохраняет данные в открытом ранее пользователем файле. Для этого была описана глобальная переменная s, в которой сохраняется путь к файлу при работе. Для реализации этой кнопки используется код:

TForm2.Button2Click(Sender: TObject);s '' then begin

(f,s);(f);i:=1 to SG1.RowCount-1 doj:=0 to SG1.ColCount-1 do(f,SG1.cells[j,i]);(f,'');;(f)

end

('Вы не выбрали файл.'+#10#13+'Нужно открыть файл или создать новый и нажать кнопку "Сохранить как"');

; Кнопка «Сохранить как» сохраняет данные введенные в таблице как отдельный новый файл (Рисунок 5). Для реализации этой кнопки используется код:

TForm2.Button3Click(Sender: TObject);SaveDialog1.Execute then begin:=SaveDialog1.FileName+'.txt';

assignfile(f,s);

rewrite(f);i:=1 to SG1.RowCount-1 doj:=0 to SG1.ColCount-1 do(f,SG1.cells[j,i]);(f,'');;(f)

end('Вы не выбрали файл');

; Рисунок 5 - сохранение файла Кнопка «О программе» открывает информацию о самой созданной программе (Рисунок 6). Для реализации этой кнопки используется код:

TForm2.Button4Click(Sender: TObject);.show;; Рисунок 6 - О программе Кнопка «Об авторе» открывает информацию об авторе созданной программы (Рисунок 7). Для реализации этой кнопки используется код:

TForm2.Button7Click(Sender: TObject);

form4.show;

end; Рисунок 7 - Об авторе программы Кнопка «Выход» закрывает программу. Для реализации этой кнопки используется код:

TForm2.BitBtn1Click(Sender: TObject);

begin.close;;

Отладка ПС - это деятельность, направленная на обнаружение и исправление ошибок в ПС с использованием процессов выполнения его программ. В программе был использован способ «Трассировка». Это процесс

Похожие работы