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

implementation

uses Unit4, Unit1;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

4:begin

Form11.Table1.Filtered:=false;

Edit2.Text:='';Edit3.Text:='';

Edit1.Text:='';

end;

1:begin

if edit2.Text='' then

ShowMessage ('введитеадрес')

else

Form11.Table1.Filter:='Address'+'='+AnsiQuotedStr(edit2.Text,'''');

Form11.Table1.Filtered:=true;

end;

2: begin

if edit3.Text='' then

ShowMessage ('введитеномертелефона')

else

Form11.Table1.Filter:='Telefon'+'='+AnsiQuotedStr(edit3.Text,'''');

Form11.Table1.Filtered:=true;

end;

3: begin

end;

0:begin

if edit1.Text='' then