frmemailconfig.pas

物流供应链管理系统

unit frmEmailConfig;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Spin, IniFiles;

const
  CONFIGFILENAME = 'EmailConfig.ini';
type
  TFormEmailConfig = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    LEdtFrom: TLabeledEdit;
    LEdtServerName: TLabeledEdit;
    LEdtUserName: TLabeledEdit;
    LEdtPassword: TLabeledEdit;
    Label1: TLabel;
    SEdtPort: TSpinEdit;
    CBAuth: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
    FConfigIni: TIniFile;
  public
    { Public declarations }
  end;

var
  FormEmailConfig: TFormEmailConfig;

implementation
uses CommonFunc;
{$R *.dfm}
procedure TFormEmailConfig.FormCreate(Sender: TObject);
begin
  FConfigIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  LEdtFrom.Text := FConfigIni.ReadString('SysConfig', 'From', '');
  LEdtServerName.Text := FConfigIni.ReadString('SysConfig', 'ServerName', '');
  LEdtUserName.Text := FConfigIni.ReadString('SysConfig', 'UserName', '');
  LEdtPassword.Text := FConfigIni.ReadString('SysConfig', 'Password', '');
  SEdtPort.Value := FConfigIni.ReadInteger('SysConfig', 'Port', 25);
  CBAuth.Checked := FConfigIni.ReadBool('SysConfig', 'IsAuth', true);
end;

procedure TFormEmailConfig.FormDestroy(Sender: TObject);
begin
  FConfigIni.Free;
end;

procedure TFormEmailConfig.OKBtnClick(Sender: TObject);
begin
  FConfigIni.WriteString('SysConfig', 'From', LEdtFrom.Text);
  FConfigIni.WriteString('SysConfig', 'ServerName', LEdtServerName.Text);
  FConfigIni.WriteString('SysConfig', 'UserName', LEdtUserName.Text);
  FConfigIni.WriteString('SysConfig', 'Password', LEdtPassword.Text);
  FConfigIni.WriteInteger('SysConfig', 'Port', SEdtPort.Value);
  FConfigIni.WriteBool('SysConfig', 'IsAuth', CBAuth.Checked);
end;

end.