unit11.pas

本系统是一个房屋出租方面的管理系统

unit Unit11;

interface

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

type
  TFormCZXXTJ = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCZXXTJ: TFormCZXXTJ;

implementation
uses unit3;
{$R *.dfm}

procedure TFormCZXXTJ.BitBtn1Click(Sender: TObject);
begin
   if edit1.Text = '' then
   begin
      application.MessageBox('房屋编号不能为空!','提示',64);
      edit1.SetFocus;
   end
   else if edit2.Text = '' then
   begin
      application.MessageBox('住户编号不能为空!','提示',64);
      edit2.SetFocus;
   end
   else if edit3.Text = '' then
   begin
      application.MessageBox('房屋类别不能为空!','提示',64);
      edit3.SetFocus;
   end
   else if edit4.Text = '' then
   begin
      application.MessageBox('出租数量不能为空!','提示',64);
      edit4.SetFocus;
   end
   else if edit5.Text = '' then
   begin
      application.MessageBox('出租时间不能为空!','提示',64);
      edit5.SetFocus;
   end
   else if edit6.Text = '' then
   begin
      application.MessageBox('租房方式不能为空!','提示',64);
      edit6.SetFocus;
   end
   else
   begin
      try
         //住户登记完毕后出租信息添加时现存的房屋要减去被租出的房屋
         database.ADO_XYFW.Connection:=database.ADOConnection1;
         database.ADO_XYFW.Close;
         database.ADO_XYFW.SQL.Clear;
         database.ADO_XYFW.SQL.Add('delete 现有房屋表 where 房屋编号=:a');
         database.ADO_XYFW.Parameters.ParamByName('a').Value:=trim(edit1.Text);
         database.ADO_XYFW.ExecSQL;

         database.ADO_CZXX.Close;
         database.ADO_CZXX.SQL.Clear;
         database.ADO_CZXX.SQL.Add('insert 出租信息表 values (:a,:b,:c,:d,:e,:f)');
         database.ADO_CZXX.Parameters.ParamByName('a').Value:=trim(edit1.Text);
         database.ADO_CZXX.Parameters.ParamByName('b').Value:=trim(edit2.Text);
         database.ADO_CZXX.Parameters.ParamByName('c').Value:=trim(edit3.Text);
         database.ADO_CZXX.Parameters.ParamByName('d').Value:=strtoint(trim(edit4.Text));
         database.ADO_CZXX.Parameters.ParamByName('e').Value:=strtodate(trim(edit5.Text));
         database.ADO_CZXX.Parameters.ParamByName('f').Value:=trim(edit6.Text);
         database.ADO_CZXX.ExecSQL;
      except
         application.MessageBox('系统出错!','提示',64);
         FormCZXXTJ.Close;
      end;

      application.MessageBox('添加成功','提示',64);


      database.ADO_CZXX.Close;
      database.ADO_CZXX.SQL.Add('select * from 出租信息表');
      database.ADO_CZXX.Open;

      FormCZXXTJ.Close;
   end;
end;

procedure TFormCZXXTJ.BitBtn2Click(Sender: TObject);
begin
   formczxxtj.Close;
end;

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

end.