global.~pas

来自「学员管理的软件」· ~PAS 代码 · 共 73 行

unit Global;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TTglobal = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Tglobal: TTglobal;
  userid:integer;//登陆人ID
  username:string;
  qx:string;//权限
  ip:string='127.0.0.1';
  db_name:string='sa';
  db_pass:string='';
  db_initcat:string='exam';
  which_pic:boolean=false;
  sj_sqlstr:string;
  blnopensound:boolean=false;//是否打开音效
  selsqlstr:string;//存放主界面网格中的SQL语句的SELECT部分
  encodearr:array[1..15] of integer=(113,12,13,100,52,
  14,22,56,65,78,
  84,78,20,32,89);

implementation
{$R *.dfm}
function encode(s:string):string;
var
tempstr:string;
i,ii:integer;
w:byte;
begin
ii:=1;
tempstr:='';
  for i:=1 to length(s) do
  begin
     w:=ord(s[i]) xor encodearr[ii];
     inc(ii);
     tempstr:=tempstr+chr(w);
     if ii>=15 then ii:=1;
  end;
  result:=tempstr;
end;

function decode(s:string):string;
var
tempstr:string;
i,ii:integer;
w:byte;
begin
ii:=1;
tempstr:='';
  for i:=1 to length(s) do
  begin
     w:=ord(s[i]) xor encodearr[ii];
     inc(ii);
     tempstr:=tempstr+chr(w);
     if ii>=15 then ii:=1;
  end;
  result:=tempstr;
end;


end.