edittenancycase2fm.pas.~1~

一款房产中介软件

Unit EDITTenancyCase2Unit;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, LbButton, DBCtrlsEh, StdCtrls, Mask, DBCtrls, AAFont, AACtrls,
   ExtCtrls;

Type
   TEDITTenancyCase2Form = Class(TForm)
      Panel1: TPanel;
      AALabel7: TLabel;
      AALabel8: TLabel;
      AALabel23: TLabel;
      AALabel10: TLabel;
      AALabel11: TLabel;
      AALabel12: TLabel;
      AALabel13: TLabel;
      AALabel14: TLabel;
      AALabel16: TLabel;
      AALabel17: TLabel;
      AALabel18: TLabel;
      AALabel19: TLabel;
      AALabel20: TLabel;
      AALabel21: TLabel;
      DBText10: TDBText;
      DBNumberEditEh1: TDBNumberEditEh;
      DBNumberEditEh2: TDBNumberEditEh;
      DBNumberEditEh3: TDBNumberEditEh;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      DBNumberEditEh4: TDBNumberEditEh;
      DBNumberEditEh5: TDBNumberEditEh;
      LbButton4: TLbButton;
      LbButton2: TLbButton;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      LbButton1: TLbButton;
      LbButton3: TLbButton;
      LbButton5: TLbButton;
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbButton4Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure LbButton1Click(Sender: TObject);
      Procedure LbButton3Click(Sender: TObject);
      Procedure LbButton5Click(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   EDITTenancyCase2Form: TEDITTenancyCase2Form;

Implementation
Uses DM, UnitTenancyCaseUnit, PUBFunction;
{$R *.dfm}

Procedure TEDITTenancyCase2Form.FormClose(Sender: TObject;
   Var Action: TCloseAction);
Begin
   Action := cafree;
   EDITTenancyCase2Form := Nil;
End;

Procedure TEDITTenancyCase2Form.LbButton4Click(Sender: TObject);
Begin
   UnitTenancyCaseForm.ADOQuery1.Cancel;
   Close;
End;

Procedure TEDITTenancyCase2Form.LbButton2Click(Sender: TObject);
Begin
   With UnitTenancyCaseForm Do Begin

      ADOQuery1.fieldbyname('公司编号').AsString :=
         DBText1.Caption;
      ADOQuery1.fieldbyname('项目编号').AsString :=
         DBText3.Caption;
      ADOQuery1.fieldbyname('幢号').AsString :=
         DBText5.Caption;
      ADOQuery1.fieldbyname('房号').AsString :=
         DBText6.Caption;
      ADOQuery1.fieldbyname('租赁合同号').AsString :=
         DBText7.Caption;
      ADOQuery1.fieldbyname('预定交租日期').AsString :=
         EDITTenancyCase2Form.DBText10.Caption;
      ADOQuery1.fieldbyname('出租户编号').AsString :=
         UnitTenancyCaseForm.DBText8.Caption;
      ADOQuery1.post;
   End;
   Close;
End;

Procedure TEDITTenancyCase2Form.LbButton1Click(Sender: TObject);
Begin
   DBNumberEditEh3.value := STRTOFLOATDEF(DBNumberEditEh2.Text, 0) *
      STRTOFLOATDEF(DBNumberEditEh1.Text, 0);

   LbButton3.click;
End;

Procedure TEDITTenancyCase2Form.LbButton3Click(Sender: TObject);
Begin
   DBNumberEditEh5.Text := FloatToStr(STRTOFLOATDEF(DBNumberEditEh3.Text, 0) -
      STRTOFLOATDEF(DBNumberEditEh4.Text, 0));
End;

Procedure TEDITTenancyCase2Form.LbButton5Click(Sender: TObject);
Var
   a                : TDate;
Begin

   a := StrToDateDef(DBDateTimeEditEh3.Text, 0);
   DBText10.Caption := FormatDateTime('yyyy-mm-dd',
      GetNextMonths(a, StrToIntDef(DBNumberEditEh1.Text, 0)));

End;

End.