类似Access查找中的记忆功能

来源：互联网发布：淘宝卖家演示卫生巾编辑：程序博客网时间：2024/04/28 05:55

procedure TComLocateFrm.LocateBtnClick(Sender: TObject);
var
   setLoOptions : TLocateOptions;
   i : Integer;
   slKeys : TStrings;
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)<0 then
try
    slKeys := TStringList.Create;
    slKeys.AddStrings(ComboBox1.Items);
    ComboBox1.Items.Clear;
    ComboBox1.Items.Add(ComboBox1.Text);
    for i := 0 to 8 do
      if i < slKeys.Count then
        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;

2004年12月21日21:45:59