frmtrashmail.pas

Mailserver Source code - Delphi. Simple Mail server source code. SMTP and POP3 protocols.

unit FrmTrashMail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Grids, Menus, DBGrids;

type
  TFrmTrashMail1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    DBGrid1: TDBGrid;
    procedure PopupMenu1Popup(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
    function GetTotalMailCount:string;
  public
    { Public declarations }
    procedure IniShow;
  end;

var
  FrmTrashMail1: TFrmTrashMail1;

implementation

uses UnitDataModule, FrmAddTrashMail, FrmStatistics;

{$R *.dfm}

procedure TFrmTrashMail1.IniShow;
begin
  UnitDataModule1.ShowTrashMail;

end;

procedure TFrmTrashMail1.PopupMenu1Popup(Sender: TObject);
begin
  if  DBGrid1.DataSource.DataSet.Eof=false then
  begin
    n2.Enabled:=true;
  end
  else begin
    n2.Enabled:=false;
  end;
end;

procedure TFrmTrashMail1.N1Click(Sender: TObject);
begin
  FrmAddTrashMail1.ShowModal;
end;

procedure TFrmTrashMail1.N3Click(Sender: TObject);
begin
  case Application.MessageBox(pchar('确定清空吗'),'提示信息',MB_YESNO or
                    MB_ICONQUESTION) of
  IDNO:exit;
  end;
  UnitDataModule1.ClearAllTrashMail;
end;

procedure TFrmTrashMail1.N2Click(Sender: TObject);
begin
  UnitDataModule1.DelOneTrashMail;
end;

procedure TFrmTrashMail1.N4Click(Sender: TObject);
var
  MyStr:string;
begin
  MyStr:='email总数为：'+GetTotalMailCount;
  FrmStatistics1.ShowText:=MyStr;
  FrmStatistics1.ShowModal;
end;

function TFrmTrashMail1.GetTotalMailCount:string;
begin
  result:=UnitDataModule1.GetTrashMailTotalCount;
end;


end.