editlicenceunit.pas

短小而实用的房地产销售管理软件

Unit EditLicenceUnit;

Interface

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

Type
   TEditLicenceForm = Class(TForm)
      AALabel1: TAALabel;
      DBText1: TDBText;
      AALabel2: TAALabel;
      DBText2: TDBText;
      AALabel3: TAALabel;
      DBText3: TDBText;
      AALabel4: TAALabel;
      DBText4: TDBText;
      Bevel1: TBevel;
      LbButton1: TLbButton;
      LbButton2: TLbButton;
      AALabel13: TAALabel;
      AALabel14: TAALabel;
      DBNumberEditEh1: TDBNumberEditEh;
      AALabel5: TAALabel;
      AALabel6: TAALabel;
      DBNumberEditEh2: TDBNumberEditEh;
      AALabel7: TAALabel;
      AALabel8: TAALabel;
      DBNumberEditEh3: TDBNumberEditEh;
      AALabel9: TAALabel;
      AALabel10: TAALabel;
      DBNumberEditEh4: TDBNumberEditEh;
      AALabel11: TAALabel;
      DBNumberEditEh5: TDBNumberEditEh;
      AALabel12: TAALabel;
      AALabel15: TAALabel;
      DBNumberEditEh6: TDBNumberEditEh;
      AALabel16: TAALabel;
      DBNumberEditEh7: TDBNumberEditEh;
      AALabel17: TAALabel;
      AALabel18: TAALabel;
      AALabel19: TAALabel;
      AALabel20: TAALabel;
      DBEdit2: TDBEdit;
      AALabel21: TAALabel;
      AALabel22: TAALabel;
      DBEdit1: TDBEdit;
      AALabel23: TAALabel;
      AALabel24: TAALabel;
      AALabel25: TAALabel;
      AALabel26: TAALabel;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      AALabel27: TAALabel;
      AALabel28: TAALabel;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      AALabel29: TAALabel;
      AALabel30: TAALabel;
      DBMemo1: TDBMemo;
      GroupBox1: TGroupBox;
      AALabel36: TAALabel;
      AALabel31: TAALabel;
      AALabel32: TAALabel;
      AALabel33: TAALabel;
      Bevel2: TBevel;
      LbButton3: TLbButton;
      Bevel3: TBevel;
      AALabel34: TAALabel;
      DBNumberEditEh8: TDBNumberEditEh;
      AALabel35: TAALabel;
      DBNumberEditEh9: TDBNumberEditEh;
      AALabel37: TAALabel;
      DBNumberEditEh10: TDBNumberEditEh;
      AALabel38: TAALabel;
      DBNumberEditEh11: TDBNumberEditEh;
      AALabel39: TAALabel;
      DBNumberEditEh12: TDBNumberEditEh;
      AALabel40: TAALabel;
      DBNumberEditEh13: TDBNumberEditEh;
      AALabel41: TAALabel;
      DBNumberEditEh14: TDBNumberEditEh;
      AALabel42: TAALabel;
      DBNumberEditEh15: TDBNumberEditEh;
      AALabel43: TAALabel;
      DBNumberEditEh16: TDBNumberEditEh;
      AALabel44: TAALabel;
      DBNumberEditEh17: TDBNumberEditEh;
      AALabel45: TAALabel;
      DBNumberEditEh18: TDBNumberEditEh;
      AALabel46: TAALabel;
      DBNumberEditEh19: TDBNumberEditEh;
      AALabel47: TAALabel;
      DBNumberEditEh20: TDBNumberEditEh;
      AALabel48: TAALabel;
      DBNumberEditEh21: TDBNumberEditEh;
      AALabel49: TAALabel;
      DBNumberEditEh22: TDBNumberEditEh;
      AALabel50: TAALabel;
      DBNumberEditEh23: TDBNumberEditEh;
      AALabel51: TAALabel;
      DBNumberEditEh24: TDBNumberEditEh;
      AALabel52: TAALabel;
      DBNumberEditEh25: TDBNumberEditEh;
      AALabel53: TAALabel;
      DBNumberEditEh26: TDBNumberEditEh;
      AALabel54: TAALabel;
      DBNumberEditEh27: TDBNumberEditEh;
      RealOneProgressBar1: TRealOneProgressBar;
      DBNumberEditEh29: TDBNumberEditEh;
      DBNumberEditEh28: TDBNumberEditEh;
      Procedure LbButton1Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure DBDateTimeEditEh1Exit(Sender: TObject);
      Procedure DBDateTimeEditEh2Exit(Sender: TObject);
      Procedure DBDateTimeEditEh3Exit(Sender: TObject);
      Procedure LbButton3Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   EditLicenceForm  : TEditLicenceForm;

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

Procedure TEditLicenceForm.LbButton1Click(Sender: TObject);
Begin
   VIEWLicenceForm.ADOQuery3.Cancel;
   Close;
End;

Procedure TEditLicenceForm.LbButton2Click(Sender: TObject);
Begin
   VIEWLicenceForm.ADOQuery3.fieldbyname('公司编号').AsString :=
      DBText1.Caption;
   VIEWLicenceForm.ADOQuery3.fieldbyname('项目编号').AsString :=
      DBText3.Caption;
   VIEWLicenceForm.ADOQuery3.fieldbyname('设计用途').AsString :=
      VIEWLicenceForm.ADOQuery2.fieldbyname('规划用途').Text;
   VIEWLicenceForm.ADOQuery3.post;
   Close;
End;

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

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

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

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

Procedure TEditLicenceForm.LbButton3Click(Sender: TObject);

   Procedure CalArea(ADOC: TADOQuery; SSTR, CSTR, TJ:
      String; DBNE1, DBNE2: TDBNumberEditEh);
   Begin
      ADOC.sql.Text := SSTR + TJ + '''';
      ADOC.open;
      DBNE1.value := ADOC.Fields[0].AsFloat;
      ADOC.sql.Text := CSTR + TJ + '''';
      ADOC.open;
      DBNE2.value := ADOC.Fields[0].AsFloat;
      RealOneProgressBar1.Position := RealOneProgressBar1.Position + 1;

   End;
Const
   YTN              : String = ''' and 用途=''';
Var
   CSTR, SSTR       : String;
   ADOC             : TADOQuery;
Begin
   SSTR := 'SELECT SUM(合同约定建筑面积)  FROM 单元信息表 WHERE ' +
      '公司编号=''' + DBText1.Caption +
      ''' and 项目编号=''' + DBText3.Caption;
   CSTR := 'SELECT COUNT(合同约定建筑面积) FROM 单元信息表 WHERE ' +
      '公司编号=''' + DBText1.Caption +
      ''' and 项目编号=''' + DBText3.Caption;
   ADOC := TADOQuery.create(self);
   RealOneProgressBar1.Position := 0;
  ///
   With ADOC Do Begin
      connection := DM.DataModule2.ADOConnection1;
      CalArea(ADOC, SSTR, CSTR, YTN + '住宅', DBNumberEditEh8,
         DBNumberEditEh9);

      CalArea(ADOC, SSTR, CSTR, YTN + '别墅', DBNumberEditEh10,
         DBNumberEditEh11);

      CalArea(ADOC, SSTR, CSTR, YTN + '车库', DBNumberEditEh12,
         DBNumberEditEh13);

      CalArea(ADOC, SSTR, CSTR, YTN + '店面', DBNumberEditEh14,
         DBNumberEditEh15);

      CalArea(ADOC, SSTR, CSTR, YTN + '商场', DBNumberEditEh16,
         DBNumberEditEh17);

      CalArea(ADOC, SSTR, CSTR, YTN + '杂物间', DBNumberEditEh18,
         DBNumberEditEh19);

      CalArea(ADOC, SSTR, CSTR, YTN + '写字楼', DBNumberEditEh20,
         DBNumberEditEh21);

      CalArea(ADOC, SSTR, CSTR, YTN + '地下室', DBNumberEditEh22,
         DBNumberEditEh23);

      CalArea(ADOC, SSTR, CSTR, YTN + '工业厂房', DBNumberEditEh24,
         DBNumberEditEh25);

      CalArea(ADOC, SSTR, CSTR, YTN + '仓库', DBNumberEditEh26,
         DBNumberEditEh27);

      CalArea(ADOC, SSTR, CSTR, '', DBNumberEditEh28, DBNumberEditEh29);
      Free;
   End;

End;

Procedure TEditLicenceForm.FormCreate(Sender: TObject);
Begin
   RealOneProgressBar1.Max := 10;
   RealOneProgressBar1.Min := 0;
   RealOneProgressBar1.Position := 0;
End;

End.