类似Access查找中的记忆功能

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;

佳蓝智能应答系统

类似智能机器人程序，以聊天对话框的界面显示，通过输入问题、或点击交谈记录中的超链接进行查询，从而获取访客需要了解的资料等信息。系统自动保留用户访问信息及操作记录。后台有详细的设置和查询模块。适用领域：无人职守的客服系统自助问答系统智能机器人开发文档、资源管理系统……基本功能：设置对话界面的显示参数设置各类展示广告根据来访次数显示不同的欢迎词整合其他程序。

4

查看详情