Unit UnitTenancyUnit;

Interface

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

Type
   TUnitTenancyForm = Class(TForm)
      AALabel1: TAALabel;
      DBText1: TDBText;
      AALabel2: TAALabel;
      DBText2: TDBText;
      AALabel31: TAALabel;
      DBText3: TDBText;
      AALabel32: TAALabel;
      DBText4: TDBText;
      AALabel3: TAALabel;
      DBText5: TDBText;
      AALabel4: TAALabel;
      DBText6: TDBText;
      Bevel1: TBevel;
      DataSource1: TDataSource;
      ADOQuery1: TADOQuery;
      Panel1: TPanel;
      AALabel9: TAALabel;
      AALabel5: TAALabel;
      DBEdit1: TDBEdit;
      AALabel6: TAALabel;
      AALabel7: TAALabel;
      DBNumberEditEh1: TDBNumberEditEh;
      AALabel23: TAALabel;
      AALabel24: TAALabel;
      AALabel11: TAALabel;
      AALabel13: TAALabel;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      AALabel8: TAALabel;
      AALabel10: TAALabel;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      AALabel12: TAALabel;
      AALabel14: TAALabel;
      DBGridEH1: TDBGridEh;
      DBComboBox1: TDBComboBox;
      DataSource2: TDataSource;
      ADOQuery2: TADOQuery;
      LbButton4: TLbButton;
      LbButton2: TLbButton;
      Panel2: TPanel;
      DBGridEh4: TDBGridEh;
      Panel3: TPanel;
      LbSpeedButton1: TLbSpeedButton;
      LbSpeedButton2: TLbSpeedButton;
      LbSpeedButton3: TLbSpeedButton;
      LbSpeedButton4: TLbSpeedButton;
      LbButton1: TLbButton;
      LbButton3: TLbButton;
      AALabel15: TAALabel;
      Procedure SetEditPanel(bVis: Boolean);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure DBComboBox1Change(Sender: TObject);
      Procedure DBDateTimeEditEh1Exit(Sender: TObject);
      Procedure DBDateTimeEditEh2Exit(Sender: TObject);
      Procedure DBDateTimeEditEh3Exit(Sender: TObject);
      Procedure LbButton4Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure FormShow(Sender: TObject);
      Procedure LbSpeedButton1Click(Sender: TObject);
      Procedure LbSpeedButton2Click(Sender: TObject);
      Procedure LbSpeedButton3Click(Sender: TObject);
      Procedure LbButton1Click(Sender: TObject);
      Procedure LbSpeedButton4Click(Sender: TObject);
      Procedure DBGridEh4DblClick(Sender: TObject);
      Procedure LbButton3Click(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   UnitTenancyForm  : TUnitTenancyForm;
   DBasicDate       : TDate;
Implementation
Uses DM, ViewUnitUnit, UnitTenancyCaseUnit, PUBFunction;
{$R *.dfm}

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

Procedure TUnitTenancyForm.DBComboBox1Change(Sender: TObject);
Begin
   With ADOQuery2 Do Begin
      sql.Text := 'select * from 租戶信息表 WHERE 公司編號=''' +
         DBText1.Caption + ''' AND 出租戶編號=''' +
         DBComboBox1.Text + '''';
      open;

   End;
End;

Procedure TUnitTenancyForm.DBDateTimeEditEh1Exit(Sender: TObject);
Begin
   PUBFunction.FixEhDTBug(DBDateTimeEditEh1);
End;

Procedure TUnitTenancyForm.DBDateTimeEditEh2Exit(Sender: TObject);
Begin
   PUBFunction.FixEhDTBug(DBDateTimeEditEh2);
End;

Procedure TUnitTenancyForm.DBDateTimeEditEh3Exit(Sender: TObject);
Begin
   PUBFunction.FixEhDTBug(DBDateTimeEditEh3);
End;

Procedure TUnitTenancyForm.LbButton4Click(Sender: TObject);
Begin
   ADOQuery1.Cancel;
   SetEditPanel(false);
End;

Procedure TUnitTenancyForm.LbButton2Click(Sender: TObject);
Begin
   If Trim(DBEdit1.Text) = '' Then Begin
      Application.MessageBox('租賃合同編號不能為空！', '錯誤警告',
         MB_ICONERROR);
      DBEdit1.SetFocus;
      Exit;
   End;

   ADOQuery1.fieldbyname('公司編號').AsString :=
      DBText1.Caption;
   ADOQuery1.fieldbyname('項目編號').AsString :=
      DBText3.Caption;
   ADOQuery1.fieldbyname('幢號').AsString :=
      DBText5.Caption;
   ADOQuery1.fieldbyname('房號').AsString :=
      DBText6.Caption;
   ADOQuery1.fieldbyname('出租戶編號').AsString :=
      DBComboBox1.Text;
   ViewUnitForm.ADOQuery4.edit;
   ViewUnitForm.ADOQuery4.fieldbyname('客戶編號').AsString :=
      DBComboBox1.Text;
   ViewUnitForm.ADOQuery4.fieldbyname('合同號').AsString :=
      DBEdit1.Text;
   ViewUnitForm.ADOQuery4.post;

   ADOQuery1.post;
   SetEditPanel(false);
   LbSpeedButton4.click;
End;

Procedure TUnitTenancyForm.FormCreate(Sender: TObject);
Var
   adoK             : TADOQuery;
   i                : integer;
Begin
   adoK := TADOQuery.create(self);
   With adoK Do Begin
      connection := DM.DataModule2.ADOConnection1;
      sql.Text := 'select 出租戶編號 from 租戶信息表 WHERE 公司編號=''' +
         DBText1.Caption + '''';
      open;
      For i := 0 To recordcount - 1 Do Begin
         DBComboBox1.Items.Add(fieldbyname('出租戶編號').Text);
         Next;
      End;

      Free;
   End;

   SetEditPanel(false);
End;

Procedure TUnitTenancyForm.FormShow(Sender: TObject);
Begin
   With ADOQuery1 Do Begin
      sql.Text := 'select * from 單元租賃表 WHERE 公司編號=''' +
         DBText1.Caption + ''' and 項目編號=''' +
         DBText3.Caption + ''' and 幢號=''' +
         DBText5.Caption + ''' AND 房號=''' +
         DBText6.Caption + ''' ORDER BY 租賃登記日期 DESC';
      open;
   End;
   DBComboBox1Change(self);
End;

Procedure TUnitTenancyForm.LbSpeedButton1Click(Sender: TObject);
Begin

   ADOQuery1.Append;
   SetEditPanel(true);
   DBComboBox1Change(self);
End;

Procedure TUnitTenancyForm.SetEditPanel(bVis: Boolean);
Begin
   If bVis Then
      Panel1.BringToFront
   Else
      Panel2.BringToFront;
End;

Procedure TUnitTenancyForm.LbSpeedButton2Click(Sender: TObject);
Begin
   If ADOQuery1.recordcount > 0 Then Begin

      ADOQuery1.edit;
      SetEditPanel(true);
      DBComboBox1Change(self);
   End;
End;

Procedure TUnitTenancyForm.LbSpeedButton3Click(Sender: TObject);

   Procedure DelRecAboutGD(sTablename: String);
   Var
      ADOD          : TADOQuery;
   Begin
      ADOD := TADOQuery.create(self);
      With ADOD Do Begin
         connection := DM.DataModule2.ADOConnection1;
         sql.Text := 'DELETE * FROM ' + sTablename + ' where 公司編號=''' +
            ADOQuery1.fieldbyname('公司編號').Text + ''' And 項目編號=''' +
            ADOQuery1.fieldbyname('項目編號').Text + ''' and 幢號=''' +
            ADOQuery1.fieldbyname('幢號').Text + ''' and 房號=''' +
            ADOQuery1.fieldbyname('房號').Text + ''' and 租賃合同號=''' +
            ADOQuery1.fieldbyname('租賃合同號').Text + '''';

         ExecSQL;
         Free;
      End;

   End;
Begin
   If ADOQuery1.recordcount > 0 Then Begin
      DelRecAboutGD('租賃情況表');
      ADOQuery1.Delete;
   End;

End;

Procedure TUnitTenancyForm.LbButton1Click(Sender: TObject);
Begin
   Close;
End;

Procedure TUnitTenancyForm.LbSpeedButton4Click(Sender: TObject);
Var
   adotemp          : TADOQuery;

Begin
   adotemp := TADOQuery.create(self);
   With adotemp Do Begin
      connection := DM.DataModule2.ADOConnection1;
      sql.Text := 'update 單元租賃表 SET 最后租房=FALSE where 公司編號=''' +
         DBText1.Caption + ''' and 項目編號=''' +
         DBText3.Caption + ''' AND 幢號=''' +
         DBText5.Caption + ''' AND 房號=''' +
         DBText6.Caption + '''';
      ExecSQL;
      sql.Text := 'select * from 單元租賃表 WHERE 公司編號=''' +
         DBText1.Caption + ''' and 項目編號=''' +
         DBText3.Caption + ''' AND 幢號=''' +
         DBText5.Caption + ''' AND 房號=''' +
         DBText6.Caption +
         ''' ORDER BY 租賃登記日期 desc';

      open;
      edit;
      fieldbyname('最后租房').AsBoolean := true;
      post;

      Free;
   End;
   With ADOQuery1 Do Begin
      sql.Text := 'select * from 單元租賃表 WHERE 公司編號=''' +
         DBText1.Caption + ''' and 項目編號=''' +
         DBText3.Caption + ''' and 幢號=''' +
         DBText5.Caption + ''' AND 房號=''' +
         DBText6.Caption + ''' ORDER BY 租賃登記日期 DESC';
      open;
   End;
End;

Procedure TUnitTenancyForm.DBGridEh4DblClick(Sender: TObject);
Begin
   LbSpeedButton2.click;
End;

Procedure TUnitTenancyForm.LbButton3Click(Sender: TObject);
Begin
   UnitTenancyCaseForm := TUnitTenancyCaseForm.create(self);
   UnitTenancyCaseForm.ShowModal;
End;

End.