config.~pas

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

unit config;

interface
uses
 SysUtils,forms;
type
  TXQWYConfig=class
  connectionstr:string;
  public
     class function getConnectionStr:string;
end;
implementation
class function TXQWYConfig.getConnectionStr;
begin
  result:='Provider=SQLOLEDB.1;Password=a;Persist Security Info=True;User ID=sa;Initial Catalog=XQWY;Data Source=(local)';
end;
end.