unit7.pas

图书管理系统

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, StdCtrls, ExtCtrls, Buttons, DB, ADODB;

type
  Tconnectreader = class(TForm)
    Panel1: TPanel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    IdSMTP1: TIdSMTP;
    BitBtn1: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Edit6: TEdit;
    memo1: TMemo;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Edit7: TEdit;
    Button3: TButton;
    Button1: TButton;
    BitBtn2: TBitBtn;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  connectreader: Tconnectreader;

implementation

{$R *.dfm}

procedure Tconnectreader.Button2Click(Sender: TObject);
begin
if edit5.Text='' then showmessage('请查明需发邮件的读者!')
   else if edit6.Text='' then showmessage('请填写发件人地址')
     else if edit7.Text='' then showmessage('请填写邮件主题')
     else
        begin
        idsmtp1.QuickSend('192.168.102.4',edit7.Text,edit5.Text,edit6.Text,memo1.Text);
        end;
end;

procedure Tconnectreader.Button1Click(Sender: TObject);
begin
adotable1.Active:=false;
adotable1.Active:=true;
  if RadioButton1.Checked then

    if not adotable1.Locate('reader_no',edit1.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
            // idsmtp1.QuickSend('192.168.102.4',edit7.Text,edit5.Text,edit6.Text,memo1.Text);
             edit1.Text:='';
        end

     else
         begin
          adotable1.Locate('reader_no',edit1.Text,[]);
          edit2.Text := adotable1.fieldbyname('reader_name').AsString;
          edit3.Text := adotable1.fieldbyname('reader_dep').AsString;
          edit4.Text := adotable1.fieldbyname('reader_tel').AsString;
          edit5.Text := adotable1.fieldbyname('reader_email').AsString;
         end;
     if RadioButton2.Checked then

    if not adotable1.Locate('reader_name',edit2.Text,[]) then
        begin
             showmessage('没有该同学，请重新输入');
             edit2.Text:='';
        end

     else
         begin
          adotable1.Locate('reader_name',edit2.Text,[]);
          edit1.Text := adotable1.fieldbyname('reader_no').AsString;
          edit3.Text := adotable1.fieldbyname('reader_dep').AsString;
          edit4.Text := adotable1.fieldbyname('reader_tel').AsString;
          edit5.Text := adotable1.fieldbyname('reader_email').AsString;
         end;


end;

procedure Tconnectreader.BitBtn1Click(Sender: TObject);
begin
panel2.Visible:=true;
end;

procedure Tconnectreader.BitBtn2Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  adotable1.Active:=false;
  adotable1.Active:=true;
  adotable1.First;
  while( not adotable1.Eof)do
    begin
     idsmtp1.QuickSend('192.168.102.4',edit7.Text,adotable1.fieldbyname('reader_email').AsString,edit6.Text,memo1.Text);
     adotable1.Next ;
     i:=i+1;
    end;
    showmessagefmt('成功发出%d封邮件',[i]);
    
end;

procedure Tconnectreader.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

end.