email.pas

串口监控程序,可与UPS进行通信,适合初学者使用

unit email;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzButton, RzCmboBx, DB, ADODB;

type
  TFemail = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    RzButton1: TRzButton;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzEdit3: TRzEdit;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Label4: TLabel;
    RzButton2: TRzButton;
    RzButton3: TRzButton;
    RzButton4: TRzButton;
    RzButton5: TRzButton;
    RzButton6: TRzButton;
    RzComboBox1: TRzComboBox;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    RzEdit4: TRzEdit;
    RzEdit5: TRzEdit;
    CheckBox2: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Femail: TFemail;

implementation
uses
 mail_name,main;

{$R *.dfm}

procedure TFemail.CheckBox1Click(Sender: TObject);
begin
 if checkbox1.Checked = true then
  begin
   groupbox3.Enabled  :=true;
    label5.Enabled :=true;
    label6.Enabled :=true;
    rzedit4.Enabled :=true;
    rzedit5.Enabled :=true;
    checkbox2.Enabled :=true;
  end
   else
    begin
    groupbox3.Enabled  :=false;
    label5.Enabled :=false;
    label6.Enabled :=false;
    rzedit4.Enabled :=false;
    rzedit5.Enabled :=false;
    checkbox2.Enabled :=false;
  end;
end;

procedure TFemail.RzButton1Click(Sender: TObject);
begin
  with tfmail_name.Create(nil) do
 begin
  showmodal;
  free;
 end;
end;

procedure TFemail.RzButton5Click(Sender: TObject);
begin
 close;
end;

procedure TFemail.FormCreate(Sender: TObject);
var
 qrytmp:tadoquery;
 begin
  qrytmp:=tadoquery.Create(self);
  qrytmp.Connection :=fmain.dbcon ;
  qrytmp.SQL.Text :='select * from email'   ;
  qrytmp.Open ;
  rzedit1.Text :=qrytmp.fieldbyname('name').AsString ;
  rzedit2.Text :=qrytmp.fieldbyname('addr').AsString ;
  rzedit3.Text :=qrytmp.fieldbyname('smtp').AsString ;
  checkbox1.Checked :=qrytmp.FieldByName('cpass').AsBoolean ;
  rzedit4.Text :=qrytmp.fieldbyname('numb').AsString ;
  rzedit5.Text :=qrytmp.fieldbyname('password').AsString ;
  checkbox2.Checked :=qrytmp.FieldByName('cusepass').AsBoolean ;
  qrytmp.Close;
 qrytmp.Free;


  if checkbox1.Checked = true then
  begin
    groupbox3.Enabled  :=true;
    label5.Enabled :=true;
    label6.Enabled :=true;
    rzedit4.Enabled :=true;
    rzedit5.Enabled :=true;
    checkbox2.Enabled :=true;
  end
   else
    begin
    groupbox3.Enabled  :=false;
    label5.Enabled :=false;
    label6.Enabled :=false;
    rzedit4.Enabled :=false;
    rzedit5.Enabled :=false;
    checkbox2.Enabled :=false;
  end;


end;



procedure TFemail.RzButton6Click(Sender: TObject);
var
 qrytmp:tadoquery;
 begin
  qrytmp:=tadoquery.Create(self);
  qrytmp.Connection :=fmain.dbcon ;
  qrytmp.SQL.Clear ;
 qrytmp.SQL.Text :='update email set type=:type,name=:name,addr=:addr,smtp=:smtp,'+
                   'cpass=:cpass,numb=:numb,cusepass=:cusepass';
                 //  ',password=:password'';


    QryTmp.Parameters.Items[0].Value:=trim(rzedit1.Text) ;
    QryTmp.Parameters.Items[1].Value:=trim(rzedit1.Text) ;
    QryTmp.Parameters.Items[2].Value:=trim(rzedit2.Text) ;
    QryTmp.Parameters.Items[3].Value:=trim(rzedit3.Text) ;
    QryTmp.Parameters.Items[4].Value:=checkbox1.checked ;
    QryTmp.Parameters.Items[5].Value:=trim(rzedit4.Text) ;

    QryTmp.Parameters.Items[6].Value:=checkbox2.checked ;
    //QryTmp.Parameters.Items[7].Value:=trim(rzedit5.Text );


  qrytmp.ExecSQL ;
  qrytmp.Close;
  qrytmp.Free ;
     close;
end;

end.