Email服务器

开发平台：
Delphi

ManageAliases.pas：源码内容
							unit ManageAliases;
(******************************************************************************)
(*                                                                            *)
(* Hermes Manage Aliases Dialog Box                                           *)
(* Part of Hermes SMTP/POP3 Server.                                           *)
(* Copyright(C) 2000 by Alexander J. Fanti, All Rights Reserver Worldwide.    *)
(*                                                                            *)
(* Created January 13, 2000 by Alexander J. Fanti.  See License.txt           *)
(*                                                                            *)
(* Used by: Main                                                              *)
(* Uses: DataU1, AddEditAlias                                                 *)
(*                                                                            *)
(* Description: This Modal dialog window allows the user to Add, Edit, Delete *)
(*              and Rename user aliases                                       *)
(*                                                                            *)
(* Revisions: 1/21/2000  AJF  Commented                                       *)
(*                                                                            *)
(******************************************************************************)
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, Buttons;
type
  TfrmManageAliases = class(TForm)
    lstList: TListBox;
    btnDelete: TBitBtn;
    btnAdd: TBitBtn;
    btnEdit: TBitBtn;
    btnImport: TBitBtn;
    btnClose: TBitBtn;
    btnRename: TBitBtn;
    btnExport: TBitBtn;
    popupMenu: TPopupMenu;
    puAdd: TMenuItem;
    puEdit: TMenuItem;
    puDelete: TMenuItem;
    puRename: TMenuItem;
    N1: TMenuItem;
    puImport: TMenuItem;
    puExport: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure popupMenuPopup(Sender: TObject);
    procedure lstListClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnRenameClick(Sender: TObject);
    procedure btnImportClick(Sender: TObject);
    procedure btnExportClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure lstListDblClick(Sender: TObject);
  private
    { Private declarations }
    procedure Add;      // Add Alias
    procedure Edit;     // Edit Alias
    procedure Delete;   // Delete Alias
    procedure Rename;   // Rename Alias
    procedure Import;   // Import Alias
    procedure DoExport; // Export Alias
    procedure EnableUI; // Enable buttons and popum menus based on selections
  public
    { Public declarations }
  end;
var
  frmManageAliases: TfrmManageAliases;
implementation
uses DataU1, AddEditAlias;
{$R *.DFM}
procedure TfrmManageAliases.FormShow(Sender: TObject);
begin
  // Populate list with aliases
  INI.Alias_GetList(lstList.Items);
  // Enable buttons based on list selection
  EnableUI;
end;
procedure TfrmManageAliases.Add;
begin
  // if they added an alias through the AddEditAlias Dialog...
  // then refresh the list of aliases
  if frmAddEditAlias.Add then INI.Alias_GetList(lstList.Items);
end;
procedure TfrmManageAliases.Edit;
begin
  // if there's a selected alias, then let them edit it
  // through the AddEditAlias Dialog...
  // then refresh the list of aliases
  if lstList.ItemIndex > -1 then
    if frmAddEditAlias.Edit(lstList.Items[lstList.ItemIndex]) then
      INI.Alias_GetList(lstList.Items);
end;
procedure TfrmManageAliases.Delete;
var
  x : Integer;
begin
  // Ask if they really want to delete, cause it can't be un-done
  x := MessageDlg('Deleting alias(es) cannot be undone.  Proceed?',
                  mtConfirmation, [mbYes, mbNo], 0);
  if x = mrYes then begin
    // they really want to do it... for each selected alias...
    // call the delete function and refresh the alias list
    for x := 0 to lstList.Items.Count -1 do
      if lstList.Selected[x] then INI.Alias_Delete(lstList.Items[x]);
    INI.Alias_GetList(lstList.Items);
  end;
end;
procedure TfrmManageAliases.Rename;
var
  OldAliasID, AliasUser, NewAliasID : String;
begin
  // if there's an alias selected...
  if lstList.ItemIndex > -1 then
    INI.Alias_Parse(lstList.Items[lstList.ItemIndex], OldAliasID, AliasUser);
  NewAliasID := InputBox('Rename Alias', 'Enter New Alias Name', OldAliasID);
  if Pos(ALIASSEPERATOR, NewAliasID) = 0 then begin
    // and the new alias isn't the same as the old one...
    // then rename the alias and refresh the display
    if LowerCase(NewAliasID) <> LowerCase(OldAliasID) then begin
      if not INI.Alias_Rename(OldAliasID, NewAliasID) then
        ShowMessage('Error: Cound not re-name.' + #13 + #10 +
                    'Aliases must have a unique Name.')
      else
        INI.Alias_GetList(lstList.Items);
    end;
  end else begin
    ShowMessage('Alias cannot contain "' + ALIASSEPERATOR + '".');
  end;
end;
procedure TfrmManageAliases.Import;
begin // Import Aliases
  ShowMessage('Feature not implemented yet...');
  // DEBUG
  // How should I import Aliases?
end;
procedure TfrmManageAliases.DoExport;
begin // Export aliases
  ShowMessage('Feature not implemented yet...');
  // DEBUG
  // How should I export aliases?
end;
procedure TfrmManageAliases.EnableUI;
begin
  // Enable buttons and menus based on list selection
  btnEdit.Enabled   := lstList.SelCount = 1;
  btnDelete.Enabled := lstList.SelCount > 0;
  btnRename.Enabled := lstList.SelCount = 1;
  btnExport.Enabled := lstList.Items.Count > 0;
  puEdit.Enabled   := lstList.SelCount = 1;
  puDelete.Enabled := lstList.SelCount > 0;
  puRename.Enabled := lstList.SelCount = 1;
  puExport.Enabled := lstList.Items.Count > 0;
end;
// Hook Buttond and menus up with functions for performing actions
procedure TfrmManageAliases.btnAddClick(Sender: TObject);
begin  Add;                                    end;
procedure TfrmManageAliases.btnEditClick(Sender: TObject);
begin  Edit;                                   end;
procedure TfrmManageAliases.btnDeleteClick(Sender: TObject);
begin  Delete;                                 end;
procedure TfrmManageAliases.btnRenameClick(Sender: TObject);
begin  Rename;                                 end;
procedure TfrmManageAliases.btnImportClick(Sender: TObject);
begin  Import;                                 end;
procedure TfrmManageAliases.btnExportClick(Sender: TObject);
begin  DoExport;                               end;
procedure TfrmManageAliases.lstListClick(Sender: TObject);
begin  EnableUI;                               end;
procedure TfrmManageAliases.lstListDblClick(Sender: TObject);
begin  Edit;                                   end;
procedure TfrmManageAliases.popupMenuPopup(Sender: TObject);
begin  EnableUI;                               end;
procedure TfrmManageAliases.btnCloseClick(Sender: TObject);
begin  Close;                                  end;
end.

						