杭
杭彦彤
Unregistered / Unconfirmed
GUEST, unregistred user!
代码没语法错误
按我的代码，当combox的text值改变时，只是执行简单的赋值操作，并不会在dbgrid里显示什么！
但奇怪就奇怪在第一次点选combox后就在dbgrid那显示记录了！！不过以后都要按button才会显示
代码如下：
procedure TForm1.c1change(Sender: TObject);//*c1就是combobox1组件的名字
begin
if c1.text='星期一' then a:='1'
else if c1.text='星期二'then a:='2'
else if c1.text='星期三'then a:='3'
else if c1.text='星期四'then a:='4'
else if c1.text='星期五'then a:='5'
else if c1.text='星期六'then a:='6'
else if c1.text='星期日'then a:='7'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with q1 do//*q1是sql组件的名字
begin
close;
sql.Clear;
sql.add('select * from"test.db"where 班期 like '+#39+'%'+a+'%'+#39'');
open;
end;
按我的代码，当combox的text值改变时，只是执行简单的赋值操作，并不会在dbgrid里显示什么！
但奇怪就奇怪在第一次点选combox后就在dbgrid那显示记录了！！不过以后都要按button才会显示
代码如下：
procedure TForm1.c1change(Sender: TObject);//*c1就是combobox1组件的名字
begin
if c1.text='星期一' then a:='1'
else if c1.text='星期二'then a:='2'
else if c1.text='星期三'then a:='3'
else if c1.text='星期四'then a:='4'
else if c1.text='星期五'then a:='5'
else if c1.text='星期六'then a:='6'
else if c1.text='星期日'then a:='7'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with q1 do//*q1是sql组件的名字
begin
close;
sql.Clear;
sql.add('select * from"test.db"where 班期 like '+#39+'%'+a+'%'+#39'');
open;
end;
!][