W
wl790102
Unregistered / Unconfirmed
GUEST, unregistred user!
这是一个文本框的keypress事件中的代码，想法是回车，设置数据模块dm中的clzd(Ttable1)的
filter 为 材料名称 like '%字符%' 字符为当前文本框的内容，然后把筛选过的table中所有的
材料名称 加到listbox中，让其选择，最后得到选择的结果（材料名称，材料序号）放入变量
请高手指点（我刚学delphi）
var cxm1:string;
i:integer;
begin
if key=#13 then
begin
cxm1:=clmc.Text;
dm.clzd.filter:='材料名称 like '+#37+cxm1+#37;
dm.clzd.active:=true;
for i:=1 to dm.clzd.RecordCount do
begin
ListBox1.Items.Add(dm.clzd.FieldValues['材料名称']);
next;
end;
ListBox1.Visible:=true;
ListBox1.SetFocus();
end;
end;
filter 为 材料名称 like '%字符%' 字符为当前文本框的内容，然后把筛选过的table中所有的
材料名称 加到listbox中，让其选择，最后得到选择的结果（材料名称，材料序号）放入变量
请高手指点（我刚学delphi）
var cxm1:string;
i:integer;
begin
if key=#13 then
begin
cxm1:=clmc.Text;
dm.clzd.filter:='材料名称 like '+#37+cxm1+#37;
dm.clzd.active:=true;
for i:=1 to dm.clzd.RecordCount do
begin
ListBox1.Items.Add(dm.clzd.FieldValues['材料名称']);
next;
end;
ListBox1.Visible:=true;
ListBox1.SetFocus();
end;
end;