Курсовая работа: Информационная система расчетов по договорам

// ===================

procedure TForm1. Button3Click (Sender: TObject);

begin

// процедурапоказа

If RadioButton1. Checked Then

Kp.XDShow

else if RadioButton2. Checked Then

Kp.WTKShow

else if RadioButton3. Checked Then

Kp.BANKShow;

Kp. Free;

end;

// ===================

procedure TForm1. Button8Click (Sender: TObject);

begin

FormActivate(Sender);

// процедуравнесениясодержимого StrigGrid всписок

If RadioButton1. Checked Then

Kp.XD(StringGrid1)

else if RadioButton2. Checked Then

Kp.WTK(StringGrid1)

else if RadioButton3. Checked Then

Kp.BANK(StringGrid1);

Kp. Free;

end;

// ===================

procedure TForm1.N6Click (Sender: TObject);

begin

// Поиск-меню-дублирующее