unit1.pas

本程序是个基于SQL语句的短消息管理系统 可以对短信进行添加和查询

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=DateToStr(Now()); //转成日期
   Edit2.Text:=TimeToStr(Now());  //转成时间


end;
procedure TForm1.Edit5Change(Sender: TObject);
begin
if Edit5.Text<>'' then
Button2.Enabled:=True;  //消息内容发生变化后的按钮动作
end;

procedure TForm1.Button2Click(Sender: TObject);
 var sql:String;
begin
  sql:='insert into shortinfo values("'    //将新的内容添加到表中
  +Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'","'+Edit5.Text+'")';
  Query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(sql);
  query1.ExecSQL;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=False then
query1.Active:=False      //当没有指示的时候，就关闭query1，从而没有数据显示
else
Begin
query1.SQL.Clear;
query1.SQL.Add('select * from shortinfo');
query1.ExecSQL;      //显示所有数据并执行
query1.Active:=True;
end;

end;


procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
   query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from shortinfo where receiveDate="'+DateToStr(DateTimePicker1.Date)+'"');
  query1.ExecSQL;       //显示某一天的短信
query1.Active:=True;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from shortinfo where memo like "%'+Edit6.Text+'%"');
query1.ExecSQL;
query1.Active:=True;
end;

end.