unit u_op_seae_edi_custom_lhcd;

interface

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

type
  Tfrm_op_seae_edi_custom_lhcd = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    Label16: TLabel;
    Edit16: TEdit;
    Label17: TLabel;
    Edit17: TEdit;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton3Click(Sender: TObject);
  private




    { Private declarations }
  public
    { Public declarations }

  end;

var
  frm_op_seae_edi_custom_lhcd: Tfrm_op_seae_edi_custom_lhcd;

implementation

uses u_op_seae_edi_data, u_main, my_sys_function, u_data_share;

{$R *.dfm}


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

procedure Tfrm_op_seae_edi_custom_lhcd.FormShow(Sender: TObject);
var
  inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  edit16.text:=inifile1.ReadString('customLHCD','WEBUSERNAME','');
  edit17.text:=inifile1.ReadString('customLHCD','WEBPASSOWRD','');
  inifile1.free;



end;

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

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

  inifile1.free;
end;

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

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

end.