DONGSHENG6/海关EDI/u_op_seae_edi_custom_zhzf.pas

unit u_op_seae_edi_custom_zhzf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IdFTP,IdFTPCommon,
  Dialogs, BusinessSkinForm, StdCtrls, bsSkinCtrls,inifiles, DB, ADODB,IdMultipartFormData,IdHTTP,IdGlobalProtocols,superobject,
  RxLookup;

type
  Tfrm_op_seae_edi_custom_zhzf = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    Label16: TLabel;
    Edit16: TEdit;
    Label17: TLabel;
    Edit17: TEdit;
    RxDBLookupCombo21: TRxDBLookupCombo;
    Label52: TLabel;
    t_code_zy_client: TADOQuery;
    t_crm_client: TADOQuery;
    t_crm_client1: TDataSource;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure RxDBLookupCombo21Change(Sender: TObject);
  private




    { Private declarations }
  public
    { Public declarations }

  end;

var
  frm_op_seae_edi_custom_zhzf: Tfrm_op_seae_edi_custom_zhzf;

implementation

uses u_op_seae_edi_data, u_main, my_sys_function, u_data_share;

{$R *.dfm}


procedure Tfrm_op_seae_edi_custom_zhzf.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_seae_edi_custom_zhzf.FormShow(Sender: TObject);
var
  inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  edit16.text:=inifile1.ReadString('customZHZF','WEBUSERNAME','');
  edit17.text:=inifile1.ReadString('customZHZF','WEBPASSOWRD','');
  inifile1.free;
//  t_code_zy_client.Open;
//  t_crm_client.Open;

end;

procedure Tfrm_op_seae_edi_custom_zhzf.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  inifile1:Tinifile;

begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.WriteString('customZHZF','WEBUSERNAME',edit16.text);
  inifile1.WriteString('customZHZF','WEBPASSOWRD',edit17.text);

  inifile1.free;
end;

procedure Tfrm_op_seae_edi_custom_zhzf.bsSkinButton3Click(Sender: TObject);
var  
  inifile1:Tinifile;

begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.WriteString('customZHZF','WEBUSERNAME',edit16.text);
  inifile1.WriteString('customZHZF','WEBPASSOWRD',edit17.text);
  frm_op_seae_edi_data.Sendzhzf();
  Close;
end;

procedure Tfrm_op_seae_edi_custom_zhzf.RxDBLookupCombo21Change(
  Sender: TObject);
begin
    if t_code_zy_client.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>', RxDBLookupCombo21.DisplayValues[1], []) then
    begin
        Edit16.Text:= t_code_zy_client.fieldbyname('<27>˺<EFBFBD>').asstring;
        Edit17.Text := t_code_zy_client.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
    end;

end;

end.