本文整理自网络,侵删。
UniConnection1.ProviderName := 'Access'; UniConnection1.Database := ExtractFilePath(Application.ExeName) + '\data.mdb';
UniQuery1.Connection := UniConnection1; UniQuery1.Close; UniQuery1.SQL.Text := 'select * from kisiler'; UniQuery1.Open;
DataSource1.DataSet := UniQuery1; DBGrid1.DataSource := DataSource1;
DBEdit1.DataSource := DataSource1; DBEdit2.DataSource := DataSource1; DBEdit3.DataSource := DataSource1;
DBEdit1.DataField := 'Ad'; DBEdit2.DataField := 'Soyad'; DBEdit3.DataField := 'Resim';
相关阅读 >>
Delphi示例代码 android,ios,osx,windows,linux,html5
更多相关阅读请进入《Delphi》频道 >>