Дипломная работа: Автоматизированная система учета по подключению Интернет-сети в РУП "Белтелеком"

Button2: TButton;

Button3: TButton;

DBNavigator1: TDBNavigator;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm12.Button2Click(Sender: TObject);

var

Pole : ShortString;

begin

Case RadioGroup1.ItemIndex of

0:Pole:='FIO';

1:Pole:='God rozhdenia' ;

2:Pole:='Address' ;

3:Pole:='Telefon' ;

end;

If not (Table1.Locate(Pole, Edit1.Text,[loCaseInsensitive, loPartialKey])) then

messagedlg ('Неттакихданных!'+#13 +'',mtinformation,[mbok],0);

end;