Контрольная работа: Разработка программного комплекса

TWorker=record

FIO: string[100];

StartWork : TDate;

Edication : String[100];

Spec : String[100];

sex: byte;

Armi: String[100];

BirthDay: TDate;

end;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Exit1: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

StringGrid1: TStringGrid;

Button4: TButton;

Button5: TButton;

ComboBox1: TComboBox;

procedure Exit1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ReadData(fileName:string; new:bool);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure TableRowToWorker(index:integer; table:TStringGrid);

procedure AddRowToTable(row:TWorker; table:TStringGrid);

procedure EditTableRow(row:TWorker; table:TStringGrid);