unitautoreplyform.pas

串口短信猫收发软件。支持西门子TC35i设备

unit UnitAutoReplyForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzButton, RzLabel, RzRadChk, ExtCtrls,
  RzPanel, DBCtrls, Grids, DB, DBGrids, DBActns, ActnList, ImgList;

type
  TAutoReplyForm = class(TForm)
    RzPanel1: TRzPanel;
    RzCheckBox_AutoReply: TRzCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DBMemo2: TDBMemo;
    Label6: TLabel;
    ImageList1: TImageList;
    RzPanel2: TRzPanel;
    DBGrid1: TDBGrid;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    RzPanel5: TRzPanel;
    RzBitBtn9: TRzBitBtn;
    RzBitBtn10: TRzBitBtn;
    RzBitBtn11: TRzBitBtn;
    RzBitBtn12: TRzBitBtn;
    RzBitBtn13: TRzBitBtn;
    Label9: TLabel;
    RzURLLabel1: TRzURLLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure RzCheckBox_AutoReplyClick(Sender: TObject);
    procedure RzURLLabel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UnitDM, UnitSendSMSForm;

{$R *.dfm}

procedure TAutoReplyForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=27 then Close;
end;

procedure TAutoReplyForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.DSet_AutoReply.Close;
  Action := caFree;
end;

procedure TAutoReplyForm.FormShow(Sender: TObject);
begin
  RzCheckBox_AutoReply.Checked := DM.FbAutoReply;
  if RzCheckBox_AutoReply.Checked then DM.DSet_AutoReply.Open;
end;

procedure TAutoReplyForm.RzCheckBox_AutoReplyClick(Sender: TObject);
var
  bA: boolean;
begin
  bA := RzCheckBox_AutoReply.Checked;
  if bA then
  begin
    DM.DSet_AutoReply.Open;
  end
  else
  begin
    DM.DSet_AutoReply.Close;
  end;
  if DM.UpdateAutoReplyBasePara(bA) then
  begin
    DM.FbAutoReply := bA;
    if bA then
      Application.MessageBox('系统已启用自动回复功能，收到短信后按规则自动发送短信！','提示',MB_OK + MB_ICONINFORMATION)
    else
      Application.MessageBox('系统已停止自动回复短信！','提示',MB_OK + MB_ICONINFORMATION);
  end;
end;

procedure TAutoReplyForm.RzURLLabel1Click(Sender: TObject);
var
  s1, s2: string;
  DataSet: TDataSet;
begin
//双击重发短信
  DataSet := DBGrid1.DataSource.DataSet;
  if not DataSet.Active then Exit;
  if DataSet.IsEmpty then Exit;
  s1 := '';
  s2 := Trim(DataSet.FieldByName('remark').AsString);
  if s2='' then Exit;
  with TSendSMSForm.Create(nil, s1, s2) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

end.