unit8.pas

上次我同样上传了个score-manager

unit Unit8;

interface

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

type
  TuserForm = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Query1: TQuery;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userForm: TuserForm;

implementation

{$R *.dfm}

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

procedure TuserForm.SpeedButton1Click(Sender: TObject);
begin
with table1 do
begin
 if  locate('编号',vararrayof([dbedit1.text]),[])then
 begin
 delete;
 showmessage('删除成功!');
 exit
 end
 else
 showmessage('无此记录!');
end;
end;

procedure TuserForm.SpeedButton3Click(Sender: TObject);
begin
table1.Active:=not table1.Active;
end;

procedure TuserForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.