unitsellfm.pas.~1~

一款房产中介软件

Unit UnitSellUnit;

Interface

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

Type
   TUnitSellForm = Class(TForm)
      LbButton4: TLbButton;
      LbButton2: TLbButton;
      AALabel1: TLabel;
      DBText1: TDBText;
      AALabel2: TLabel;
      DBText2: TDBText;
      AALabel31: TLabel;
      DBText3: TDBText;
      AALabel32: TLabel;
      DBText4: TDBText;
      AALabel3: TLabel;
      DBText5: TDBText;
      AALabel4: TLabel;
      DBText6: TDBText;
      Bevel1: TBevel;
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      DataSource2: TDataSource;
      ADOQuery2: TADOQuery;
      PageControl1: TPageControl;
      TabSheet1: TTabSheet;
      TabSheet2: TTabSheet;
      TabSheet3: TTabSheet;
      Panel1: TPanel;
      AALabel9: TLabel;
      AALabel5: TLabel;
      AALabel6: TLabel;
      AALabel18: TLabel;
      AALabel11: TLabel;
      AALabel7: TLabel;
      AALabel8: TLabel;
      AALabel10: TLabel;
      AALabel12: TLabel;
      AALabel13: TLabel;
      AALabel14: TLabel;
      AALabel19: TLabel;
      AALabel20: TLabel;
      AALabel21: TLabel;
      AALabel22: TLabel;
      AALabel25: TLabel;
      AALabel26: TLabel;
      AALabel15: TLabel;
      AALabel16: TLabel;
      AALabel17: TLabel;
      AALabel23: TLabel;
      AALabel24: TLabel;
      AALabel27: TLabel;
      AALabel28: TLabel;
      AALabel29: TLabel;
      AALabel30: TLabel;
      DBEdit1: TDBEdit;
      DBEdit2: TDBEdit;
      DBNumberEditEh1: TDBNumberEditEh;
      DBNumberEditEh2: TDBNumberEditEh;
      DBNumberEditEh3: TDBNumberEditEh;
      DBNumberEditEh4: TDBNumberEditEh;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      DBDateTimeEditEh4: TDBDateTimeEditEh;
      DBDateTimeEditEh5: TDBDateTimeEditEh;
      DBMemo1: TDBMemo;
      DBComboBox1: TDBComboBox;
      DBComboBox2: TDBComboBox;
      DBGridEH1: TDBGridEh;
      LbButton1: TLbButton;
      Panel2: TPanel;
      Panel3: TPanel;
      GroupBox1: TGroupBox;
      AALabel33: TLabel;
      AALabel34: TLabel;
      AALabel35: TLabel;
      AALabel36: TLabel;
      AALabel37: TLabel;
      AALabel38: TLabel;
      AALabel39: TLabel;
      AALabel40: TLabel;
      AALabel41: TLabel;
      AALabel42: TLabel;
      AALabel43: TLabel;
      AALabel44: TLabel;
      AALabel45: TLabel;
      AALabel46: TLabel;
      AALabel47: TLabel;
      AALabel48: TLabel;
      AALabel49: TLabel;
      AALabel50: TLabel;
      AALabel51: TLabel;
      AALabel52: TLabel;
      DBNumberEditEh5: TDBNumberEditEh;
      DBNumberEditEh6: TDBNumberEditEh;
      DBNumberEditEh7: TDBNumberEditEh;
      DBNumberEditEh8: TDBNumberEditEh;
      DBDateTimeEditEh6: TDBDateTimeEditEh;
      DBDateTimeEditEh7: TDBDateTimeEditEh;
      DBDateTimeEditEh8: TDBDateTimeEditEh;
      DBDateTimeEditEh9: TDBDateTimeEditEh;
      GroupBox2: TGroupBox;
      AALabel53: TLabel;
      AALabel54: TLabel;
      AALabel55: TLabel;
      AALabel56: TLabel;
      AALabel57: TLabel;
      AALabel58: TLabel;
      AALabel59: TLabel;
      AALabel60: TLabel;
      AALabel61: TLabel;
      AALabel62: TLabel;
      AALabel63: TLabel;
      AALabel64: TLabel;
      AALabel65: TLabel;
      AALabel66: TLabel;
      AALabel67: TLabel;
      AALabel68: TLabel;
      AALabel69: TLabel;
      AALabel70: TLabel;
      AALabel71: TLabel;
      AALabel72: TLabel;
      DBNumberEditEh9: TDBNumberEditEh;
      DBNumberEditEh10: TDBNumberEditEh;
      DBNumberEditEh11: TDBNumberEditEh;
      DBNumberEditEh12: TDBNumberEditEh;
      DBDateTimeEditEh10: TDBDateTimeEditEh;
      DBDateTimeEditEh11: TDBDateTimeEditEh;
      DBDateTimeEditEh12: TDBDateTimeEditEh;
      DBDateTimeEditEh13: TDBDateTimeEditEh;
      AALabel73: TLabel;
      AALabel74: TLabel;
      DBEdit3: TDBEdit;
      AALabel75: TLabel;
      DBEdit4: TDBEdit;
      AALabel76: TLabel;
      AALabel77: TLabel;
      DBComboBox3: TDBComboBox;
      GroupBox3: TGroupBox;
      AALabel78: TLabel;
      AALabel80: TLabel;
      AALabel81: TLabel;
      AALabel82: TLabel;
      AALabel83: TLabel;
      DBNumberEditEh13: TDBNumberEditEh;
      DBNumberEditEh14: TDBNumberEditEh;
      AALabel84: TLabel;
      AALabel85: TLabel;
      AALabel86: TLabel;
      AALabel87: TLabel;
      DBDateTimeEditEh14: TDBDateTimeEditEh;
      DBDateTimeEditEh15: TDBDateTimeEditEh;
      AALabel88: TLabel;
      DBText7: TDBText;
      AALabel89: TLabel;
      GroupBox4: TGroupBox;
      AALabel90: TLabel;
      AALabel92: TLabel;
      AALabel93: TLabel;
      AALabel94: TLabel;
      AALabel95: TLabel;
      AALabel96: TLabel;
      AALabel97: TLabel;
      AALabel98: TLabel;
      AALabel99: TLabel;
      AALabel100: TLabel;
      DBText8: TDBText;
      AALabel101: TLabel;
      DBNumberEditEh15: TDBNumberEditEh;
      DBNumberEditEh16: TDBNumberEditEh;
      DBDateTimeEditEh16: TDBDateTimeEditEh;
      DBDateTimeEditEh17: TDBDateTimeEditEh;
      AALabel102: TLabel;
      AALabel103: TLabel;
      DBDateTimeEditEh18: TDBDateTimeEditEh;
      AALabel104: TLabel;
      AALabel105: TLabel;
      AALabel106: TLabel;
      AALabel107: TLabel;
      DBNumberEditEh17: TDBNumberEditEh;
      DBNumberEditEh18: TDBNumberEditEh;
      AALabel79: TLabel;
      DBNumberEditEh25: TDBNumberEditEh;
      AALabel91: TLabel;
      DBNumberEditEh19: TDBNumberEditEh;
      AALabel108: TLabel;
      DBText9: TDBText;
      AALabel109: TLabel;
      DBNumberEditEh20: TDBNumberEditEh;
      AALabel110: TLabel;
      AALabel111: TLabel;
      DBNumberEditEh21: TDBNumberEditEh;
      AALabel112: TLabel;
      AALabel113: TLabel;
      DBNumberEditEh22: TDBNumberEditEh;
      AALabel114: TLabel;
      AALabel115: TLabel;
      AALabel116: TLabel;
      DBNumberEditEh23: TDBNumberEditEh;
      AALabel117: TLabel;
      AALabel118: TLabel;
      AALabel119: TLabel;
      DBNumberEditEh24: TDBNumberEditEh;
      AALabel120: TLabel;
      AALabel121: TLabel;
      AALabel122: TLabel;
      AALabel123: TLabel;
      AALabel124: TLabel;
      AALabel125: TLabel;
      DBDateTimeEditEh19: TDBDateTimeEditEh;
      DBDateTimeEditEh20: TDBDateTimeEditEh;
      AALabel126: TLabel;
      AALabel127: TLabel;
      DBDateTimeEditEh21: TDBDateTimeEditEh;
      AALabel128: TLabel;
      AALabel129: TLabel;
      DBDateTimeEditEh22: TDBDateTimeEditEh;
      LbButton3: TLbButton;
      LbButton5: TLbButton;
      AALabel143: TLabel;
      AALabel130: TLabel;
      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 DBDateTimeEditEh4Exit(Sender: TObject);
      Procedure DBDateTimeEditEh5Exit(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure DBComboBox2Change(Sender: TObject);
      Procedure FormShow(Sender: TObject);
      Procedure DBNumberEditEh1Change(Sender: TObject);
      Procedure DBNumberEditEh3Change(Sender: TObject);
      Procedure LbButton1Click(Sender: TObject);
      Procedure DBComboBox1Change(Sender: TObject);
      Procedure DBNumberEditEh17Change(Sender: TObject);
      Procedure DBNumberEditEh5Change(Sender: TObject);
      Procedure DBNumberEditEh9Change(Sender: TObject);
      Procedure TabSheet3Show(Sender: TObject);
      Procedure DBNumberEditEh25Change(Sender: TObject);
      Procedure DBNumberEditEh19Change(Sender: TObject);
      Procedure LbButton3Click(Sender: TObject);
      Procedure LbButton5Click(Sender: TObject);
      Procedure DBNumberEditEh23Change(Sender: TObject);
      Procedure DBNumberEditEh24Change(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   UnitSellForm     : TUnitSellForm;
   area             : double;
   BendLoadDB       : Boolean;
Implementation
Uses DM, ViewUnitUnit, PUBFunction;
{$R *.dfm}

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

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

Procedure TUnitSellForm.LbButton2Click(Sender: TObject);
Begin

   If Trim(DBEdit1.Text) = '' Then Begin
      Application.MessageBox('预售合同编号不能为空！', '错误警告',
         MB_ICONERROR);
      Exit;
   End;
   If DBComboBox1.Text = '分期' Then Begin
      ADOQuery1.fieldbyname('已收款').Text := DBNumberEditEh21.Text;
      ADOQuery1.fieldbyname('未收款').Text := DBNumberEditEh22.Text;
   End Else Begin
      ADOQuery1.fieldbyname('已收款').Text := DBNumberEditEh4.Text;
      ADOQuery1.fieldbyname('未收款').AsFloat := 0;
   End;

   ADOQuery1.fieldbyname('公司编号').AsString :=
      DBText1.Caption;