frmpjgmain.pas

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

     else
     begin
       D2.Enabled := False;
       ToolButton2.Enabled := False;
     end;
     //银行资金流动
     if copy(pubLoginQx,18,1)='1' then
     begin
       N6.Enabled := True;
       ToolButton3.Enabled := True;
     end
     else
     begin
       N6.Enabled := False;
       ToolButton3.Enabled := False;
     end;
     //部接口查询
     if copy(pubLoginQx,19,1)='1' then
       N4.Enabled := True
     else
       N4.Enabled := False;
  end
  else
  begin
     StatusBar1.Panels[0].Text := '状态:  断开';
     StatusBar1.Panels[1].Text := '操作员:';
     N8.Enabled := False;
     Y2.Enabled := False;
     B1.Enabled := False;
     N7.Enabled := False;
     C2.Enabled := False;
     N2.Enabled := False;
     N36.Enabled := False;
     Toolbutton2.Enabled := False;
     ToolButton3.Enabled := False;
     ToolButton10.Enabled := false;
     ToolButton11.Enabled := false;
     ToolButton13.Enabled := false;
     ToolButton14.Enabled := false;
     ToolButton20.Enabled := false;
     ToolButton21.Enabled := false;
     ToolButton23.Enabled := false;
  end;
end;

procedure TMainP.N2Click(Sender: TObject);
var
  frmUser: TJGUser;
begin
  frmUser:= TJGUser.Create(Application);
  frmUser.ShowModal;
  frmUser.Free;
end;

procedure TMainP.C2Click(Sender: TObject);
var
  frmChgP: TJgChgPwd;
begin
  frmChgP := TJgChgPwd.Create(Application);
  frmChgP.ShowModal;
  frmChgP.Free;

end;

procedure TMainP.N37Click(Sender: TObject);
var
  MainMap: TMainMap;
  bReload: Boolean;
begin
  MainMap := TMainMap.Create(Application);
  MainMap.ShowModal;
  bReLoad := MainMap.isChange;
  MainMap.Free;
  if bReLoad then
    LoadMainMap(true);
end;

procedure TMainP.N4Click(Sender: TObject);
var
  JGDsbm: TJGDsbm;
begin
  JgDsbm := TJgDsbm.Create(Application);
  JgDsbm.ShowModal;
  JgDsbm.Free;
  LoadDsInfo;
end;

procedure TMainP.LoadMainMap(const ReLoad: Boolean= False);
var
  sCaption, sFile: String;
begin
  sCaption := '';
  pubReLoadMainMap:=ReLoadMainMap(_PVNJGWEBSEVICE,sCaption);
  sFile := ExtractFilePath(application.ExeName)+PMainMapFile;
  if ReLoad then
    ReadMainMap(sCaption,sFile)
  else
  if  pubReLoadMainMap then
    ReadMainMap(sCaption,sFile);
  if FileExists(sFile) then
  try
    imgMap.Picture.LoadFromFile(sFile);
  except
    application.MessageBox('主地图文件格式不正确，不能装载！',PMsgCaption,48);
  end;
  StatusBar1.Panels[2].Text := sCaption+APPVER;
end;

procedure TMainP.N9Click(Sender: TObject);
var
  YJSet: TJgYjSet;
begin
  YjSet := TJgYjSet.Create(application);
  YjSet.ShowModal;
  YjSet.Free;
end;

procedure TMainP.LoadDsInfo;
var
  i,l: smallint;
begin
  l:= High(aNode);
  for i:=0 to l do
  begin
    aNode[i].Free;
  end;
  setlength(aNode,0);
  DsInfo(aNode,ExtractFilePath(Application.ExeName),Panel1,Self);
  l:= High(aNode);
  for i:=0 to l do
  begin
    aNode[i].OnClick := LabelClick;
    aNode[i].OnMouseDown := LabelMouseDown;
    if copy(pubLoginSsds,i+1,1)='1' then
      aNode[i].Enabled := True
    else
      aNode[i].Enabled := False;
  end;
end;

procedure TMainP.LabelClick(Sender: TObject);
begin
end;

procedure TMainP.LabelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  iNode := IndexOfNodeLabel(aNode,(sender as TNodeLabel));
end;

procedure TMainP.N14Click(Sender: TObject);
var
  FormJGReadBb: TFormJGReadBb;
begin
  FormJGReadBb:= TFormJGReadBb.create(application);
  FormJGReadBb.showmodal;
  FormJGReadBb.free;
end;

procedure TMainP.N11Click(Sender: TObject);
var
  JGSearchGL: TJGSearchGL;
begin
  JGSearchGL:= TJGSearchGL.create(application);
  JGSearchGL.showmodal;
  JGSearchGL.free;
end;

procedure TMainP.D1Click(Sender: TObject);
var
  JGSearchDKGL: TJGSearchDKGL;
begin
  JGSearchDKGL:= TJGSearchDKGL.create(application);
  JGSearchDKGL.showmodal;
  JGSearchDKGL.free;
end;

procedure TMainP.N29Click(Sender: TObject);
var
  YjFx: TYjFx;
//  sDsbh,sd1,sd2, sURL,sURL1: String;
//  YjTri: TYjSearch;
//  d: TDate;
begin
  YjFx := TYjFx.Create(application);
  YjFx.ShowModal;
//  sDsbh := YjFx.dsbh;
//  d:=YjFx.DateTimePicker1.Date;
//  sd1:= Dtos(D,6)+'01';
//  sd2:= DtoS(D);
//  sURL:= YjFx.URL;
  YjFx.Free;
{  if sDsbh<>'' then
  begin
    winexec('pYjRun.exe',1);
    sURL1 := ReadWSInfo(_PVNJGWEBSEVICE);
    YjTri := TYjSearch.Create(False);
//    try
      YjTri.DsBh := sDsbh;
      YjTri.ZxURL := sURL1;
      YjTri.DsURL := sURL;
      YjTri.DateBegin := sD1;
      YjTri.DateEnd := sD2;
      YjTri.Resume;
//    finally
//      YjTri.Free;
//    end;
  end;
}
end;

procedure TMainP.N23Click(Sender: TObject);
var
  JGSearchBbGL: TJGSearchBbGL;
begin
  JGSearchBbGL:= TJGSearchBbGL.create(application);
  JGSearchBbGL.showmodal;
  JGSearchBbGL.free;
end;

procedure TMainP.N31Click(Sender: TObject);
var
  frmPS: TFrmProviceSearch;
begin
  frmPS := TFrmProviceSearch.Create(application);
  if frmPS.LoadSearchInfo then
    frmPS.ShowModal;
  frmPS.Free;
end;

procedure TMainP.D2Click(Sender: TObject);
var
  YhSearch: TJGYhSearchGL;
begin
  YhSearch := TJGYhSearchGL.Create(Application);
  YhSearch.ShowModal;
  YhSearch.Free;
end;

procedure TMainP.C1Click(Sender: TObject);
var
  SearchFinance: TFrmSearchFinance;
begin
  SearchFinance := TFrmSearchFinance.Create(application);
  SearchFinance.ShowModal;
  SearchFinance.Free;
end;

procedure TMainP.N5Click(Sender: TObject);
var
  Form: TfrmJGYhXxSz;
begin
  Form:= TfrmJGYhXxSz.create(application);
  Form.showmodal;
  Form.free;
end;

procedure TMainP.N6Click(Sender: TObject);
var
  FrmYhSjCx1 : TFormYhSjCx1;
begin
  FrmYhSjCx1:= TFormYhSjCx1.Create(application);
  FrmYhSjCx1.ShowModal;
  FrmYhSjCx1.Free;
end;

procedure TMainP.N24Click(Sender: TObject);
var
  Stat: TFrmStatProvice;
begin
  Stat := TFrmStatProvice.Create(application);
  Stat.ShowModal;
  Stat.Free;
end;

procedure TMainP.Z1Click(Sender: TObject);
var
//  SearchGZ: TFrmSearchGZ;
  SearchGZ: TFrmNationalDebt;
begin
//  SearchGZ := TFrmSearchGZ.Create(application);
  SearchGZ:= TFrmNationalDebt.Create(application);
  SearchGZ.ShowModal;
  SearchGZ.Free;
end;

procedure TMainP.N32Click(Sender: TObject);
var
  Guide: TFrmGuideLine;
begin
//财务指标
  Guide := TFrmGuideLine.Create(application);
  Guide.ShowModal;
  Guide.Free;
end;

procedure TMainP.F1Click(Sender: TObject);
begin
//财务指标设置
end;

procedure TMainP.N34Click(Sender: TObject);
var
  Yhwldwgl: TFormYhWldwGL;
begin
  Yhwldwgl := TFormYhWldwGL.Create(application);
  Yhwldwgl.ShowModal;
  Yhwldwgl.Free;
end;

procedure TMainP.Timer1Timer(Sender: TObject);
var
  aCityPrompt: TCityPromptDynArray;
  i,j: smallint;
  bPlay: Boolean;
begin
  bPlay := False;
  SearchSurveillance(aCityPrompt);
  for i:=0 to high(aCityPrompt) do
  begin
    for j:=0 to high(aNode) do
    begin
      if aNode[j].Number = aCityPrompt[i].bh then
      begin
        aNode[j].PromptLevel := aCityPrompt[i].PromptLevel ;
        break;
      end;
    end;
  end;
  for i:=0 to high(aNode) do
  begin
    case aNode[i].PromptLevel of
      0: aNode[i].Font.Color := clBlack;
      1: begin
           aNode[i].Font.Color := clBlue;
           bPlay:=True;
         end;
      2: begin
           aNode[i].Font.Color := clFuchsia;
           bPlay:=True;
         end;
      3: begin
           aNode[i].Font.Color := clRed;
           bPlay:=True;
         end;
    end;
  end;
  if bPlay then
    if FileExists(PromptAudioFile) then
      PlaySound(PromptAudioFile,0,SND_FILENAME+SND_ASYNC);
end;

procedure TMainP.N20Click(Sender: TObject);
var
  YhDz: TFormJGZxYhDz;
begin
  YhDz := TFormJGZxYhDz.Create(application);
  YhDz.ShowModal;
  YhDz.Free;
end;

procedure TMainP.R1Click(Sender: TObject);
var
  JGBbSz: TJGBbSz;
begin
  JGBbSz:= TJGBbSz.create(application);
  JGBbSz.showmodal;
  JGBbSz.free;
end;

end.