onlinelogin.~pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit onlinelogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatComboBoxUnit, TFlatEditUnit, TFlatButtonUnit,
  ExtCtrls;

type
  TOnlinelogin_frm = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    Label2: TLabel;
    Image2: TImage;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatEdit2: TFlatEdit;
    FlatEdit1: TFlatEdit;
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Onlinelogin_frm: TOnlinelogin_frm;

implementation

uses OnlineOperation_service;

{$R *.dfm}

procedure TOnlinelogin_frm.FlatButton1Click(Sender: TObject);
{var
  msg:com_empire_webapp_util_Msg;
  text:widestring; }
begin
  {msg:=com_empire_webapp_util_Msg.Create ;
  msg:=GetOnlineOperationJavaPortType(true,'http://172.16.2.190:8080/wsdl/OnlineOperation-service.wsdl',nil).checkUser(trim(flatedit1.text),flatedit2.text);
  if msg.msgCode=1 then

  showmessage(msg.msgText);  }
  modalresult:=mrok;
end;

procedure TOnlinelogin_frm.FlatEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=vk_return) or (key=vk_tab) then FlatButton1Click(nil);
end;

procedure TOnlinelogin_frm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  {if activecontrol=flatbutton1 then
     begin
       if key=vk_return then FlatButton1Click(nil);
       if key=vk_tab then   activecontrol:=flatbutton2;
     end;
  if activecontrol=flatbutton2 then
     begin
       if key=vk_return then flatbutton2click(nil);
       if key=vk_tab then  activecontrol:=flatedit1;
     end;
  if activecontrol=flatedit1 then
     if key=vk_return then activecontrol:=flatedit2;
  if activecontrol=flatedit2 then
      if (key=vk_return) or (key=vk_tab) then activecontrol:=flatbutton1;}

end;

procedure TOnlinelogin_frm.FlatButton2Click(Sender: TObject);
begin
  close;
end;

end.