2,497
社区成员
发帖
与我相关
我的任务
分享
procedure Tmain.BitBtn1Click(Sender: TObject);
begin
sqlquery1.Close;
sqlquery1.SQL.Clear;
sqlquery1.SQL.Add('select * from Car_into ');
sqlquery1.Open;
sqlquery1.ExecSQL();
main.PageControl1.Pages[0].TabVisible:=false;
main.PageControl1.Pages[1].TabVisible:=false;
main.PageControl1.Pages[2].TabVisible:=false;
pagecontrol1.Visible :=true;
pagecontrol1.ActivePage := Tabsheet1;
end;
dataset-->SQLconnection-->DataSource-->Dataset......
procedure Tmain.BitBtn1Click(Sender: TObject);
begin
sqlquery1.Close;
sqlquery1.SQL.Clear;
sqlquery1.SQL.Add('select * from Car_into ');
sqlquery1.Open;
//sqlquery1.ExecSQL();--查詢檢索數據不需要ExecSQL
main.PageControl1.Pages[0].TabVisible:=false;
main.PageControl1.Pages[1].TabVisible:=false;
main.PageControl1.Pages[2].TabVisible:=false;
pagecontrol1.Visible :=true;
pagecontrol1.ActivePage := Tabsheet1;
end;