sendcodeinfo.~pas

发送短信息的程序

unit SendCodeInfo;

interface

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

type
  TfrmSendCodeInfo = class(TForm)
    lblSendCode: TLabel;
    edtSendCode: TEdit;
    lblSendName: TLabel;
    edtSendName: TEdit;
    edtPassword: TEdit;
    lblPassword: TLabel;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SaveSendCodeInfo;
  end;

var
  frmSendCodeInfo: TfrmSendCodeInfo;

implementation

uses Send;

{$R *.dfm}

procedure TfrmSendCodeInfo.SaveSendCodeInfo;
begin
end;

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

procedure TfrmSendCodeInfo.btnOKClick(Sender: TObject);
var
  SendCodeInfo:PSendCodeInfo;
begin
  if(Trim(edtSendCode.Text)='') then
  begin
    MessageBox(Handle,'输入手机号码！','提示信息',MB_OK);
    Exit;
  end;
  if(Trim(edtSendName.Text)='') then
  begin
    MessageBox(Handle,'输入户主名称！','提示信息',MB_OK);
    Exit;
  end;
  if(Trim(edtPassword.Text)='') then
  begin
    MessageBox(Handle,'输入用户密码！','提示信息',MB_OK);
    Exit;
  end;
  if(frmSend.CheckCode(edtSendCode.Text)=false) then
  begin
    MessageBox(Handle,'发送号码不正确！','提示信息',MB_OK);
    Exit;
  end;
  New(SendCodeInfo);
  SendCodeInfo.sSendCode:=Trim(edtSendCode.Text);
  SendCodeInfo.sSendName:=Trim(edtSendName.Text);
  SendCodeInfo.sPassword:=Trim(edtPassword.Text);
  frmSend.cmbSendCode.Items.AddObject(Trim(edtSendName.Text),TObject(SendCodeInfo));
  frmSend.SaveSendCodeInfo;
  Close;
end;

end.