Курсовая работа: Облік компютерів та комплектуючих на підприємстві

procedure N17Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N19Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

F:File of Department; //Файл запису

Dep:array[1..30] of Department; //Масив відділів

Count:Byte=0; //Кількість відділів

ADD:Boolean=True; //При додавані нового комп’ютера True, а при редагувані False

SR:Byte=0; //Select Row, номер по списку вибраного комп’ютера із таблиці

Editing:Boolean=False; //Ознака редагування