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

TypeHDD:String[255]; //ATA, SATA, SATA2...

Capacity:Word; //Об’єм в Гб

Cache:String[5]; //Об’єм кешу в Мб

end;

Computer=record //Комп’ютер

Number:Word; //Номер

USER:String[255]; //Працівник

MVC:VideoCard; //Відеокарта

MM:Monitor; //Монітор

MP:Processor; //Процесор

MMB:MotherBoard; //Материнська плата

MR:RAM; //Оперативна пам’ять

MH:HDD; //Вінчестер

end;

Department=record //Відділ

Name:String[255]; //Назва відділу

Director:String[255]; //Керівник відділу

CompsCount:Byte; //Кількість комп’ютерів в відділі

Comps:array[1..100] of Computer; //Масив до 100 комп’ютерів в одному відділі

end;

TForm1 = class(TForm)

SG: TStringGrid;

GroupBox1: TGroupBox;

ComboBox1: TComboBox;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label2: TLabel;