frmsmtpsetup.pas

一个简单的同学录软件

unit FrmSmtpSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, xutils, rcdstud, TFlatGroupBoxUnit,
  TFlatButtonUnit, TFlatEditUnit;

type
  TFmSmtpSetup = class(TForm)
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FlatGroupBox2: TFlatGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    strUserId: TFlatEdit;
    strEmail: TFlatEdit;
    strPort: TFlatEdit;
    strSmtp: TFlatEdit;
    BitBtn1: TFlatButton;
    FlatButton1: TFlatButton;
    procedure BitBtn1Click(Sender: TObject);
//    procedure BitBtn3Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmSmtpSetup: TFmSmtpSetup;

implementation

uses frmMain;

{$R *.DFM}


procedure TFmSmtpSetup.BitBtn1Click(Sender: TObject);
var
  SmtpSetupFile: file of smtpsetup;
  rcdsmtpsetup: smtpsetup;
  filename: string;
begin
  if (strsmtp.text <> '') and (strport.Text <> '') and (struserid.text <> '') and (stremail.Text <> '') then
  begin
    rcdsmtpsetup.strSmtp := strsmtp.Text;
    rcdsmtpsetup.strPort := strport.Text;
    rcdsmtpsetup.strUserId := struserid.Text;
    rcdsmtpsetup.strEmail := stremail.Text;
    try
      begin
        filename := 'smtpini.dat';
        assignfile(smtpsetupfile, filename);
        rewrite(smtpsetupfile);
        reset(smtpsetupfile);
        write(smtpsetupfile, rcdsmtpsetup);
        closefile(smtpsetupfile);
        msgbox('SMTP设置已经成功保存！');
      end;
    except
      begin
        msgbox('smtp设置保存错误！');
      end;

    end;
  end
  else
  begin
    msgbox('所有项目必须填写！');
  end;

end;

procedure TFmSmtpSetup.FlatButton1Click(Sender: TObject);
begin
  fmmain.Visible := true;
  fmmain.enabled := true;
  self.Visible := false;

end;

procedure TFmSmtpSetup.FormPaint(Sender: TObject);

var
  smtpfile: file of smtpsetup;
  rcdsmtp: smtpsetup;
begin
  if FileExists('smtpini.dat') then
  begin
    assignfile(smtpfile, 'smtpini.dat');
    reset(smtpfile);
    read(smtpfile, rcdsmtp);
    closefile(smtpfile);
    strsmtp.Text :=rcdsmtp.strSmtp ;
    strport.Text :=rcdsmtp.strPort ;
    struserid.Text :=rcdsmtp.strUserId ;
    stremail.Text :=rcdsmtp.strEmail ;
   
  end;
end;

end.