publicfunc.pas

晓风财务软件源码,具有财务软基本功能,仅供学习,勿商用,后果与本人无关 1、使用的第三方VCL: FastReport2.6中文版 EHLIB3 sncCurrency SUIPac

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.