unit_delete.pas

某小区物业管理系统源码某小区物业管理系统源码

unit Unit_delete;

interface

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

type
  TForm_delete = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    ADOQuery_delete: TADOQuery;
    DataSource_delete: TDataSource;
    ADOQuery_deleteDSDesigner: TAutoIncField;
    ADOQuery_deleteDSDesigner2: TWideStringField;
    ADOQuery_deleteDSDesigner3: TWideStringField;
    ADOQuery_deleteDSDesigner4: TWideStringField;
    ADOQuery_deleteDSDesigner5: TWideStringField;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_delete: TForm_delete;

implementation

{$R *.dfm}

procedure TForm_delete.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm_delete.Button1Click(Sender: TObject);
begin
with adoquery_delete do
   begin
    SQL.Clear;
    //close;
    sql.Add('select * from 操作记录（用户）表 where 用户名称=:use');
    parameters[0].Value:=edit1.Text;
    open;
   end;
end;

procedure TForm_delete.Button2Click(Sender: TObject);
begin
if Application.messagebox('您确定删除该记录!','删除' ,MB_YESNO)=6 then
  adoquery_delete.Delete;
end;

end.