udxcx.pas

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

unit udxcx;

interface

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

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

var
  frmdxcx: Tfrmdxcx;

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

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

procedure Tfrmdxcx.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 Tfrmdxcx.SpeedButton1Click(Sender: TObject);
var
  sqlstr,tmsql,tmstr:string;
  yearstr,monstr,daystr:string;
  k,j,l:integer;
begin
//首先分析用来查询的条件否为空；
  sqlstr:='';
  tmsql:='';
  if (tm.Checked=true) then
    begin
    //初始化年月日;
    tmstr:='';
    yearstr:='';
    monstr:='';
    daystr:='';
    yearstr:=copy(datetostr(tm.date),3,2);
    j:=0 ;
    //m:=0;
    for k:=0 to length(datetostr(tm.date))-1 do
    begin
      if datetostr(tm.date)[k]='-' then
      begin
      j:=j+1;
      {if j=1 then
      begin
      m:=k;
      end;}
      if j=2 then
      begin
      l:=k;
      end;
      end;
    end;
    if length(copy(datetostr(tm.date),6,l-6))=1 then monstr:='0'+copy(datetostr(tm.date),6,l-6)
    else monstr:=copy(datetostr(tm.date),6,l-6);
    if length(copy(datetostr(tm.date),l+1,length(datetostr(tm.date))-l))=1 then daystr:='0'+copy(datetostr(tm.date),l+1,length(datetostr(tm.date))-l)
    else daystr:=copy(datetostr(tm.date),l+1,length(datetostr(tm.date))-l);
    tmstr:=yearstr+'-'+monstr+'-'+daystr;
    
    //tmsql:='((revtime>'+''''+tmstr+' '+'00:00:01:'+''''+')and (revtime<'+''''+tmstr+' '+'23:59:59:'+''''+'))';
    tmsql:='left(revtime,8)='+''''+tmstr+'''';
    sqlstr:='select * from revsms where (fromaddress like ''%'+edit1.text+'%'') and '+tmsql;
    end;
  if (tm.checked=false) then
    begin
    sqlstr:='select * from revsms where (fromaddress like ''%'+edit1.text+'%'')  ';
    end;
 runsql(Qdxcx,sqlstr);
end;

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

procedure Tfrmdxcx.FormCreate(Sender: TObject);
begin
label1.Left:=13;
label1.Top:=Edit1.Top+6;
label2.Left:=25;
label2.Top:=tm.Top+4;
SpeedButton1.Click;
end;

end.