frmpjgmain.pas

ProviceSystem-公积金监管系统中心端

unit frmPJgMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ImgList, Menus, ComCtrls, ToolWin, jpeg, uNodeLabel;
  {uSystemIni}

type
  TMainP = class(TForm)
    Panel1: TPanel;
    imgMap: TImage;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton9: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton23: TToolButton;
    ToolButton15: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N18: TMenuItem;
    N33: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    F1: TMenuItem;
    N21: TMenuItem;
    R1: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N19: TMenuItem;
    N2: TMenuItem;
    C2: TMenuItem;
    N3: TMenuItem;
    E1: TMenuItem;
    N8: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N11: TMenuItem;
    D1: TMenuItem;
    N17: TMenuItem;
    C1: TMenuItem;
    N23: TMenuItem;
    N32: TMenuItem;
    Y2: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N22: TMenuItem;
    N30: TMenuItem;
    B1: TMenuItem;
    D2: TMenuItem;
    N6: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N5: TMenuItem;
    N4: TMenuItem;
    N27: TMenuItem;
    N20: TMenuItem;
    H1: TMenuItem;
    N12: TMenuItem;
    N25: TMenuItem;
    A1: TMenuItem;
    ImageList1: TImageList;
    ImageList2: TImageList;
    Timer1: TTimer;
    N36: TMenuItem;
    N37: TMenuItem;
    N24: TMenuItem;
    Z1: TMenuItem;
    procedure RefreshFace;
    procedure FormResize(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure D2Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure Z1Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
  private
    { Private declarations }
    iNode: Smallint;
    procedure LoadMainMap(const ReLoad: Boolean= False);
    procedure LoadDsInfo;
    procedure LabelClick(Sender: TObject);
    procedure LabelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  public
    { Public declarations }
    aNode: ANodeLabel;
    procedure WMSysCommand(var Msg:TWMSysCommand);
    message WM_SYSCOMMAND;
    procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
  end;

var
  MainP: TMainP;
implementation

{$R *.dfm}
uses uConstUtils, uVarUtils, uSystemIni, frmPJgLogin, frmPJgUser, frmPJgChgPwd,
  frmPJgMainMap, frmPJgDsbm, uDMFunc, frmPJgSet, JGReadBb, JGSearch,
  JGSearchDK, frmYjFx, JGSearchBb{, uYjSearch, uUserFunc}, uJGYhXxSz,
  ProviceSearch, JGYhSearch, SearchFinance, JGYhSjCx1, StatProvice,
  {SearchGZ,}JGYhWldwGL, GuideLine, MMSystem,JGZxYhDz, JGBbXmSz,
  NationalDebt; //

procedure TMainP.FormResize(Sender: TObject);
var
  i,l: smallint;
begin
  l := High(aNode);
  for i:=0 to l do
  begin
     aNode[i].Left := round(aNode[i].Parent.Width*aNode[i].X /aNode[i].ParentWidth);
     aNode[i].Top := round(aNode[i].Parent.Height*aNode[i].Y /aNode[i].ParentHeight);
  end;
end;

procedure TMainP.FormActivate(Sender: TObject);
begin
  Resize;
  Caption := PMsgCaption;
end;

procedure TMainP.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.Message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_RETURN then
      Keybd_Event(VK_TAB,0,0,0);
  end;
end;

procedure TMainP.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType =SC_CLOSE then
    E1.Click
  else
    inherited;
end;

procedure TMainP.FormCreate(Sender: TObject);
begin
  Application.OnMessage := DoEnterAsTab;
  StatusBar1.Panels[2].Text := APPVER;
  setlength(aNode,0);
  pubReLoadMainMap := True;
end;

procedure TMainP.E1Click(Sender: TObject);
begin
  if Application.MessageBox('是否要退出'+PMsgCaption+'？',
      PMsgCaption,36)=6 then
    close;
end;

procedure TMainP.N18Click(Sender: TObject);
var
  frmLogin: TJGLoginGL;
  bPrompt: Boolean;
  nPrompt: Smallint;
  bTiming: Boolean;
  nTimingForm: Smallint;
  dtRunTime: TDateTime;
begin
  frmLogin:= TJGLoginGL.Create(Application);
  frmLogin.ShowModal;
  frmLogin.Free;
  RefreshFace;
  if pubLoginConnect then
  begin
    LoadMainMap;
    LoadDsInfo;
    LoadTimingOption(bPrompt,nPrompt,bTiming,nTimingForm,dtRunTime);
    if bPrompt and (nPrompt>0) then
    begin
      Timer1.Interval := nPrompt * 60000 ;
      Timer1.Enabled := True;
      Timer1.OnTimer(sender);
    end;
  end;
end;

procedure TMainP.RefreshFace;
begin
  if pubLoginConnect then
  begin
    N37.Visible := pubLoginSys;
    StatusBar1.Panels[0].Text := '状态:  连接';
    StatusBar1.Panels[1].Text := '操作员:'+pubLoginUser;
    N8.Enabled := True;
    Y2.Enabled := True;
    B1.Enabled := True;
    N7.Enabled := True;
    C2.Enabled := True;
    //用户管理
    if copy(pubLoginQx,1,1)='1' then
      N2.Enabled := True
    else
      N2.Enabled := False;
    //指标设置
    if copy(pubLoginQx,2,1)='1' then
//      F1.Enabled := True
      Z1.Enabled := True
    else
      Z1.Enabled := False;
//      F1.Enabled := False;
    //报表
    if copy(pubLoginQx,3,1)='1' then
      R1.Enabled := True
    else
      R1.Enabled := False;
    //报表汇总
    if copy(pubLoginQx,4,1)='1' then
      N26.Enabled := True
    else
      N26.Enabled := False;
    //预警
    if copy(pubLoginQx,5,1)='1' then
      N9.Enabled := True
    else
      N9.Enabled := False;
    //静态提取
    if copy(pubLoginQx,6,1)='1' then
      N14.Enabled := True
    else
      N14.Enabled := False;
    //公积金
    if copy(pubLoginQx,7,1)='1' then
    begin
      ToolButton10.Enabled := True;
      N11.Enabled := True;
    end
    else
    begin
      ToolButton10.Enabled := False;
      N11.Enabled := False;
    end;
    //贷款查询
    if copy(pubLoginQx,8,1)='1' then
    begin
      ToolButton11.Enabled := True;
      D1.Enabled := True;
    end
    else
    begin
     ToolButton11.Enabled := False;
      D1.Enabled := False;
    end;
    //财务
    if copy(pubLoginQx,9,1)='1' then
    begin
      ToolButton13.Enabled := True;
      C1.Enabled := True;
    end
    else
    begin
      ToolButton13.Enabled := False;
      C1.Enabled := False;
    end;
    //报表汇总查询
    if copy(pubLoginQx,10,1)='1' then
    begin
      N23.Enabled := True;
      ToolButton14.Enabled := True;
    end
    else
    begin
      ToolButton14.Enabled := False;
      N23.Enabled := False;
    end;
    //财务分析
    if copy(pubLoginQx,11,1)='1' then
    begin
      N32.Enabled := True;
      ToolButton23.Enabled := True;
    end
    else
    begin
      N32.Enabled := False;
      ToolButton23.Enabled := False;
    end;
     //关注项目
     if copy(pubLoginQx,12,1)='1' then
     begin
       N29.Enabled := True;
       ToolButton20.Enabled := True;
     end
     else
     begin
       N29.Enabled := False;
       ToolButton20.Enabled := False;
     end;
     //关注查询
     if copy(pubLoginQx,13,1)='1' then
     begin
       N31.Enabled := True;
       ToolButton21.Enabled := True;
     end
     else
     begin
       N31.Enabled := False;
       ToolButton21.Enabled := False;
     end;
     //定时查询
     if copy(pubLoginQx,14,1)='1' then
       N30.Enabled := True
     else
       N30.Enabled := False;
     //银行相关设置
     if copy(pubLoginQx,15,1)='1' then
       N16.Enabled := True
     else
       N16.Enabled := False;
     if copy(pubLoginQx,16,1)='1' then
       N24.Enabled := True
     else
       N24.Enabled := False;

{     //银行/中心核对
     if copy(pubLoginQx,16,1)='1' then
     begin
       Y1.Enabled := True;
       ToolButton2.Enabled := True;
     end
     else
     begin
       Y1.Enabled := False;
       ToolButton2.Enabled := False;
     end;
}
     //银行分析
     if copy(pubLoginQx,17,1)='1' then
     begin
       D2.Enabled := True;
       ToolButton2.Enabled := True;
     end