求助:delphi能否把数据库操作单独作为一个文件 因为以前用java的时候,是可以把单独的数据库操作,比如打开连接,删除,插入等,作为单独文件里的一个函数存在的,那其他文件调用就可以了,因为刚开始用delphi,不知道可不可以这样操作,我自己每次的操作都是在每一个FORM里分别加ADOConnection,ADOQuery的,这样我想是不是不能把关于connection和query的脱离FORM操作呢?有没有大侠指点一下,如有类似代码演示,更好。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 当然可以再封装,做法是类似的.你搜"Delphi ADO 封装"应该能找到一些参考,但别人封装的是不是适合你的具体使用需求就不一定了,也可以自己看懂后再改改. 用datamodule或者自己封装一个公共类 像这样封装吗:class function TDBTool.ExecDL(const Conn: TADOConnection; var AdoQu: TADOQuery; const sql: string): Boolean;begin AdoQu.Connection := Conn; AdoQu.SQL.Text := sql; try AdoQu.Open; Result := True; except Result := False; Debug.Write('执行查询语句: ' + sql); end;end; DELPHI编写数据库应用系统的功能强大,当然可以 edit1.Text:=adoquery1........... 怎么获取美女的心,看看这些... Raize 有没有问题,进者有分 怎样将字符串类型转换为字符类型 哪位朋友有这个控件 高手们指点一下,为什么我的程序编译后那么大? 如何获得某个窗体上的所有控件?急! 真的很感谢各位高手的帮助,今天我学到了很多知识,但是小弟还有一个简单的问题,急急急!!! updatesql出错: 如何自动Login Access数据库? 运行Dephi程序时,出现未发现ExceptionLog.dcu,不知是什么原因? 找人写一个程序
class function TDBTool.ExecDL(const Conn: TADOConnection;
var AdoQu: TADOQuery; const sql: string): Boolean;
begin
AdoQu.Connection := Conn;
AdoQu.SQL.Text := sql;
try
AdoQu.Open;
Result := True;
except
Result := False;
Debug.Write('执行查询语句: ' + sql);
end;
end;