global.pas

三层ERP系统 (SQL)

unit Global;

interface

uses  Windows, Classes, Graphics, Controls, Forms, AdoDB, DBGrids, ComObj,
      math, Sysutils, WinSock, IniFiles, StrUtils, Variants, dialogs, Base_C,
      Messages;

const
  c_Msg = 'MSG';
  c_Connect = 'Connect';
  c_Close = 'Close';
  c_DisConnect = 'Disconnect';
  c_ScreenWidth = 800;
  c_ScreenHeight = 600;
  m_showform = 'ShowForm';
  m_LockColumn = 'LockColumn';
  m_unLockColumn = 'unLockColumn';
  m_Close = 'Close';
  c_Succeed = 'Succeed';
  c_Failed = 'Failed';

type
   TBaseFormClass = class of TfrmBase_C;
   procedure main_ini();
   Function f_PadL(sInput:string;iLen:integer;sFill:string):string;
   Function f_PadR(sInput:string;iLen:integer;sFill:string):string;
   Function f_encrypt(sInput:string):string;
   Function f_inencrypt(sInput:string):string;
   Function Space(len:integer) :string;
   Function FillString(sInput:string;len:integer) :string;
   function f_GetComputerName():String ;
   function f_GetLocalIP : string;
   function f_GetOS():String ;
   function f_GetDisplayMetrics():String ;
   function f_GetLanguage():string;
   function f_GetAppPath:String ;
   function f_GetAppName:String ;
   function f_Replace(Input,s1,s2:string): string;
   function f_IsFileInUse(fName : string ) : boolean;
   procedure OpenForm(FormClass: TFormClass; var fm;AOwner:TComponent);
   function getcurrentweek(cdate:Tdatetime):string;
   function vartosql(value: variant): string;
   function getscreenpoint(sender:Tcontrol):Tpoint;
   procedure f_writeclientini(section,valueName,Valuestring:string);
   procedure sendDataToDLL(handle:Thandle;MSGinfo:String);
   function GetLogDir(RootDir:String):String;

   {Client funciton }
    function CheckLogin(const Usercode, Password: WideString): Integer;
    function getusername(const Usercode, Password: WideString): WideString;
    function getapptitle: WideString;
    function cexecsql(const cmdStr: WideString): WordBool;
    function csyslog(const fform, fevent: WideString): WordBool;
    function getisadmin(const usercode, password: WideString): WordBool;
    function getUserright(UserID: Integer): OleVariant;
    function CheckAdminLogin(const PassWord: WideString): WordBool;
    function srNow():wideString;

var
   gs_UserID: integer;                              //ノめ