missing operator or semicolon报错

[菜鸟求大神]

procedure TForm1.Edit1Change(Sender: TObject);
var
t:Integer;
begin
t:=StrToInt(Edit1.Text);
Label2.Caption:=IntToStr(t)
select * from dbgRID1 where GH:=(t)




求大神。。谢谢

[sololie]

最后两行后面少了分号 ;

[LastAvengers]

……除了这个……少了一个end;……好吧当我没说……

[feiba7288]

晕，分号都是小问题吧， 这句问题很大。。select * from dbgRID1 where GH:=(t) 怎么直接一个SQL语句，而且好像还是想select * from一个DBGrid？？？

[菜鸟求大神]

具体是怎么样的求指导啊

[菜鸟求大神]

我是想用delphi编一个程序，要求能查出所有职工的人员信息（工号，姓名，科室编号，可是名称）。然后还要求可以输出打印。 现在我就差语句了。求大神

[菜鸟求大神]

引用 3 楼 feiba7288 的回复:

晕，分号都是小问题吧， 这句问题很大。。select * from dbgRID1 where GH:=(t) 怎么直接一个SQL语句，而且好像还是想select * from一个DBGrid？？？

那怎么样改过来啊 我是想用delphi编一个程序，要求能查出所有职工的人员信息（工号，姓名，科室编号，可是名称）。然后还要求可以输出打印。

[reverzeng]

with query1 do begin sql.clear; sql.add('select * from table1 where gh='''+t+''''); active:=true; end;