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年，這六十年的輝煌歷史，記載著中國人民從貧窮走向富強的光輝歷程。解放...