m3.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then Table1.Locate('Rukov', Edit1.Text, [loPartialKey]) else
if RadioButton2.Checked=true then Table1.Locate('VidDoc', Edit1.Text, [loPartialKey]) else
if RadioButton3.Checked=true then Table1.Locate('DataPost', Edit1.Text, [loPartialKey]) else
ShowMessage('Такие данные отсутствуют в таблице')
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
with Table1 do
Next
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then Table2.Locate('Poruchitel', Edit1.Text, [loPartialKey]) else
if RadioButton2.Checked=true then Table2.Locate('Datapor', Edit1.Text, [loPartialKey]) else
ShowMessage('Такие данные отсутствуют в таблице')
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then Table3.Locate('Ispolnitel', Edit1.Text, [loPartialKey]) else
if RadioButton2.Checked=true then Table3.Locate('DataFact', Edit1.Text, [loPartialKey]) else
ShowMessage('Такие данные отсутствуют в таблице')
end;
Рефераты и/или содержимое рефератов предназначено исключительно для ознакомления, без целей коммерческого использования. Все права в отношении рефератов и/или содержимого рефератов принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие или полученные в связи с использованием рефератов и/или содержимого рефератов.