unit7.pas

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

unit Unit7;

interface

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

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

var
  FormFWXXSC: TFormFWXXSC;

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

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

procedure TFormFWXXSC.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text <> '' then
  begin
     try
        database.ADO_FWXX.Close;
        database.ADO_FWXX.SQL.Clear;
        database.ADO_FWXX.SQL.Add('delete 房屋信息表 where 房屋编号 =:a');
        database.ADO_FWXX.Parameters.ParamByName('a').Value:=trim(edit1.Text);
        database.ADO_FWXX.ExecSQL;
     except
        MessageDlg('系统出错!',mtWarning,[MbOK],0);
        FormFWXXSC.Close;
     end;
     application.MessageBox('删除成功!','提示',64);

     FormFWXXZ.bitbtn5.Enabled:=false;
     FormFWXXZ.bitbtn7.Enabled:=false;
     with database.ADO_FWXX do
     begin
        close;
        sql.Clear;
        sql.Add('select * from 房屋信息表');
        open;
     end;
     FormFWXXZ.edit1.Text:=database.ADO_FWXX.Fields[0].Value;
     FormFWXXZ.edit2.Text:=database.ADO_FWXX.Fields[1].Value;
     FormFWXXZ.edit3.Text:=database.ADO_FWXX.Fields[2].Value;
     FormFWXXZ.edit4.Text:=database.ADO_FWXX.Fields[3].Value;
     FormFWXXZ.edit5.Text:=database.ADO_FWXX.Fields[4].Value;
     FormFWXXZ.edit6.Text:=database.ADO_FWXX.Fields[5].Value;
     FormFWXXZ.edit7.Text:=database.ADO_FWXX.Fields[6].Value;
     FormFWXXZ.memo1.Text:=database.ADO_FWXX.Fields[7].Value;

     FormFWXXSC.Close;
  end
  else
  begin
     MessageDlg('房屋编号不能为空!',mtWarning,[MbOK],0);
     edit1.SetFocus;
  end;
end;

procedure TFormFWXXSC.BitBtn2Click(Sender: TObject);
begin
  formfwxxsc.Close;
end;

end.