unit1.pas

1.Session获取BDE信息 2.可视化创建数据表格 3.SQL语句的使用 4.“一对多表”的设计 5.文本和数据记录的转换 6.ADO的网络调用 7.多媒体数据库的使用 8.IntraWeb技术

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Query1: TQuery;
    DataSource1: TDataSource;
    CheckBox1: TCheckBox;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label7: TLabel;
    Button1: TButton;
    Button3: TButton;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Button3Click(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.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.Edit5Change(Sender: TObject);
begin
If Edit5.Text<>'' Then
 Button2.Enabled:=True;                //使"插入数据"按钮可用
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.