F
fuxin198311
Unregistered / Unconfirmed
GUEST, unregistred user!
例有一张表
学号 姓名 性别
20032712 张三 男
20032714 张红 女
现在我在combobox中有查找选项是 学号 及姓名 但是我想这只能精确查找 但是我想查看全部的就不行了 但是不可能在combobox中加全部呀 因为表中无这个字段 求各位帮下小弟了怎么办呢 我的代码是这样的
procedure TFYDJGL.FormCreate(Sender: TObject);
var i:integer;
begin
list1:=tstringlist.Create ;
list2:=tstringlist.Create ;
list1.Add('xh');
list2.Add('学号');
list1.Add('xm');
list2.Add('姓名');
for i:=0 to list1.count-1 do
combobox1.Items.Add(list2.Strings);
if ComboBox1.Items.Count=0 then exit;
ComboBox1.ItemIndex:=0;
end;
查找按钮的事件代码
procedure TT1010AForm.SpeedButton1Click(Sender: TObject);
var k:integer;
begin
if (trim(edit1.Text)='') or (combobox1.ItemIndex=-1) then
begin
showmessage('请输入查询值!');
exit;
end;
try
k:=combobox1.ItemIndex ;
with adoquery1 do
begin
close;
sql.Clear ;
sql.add('select * from T1010 where '+list1.strings[k]+'='''+edit1.Text+'''');
open ;
active:=true;
if adoquery1.RecordCount=0 then
showmessage('没有这个数值!');
end;
except
showmessage('查询失败!');
end;
end;
学号 姓名 性别
20032712 张三 男
20032714 张红 女
现在我在combobox中有查找选项是 学号 及姓名 但是我想这只能精确查找 但是我想查看全部的就不行了 但是不可能在combobox中加全部呀 因为表中无这个字段 求各位帮下小弟了怎么办呢 我的代码是这样的
procedure TFYDJGL.FormCreate(Sender: TObject);
var i:integer;
begin
list1:=tstringlist.Create ;
list2:=tstringlist.Create ;
list1.Add('xh');
list2.Add('学号');
list1.Add('xm');
list2.Add('姓名');
for i:=0 to list1.count-1 do
combobox1.Items.Add(list2.Strings);
if ComboBox1.Items.Count=0 then exit;
ComboBox1.ItemIndex:=0;
end;
查找按钮的事件代码
procedure TT1010AForm.SpeedButton1Click(Sender: TObject);
var k:integer;
begin
if (trim(edit1.Text)='') or (combobox1.ItemIndex=-1) then
begin
showmessage('请输入查询值!');
exit;
end;
try
k:=combobox1.ItemIndex ;
with adoquery1 do
begin
close;
sql.Clear ;
sql.add('select * from T1010 where '+list1.strings[k]+'='''+edit1.Text+'''');
open ;
active:=true;
if adoquery1.RecordCount=0 then
showmessage('没有这个数值!');
end;
except
showmessage('查询失败!');
end;
end;