Unit UnitMortgageUnit;

Interface

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

Type
   TUnitMortgageForm = 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;
      LbButton4: TLbButton;
      LbButton2: TLbButton;
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      AALabel9: TAALabel;
      AALabel5: TAALabel;
      DBEdit1: TDBEdit;
      AALabel6: TAALabel;
      DBComboBox1: TDBComboBox;
      AALabel7: TAALabel;
      DBComboBox2: TDBComboBox;
      AALabel8: TAALabel;
      DBComboBox3: TDBComboBox;
      AALabel10: TAALabel;
      AALabel18: TAALabel;
      AALabel11: TAALabel;
      DBNumberEditEh1: TDBNumberEditEh;
      AALabel12: TAALabel;
      AALabel13: TAALabel;
      DBNumberEditEh2: TDBNumberEditEh;
      AALabel14: TAALabel;
      AALabel15: TAALabel;
      DBNumberEditEh3: TDBNumberEditEh;
      AALabel16: TAALabel;
      AALabel17: TAALabel;
      DBNumberEditEh4: TDBNumberEditEh;
      AALabel19: TAALabel;
      AALabel20: TAALabel;
      AALabel21: TAALabel;
      AALabel22: TAALabel;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      DataSource2: TDataSource;
      ADOQuery2: TADOQuery;
      AALabel23: TAALabel;
      DBComboBox4: TDBComboBox;
      AALabel24: TAALabel;
      DBGridEH1: TDBGridEh;
      AALabel25: TAALabel;
      AALabel26: TAALabel;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbButton4Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure DBDateTimeEditEh1Exit(Sender: TObject);
      Procedure DBDateTimeEditEh2Exit(Sender: TObject);
      Procedure DBDateTimeEditEh3Exit(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure DBComboBox4Change(Sender: TObject);
      Procedure FormShow(Sender: TObject);
      Procedure DBComboBox3Change(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   UnitMortgageForm : TUnitMortgageForm;

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

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

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

Procedure TUnitMortgageForm.LbButton2Click(Sender: TObject);
Begin
   If Trim(DBEdit1.Text) = '' Then Begin
      Application.MessageBox('抵押合同編號(hào)不能為空！', '錯(cuò)誤警告',
         MB_ICONERROR);
      Exit;
   End;
   ADOQuery1.fieldbyname('公司編號(hào)').AsString :=
      DBText1.Caption;
   ADOQuery1.fieldbyname('項(xiàng)目編號(hào)').AsString :=
      DBText3.Caption;
   ADOQuery1.fieldbyname('幢號(hào)').AsString :=
      DBText5.Caption;
   ADOQuery1.fieldbyname('房號(hào)').AsString :=
      DBText6.Caption;
   ViewUnitForm.ADOQuery4.edit;
   ViewUnitForm.ADOQuery4.fieldbyname('客戶編號(hào)').AsString :=
      DBComboBox4.Text;
   ViewUnitForm.ADOQuery4.fieldbyname('合同號(hào)').AsString :=
      DBEdit1.Text;
   ViewUnitForm.ADOQuery4.post;
   ADOQuery1.post;
   Close;
End;

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

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

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

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

      Free;
   End;

End;

Procedure TUnitMortgageForm.DBComboBox4Change(Sender: TObject);
Begin
   With ADOQuery2 Do Begin
      Close;
      sql.Text := 'select * from 客戶信息表 WHERE 公司編號(hào)=''' +
         DBText1.Caption + ''' AND 客戶編號(hào)=''' +
         DBComboBox4.Text + '''';
      open;

   End;
End;

Procedure TUnitMortgageForm.FormShow(Sender: TObject);
Begin
   With ADOQuery1 Do Begin
      sql.Text := 'select * from 單元抵押表 WHERE 公司編號(hào)=''' +
         DBText1.Caption + ''' and 項(xiàng)目編號(hào)=''' +
         DBText3.Caption + ''' and 幢號(hào)=''' +
         DBText5.Caption + ''' AND 房號(hào)=''' +
         DBText6.Caption + '''';

      open;
      If recordcount > 0 Then
         ADOQuery1.edit
      Else
         ADOQuery1.Append;

   End;
   DBComboBox4Change(self);
End;

Procedure TUnitMortgageForm.DBComboBox3Change(Sender: TObject);
Var
   CS               : double;
Begin

   CS := STRTOFLOATDEF(DBComboBox3.Text, 0);
   If (CS < 0) Or (CS > 9) Then Begin
      Application.MessageBox('成數(shù)必須是1到9 之間的實(shí)數(shù)！請(qǐng)重新輸入！',
         '警告！', MB_ICONERROR);
      DBComboBox3.SetFocus;
   End;

End;

End.