systemph.pas.svn-base

这个是个简单的关于出票申请的处理

unit systemPH;

interface
uses
  DbGrids,Forms,Windows,Sysutils,Inifiles,systemLogoFaceFM, Messages;

const
  SystemConst_AppExplain = '票据管理系统';
  SystemConst_DBLoginName = 'golden';
  SystemConst_DBLoginPwd = '123';
  SystemConst_DataBaseName = 'downcrs';
  SystemConst_ServerName = '192.168.1.188';
  //systemConst_RefreshInterval = 1000 * 60 * 5;
  systemConst_RefreshInterval = 1000 * 2;
  systemConst_SuperDateTime = 3;

  WM_STATUS_MSG = WM_USER + 1001;
  WM_STATICS_MSG = WM_USER + 1002;
  DEF_START_UPDATE = 01;
  DEF_START_INSERT = 11;
  DEF_PLAYING_UPDATE = 02;
  DEF_FINISHED_UPDATE = 03;
  DEF_RECORDCOUNT = 04;
  DEF_APPLYSTATICS = 2001;
  DEF_LQSTATICS = 2002;
  DEF_STORESTATICS = 2003;

  function ReadIni(const Section, Ident, Default: string): string;
  function SystemInit:boolean;
  procedure LoadLogo;
  procedure SetLogo(Position:integer);
  procedure FreeLogo;


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('TMainForm'),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.