unit15.pas

来自「本系统是一个房屋出租方面的管理系统」· PAS 代码 · 共 69 行

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TFormZHDJSC = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormZHDJSC: TFormZHDJSC;

implementation
uses unit3,unit10;
{$R *.dfm}

procedure TFormZHDJSC.BitBtn1Click(Sender: TObject);
begin
   if edit1.Text <> '' then
   begin
      database.ADO_ZHDJZ.Close;
      database.ADO_ZHDJZ.SQL.Clear;
      database.ADO_ZHDJZ.SQL.Add('delete 住户登记表 where 住户编号 = :a');
      database.ADO_ZHDJZ.Parameters.ParamByName('a').Value:=trim(edit1.Text);
      database.ADO_ZHDJZ.ExecSQL;

      database.ADO_ZHDJZ.Close;
      database.ADO_ZHDJZ.SQL.Clear;
      database.ADO_ZHDJZ.SQL.Add('select * from 住户登记表');
      database.ADO_ZHDJZ.Open;
      application.MessageBox('删除成功','提示',64);

      FormZHDJSC.Close;
      formZHDJZ.BitBtn10.Enabled:=true;
   end
   else
   begin
      application.MessageBox('编号不能为空!','提示',64);
      edit1.SetFocus;
   end;
end;

procedure TFormZHDJSC.FormShow(Sender: TObject);
begin
   edit1.SetFocus;
end;

procedure TFormZHDJSC.BitBtn2Click(Sender: TObject);
begin
   FormZHDJSC.Close;
end;

end.