publicfunc.pas

来自「一套非常发好的财务管理软件,想从事此方面开发的可以借签」· PAS 代码 · 共 44 行

unit PublicFunc;

interface
uses
  SysUtils, DB, ADODB, Forms ,ExtFUnc;

var
  _var:integer;
  function GetOptionsKeyValue(adoc:TAdoConnection;Key:string):string;
  procedure SetOptionsKeyValue(adoc:TAdoConnection;Key,Value:string);

implementation

function GetOptionsKeyValue(adoc:TAdoConnection;Key:string):string;
var
  TempQ:TAdoQuery;
begin
  TempQ:=TAdoQuery.Create(Application);
  TempQ.Connection:=adoc;
  TempQ.Close;
  TempQ.SQL.Clear;
  TempQ.SQL.Add('select * from Options where [Key]='''+Key+'''');
  TempQ.Open;
  result:=Trim(TempQ.FieldByName('Value').AsString);
  TempQ.Close;
  TempQ.Destroy;
end;

procedure SetOptionsKeyValue(adoc:TAdoConnection;Key,Value:string);
var
  TempQ:TAdoQuery;
begin
  TempQ:=TAdoQuery.Create(Application);
  TempQ.Connection:=adoc;
  TempQ.Close;
  TempQ.SQL.Clear;
  TempQ.SQL.Add('update Options set [value]='''+Value+''' where [Key]='''+Trim(Key)+'''');
  TempQ.ExecSQL;
  TempQ.Close;
  TempQ.Destroy;
end;

end.