procedure tcomlocatefrm.locatebtnclick(sender: tobject);
var
setlooptions : tlocateoptions;
i : integer;
slkeys : tstrings;
begin
if combobox1.items.indexof(combobox1.text) try
slkeys := tstringlist.create;
slkeys.addstrings(combobox1.items);
combobox1.items.clear;
combobox1.items.add(combobox1.text);
for i := 0 to 8 do
if i combobox1.items.add(slkeys.strings[i]);
finally
slkeys.free;
end
else begin
i := combobox1.items.indexof(combobox1.text);
combobox1.items.insert(0,combobox1.text);
combobox1.items.delete(i+1);
combobox1.itemindex := 0;
end;
if rdoexactly.checked then
setlooptions := []
else
setlooptions := [lopartialkey];
if not desdataset.locate('ztm', combobox1.text, setlooptions) then
messagebox(handle, '没有找到符合条件的记录。', '提示', 0+64);
end;
本文作者: