formphsjh.pas

小灵通机卡分离模块的设计.建立在数据库服务器

unit Formphsjh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, interfacesecond, Menus, DB, kbmMemTable, LWLINK, ExtCtrls,
  StdCtrls, Buttons, FramePhsSim, FrameUserInfo;

type
  Tfrmphsjh = class(TFrminterfacesecond)
    Panel3: TPanel;
    Edt_prod_no: TEdit;
    Edt_ser_pwd: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    LWLphsjh: TLWLINK;
    Label4: TLabel;
    Bt_jh: TButton;
    Panel2: TPanel;
    Label3: TLabel;
    UserInfo1: TUserInfo;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Bt_jhClick(Sender: TObject);
    procedure Edt_prod_noChange(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmphsjh: Tfrmphsjh;

implementation
uses Yyslzx,NDPublic, YyslFunction;

{$R *.dfm}

procedure Tfrmphsjh.FormShow(Sender: TObject);
var
islbh:string;
begin
  inherited;
        self.UserInfo1.DbeUserPwd.Enabled:=false;
        self.UserInfo1.DblcCustType.Enabled:=false;
        self.UserInfo1.DblcTradType.Enabled:=false;
        self.UserInfo1.DblcCustIden.Enabled:=false;
        self.Memoinfo.Visible:=false;
        self.MemointerfacebaseWsheet.Visible:=false;
        DisablePanel(UserInfo1);
        islbh:=FrmYyslzx.Getslbh;
        if islbh <> '' then  //第二次进入受理界面
        begin
            MessageDlg('激活套卡业务不能够修改，如要修改，请撤销工单后重做!',mtWarning,[mbOk],0);
            PostMessage(self.handle, WM_CLOSE, 0, 0); //关闭窗口
        end;
        //获取rc_sim表的静态信息
       // GetStaticData(,'GYYDATA','rc_sim');

end;

procedure Tfrmphsjh.Bt_jhClick(Sender: TObject);
var j:string;
begin
  inherited;
 //------------------------------------------------------------------------------
//调用生成记录的中间件服务
  LWLphsjh.Open;
  LWLphsjh.Clear;
  LWLphsjh.Param.Clear;
  LWLphsjh.CicsRegion := vg_CicsRegion; //设置CicsRegion
  LWLphsjh.CicsProgram := 'DPHSACTI';
   LWLphsjh.Param.CreateParam(ftString,'param1',ptInput);//第一个参数
  LWLphsjh.Param.ParamByName('param1').asString := self.Edt_prod_no.Text;
   LWLphsjh.Param.CreateParam(ftString,'param2',ptInput);//第二个参数
  LWLphsjh.Param.ParamByName('param2').asString := self.Edt_ser_pwd.Text;
     LWLphsjh.Param.CreateParam(ftString,'param3',ptInput);//第三个参数
  LWLphsjh.Param.ParamByName('param3').asString := vg_oper_code;
   LWLphsjh.Param.CreateParam(ftString,'param4',ptInput);//第四个参数
  LWLphsjh.Param.ParamByName('param4').asString := vg_depart_code; //受理部门
   LWLphsjh.Param.CreateParam(ftString,'param5',ptInput);//受理局
  LWLphsjh.Param.ParamByName('param5').asString := vg_exch_code;
  LWLphsjh.Param.CreateParam(ftString,'retparam1',ptOutput);
    LWLphsjh.Param.CreateParam(ftString,'retparam2',ptOutput);
    LWLphsjh.Param.CreateParam(ftString,'retparam3',ptOutput);
    LWLphsjh.Param.CreateParam(ftString,'retparam4',ptOutput);
    LWLphsjh.Param.CreateParam(ftString,'retparam5',ptOutput);
  LWLphsjh.Apply;


   //  showmessage(LWLphsjh.Infomation);
   if LWLphsjh.RValue = 0 then
  begin
    MessageDlg('业务受理成功！',mtInformation,[mbOk],0);
    //设置给客户服务中心的返回值
    FrmYyslzx.setscbh(LWLphsjh.Param.ParamByName('retparam1').AsInteger);    //生产编号

    FrmYyslzx.setscls(LWLphsjh.Param.ParamByName('retparam2').AsInteger);    //生产流水

    FrmYyslzx.setslbh(LWLphsjh.Param.ParamByName('retparam3').asString);     //受理编号

    FrmYyslzx.setddbh(LWLphsjh.Param.ParamByName('retparam4').asString);     //订单编号

    FrmYyslzx.Setcpbh(LWLphsjh.Param.ParamByName('retparam5').asString);     //产品编号

      FrmYyslzx.setcphm(Edt_prod_no.Text);                         //产品号码

    FrmYyslzx.setkhmc(UserInfo1.LwlUserInfo.Fields.FieldByName('cust_name').AsString);     //客户名称

    FrmYyslzx.Dispcurrrecord;               //调用客户服务中心的函数，显示工单
    FrmYyslzx.SetUserinfo(UserInfo1.LwlUserInfo);       //传递客户信息给受理中心

  end
  else if LWLphsjh.RValue = 1 then
  begin
          MessageDlg(LWLphsjh.Infomation,mtWarning,[mbok],0);
          Edt_prod_no.Clear;
          Edt_ser_pwd.Clear;
          exit;
  end
  else
  begin
     MessageDlg('激活失败,按确定退出！',mtWarning,[mbok],0);
  end;
  frmphsjh.Close;

//******************************************************************************

end;

procedure Tfrmphsjh.Edt_prod_noChange(Sender: TObject);
begin
  inherited;
  UserInfo1.LwlUserInfo.Open;
  UserInfo1.LwlUserInfo.Clear;
  UserInfo1.LwlUserInfo.Param.Clear;
  UserInfo1.LwlUserInfo.CicsRegion := vg_CicsRegion; //设置CicsRegion
  UserInfo1.LwlUserInfo.CicsProgram := 'VPDEXIST';
  UserInfo1.LwlUserInfo.Param.CreateParam(ftString,'param1',ptInput);//第一个参数
  UserInfo1.LwlUserInfo.Param.ParamByName('param1').asString := 'O';//标志位
  UserInfo1.LwlUserInfo.Param.CreateParam(ftString,'param2',ptInput);//第二个参数
  UserInfo1.LwlUserInfo.Param.ParamByName('param2').asString := self.Edt_prod_no.Text;

  LWLphsjh.Param.CreateParam(ftString,'retparam1',ptOutput);
  UserInfo1.LwlUserInfo.Apply;
  if UserInfo1.LwlUserInfo.RValue = 0 then
  begin
    //UserInfo1.LwlUserInfo.Param.ParamByName('retparam1').AsInteger;

  end;
  self.UserInfo1.DbeUserPwd.Enabled:=false;
  self.UserInfo1.DblcCustType.Enabled:=false;
  self.UserInfo1.DblcTradType.Enabled:=false;
  self.UserInfo1.DblcCustIden.Enabled:=false;
  DisablePanel(UserInfo1);

end;

procedure Tfrmphsjh.Button2Click(Sender: TObject);
begin
  inherited;
  frmphsjh.Close;                         //调用客户服务中心的函数，显示工单

end;

end.