usbdx.pas

实现短信的收发应用非常的方便,系统很小直接使用不需安装

unit usbdx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls, Buttons,
  ComCtrls, ADODB;

type
  Tfrmsbdx = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    tm: TDateTimePicker;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Shape1: TShape;
    Label4: TLabel;
    Shape2: TShape;
    qsbdx: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsbdx: Tfrmsbdx;

implementation
uses udb,udxxj;
{$R *.dfm}

procedure Tfrmsbdx.SpeedButton1Click(Sender: TObject);
var
  sqlstr,tmsql:string;
begin
//首先分析用来查询的条件否为空；
  sqlstr:='';
  tmsql:='';
  if (tm.Checked=true) then
    begin
    //开始allisdb分析
    if allisdb='access' then
    tmsql:='(datevalue(senddate)='+''''+datetostr(tm.date)+''')';
    if allisdb='sqlserver' then
    tmsql:='((senddate>'+''''+datetostr(tm.date)+' '+'00:00:01'+''''+')and (senddate<'+''''+datetostr(tm.date)+' '+'23:59:59'+''''+'))';
    //结束allisdb分析
    sqlstr:='select * from sendsms where (receiver like ''%'+edit1.text+'%'') and '+tmsql+' and (status=2)';
    end;
  if (tm.checked=false) then
    begin
    sqlstr:='select * from sendsms where (receiver like ''%'+edit1.text+'%'') and (status=2) ';
    end;
 runsql(Qsbdx,sqlstr);
end;

procedure Tfrmsbdx.DBGrid1DblClick(Sender: TObject);
begin
 if ((qsbdx.RecordCount >0) and (dbgrid1.selectedindex=0)) then
   begin
      //开始组短信新建窗口写收信人的手机号
      frmdxxj:=Tfrmdxxj.Create(nil);
      frmdxxj.Edit1.Text:=qsbdx.fieldbyname('sender').AsString;
      frmdxxj.Edit2.Text:=qsbdx.fieldbyname('receiver').AsString;
      frmdxxj.memo1.Text:=qsbdx.fieldbyname('content').AsString;
      frmsbdx.Close;
      frmdxxj.Show;
      //结束写手机号;
   end;
end;

procedure Tfrmsbdx.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tfrmsbdx.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end;
end;

procedure Tfrmsbdx.FormCreate(Sender: TObject);
begin
label1.Left:=13;
label1.Top:=edit1.Top+6;
label2.Left:=37;
label2.Top:=tm.Top+4;
SpeedButton1.Click;
end;

end.