jgmain.pas

公积金监管系统客户端,是新疆公积金监管系统的客户端软件

unit JGMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, ImgList, jpeg, StdCtrls,
  AppEvnts, uTest;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    E1: TMenuItem;
    H1: TMenuItem;
    N9: TMenuItem;
    N12: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    N18: TMenuItem;
    R1: TMenuItem;
    ToolButton9: TToolButton;
    ToolButton17: TToolButton;
    StatusBar1: TStatusBar;
    C2: TMenuItem;
    N25: TMenuItem;
    A1: TMenuItem;
    N26: TMenuItem;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    N33: TMenuItem;
    ToolButton2: TToolButton;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure E1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure Web1Click(Sender: TObject);
    procedure webservicetest1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);

  private
    { Private declarations }
    procedure RefreshFace;
  public
    { Public declarations }
    procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;
    procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
//    function  SelectKm(var kmh:string):boolean;
  end;

var
  Main: TMain;

implementation

uses UserFace, JGLogin, DataModule, JGUser, JGChgPwd, JGBbXmSz,
     JGBbSjLr, JGBbZtsh, uSC, uTxcs, uDataChk;

{$R *.dfm}

procedure TMain.RefreshFace;
begin
  if IfConnect= 0  then
  begin
     StatusBar1.Panels[0].Text := '状态:  连接';
     StatusBar1.Panels[1].Text := '操作员:'+LoginUser;
     N9.Enabled := true;
     if copy(loginuserqx,1,1) = '1' then
       N2.Enabled := true
     else
       N2.Enabled := false;
     if copy(loginuserqx,2,1) = '1' then
       N6.Enabled := true
     else
       N6.Enabled := False;
     if copy(loginuserqx,3,1) = '1' then
     begin
       R1.Enabled := True;
       ToolButton20.Enabled := true;
     end
     else
     begin
       R1.Enabled := False;
       ToolButton20.Enabled := false;
     end;
     if copy(loginuserqx,4,1) = '1' then
     begin
       N26.Enabled := True;
       ToolButton21.Enabled := true;
     end
     else
     begin
       N26.Enabled := False;
       ToolButton21.Enabled := False;
     end;
     if copy(loginuserqx,5,1) = '1' then
     begin
       N4.Enabled := True;
       ToolButton2.Enabled := true;
     end
     else
     begin
       N4.Enabled := False;
       ToolButton2.Enabled := false;
     end;
     if copy(loginuserqx,6,1) = '1' then
       N5.Enabled := True
     else
       N5.Enabled := False;
     if copy(loginuserqx,7,1) = '1' then
       N7.Enabled := True
     else
       N7.Enabled := False;
  end
  else
  begin
     StatusBar1.Panels[0].Text := '状态:  断开';
     StatusBar1.Panels[1].Text := '操作员:';
     N9.Enabled := False;
     N2.Enabled := False;
     N7.Enabled := False;
     C2.Enabled := False;
     ToolButton20.Enabled := false;
     ToolButton21.Enabled := false;
     ToolButton2.Enabled := false;
  end;
end;

procedure TMain.WMSysCommand(var Msg:TWMSysCommand);
//退出系统
begin
  if Msg.CmdType =SC_CLOSE then
    E1.Click
  else
    inherited;
end;

procedure TMain.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 TMain.FormCreate(Sender: TObject);
begin
  Application.OnMessage := DoEnterAsTab;
end;

procedure TMain.E1Click(Sender: TObject);
begin
  if Application.MessageBox('是否要退出监管录入系统？',MsgCaption,36)=6 then
    close;
end;

procedure TMain.ToolButton17Click(Sender: TObject);
begin
  E1.Click;
end;

procedure TMain.N18Click(Sender: TObject);
var
  JGLoginGL:TJGLoginGL;
begin
  IfConnect:= -1;
  JGLoginGL:= TJGLoginGL.create(application);
  JGLoginGL.showmodal;
  JGLoginGL.free;
  RefreshFace;
end;

procedure TMain.ToolButton1Click(Sender: TObject);
begin
  N18.Click;
end;

procedure TMain.N2Click(Sender: TObject);
var
  JGUserGL:TJGUserGL;
begin
  JGUserGL:= TJGUserGL.create(application);
  JGUserGL.showmodal;
  JGUserGL.free;     
end;

procedure TMain.C2Click(Sender: TObject);
var
  JGPwd : tJGChgPwdGL;
begin
  JGPwd := tJGChgPwdGL.Create(application);
  JGPwd.ShowModal ;
  JGPwd.Free;
end;

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

procedure TMain.N26Click(Sender: TObject);
var
  FormJGBbSjLr:TFormJGBbSjLr;
begin
{  if not DM.F_GjjConnect() then
  begin
    Application.MessageBox('无法连接公积金数据库，不能查询！',MsgCaption,48);
    exit;
  end;    }

  FormJGBbSjLr:=TFormJGBbSjLr.create(application);
  FormJGBbSjLr.showmodal;
  FormJGBbSjLr.free;
end;

procedure TMain.ToolButton20Click(Sender: TObject);
begin
  R1.Click;
end;

procedure TMain.ToolButton21Click(Sender: TObject);
begin
  N26.Click ;
end;

procedure TMain.Web1Click(Sender: TObject);
var
  Form1:TForm1;
begin
  Form1:= TForm1.Create(application);
  Form1.ShowModal;
  Form1.Free;
end;

procedure TMain.webservicetest1Click(Sender: TObject);
var
  Form1:TForm1;
begin
  Form1:= TForm1.Create(application);
  Form1.ShowModal;
  Form1.Free;
end;

procedure TMain.N4Click(Sender: TObject);
var
  FormJGBbZtsh:TFormJGBbZtsh;
begin
{  if not DM.F_GjjConnect() then
  begin
    Application.MessageBox('无法连接公积金数据库，不能查询！',MsgCaption,48);
    exit;
  end;    }

  FormJGBbZtsh:=TFormJGBbZtsh.create(application);
  FormJGBbZtsh.showmodal;
  FormJGBbZtsh.free;
end;

procedure TMain.ToolButton2Click(Sender: TObject);
begin
  N4.Click;
end;

procedure TMain.N5Click(Sender: TObject);
var
  SJSC: TSJSC;
begin
  SJSC:= TSJSC.Create(application);
  SJSC.ShowModal;
  SJSC.Free;
end;

procedure TMain.N6Click(Sender: TObject);
var
  TXCX: TTXCX;
begin
  TXCX:= TTXCX.Create(application);
  TXCX.ShowModal;
  TXCX.Free;
end;

procedure TMain.N7Click(Sender: TObject);
var
  FDataChk: TFDataChk;
begin
  FDataChk:= TFDataChk.Create(application);
  FDataChk.ShowModal;
  FDataChk.Free;
end;

end.