unit5.~pas

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

unit Unit5;

interface

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

type
  TFormFWXXXG = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit3: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    
    


    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormFWXXXG: TFormFWXXXG;

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


procedure TFormFWXXXG.BitBtn2Click(Sender: TObject);
begin
   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 if edit7.Text = '' then
   begin
      application.MessageBox('长租价不能为空!','提示',64);
      edit7.SetFocus;
   end
   else
      try
         database.ADO_FWXX.Edit;
         database.ADO_FWXX.FieldByName('房屋大小').Value:=trim(edit3.Text);
         database.ADO_FWXX.FieldByName('楼层高度').Value:=trim(edit4.Text);
         database.ADO_FWXX.FieldByName('建房日期').Value:=strtodatetime(trim(edit5.Text));
         database.ADO_FWXX.FieldByName('短租价').Value:=trim(edit6.Text);
         database.ADO_FWXX.FieldByName('长租价').Value:=trim(edit7.Text);
         database.ADO_FWXX.FieldByName('房屋配备').Value:=trim(memo1.Text);
         database.ADO_FWXX.Post;
      except
         application.MessageBox('系统出错!','提示',64);
         FormFWXXXG.Close;
      end;
         application.MessageBox('修改成功','提示',64);
         FormFWXXXG.Close;
         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;
end;



procedure TFormFWXXXG.BitBtn3Click(Sender: TObject);
begin
   FormFWXXXG.Close;
end;

procedure TFormFWXXXG.FormShow(Sender: TObject);
begin
    FormFWXXXG.label9.Caption:=database.ADO_FWXX.Fields[0].Value;
    FormFWXXXG.label10.Caption:=database.ADO_FWXX.Fields[1].Value;
    FormFWXXXG.edit3.Text:=database.ADO_FWXX.Fields[2].Value;
    FormFWXXXG.edit4.Text:=database.ADO_FWXX.Fields[3].Value;
    FormFWXXXG.edit5.Text:=database.ADO_FWXX.Fields[4].Value;
    FormFWXXXG.edit6.Text:=database.ADO_FWXX.Fields[5].Value;
    FormFWXXXG.edit7.Text:=database.ADO_FWXX.Fields[6].Value;
    FormFWXXXG.memo1.Text:=database.ADO_FWXX.Fields[7].Value; 
end;



end.