ення/виводу.
Якщо операція завершилася нормально, то це число 0, позитивне число, якщо операція зазнала невдачі. p align="justify"> Використовуйте IOResult , коли ви вже відключили значення за замовчуванням відловлюють помилки введення/виведення. Коли $ IOChecks включено, Delphi видає виключення для помилок. Коли вимкнено Delphi не видає виключення, вимагаючи, щоб код сам стежив за результатом введення/виведення IOResult .
3. Структура бази даних
Як вище було сказано, база даних? це скупчення інформації і природно цю інформацію треба, де то зберігати. У цій роботі ми будемо використовувати один файл з розширенням van. Всі дані зберігаються в цьому ж файлі під назвою Avon.van, тобто там зберігатися вся інформація про вид продукції, про його назві, номери, ціною. p align="justify"> Наведемо нижче таблицю даних для формального запису у файлі:
ХарактерістікаНазваніе поляТіп поляВід продукцііvidstring [40] Названіеnamestring [150] Номерnumberstring [10] Ценаpreacestring [10] Опісаніеopsstring [150]
Всі опис структури у файлі, типів полів і файлових змінних для роботи з файлом бази даних робимо в головному модулі Unit1 проекту.
type = record: string [40];: string [150];: string [10];: string [10];: string [150];; = class (TForm): TMainMenu; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage; N1Click (Sender: TObject); N2Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); N5Click (Sender: TObject); N4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;: file of T;: T;
4. Опис програми
файл програмування інформаційний довідковий
Головна форма являє собою меню з вибором можливості вносити дані, переглядати і організовувати пошук інформації в базі даних.
В
Форма введення нової продукції
В
При натисканні на кнопку введення даних в меню необхідно показати форму введення даних. Для цього обробляємо подію OnClick для кнопки В«Ввода нової продукціїВ»:
procedure TForm1.N1Click (Sender: TObject); (f, 'Avon.van');
{$ I-} (f);
{$ I +} ioresult <> 0 then rewrite (f); (f, filesize (f));. show;
end;
На формі В«Введення нової продукціїВ» обробляємо процедуру для зберігання даних (Кнопка Зберегти):
procedure TForm2.BitBtn1Click (Sender:
Edit1.setfocus;...
