delphi的類寫在哪裡

2023-02-04 17:55:28 字數 2336 閱讀 2200

1樓:匿名使用者

tlist=class(tobject) //類tlist的宣告

private

datamod:tdatamod; //私有變數

public

//公共方法的定義

function listrec(list_code:string):boolean;

function listsfind(sql:string):boolean;

function lists(findsql:string):olevariant;

procedure listinsert(insertsql:string);

procedure listupdata(updatesql:string);

procedure listdelete(deletesql:string);

//構造方法的宣告

constructor create;

destructor destroy;override;

end;

implementation

//構造方法的實現

constructor tlist.create;

begin

datamod:=tdatamod.create(nil);

end;

destructor tlist.destroy;

begin

freeandnil(datamod);

inheritde;

end;

//其他公共方法的實現

function tlist.listrec(list_code:string):boolean;

begin

datamod.adoq2.close;

datamod.adoq2.sql.chear;

datamod.adoq2.sql.add('select * from list_info'+'where list_code='''+list_code'''');

datamod.adoq2.open;

if datamod.adoq2.eof then result:=false

else result:true;

end;

function tlist.listsfind(sql:string):boolean;

begin

datamod.adoq2.close;

datamod.adoq2.sql.clear;

datamod.adoq2.sql.add(sql);

datamod.adoq2.open;

if datamod.adoq2.eof then result:=false

else result:=ture;

end;

procedure tlist.listinsert(insertsql:string);

begin

datamod.adoq2.close;

datamod.adoq2.sql.clear;

datamod.adoq2.sql.add(insertsql);

datamod.adoq2.execsql;

end;

procedure tlist.listupdata(updatasql:string);

begin

datamod.adoq2.close;

datamod.adoq2.sql.clear;

datamod.adoq2.sql.add(updatasql);

datamod.adoq2.execsql;

end;

procedure tlist.listdelete(deletesql:string);

begin

datamod.adoq2.close;

datamod.adoq2.sql.clear;

datamod.adoq2.sql.add(deletesql);

datamod.adoq2.execsql;

end;

function tlist.lists(findsql;string);olevariant;

begin

datamod.sel_adoq1.close;

datamod.sel_adoq1.clear;

datamod.sel_adoq1.add(findsql);

datamod.sel_adoq1.open;

result:datamod.sel_dsp1.data;

end;

2樓:匿名使用者

tlist=class(tobject)

軟文編寫在哪裡釋出,寫好的軟文去哪裡釋出?

軟文寫作的幾種手法 補敘法補敘主要用於對上文的敘述補充說明,一般是片斷性的 簡要的,不具備完整的事件,也可以把解釋或說明的文字放在前面,以引起下文。補敘的作用,一般不發展情節 事件,只對原來的敘述起豐富 補充作用。直接抒情法 直接抒情可以使感情表達得樸實真切,震動人心,堅定不移。直接抒情一般適用於抒...

怎麼寫古詩的格式詩名寫在哪,作者寫在哪,古詩開頭寫在哪

問問同學啊,我們怎麼可能知道你們老師的規定 詩名寫在哪,作者寫在哪,古詩開頭寫在哪 安定城樓 唐代 李商隱 迢遞高城百尺樓,綠楊枝外盡汀洲。賈生年少虛垂淚,王粲春來更遠遊。永憶江湖歸白髮,欲迴天地入扁舟。不知腐鼠成滋味,猜意鵷雛竟未休。寫硬筆古詩字帖作者寫在 下面分情況討論一下 1.單首詩 作者一般...

中國強大在哪裡,新中國的強大,在哪裡?

綜合國力,軍事實力,經濟實力等 中國強大在 最大的強大就是能安居樂業 很多國家和平是一種夢想 只能想,最起碼不混亂 新中國的強大,在 中國真正的強大之處在 德 這一方面,中國不容小覷 我們的祖國是一個強大的國家,1949年 20xx年,這六十年的輝煌歷史,記載著中國人民從貧窮走向富強的光輝歷程。解放...