systemph.pas

一个电力部门的催缴费用系统

unit systemPH;

interface
uses Forms,Windows,Sysutils,Inifiles,systemLogoFaceFM;
  ///////////////////////////////////////////////////////////////////
  // 以下定义的全局变量用于整个系统，均在系统开始时应用
  ///////////////////////////////////////////////////////////////////

const
  SystemConst_AppName           ='CJSYS';        //本机内部程序名称
  SystemConst_AppVer            ='1.0000';         //本机内部程序版本号
  SystemConst_AppExplain        ='电力客户服务中心--催缴系统';     //本机内部程序说明
  SystemConst_Debugstate        =true;             //系统调试状态
  SystemConst_IsMsgMode         =true;

  SystemConst_AliasName         ='ECSC';
  SystemConst_BDEDataBaseName      ='ECSC';
  SystemConst_ServerName        ='CTISERVER';
  SystemConst_UserName          ='ECSC_SA';
  SystemConst_PassWord          ='355113';
  SystemConst_DatabaseName      ='dbECSC';
//var

  function ReadIni(const Section, Ident, Default: string): string;
  function SystemInit:boolean;
  procedure LoadLogo;
  procedure SetLogo(Position:integer);
  procedure FreeLogo;
Var
  BAutoImport,BAutoUpdateToDayNum:Boolean;
  iImportFreq:integer;   //导数据频率，1:每天 2:每月
  iImportDay:integer;
  sImportTime,sUpdateToDayNumTime:string;
  ImportHour,ImportMin,ImportSec,UpdTodayNumHour,UpdTodayNumMin,UpdTodayNumSec:Word;

implementation

function ReadIni(const Section, Ident, Default: string): string;
var
  tempIni:TIniFile;
  STemp:String;
begin
  tempIni:=nil;
  sTemp:=ExtractFileName(Application.ExeName);
  if pos('.',sTemp)>0 then
    sTemp:=copy(sTemp,1,pos('.',sTemp))+'ini';
  sTemp:=ExtractFilePath(Application.ExeName)+sTemp;
  try
    tempIni:= TIniFile.Create(sTemp);
    result:=tempIni.ReadString(Section,Ident,Default);
  finally
    tempIni.Free;
  end;
end;

function SystemInit:boolean;
var
  WndHandle:THandle;
begin
  result:=true;
  WndHandle:=FindWindow(PChar('TMainCj'),SystemConst_AppExplain);
  if WndHandle<>0 then
  begin
    //如果系统已启动则激活
    SetForegroundWindow(wndHandle);
    result:=false;
  end;
end;

procedure LoadLogo;
begin
  frm_LogoFace:=Tfrm_LogoFace.Create(Application);
  try
    //frm_LogoFace.Image1.Picture.LoadFromFile(ReadIni(System,LogoFaceName,.\Face.jpg));
    //frm_LogoFace.ClientHeight:=frm_LogoFace.Image1.Picture.Height+frm_LogoFace.Panel2.Height;
    //frm_LogoFace.ClientWidth:=frm_LogoFace.Image1.Picture.Width;
    frm_LogoFace.Show;
    frm_LogoFace.Update;
  except

  end;
end;

procedure SetLogo(Position:integer);
begin
  frm_LogoFace.P.Position:=Position;
  frm_LogoFace.P.Update;
end;

procedure FreeLogo;
begin
  frm_LogoFace.P.Position:=100;
  frm_LogoFace.Hide;
  frm_LogoFace.Free;
end;

end.