www.pudn.com > mail104s.lzh > MAILLIST.PAS

unit maillist; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls; 
 
type 
  TMailListForm = class(TForm) 
    Panel1: TPanel; 
    Panel2: TPanel; 
    Table1: TTable; 
    DataSource1: TDataSource; 
    DBGrid1: TDBGrid; 
    DBNavigator1: TDBNavigator; 
    BitBtn1: TBitBtn; 
    Table1GuestName: TStringField; 
    Table1MailAddress: TStringField; 
    Table1Pop3Server: TStringField; 
    Table1Level: TFloatField; 
    procedure BitBtn1Click(Sender: TObject); 
    procedure FormActivate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  MailListForm: TMailListForm; 
 
implementation 
 
{$R *.DFM} 
 
procedure TMailListForm.BitBtn1Click(Sender: TObject); 
begin 
     Close; 
end; 
 
procedure TMailListForm.FormActivate(Sender: TObject); 
begin 
     Table1.Active:=True; 
end; 
 
end.