formphszj.pas

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

unit FormPhsZj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, interfacesecond, ExtCtrls, StdCtrls, Buttons, ComCtrls, Mask,
  DBCtrls, DB, kbmMemTable, LWLINK, FrameProdInfo, FrameVouchInfo,
  FrameUserInfo, FramePhone, FrameProgFunc, FrameAccount, Grids, DBGrids,
  FramePhs, Menus, FrameForegift, frmchephstype, FramePhsSim;

type
  TFrmPhsZj = class(TFrminterfacesecond)
    BtnOk: TButton;
    CbxVouch: TCheckBox;
    Panel2: TPanel;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    ProdInfo: TProdInfo;
    PhoneInfo: TPhoneInfo;
    
    ProgFunc: TProgFunc;
    Bevel4: TBevel;
    Bevel7: TBevel;
    DsphsZj: TDataSource;
    LwlphsZj: TLWLINK;
    LwlSysFields: TLWLINK;
    DsSysFields: TDataSource;
    LwlSysFieldstable_code: TStringField;
    LwlSysFieldsfield_code: TStringField;
    LwlSysFieldsfield_name: TStringField;
    LwlSysFieldscomments: TStringField;
    LwlphsZjtable_code: TStringField;
    LwlphsZjfield_code: TStringField;
    LwlphsZjrecord_no: TStringField;
    LwlphsZjfield_value: TStringField;
    DsAcceLog: TDataSource;
    LwlAcceLog: TLWLINK;
    DblcAcceGrad: TDBLookupComboBox;
    Label1: TLabel;
    Panel5: TPanel;
    LwlAcceLogproduce_id: TStringField;
    LwlAcceLogproduce_no: TStringField;
    LwlAcceLogorder_id: TStringField;
    LwlAcceLogaccept_id: TStringField;
    LwlAcceLogproduct_id: TStringField;
    LwlAcceLogsrv_code: TStringField;
    LwlAcceLogsub_srv: TStringField;
    LwlAcceLogaccept_lan: TStringField;
    LwlAcceLogvest_lan: TStringField;
    LwlAcceLogapply_name: TStringField;
    LwlAcceLogreq_certtype: TStringField;
    LwlAcceLogreq_certno: TStringField;
    LwlAcceLogbtime: TStringField;
    LwlAcceLogbact: TStringField;
    LwlAcceLogatime: TStringField;
    LwlAcceLogaccept_grade: TStringField;
    LwlAcceLogaccept_mode: TStringField;
    LwlAcceLogdeal_grade: TStringField;
    LwlAcceLogcharge_tache: TStringField;
    LwlAcceLogLuAcceGrad: TStringField;
    CbxDifference: TCheckBox;
    DsDealGrad: TDataSource;
    LwlDealGrad: TLWLINK;
    LwlDealGradcust_level_code: TStringField;
    LwlDealGradaccept_grad: TStringField;
    LwlDealGraddeal_grad: TStringField;
    LwlServCont: TLWLINK;
    LwlServContproduce_id: TStringField;
    LwlServContproduce_no: TStringField;
    LwlServContorder_id: TStringField;
    LwlServContaccept_id: TStringField;
    LwlServContproduct_id: TStringField;
    LwlServContsrv_code: TStringField;
    LwlServContsub_srv: TStringField;
    LwlServContaccept_state: TStringField;
    LwlServContdisp_flag: TStringField;
    LwlServContsrv_type: TStringField;
    LwlServContatime: TStringField;
    BtnCancel: TButton;
    DsServCont: TDataSource;
    Label9: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label3: TLabel;
    Label8: TLabel;
    Label25: TLabel;
    BtnCopy: TButton;
    Panel6: TPanel;
    FrmYhxx: TUserInfo;
    Panel7: TPanel;
    FrmKhxx: TUserInfo;
    Lbtext: TLabel;
    Label10: TLabel;
    Lbnum: TLabel;
    cbbatch: TCheckBox;
    LwlAcceLogapply_cert: TStringField;
    LwlAcceLogapply_certno: TStringField;
    LwlAcceLogapply_tel: TStringField;
    LwlAcceLogapply_addr: TStringField;
    AccountInfo: TAccountInfo;
    Panel8: TPanel;
    Panel9: TPanel;
    TabSheet4: TTabSheet;
    Panel14: TPanel;
    Label17: TLabel;
    ForegiftInfo: TForegiftInfo;
    FrmYhDb: TVouchInfo;
    EdQuery: TEdit;
    Label11: TLabel;
    Panel10: TPanel;
    Label4: TLabel;
    Framephsinfo: TFramephsinfo;
    PhsSimInfo1: TPhsSimInfo;
    Edt_phsno: TEdit;
    Label12: TLabel;
    edt_Jhpwd: TEdit;
    BT_JhQryClick: TButton;
    LwlJh: TLWLINK;
    DSphjh: TDataSource;
    LwlJhfleld2: TStringField;
    LwlJhfield3: TStringField;
    LwlJhfield4: TStringField;
    LwlJhfield5: TStringField;
    LwlJhfield6: TStringField;
    LwlJhfield7: TStringField;
    LwlJhfield8: TStringField;
    LwlJhfield9: TStringField;
    LwlJhfield10: TStringField;
    LwlJhfield11: TStringField;
    LwlJhfield12: TStringField;
    LwlJhfield13: TStringField;
    LwlJhfield14: TStringField;
    LwlJhfield15: TStringField;
    LwlJhfield16: TStringField;
    LwlJhfield17: TStringField;
    LwlJhfield18: TStringField;
    LwlJhfield19: TStringField;
    LwlJhfield20: TStringField;
    LwlJhfield21: TStringField;
    LwlJhfield22: TStringField;
    LwlJhfield23: TStringField;
    LwlJhfield24: TStringField;
    LwlJhfield25: TStringField;
    LwlJhfield26: TStringField;
    LwlJhfield27: TStringField;
    LwlJhfield28: TStringField;
    LwlJhfield29: TStringField;
    LwlJhfield30: TStringField;
    LwlJhfield31: TStringField;
    LwlJhfield32: TStringField;
    LwlJhfield33: TStringField;
    LwlJhfield34: TStringField;
    LwlJhfield35: TStringField;
    LwlJhfield36: TStringField;
    LwlJhfield37: TStringField;
    LwlJhfield38: TStringField;
    LwlJhfield39: TStringField;
    LwlJhfield40: TStringField;
    LwlJhfield41: TStringField;
    LwlJhfield42: TStringField;
    LwlJhfield43: TStringField;
    LwlJhfield44: TStringField;
    LwlJhfield45: TStringField;
    LwlJhfield46: TStringField;
    LwlJhfield47: TStringField;
    LwlJhfield48: TStringField;
    LwlJhfield49: TStringField;
    LwlJhfield50: TStringField;
    LwlJhfield51: TStringField;
    LwlJhfield52: TStringField;
    LwlJhfield53: TStringField;
    LwlJhfield54: TStringField;
    LwlJhfield55: TStringField;
    LwlJhfield56: TStringField;
    LwlJhfield1: TStringField;
    LwlPorderdis: TLWLINK;
    LwlPorderdisfield1: TStringField;
    LwlPorderdisfleld2: TStringField;
    LwlPorderdisfield3: TStringField;
    LwlPorderdisfield4: TStringField;
    LwlPorderdisfield5: TStringField;
    LwlPorderdisfield6: TStringField;
    LwlPorderdisfield7: TStringField;
    LwlPorderdisfield8: TStringField;
    LwlPorderdisfield9: TStringField;
    LwlPorderdisfield10: TStringField;
    LwlPorderdisfield11: TStringField;
    LwlPorderdisfield12: TStringField;
    LwlPorderdisfield13: TStringField;
    LwlPorderdisfield14: TStringField;
    LwlPorderdisfield15: TStringField;
    LwlPorderdisfield16: TStringField;
    LwlPorderdisfield17: TStringField;
    DsPorderdis: TDataSource;
    procedure CbxVouchClick(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure FrmYhxxDbeUserNamExit(Sender: TObject);
    procedure CbxDifferenceClick(Sender: TObject);
    procedure AccountInfoRbPayAllClick(Sender: TObject);
    procedure AccountInfoRbPayDiffClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure ProdInfoDbeProdPwdKeyPress(Sender: TObject; var Key: Char);
    procedure PhoneInfoBtnNumSelClick(Sender: TObject);
    procedure FrmYhxxDbeRelPostKeyPress(Sender: TObject; var Key: Char);
    procedure PhoneInfoDbePhoneNoKeyPress(Sender: TObject; var Key: Char);
    procedure FrmKhxxDbeRelPostKeyPress(Sender: TObject; var Key: Char);
    procedure ProgFuncBtnFuncClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnCopyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FrmYhxxDbeCertNoExit(Sender: TObject);
    procedure PhoneInfoDbePhoneNoExit(Sender: TObject);
    procedure FrmKhxxDbeCertNoExit(Sender: TObject);
    procedure AccountInfoBtnAccoClick(Sender: TObject);
    procedure AccountInfoBtnQueryClick(Sender: TObject);
    procedure FrmYhxxDbeDwellAddrExit(Sender: TObject);
    procedure FrmYhxxLwlUserInfocust_nameChange(Sender: TField);
    procedure PhoneInfoBtnGroupSelClick(Sender: TObject);
    procedure cbbatchClick(Sender: TObject);
    procedure FrmKhxxDbeUserNamExit(Sender: TObject);
    procedure AccountInfoBtnAccountClick(Sender: TObject);
    procedure  addDefaultProgFunc;
    procedure EdQueryKeyPress(Sender: TObject; var Key: Char);
    procedure EdQueryExit(Sender: TObject);
    procedure PhsSimInfo1Button1Click(Sender: TObject);
    procedure BT_JhQryClickClick(Sender: TObject);
  private
    { Private declarations }
    iscbh,iscls,icpbh : string; //生产编号、生产流水、产品编号
    Currsldlx,Oldprodno:string;
    Currscbh,Currscls,Currcpbh:integer;
    Currslbh,Currddbh:string;
    Currywm:string;
     ////////////modify by yqd in 20050424///////////////////
    //增加一个标志位，标志当前是分离机器，值为'0'，还是合一机,值为'1'
    iproducttype:string;
    LwlUserIn : TLwlink;
    ibatchnum: integer;
    ms_retProductId,ms_retProduceId,ms_retProduceNo:string;
    function JudgePhsNoCanOpen(pPhsNo:string):boolean;
    function QueryInfoForPhsOpen:boolean;
    function CheckQueryInfoForPhsOpen:boolean;
    function CheckPhsOpenAndQueryInfo:boolean;
    function GetTableInfo2(sourcelink,targetlink: Tlwlink; tablename: string):integer;
    procedure disableSomePanelOfPhsZj();
    procedure FormInit();
  public

    //////////////////////////////////////////
    iProcFunc: string;  //返回的程控功能串
    iFuncNum: integer;  //返回的程控功能记录数(数组pdnfuncnew的维数)
    iDevNum:  integer;  //返回的设备记录数（数组pdndevicenew的维数）
    itempstr: string;
    Key :char;
    iSourflag: integer;   //资源标志
//定义成公共变量，可让其它窗口调用
    { Public declarations }
{    cncustnew :array [0..43] of string; //客户资料 (cn_cust_info)
    cnusernew :array [0..43] of string; //用户资料 (cn_cust_info)
    pdinfonew :array [0..29] of string; //产品信息 (pdn_pdinfo)
    pdnphonenew :array [0..20] of string;  //主电话信息 (pdn_phone)
    pdnaccountnew : array of array [0..4] of string; //帐目信息(pdn_account)
    pdnaccinfonew : array of array [0..14] of string; //帐务信息(pdn_accountinfo)
    pdnphs:array[0..7] of string;     //流动市话业务信息
    pdnfuncnew : array of array [0..7] of string;  //程控新业务信息(pdn_progfunc)
    pdndevicenew : array of array [0..6] of string;//终端设备信息(pdn_device)

    pdnwarrantornew : array [0..14] of string;  //担保信息   }
  end;

var
  FrmPhsZj: TFrmPhsZj;


implementation

uses FormProdFunc,YyslFunction, dictdm, FormDevice,
  FormAccount, Yyslzx, NDPublic, AddGet, seleNum, DMyyslzx, ndfundeclare,
  FormCopyData;

{$R *.dfm}

procedure TFrmPhsZj.CbxVouchClick(Sender: TObject);
begin
  inherited;
    if CbxVouch.Checked = true then
    begin
       enablePanel(Frmyhdb);
       FrmYhDb.DblcVouModeClick(FrmYhdb.DblcVouMode);
    end
    else if CbxVouch.Checked = false then
       disablePanel(Frmyhdb);
end;

procedure TFrmPhsZj.CbxDifferenceClick(Sender: TObject);
begin
  inherited;
    if CbxDifference.Checked = true then
       enablePanel(Frmkhxx)
    else if CbxDifference.Checked = false then
       disablePanel(Frmkhxx);
end;

//初始化窗口
procedure TFrmPhsZj.FormShow(Sender: TObject);
var
  i,j,li_step,RetVal :integer;
  UserId, CustId,ls_flag : string;
  llwl_userinfo:TLWLINK;
begin
  inherited;

  LbText.Visible := false;
  LbNum.Visible := false;
  PageControl1.ActivePage := TabSheet2;

    //------modify by yqd about 机卡分离激活 at 20050524 start --------
    if  (FrmYyslzx.Getywm ='I7') and  (FrmYyslzx.Getscbh = -1) then
    begin
        //控制控件的显示
        TabSheet4.Visible:=false;
        EdQuery.Visible:=false;
        Lbtext.Visible:=false;
        cbbatch.Visible:=false;
        CbBatch.Checked:=false;
        BtnCopy.Visible:=false;
        Edt_phsno.Visible:=true;
        Label12.Visible:=true;
        edt_Jhpwd.Visible:=true;
        BT_JhQryClick.Visible:=true;
        FrmYhxx.ApplyInfo1.ApplyInit;
        Frmyhxx.UserInit();
        Frmkhxx.UserInit();
        AccountInfo.AccountInit();
        ProdInfo.ProdInit();