procedure TMain.BitBtn1Click(Sender: TObject);
VAR
AdoQ1: TADOQuery;
DSQ1:TDataSource;
begin
AdoQ1:= TADOQuery.Create(Application);
AdoQ1.Connection:=ADOConnection1;//系結
DSQ1:= TDataSource(Application);//創建控制元件
DSQ1.DataSet:=AdoQ1; //系結//好像這句就出錯了,可以運行,但是點擊就出錯。
end;
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/115003.html
標籤:語言基礎/算法/系統設計
