|
|
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.EXCEL1Click(nil);
|
|
|
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.
|