【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“basedata_unit.pas”一文,供大家参考学习
unit basedata_unit;
interface
uses
Windows,Messages,SysUtils,Variants,DBclient,Classes,datamod_unit;
type
//定义类名为Tbase_data
Tbase_data=class(TObject)
private
//定义类中要用到的其他类
Datamod:TDataModule2;
public
//这里定义类中的方法和过程
function FindJobsRec():OLEVariant;
constructor create;
destructor Destroy;override;
end;
implementation
//在该类创建时实例化数据连接层类
constructor Tbase_data.create;
begin
Datamod:=TDataModule2.Create(nil);
end;
//在该类用完后将数据连接层类的实例释放掉
destructor Tbase_data.Destroy ;
begin
freeandnil(Datamod);
inherited;
end;
//定义方法的具体实现
function Tbase_data.FindJobsRec():OLEVariant;
begin
Datamod.adoq1.Close;
Datamod.adoq1.SQL.Clear;
Datamod.adoq1.SQL.Add('select * from base_data');
Datamod.adoq1.Open;
result:=Datamod.dsp1.Data;
end;
end.
上一篇:
BaseClass.pas
下一篇:
如何当一个轻松的班主任