delphi7中遇到的问题
procedureTForm3.Button1Click(Sender:TObject);beginadoquery1.Close;Adoquery1.sql.Clear...
procedure TForm3.Button1Click(Sender: TObject);
begin
adoquery1.Close;
Adoquery1.sql.Clear;
adoquery1.sql.Add('select * from 学生基本信息表');
adoquery1.open;
dbgrid1.Visible:=true;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
if combobox1.ItemIndex=0
then begin
adoquery1.Close;
Adoquery1.sql.Clear;
adoquery1.sql.Add('select *from 学生基本信息表 where 姓名='''+edit1.Text+'''');
adoquery1.open;
if adoquery1.RecordCount=0 then
showmessage('对不起,没有该姓名的信息');
dbgrid1.Visible:=true;
end
我将SQL中的表导入到delphi中,用的是comboBox作为查询条件,运行是出现错误,错误提示是undeclared identify adoquery1,急求解答 展开
begin
adoquery1.Close;
Adoquery1.sql.Clear;
adoquery1.sql.Add('select * from 学生基本信息表');
adoquery1.open;
dbgrid1.Visible:=true;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
if combobox1.ItemIndex=0
then begin
adoquery1.Close;
Adoquery1.sql.Clear;
adoquery1.sql.Add('select *from 学生基本信息表 where 姓名='''+edit1.Text+'''');
adoquery1.open;
if adoquery1.RecordCount=0 then
showmessage('对不起,没有该姓名的信息');
dbgrid1.Visible:=true;
end
我将SQL中的表导入到delphi中,用的是comboBox作为查询条件,运行是出现错误,错误提示是undeclared identify adoquery1,急求解答 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询