Курсовая работа: Кадровий облік

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox3Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);

function FindInRec(Index: Integer): Integer;

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

type

Kadr=record

TabN: Integer; // Табельний номер

LastName: String [255] ; // Прізвище

Name: String [255] ; // Ім’я

Patronymic: String [255] ; // По Батькові

BirthData: Data; // Дата народження

BirthPlace: String [255] ; // Місце народження

Stat: Boolean; // Стать

IndCode: String [10] ; // Ідентифікаційний код

ReceptionData: Data; // Дата прийому на роботу

Experience: Integer; // Стаж