www.pudn.com > 邮件群发程序1.2.rar > SetMailbody.pas

unit SetMailbody; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons, DB, ADODB; 
 
type 
  TfrmMailset = class(TForm) 
    Label1: TLabel; 
    edtTitle: TEdit; 
    Label2: TLabel; 
    sBody: TMemo; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    ADODataSet1: TADODataSet; 
    BitBtn3: TBitBtn; 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure BitBtn3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure dispMailCont(); 
  end; 
 
var 
  frmMailset: TfrmMailset; 
 
implementation 
 
uses IniFiles,mail; 
{$R *.dfm} 
 
procedure TfrmMailset.BitBtn2Click(Sender: TObject); 
begin 
     close; 
end; 
 
procedure TfrmMailset.BitBtn1Click(Sender: TObject); 
var 
    ff:TextFile; 
    ini:TiniFile; 
    sTitle,sCont,sFilen:string; 
    i:integer; 
  //sql2:string; 
  //strBody:string; 
  //i:integer; 
begin 
    sTitle:=Trim(edtTitle.Text); 
    sFilen:=ExtractFilePath(Paramstr(0))+'mail.ini'; 
    ini:=TiniFile.Create(sFilen); 
    ini.WriteString('MAILCONT','MAILTITLE',sTitle); 
    ini.Free; 
    sFilen:=ExtractFilePath(Paramstr(0))+'mailbody.txt'; 
    AssignFile(ff,sFilen); 
    Rewrite(ff); 
    for i:=0 to sBody.Lines.Count-1 do 
    begin 
        sCont:=sBody.Lines[i]; 
        Writeln(ff,sCont); 
    end; 
    CloseFile(ff); 
    frmMain.StatusBar1.Panels[0].Text:='已经保存邮件标题、正文'; 
    Close; 
{  for i:=0 to sbody.Lines.Count-1 do 
  begin 
      strBody:=strBody+sBody.Lines[i]; 
  end; 
  //sql2:='update mailbody set title='''+edtTitle.Text+''',body='''+strBody+''''; 
  sql2:='select * from mailbody'; 
  ADODataSet1.Close; 
  ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ 
     ExtractFilePath(paramstr(0))+'db\GroupMail.mdb;Jet OLEDB:Database Password=820745'; 
  ADODataSet1.CommandType:=cmdText; 
  ADODataSet1.CommandText:=sql2; 
  ADODataSet1.Open; 
  ADODataSet1.Edit; 
  ADODataSet1.FieldByName('title').AsString:=edtTitle.Text; 
  ADODataSet1.FieldByName('body').AsString:=strBody; 
  ADODataSet1.Post; 
  ADODataSet1.Close; 
  close; 
} 
end; 
 
procedure TfrmMailset.dispMailCont(); 
var 
    ini:TiniFile; 
    ff:TextFile; 
    fn,Titles,Bodys:string; 
begin 
    fn:=ExtractFilePath(Paramstr(0))+'mail.ini'; 
    ini:=TiniFile.Create(fn); 
    Titles:=ini.ReadString('MAILCONT','MAILTITLE',''); 
    ini.Free; 
    edtTitle.Text:=Titles; 
    fn:=ExtractFilePath(Paramstr(0))+'mailbody.txt'; 
    AssignFile(ff,fn); 
    Reset(ff); 
    while (not Eof(ff)) do 
    begin 
        Readln(ff,Bodys); 
        sBody.Lines.Add(Bodys); 
    end; 
    CloseFile(ff); 
end; 
 
procedure TfrmMailset.FormCreate(Sender: TObject); 
begin 
    dispMailCont; 
    BorderIcons:=BorderIcons-[biMaximize]; 
end; 
 
procedure TfrmMailset.BitBtn3Click(Sender: TObject); 
begin 
    edtTitle.Text:=''; 
    sBody.Clear; 
end; 
 
end.