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

Button3: TButton;

OpenDialog: TOpenDialog;

SaveDialog: TSaveDialog;

Button4: TButton;

GroupBox3: TGroupBox;

ComboBox1: TComboBox;

Button5: TButton;

GroupBox4: TGroupBox;

CheckBox1: TCheckBox;

Button6: TButton;

Button7: TButton;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

XPManifest1: TXPManifest;

function GetData(S: String): Data;

procedure SaveToFile(FileName: String);

procedure LoadFromFile(FileName: String);

function DataToStr(D: Data): String;

procedure FormCreate(Sender: TObject);

procedure RecToRow(Index,Row: Integer);

procedure RefreshList;

procedure Button1Click(Sender: TObject);

procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button4Click(Sender: TObject);