unitsellunit.pas

安邦售楼系统单机版 (DELPHI格式源码),比较实用

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: 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;
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      DataSource2: TDataSource;
      ADOQuery2: TADOQuery;
      PageControl1: TPageControl;
      TabSheet1: TTabSheet;
      TabSheet2: TTabSheet;
      TabSheet3: TTabSheet;
      Panel1: TPanel;
      AALabel9: TAALabel;
      AALabel5: TAALabel;
      AALabel6: TAALabel;
      AALabel18: TAALabel;
      AALabel11: TAALabel;
      AALabel7: TAALabel;
      AALabel8: TAALabel;
      AALabel10: TAALabel;
      AALabel12: TAALabel;
      AALabel13: TAALabel;
      AALabel14: TAALabel;
      AALabel19: TAALabel;
      AALabel20: TAALabel;
      AALabel21: TAALabel;
      AALabel22: TAALabel;
      AALabel25: TAALabel;
      AALabel26: TAALabel;
      AALabel15: TAALabel;
      AALabel16: TAALabel;
      AALabel17: TAALabel;
      AALabel23: TAALabel;
      AALabel24: TAALabel;
      AALabel27: TAALabel;
      AALabel28: TAALabel;
      AALabel29: TAALabel;
      AALabel30: TAALabel;
      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: TAALabel;
      AALabel34: TAALabel;
      AALabel35: TAALabel;
      AALabel36: TAALabel;
      AALabel37: TAALabel;
      AALabel38: TAALabel;
      AALabel39: TAALabel;
      AALabel40: TAALabel;
      AALabel41: TAALabel;
      AALabel42: TAALabel;
      AALabel43: TAALabel;
      AALabel44: TAALabel;
      AALabel45: TAALabel;
      AALabel46: TAALabel;
      AALabel47: TAALabel;
      AALabel48: TAALabel;
      AALabel49: TAALabel;
      AALabel50: TAALabel;
      AALabel51: TAALabel;
      AALabel52: TAALabel;
      DBNumberEditEh5: TDBNumberEditEh;
      DBNumberEditEh6: TDBNumberEditEh;
      DBNumberEditEh7: TDBNumberEditEh;
      DBNumberEditEh8: TDBNumberEditEh;
      DBDateTimeEditEh6: TDBDateTimeEditEh;
      DBDateTimeEditEh7: TDBDateTimeEditEh;
      DBDateTimeEditEh8: TDBDateTimeEditEh;
      DBDateTimeEditEh9: TDBDateTimeEditEh;
      GroupBox2: TGroupBox;
      AALabel53: TAALabel;
      AALabel54: TAALabel;
      AALabel55: TAALabel;
      AALabel56: TAALabel;
      AALabel57: TAALabel;
      AALabel58: TAALabel;
      AALabel59: TAALabel;
      AALabel60: TAALabel;
      AALabel61: TAALabel;
      AALabel62: TAALabel;
      AALabel63: TAALabel;
      AALabel64: TAALabel;
      AALabel65: TAALabel;
      AALabel66: TAALabel;
      AALabel67: TAALabel;
      AALabel68: TAALabel;
      AALabel69: TAALabel;
      AALabel70: TAALabel;
      AALabel71: TAALabel;
      AALabel72: TAALabel;
      DBNumberEditEh9: TDBNumberEditEh;
      DBNumberEditEh10: TDBNumberEditEh;
      DBNumberEditEh11: TDBNumberEditEh;
      DBNumberEditEh12: TDBNumberEditEh;
      DBDateTimeEditEh10: TDBDateTimeEditEh;
      DBDateTimeEditEh11: TDBDateTimeEditEh;
      DBDateTimeEditEh12: TDBDateTimeEditEh;
      DBDateTimeEditEh13: TDBDateTimeEditEh;
      AALabel73: TAALabel;
      AALabel74: TAALabel;
      DBEdit3: TDBEdit;
      AALabel75: TAALabel;
      DBEdit4: TDBEdit;
      AALabel76: TAALabel;
      AALabel77: TAALabel;
      DBComboBox3: TDBComboBox;
      GroupBox3: TGroupBox;
      AALabel78: TAALabel;
      AALabel80: TAALabel;
      AALabel81: TAALabel;
      AALabel82: TAALabel;
      AALabel83: TAALabel;
      DBNumberEditEh13: TDBNumberEditEh;
      DBNumberEditEh14: TDBNumberEditEh;
      AALabel84: TAALabel;
      AALabel85: TAALabel;
      AALabel86: TAALabel;
      AALabel87: TAALabel;
      DBDateTimeEditEh14: TDBDateTimeEditEh;
      DBDateTimeEditEh15: TDBDateTimeEditEh;
      AALabel88: TAALabel;
      DBText7: TDBText;
      AALabel89: TAALabel;
      GroupBox4: TGroupBox;
      AALabel90: TAALabel;
      AALabel92: TAALabel;
      AALabel93: TAALabel;
      AALabel94: TAALabel;
      AALabel95: TAALabel;
      AALabel96: TAALabel;
      AALabel97: TAALabel;
      AALabel98: TAALabel;
      AALabel99: TAALabel;
      AALabel100: TAALabel;
      DBText8: TDBText;
      AALabel101: TAALabel;
      DBNumberEditEh15: TDBNumberEditEh;
      DBNumberEditEh16: TDBNumberEditEh;
      DBDateTimeEditEh16: TDBDateTimeEditEh;
      DBDateTimeEditEh17: TDBDateTimeEditEh;
      AALabel102: TAALabel;
      AALabel103: TAALabel;
      DBDateTimeEditEh18: TDBDateTimeEditEh;
      AALabel104: TAALabel;
      AALabel105: TAALabel;
      AALabel106: TAALabel;
      AALabel107: TAALabel;
      DBNumberEditEh17: TDBNumberEditEh;
      DBNumberEditEh18: TDBNumberEditEh;
      AALabel79: TAALabel;
      DBNumberEditEh25: TDBNumberEditEh;
      AALabel91: TAALabel;
      DBNumberEditEh19: TDBNumberEditEh;
      AALabel108: TAALabel;
      DBText9: TDBText;
      AALabel109: TAALabel;
      DBNumberEditEh20: TDBNumberEditEh;
      AALabel110: TAALabel;
      AALabel111: TAALabel;
      DBNumberEditEh21: TDBNumberEditEh;
      AALabel112: TAALabel;
      AALabel113: TAALabel;
      DBNumberEditEh22: TDBNumberEditEh;
      AALabel114: TAALabel;
      AALabel115: TAALabel;
      AALabel116: TAALabel;
      DBNumberEditEh23: TDBNumberEditEh;
      AALabel117: TAALabel;
      AALabel118: TAALabel;
      AALabel119: TAALabel;
      DBNumberEditEh24: TDBNumberEditEh;
      AALabel120: TAALabel;
      AALabel121: TAALabel;
      AALabel122: TAALabel;
      AALabel123: TAALabel;
      AALabel124: TAALabel;
      AALabel125: TAALabel;
      DBDateTimeEditEh19: TDBDateTimeEditEh;
      DBDateTimeEditEh20: TDBDateTimeEditEh;
      AALabel126: TAALabel;
      AALabel127: TAALabel;
      DBDateTimeEditEh21: TDBDateTimeEditEh;
      AALabel128: TAALabel;
      AALabel129: TAALabel;
      DBDateTimeEditEh22: TDBDateTimeEditEh;
      LbButton3: TLbButton;
      LbButton5: TLbButton;
      AALabel143: TAALabel;
      AALabel130: TAALabel;
      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;