You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
87 lines
2.1 KiB
Plaintext
87 lines
2.1 KiB
Plaintext
12 months ago
|
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.
|