unit8.~pas

来自「本人是个新手」· ~PAS 代码 · 共 68 行

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);
  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;

end.