недорого.
|
Автор: Administrator
|
|
Процедура добавление нового префикса или нового регионального оператора. Нажатие кнопки «Добавить»
procedure TForm1.Button4Click(Sender: TObject);
var
ROName:shortstring;
begin
if (combobox6.Text='') or (checkstr(edit14.Text,1)) or(length(edit14.Text)<>3)
then begin showmessage('Данные введены не верно'); exit; end;
if radiogroup2.ItemIndex=0 then
begin
if edit13.Text='' then begin showmessage('Веедите название оператора'); exit; end;
ROName:=edit13.Text;
end
else begin
if combobox7.Text='' then begin showmessage('Выберите название оператора'); exit; end;
ROName:=combobox7.Text;
end;
if adotable3.Locate('Pr',strtoint(Edit14.Text),[]) then
begin ShowMessage('Такой префикс уже существует!'); exit; end
else
begin
adotable3.AppendRecord([strtoint(Edit14.Text),ROName,combobox6.Text]);
ShowMessage('Добавлено!')
end;
|