;
Також, обробляємо процедуру для скасування даних у разі неправильного запису (Кнопка Скасувати):
procedure TForm2.BitBtn2Click (Sender: TObject);. text: ='';. text: ='';. text: ='';. text: ='';. text: = '';. setfocus;
end;
Форма перегляду всієї продукції
В
При натисканні на кнопку перегляд у меню необхідно показати форму перегляду даних, для цього обробляємо процедуру OnActivate:
procedure TForm3.FormActivate (Sender: TObject);: integer;. Cells [0,0]: = 'Вид
{$ I-} (f);
{$ I +} ioresult <> 0 then showmessage ('Файлу немає);: = 1; not (EOF (f)) do (f, a);. Cells [0, i ]: = a.vid;. Cells [1, i]: = a.name;. Cells [2, i]: = a.number;. Cells [3, i]: = a.preace;. Cells [4 , i]: = a.ops;: = i +1;; (f);
end;
Форма пошуку по виду продукції
В
Обробляємо процедуру натискання # 13 (Enter) після введення певного критерію:
implementation
{$ R *. dfm} unit1, unit2, unit3; TForm4.Edit1KeyPress (Sender: TObject; var Key: Char);: integer; key = # 13 then.Cells [0,0] : = 'Вид (EOF (f)) do (f, a); a.vid = edit1.Text then.Cells [0, i]: = a.vid;. Cells [1, i]: = a.name;. Cells [ 2, i]: = a.number;. Cells [3, i]: = a.preace;. Cells [4, i]: = a.ops;: = 1;;; (f);
end;;
Пошук відбувається аналогічно, от тільки змінюється критерій вимоги в пошуку.
5. Інструкція користувача
Даний проект призначений для створення інформаційно-довідкової системи В«Парфумерна компанія AvonВ», іншими словами, в цій програмі буде зберігатися інформація про самої продукції: її вид, назву, номер, ціна і опис. Крім того в програмі є функції введення, перегляду та пошуку. p align="justify"> Існуючий інтерфейс програми досить простий у розумінні, але іноді виникають питання, то дана інструкція дозволить вас позбутися від них.
Гґ Введення:
В§ вводити потрібну інформацію потрібно тільки в певну комірку;
В§ кнопку не натискайте більше одного разу (всі дані зберігаються з першого натискання);
В§ кнопка потрібна тільки в тому випадку, якщо ви набрали неправильний текст.
В§ вихід вчиняється як у стандартних програм на натиснення кнопки .
Гґ Перегляд: ...
