systemph.pas

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

unit systemPH;

interface
uses
  DbGrids,Forms,Windows,Sysutils,Inifiles,systemLogoFaceFM, Messages;
//{$DEFINE TEST}
const
  SystemConst_AppExplain = '票据管理系统';
  SystemConst_DataBaseName = 'DOWNCRS';
  {$IFDEF TEST}
  SystemConst_DBLoginName = 'golden';
  SystemConst_DBLoginPwd = '123';
  SystemConst_ServerName = '192.168.1.99';
  {$ELSE}
  SystemConst_DBLoginName = 'temp';
  SystemConst_DBLoginPwd = 'golden666888';
  SystemConst_ServerName = '192.10.10.223';
  {$ENDIF}
  //systemConst_RefreshInterval = 1000 * 60 * 5;
  systemConst_RefreshInterval = 1000 * 60 * 10;
  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;
  DM_CONNECTDB = WM_USER + 3001;
  DM_CONNECTINFO = '与数据库断开连接,%s秒后将尝试连接!';


  function SystemInit:boolean;
  procedure LoadLogo;
  procedure SetLogo(Position:integer);
  procedure FreeLogo;


implementation

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
  Sleep(100);
  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.