unit1.~pas

短信系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, Db, ADODB, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    TabSheet5: TTabSheet;
    DBGrid5: TDBGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
  adoquery1.close;
  adoquery1.open;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
  adoquery2.close;
  adoquery2.open;
end;

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
  adoquery3.close;
  adoquery3.open;
end;

procedure TForm1.TabSheet4Show(Sender: TObject);
begin
  adoquery4.close;
  adoquery4.open;
end;

procedure TForm1.TabSheet5Show(Sender: TObject);
begin
  adoquery5.close;
  adoquery5.open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit2.text='' then
 begin
  showmessage('发送消息不能为空');
  exit;
 end;
 if edit1.text='' then
 begin
  showmessage('接收方号码不能为空');
  exit;
 end;

 with   adoquery1  do
 begin
   close;
   open;
   append;
   fieldbyname('phone').asstring:=edit1.text;
   fieldbyname('message').asstring:=edit2.text;
   fieldbyname('sendtime').asdatetime:=now;//立即发送
   fieldbyname('sendflag').asstring:='未发';//立即发送
   post;
 end;
end;

end.