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: TAALabel;
      AALabel8: TAALabel;
      AALabel23: TAALabel;
      AALabel10: TAALabel;
      AALabel11: TAALabel;
      AALabel12: TAALabel;
      AALabel13: TAALabel;
      AALabel14: TAALabel;
      AALabel16: TAALabel;
      AALabel17: TAALabel;
      AALabel18: TAALabel;
      AALabel19: TAALabel;
      AALabel20: TAALabel;
      AALabel21: TAALabel;
      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('項(xiàng)目編號').AsString :=
         DBText3.Caption;
      ADOQuery1.fieldbyname('幢號').AsString :=
         DBText5.Caption;
      ADOQuery1.fieldbyname('房號').AsString :=
         DBText6.Caption;
      ADOQuery1.fieldbyname('租賃合同號').AsString :=
         DBText7.Caption;
      ADOQuery1.fieldbyname('預(yù)定交租日期').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.