config.pas

来自「这是一个小区物业管理系统」· PAS 代码 · 共 17 行

unit config;

interface
uses
 SysUtils,forms;
type
  TXQWYConfig=class   //定义连接管理类
  public
     class function getConnectionStr:string;  //定义类的方法，得到连接字符串
end;
implementation
class function TXQWYConfig.getConnectionStr;
begin
  result:='Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=XQWY;Data Source=(local)';
end;
end.