Delphi控件源码

开发平台：
Delphi

U_public.~pas：源码内容
							unit U_public;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls,DBGrids, DBClient, DB, Registry, winsock;
//定义表中通用的公共变量
function GetNodeLevel(sFormat,sCode:string):integer;//获得节点层数
function TimeNOw():string;//获取当前时间
function YearNow():string;//获取当前的年份
function Encrypt(S:string):string;//加密函数
//*****************************************************************************
var
  user_dm,user_password,user_name:string;//用户代码,密码，用户名
  user_GRoupDm:string;//用户组代码
  psIndexName:string ;
  plAsCend:Boolean;
  Format:string;//编码格式应该是变量
  MaxLevel:integer;//最大编码层次(树节点)应该是变量
  level:integer;//树的层次
  gnodeid:string;//树节点ID
  //gnode:TTreenode;//当前节点
  gnodelevel:integer;//树节点层次
  frm_name:string;
 //系统设置
  sUserID, sUserPwd: string[32];
  sysAdmin: Boolean = false;
  sTopic, bgStr, sPath: string;
  //-----------
  Computer_Ip,rz_nr:string;
  Sys_Time,Sys_tem:string;//系统登陆时间
  implementation
uses mainfrms;
//*****************************************************************************
//获取当前年份
function YearNow():string;
var year,month,day:word;
begin
   decodedate(date,year,month,day);
   result:=intToStr(year);
end;
//参数sFormat传递科目代码结构；
//参数sCode传递某一科目代码
function GetNodeLevel(sFormat,sCode:string):integer;
var
  i,level,ilen:integer;
begin
  level:=-1;
  ilen:=0;
  if (sFormat<>'')and(sCode<>'') then
  begin
     for i:=1 to length(sFormat) do
     //分析编码格式找出当前当前代码层次
      begin
        ilen:=ilen+strtoInt(sFormat[i]);
        if length(sCode)=ilen then
         begin
          level:=i;
          break;
         end;
      end;
     result:=level;
  end;
end; //改函数用于返回某一代码的级数
//以下函数位返回当前时间
function TimeNOw():string;
var
  nowStr,wdStr: string;
begin
  case DayOfWeek(Date()) of
    1: wdStr := '星期日';
    2: wdStr := '星期一';
    3: wdStr := '星期二';
    4: wdStr := '星期三';
    5: wdStr := '星期四';
    6: wdStr := '星期五';
    7: wdStr := '星期六';
  end;
  nowStr:= FormatDateTime('yyyy''年''mm''月''dd''日''hh''时''nn''分''ss''秒''',Now())+'[' + wdStr + ']';
  result:=nowstr;
end;
//加密函数
function Encrypt(S:string):string;
var
  I:integer;
  j:integer;
  Key:Word;
begin
  Result:=S;
  for I:=1 to length(S) do
    begin
    Result[I]:=char(byte(S[I])xor(Key shr 8));
    Key:=(byte(Result[I])+Key)*45678+56789;
    end;
  S:=Result;
  Result:='';
  for i:=1 to length(S) do
    begin
    j:=integer(s[i]);
    Result:=Result+Char(65+(j div 26))+char(65+(j mod 26));
    end;
end;
end.

						