reccodeinfo.pas

使用Delphi发短信息程序源代码

unit RecCodeInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfrmRecCodeInfo = class(TForm)
    lblRecCode: TLabel;
    edtRecCode: TEdit;
    lblRecName: TLabel;
    edtRecName: TEdit;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRecCodeInfo: TfrmRecCodeInfo;

implementation

uses Send;

{$R *.dfm}

procedure TfrmRecCodeInfo.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmRecCodeInfo.btnOKClick(Sender: TObject);
var
  RecCodeInfo:PRecCodeInfo;
begin
  if(Trim(edtRecCode.Text)='') then
  begin
    MessageBox(Handle,'输入接收号码！','提示信息',MB_OK);
    edtRecCode.SetFocus;
    Exit;
  end;
  if(Trim(edtRecName.Text)='') then
  begin
    MessageBox(Handle,'输入接收人名！','提示信息',MB_OK);
    edtRecName.SetFocus;
    Exit;
  end;
  if(frmSend.CheckCode(edtRecCode.Text)=false) then
  begin
    MessageBox(Handle,'接收号码不正确！','提示信息',MB_OK);
    Exit;
  end;
  New(RecCodeInfo);
  RecCodeInfo.sRecCode:=Trim(edtRecCode.Text);
  RecCodeInfo.sRecName:=Trim(edtRecName.Text);
  frmSend.cmbRecCode.Items.AddObject(Trim(edtRecName.Text),TObject(RecCodeInfo));
  frmSend.SaveRecCodeInfo;
  Close; 
end;

end.