editlicencefm.pas.~5~

一款房产中介软件

Unit EditLicenceFM;

Interface

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

Type
   TfrmEditLicence = Class(TForm)
      AALabel1: TLabel;
      DBText1: TDBText;
      AALabel2: TLabel;
      DBText2: TDBText;
      AALabel3: TLabel;
      DBText3: TDBText;
      AALabel4: TLabel;
      DBText4: TDBText;
      Bevel1: TBevel;
      LbButton1: TButton;
      LbButton2: TButton;
      AALabel13: TLabel;
      AALabel14: TLabel;
      DBNumberEditEh1: TDBNumberEditEh;
      AALabel5: TLabel;
      AALabel6: TLabel;
      DBNumberEditEh2: TDBNumberEditEh;
      AALabel7: TLabel;
      AALabel8: TLabel;
      DBNumberEditEh3: TDBNumberEditEh;
      AALabel9: TLabel;
      AALabel10: TLabel;
      DBNumberEditEh4: TDBNumberEditEh;
      AALabel11: TLabel;
      DBNumberEditEh5: TDBNumberEditEh;
      AALabel12: TLabel;
      AALabel15: TLabel;
      DBNumberEditEh6: TDBNumberEditEh;
      AALabel16: TLabel;
      DBNumberEditEh7: TDBNumberEditEh;
      AALabel17: TLabel;
      AALabel18: TLabel;
      AALabel19: TLabel;
      AALabel20: TLabel;
      DBEdit2: TDBEdit;
      AALabel21: TLabel;
      AALabel22: TLabel;
      DBEdit1: TDBEdit;
      AALabel23: TLabel;
      AALabel24: TLabel;
      AALabel25: TLabel;
      AALabel26: TLabel;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      DBDateTimeEditEh2: TDBDateTimeEditEh;
      AALabel27: TLabel;
      AALabel28: TLabel;
      DBDateTimeEditEh3: TDBDateTimeEditEh;
      AALabel29: TLabel;
      AALabel30: TLabel;
      DBMemo1: TDBMemo;
      GroupBox1: TGroupBox;
      AALabel36: TLabel;
      AALabel31: TLabel;
      AALabel32: TLabel;
      AALabel33: TLabel;
      Bevel2: TBevel;
      LbButton3: TButton;
      Bevel3: TBevel;
      AALabel34: TLabel;
      DBNumberEditEh8: TDBNumberEditEh;
      AALabel35: TLabel;
      DBNumberEditEh9: TDBNumberEditEh;
      AALabel37: TLabel;
      DBNumberEditEh10: TDBNumberEditEh;
      AALabel38: TLabel;
      DBNumberEditEh11: TDBNumberEditEh;
      AALabel39: TLabel;
      DBNumberEditEh12: TDBNumberEditEh;
      AALabel40: TLabel;
      DBNumberEditEh13: TDBNumberEditEh;
      AALabel41: TLabel;
      DBNumberEditEh14: TDBNumberEditEh;
      AALabel42: TLabel;
      DBNumberEditEh15: TDBNumberEditEh;
      AALabel43: TLabel;
      DBNumberEditEh16: TDBNumberEditEh;
      AALabel44: TLabel;
      DBNumberEditEh17: TDBNumberEditEh;
      AALabel45: TLabel;
      DBNumberEditEh18: TDBNumberEditEh;
      AALabel46: TLabel;
      DBNumberEditEh19: TDBNumberEditEh;
      AALabel47: TLabel;
      DBNumberEditEh20: TDBNumberEditEh;
      AALabel48: TLabel;
      DBNumberEditEh21: TDBNumberEditEh;
      AALabel49: TLabel;
      DBNumberEditEh22: TDBNumberEditEh;
      AALabel50: TLabel;
      DBNumberEditEh23: TDBNumberEditEh;
      AALabel51: TLabel;
      DBNumberEditEh24: TDBNumberEditEh;
      AALabel52: TLabel;
      DBNumberEditEh25: TDBNumberEditEh;
      AALabel53: TLabel;
      DBNumberEditEh26: TDBNumberEditEh;
      AALabel54: TLabel;
      DBNumberEditEh27: TDBNumberEditEh;
      //RealOneProgressBar1: TRealOneProgressBar;
      DBNumberEditEh29: TDBNumberEditEh;
      DBNumberEditEh28: TDBNumberEditEh;
      pb1: TProgressBar;
      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
   frmEditLicence  : TfrmEditLicence;

Implementation
Uses MainDM, VIEWLicenceFM, PUBFunction;
{$R *.dfm}

Procedure TfrmEditLicence.LbButton1Click(Sender: TObject);
Begin
   frmVIEWLicence.ADOQuery3.Cancel;
   Close;
End;

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

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

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

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

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

Procedure TfrmEditLicence.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;
      pb1.Position := pb1.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);
   pb1.Position := 0;
  ///
   With ADOC Do Begin
      connection := DMMain.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 TfrmEditLicence.FormCreate(Sender: TObject);
Begin
   pb1.Max := 10;
   pb1.Min := 0;
   pb1.Position := 0;
End;

End.