Пример базы данных на Delphi 2.0 — страница 3

  • Просмотров 2378
  • Скачиваний 468
  • Размер файла 57
    Кб

'+'╠юфхы№:'+DM.Table4MODEL.Value); end else if Edit1.text <> '' then begin try sd:=STRToFloat(Edit1.Text); if not DM.Table4.Locate(Pole,sd,[LoCaseInsensitive,LoPartialKey]) then begin ShowMessage('╟эрўхэшх'+ ' '+Edit2.text+' '+'эх эрщфхэю'); Form2.Label2.Caption:=''; end else Form2.Label2.caption:=('╩рЄхуюЁш :' +DM.Table4CATEGORIJA.Value+' '+'╘шЁьр:'+DM.Table4Firma.Value+' '+'╠юфхы№:'+DM.Table4MODEL.Value); except on EConvertError do begin ShowMessage('эхяЁртшы№э√щ ттюф !'); Form2.Label2.Caption:=''; end end; { DM.Table4.FindFirst;} end;end; end.