5 Опис процедур і функцій користувача
procedure Vvod; – виконує зчитування даних з клавіатури та заносить їх у файл rabota.dat.
procedure Vyvod; – виводить на екран дані, які записані у файлі rabota.dat.
procedure Dobavit; – додає інформацію у файл rabota.dat.
procedure Delete; – видаляє запис із заданим номером із файла rabota.dat.
procedure Redakt; – виконує редагування запису із заданим номером в файлі rabota.dat.
procedure Poisk; – виконує виведення на екран списка робітників цеху Х та їх заробітну плату, а також обчислює середню та максимальну заробітну плату цеху Х.
6 Опис стандартних процедур і функцій, що використовувались у програмі:
Процедури та функції для роботи з екраном та клавіатурою:
procedure GoToXY(X, Y:Byte); – переводить курсор в задану позицію екрана з координатами x (стовпчик), y (рядок).
Процедури та функції для роботи з файлами:
procedure assign (<логічне ім’я файлу>, <фізичне ім’я файлу>); – встановлює відповідність між логічним і фізичним іменами файлу. Логічне ім’я – це ім’я змінної з розділу опису var. За цим іменем до файлу звертаються у програмі. Фізичне ім’я – це ім’я, під яким файл записаний на диску.
7 Інструкція для роботи з програмою: системному програмісту, користувачу
Для запуску програми необхідно запустити файл robitnik.exe.
Після запуску файлу з’являється заставка програми, при натисненні будь-якої клавіші з’являється меню.
В меню вибираємо необхідний пункт за допомогою введення відповідного номера і натискаємо enter.
8 Текст програми
unit Above;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Timer1: TTimer;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
procedure Label8Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..
……………………………………………………………………………………………………………………………………………………………………………………………………..