【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“datasource.pas”一文,供大家参考学习!
unit datasource;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;
type
Tdatasourcefrm = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
datasourcefrm: Tdatasourcefrm;
implementation
{$R *.dfm}
procedure Tdatasourcefrm.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from BASE_DATA');//从销售表中读出所有记录
adoquery1.Open;
end;
end.
上一篇:
DataMoudle.pas
下一篇:
计算机毕业论文答辩2014年