永年司机招聘最新信息:delphi源代码分析

来源:百度文库 编辑:中科新闻网 时间:2024/05/12 12:40:51
procedure TForm1.FormCreate(Sender:TObject);
begin
with Query1 do;
begin
Close;
SQL.Clear; //清空SQL语句
SQL.Add('select*form cj');
Open;
end;
end;

没什么错误,把do后边的分号去掉就可以了
procedure TForm1.FormCreate(Sender:TObject);
begin
with Query1 do
begin
Close;
SQL.Clear; //清空SQL语句
SQL.Add('select*form cj');
Open;
end;
end;