edittenancycase2fm.pas

来自「一款房产中介软件」· PAS 代码 · 共 118 行

Unit EDITTenancyCase2FM;

Interface

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

Type
   TfrmEDITTenancyCase2 = 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: TButton;
      LbButton2: TButton;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      LbButton1: TButton;
      LbButton3: TButton;
      LbButton5: TButton;
      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
   frmEDITTenancyCase2: TfrmEDITTenancyCase2;

Implementation
Uses MainDM, UnitTenancyCaseFM, PUBFunction;
{$R *.dfm}

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

Procedure TfrmEDITTenancyCase2.LbButton4Click(Sender: TObject);
Begin
   frmUnitTenancyCase.ADOQuery1.Cancel;
   Close;
End;

Procedure TfrmEDITTenancyCase2.LbButton2Click(Sender: TObject);
Begin
   With frmUnitTenancyCase 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 :=
         frmEDITTenancyCase2.DBText10.Caption;
      ADOQuery1.fieldbyname('出租户编号').AsString :=
         frmUnitTenancyCase.DBText8.Caption;
      ADOQuery1.post;
   End;
   Close;
End;

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

   LbButton3.click;
End;

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

Procedure TfrmEDITTenancyCase2.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.