unit1.pas

用Table控件开发数据库应用程序示例

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    ButtonSelect: TButton;
    ButtonInsert: TButton;
    ButtonDelete: TButton;
    ButtonChange: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure ButtonSelectClick(Sender: TObject);
    procedure ButtonInsertClick(Sender: TObject);
    procedure ButtonDeleteClick(Sender: TObject);
    procedure ButtonChangeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonSelectClick(Sender: TObject);
begin
  try
    Table1.DisableControls;
    Table1.IndexFieldNames:='Name'; //指定查找字段
    Table1.SetKey;//将Table1置成查找状态
    Table1.Fields[0].AsString:=Edit1.Text;//指定查找值
    if not Table1.GotoKey then//进行查找
      ShowMessage('该条记录不存在');
    Table1.EnableControls;  
  except
    ShowMessage('查找失败');
  end;
end;

procedure TForm1.ButtonInsertClick(Sender: TObject);
begin
  Table1.Insert;  //设置为插入状态
  Table1.Fields[0].AsString:=Edit1.Text; //设置要插入的记录值
  Table1.Post;  //将插入的记录写回数据库
end;

procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
  Table1.IndexFieldNames:='Name'; //指定查找字段
  Table1.SetKey;//将Table1置成查找状态
  Table1.Fields[0].AsString:=Edit1.Text;//指定查找值
  if not Table1.GotoKey then//进行查找
    ShowMessage('该条记录不存在')
  else if MessageDlg('确定要删除吗？',mtConfirmation,[mbYes, mbNo],0) = mrYes then
    Table1.Delete;   //确认后删除
end;

procedure TForm1.ButtonChangeClick(Sender: TObject);
begin
  Table1.Edit;//将Table控件置成编辑状态
  Table1.Fields[0].AsString:=Edit1.Text;//对记录的第1个字段进行修改。
  Table1.post;//将修改后的记录写回数据库
end;

end.