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(ComboBox
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;
功能介绍：对每一个登记的企业都要进行信息审核管理，付费后即可加入；对搜索关键词具有只能辨别功能，可选择智能或模糊；具有企业信誉测评功能，搜索排名按照用户打分的分值排列；对每一个企业都进行票数统计，积分统计和点击数统计；星级会员企业功能，会员等级高的企业更容易被客户搜索到；具有省市检索功能，可以搜索该省市的所有企业；企业信息自动更新替换，信息需要经过审核；高级分类查找功能，对每个城市的企业进行单独的
0
本文作者:
每个人都需要一台速度更快、更稳定的 PC。随着时间的推移，垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是，许多工具可以让 Windows 保持平稳运行。
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号
112
收藏
