lektsia_3-1

Задача: дан тестовый файл, содержащий информацию о реализации телефонов: модель, дата продажи, количество. Вывести информацию из файла в строковую таблицу. Создать дополнительную форму для добавления данных в таблицу. При добавлении модель телефона выбирать из списка, сформированного по прайс – листу, дату – из календаря.

var
Form2: TForm2;
f: textfile;
tel:telef;
implementation
uses Unit1;
{$R *.dfm}
//Заполнение списка
procedure TForm2.FormCreate(Sender: TObject);
begin combobox1.Items.Clear;
assignfile(f,'d:\8888\tel.txt'); reset(f);
while not eof(f) do begin
readln(f,tel.model);
readln(f,tel.cena);
readln(f,tel.kar);
combobox1.Items.Add(tel.model);
end;
closefile(f);
end;

//Добавление данных
procedure TForm2.Button1Click(Sender: TObject);
begin
if (combobox1.Text='') or (edit1.text='') then begin
showmessage('Введите данные');exit; end;
form1.sg.rowcount:=form1.sg.rowcount+1;
form1.sg.cells[0,form1.sg.rowcount-1]:=combobox1.text;
form1.sg.cells[1,form1.sg.rowcount-1]:=
datetostr(datetimepicker1.date);
form1.sg.cells[2,form1.sg.rowcount-1]:=edit1.text;
end;
//очистка полей
procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.text:='';
combobox1.text:='';
end;

Подключение стандартных диалогов.
На вкладке Dialogs имеется палитра, содержащая 10 стандартных диалогов (невизуальные объекты).
Opendialog – выбор открываемого файла.
Savedialog – выбор сохраняемого файла.
Openpicturedialog – выбор открываемого графического файла.
Savepicturedialog – выбор сохраняемого графического файла.
Fontdialog – настройка параметров шрифта.
Colordialog – выбор цвета.
Printdialog – вывод на принтер…
Для вызова любого стандартного диалога используется метод execute Возвращаемое значение определяется типом диалога. Например, открытие файла - opendialog1.filename, выбор цвета - colordialog1.color.

Основными свойствами компонентов opendialog и savedialog являются:
Filename:string – указывает имя и полный путь файла, выбранного в диалоге.
Initialdir:string – определяет каталог, содержимое которого отображается при вызове окна диалога. Если каталог не задан, то отображается содержимое текущего каталога.
Defaultext:string – задает расширение, автоматически подставляемое к имени файла, если пользователь не указал расширение имени.
Filter:string – задает маски имен файлов, отображаемых в раскрывающемся списке под названием Типы файлов. В окне диалога видны имена файлов, которые совпадают с указанной маской. По умолчанию пустая строка, т.е. все файлы. *.txt;*.doc (если два или больше). Устанавливается в инспекторе объектов.

Текстовые документы *.txt;*.doc
filterindex:integer – указывает какая из масок фильтра отображается в списке. По умолчанию значение равно единицы, и используется первая маска. Устанавливается в инспекторе объектов.
if opendialog1.execute then assignfile(f,opendialog1.filename);

Создание меню приложения.
Компонент TMainMenu вкладка Standart

Добавление блокнота на форму
Pagecontrol вкладка win 32

Форма с главным меню (Файл и расчет). На форме картинка на всю форму.
Файл Расчет
Стоимость (посчитать для каждого посещения)
загружаете инф. о клиентах и добавляем
столбец стоимость и сохраняем в
текстовый файл в виде таблицы
Диаграмма
Клиенты спортклуба (загрузить, добавить (через др. форму), удалить, сохранить)
Прайс- лист (загрузить, добавить, удалить, сохранить) проверка на уникальность
Выход (form1.close;)
Загрузка, сохранение только через диалоги
Файл клиенты: ФИО, вид тренировки, возраст, дата посещения. (минимум 25 записей)
Файл прайс – лист: вид тренировки, цена (минимум 7 записей)