📄 unitpulldownfm.pas

📁 一款房产中介软件
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
   frmViewUnit.ADOQuery4.fieldbyname('客户编号').AsString :=
      DBComboBox2.Text;
   frmViewUnit.ADOQuery4.fieldbyname('合同号').AsString :=
      DBEdit1.Text;
  { ViewUnitForm.ADOQuery4.fieldbyname('合同单价').Asfloat:=
        DBNumberEditEh3.Value ;
   ViewUnitForm.ADOQuery4.FieldByName('合同总价').Asfloat :=
       DBNumberEditEh4.Value ;}
   frmViewUnit.ADOQuery4.post;
   ADOQuery1.post;
   Close;
End;

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

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

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

Procedure TfrmUnitPullDown.DBDateTimeEditEh4Exit(Sender: TObject);
Begin
   PUBFunction.FixEhDTBug(DBDateTimeEditEh4);
End;

Procedure TfrmUnitPullDown.DBDateTimeEditEh5Exit(Sender: TObject);
Begin
   PUBFunction.FixEhDTBug(DBDateTimeEditEh5);
End;

Procedure TfrmUnitPullDown.FormCreate(Sender: TObject);
Var
   adoK             : TADOQuery;
   i                : integer;
Begin
   BendLoadDB := false;
   area := frmViewUnit.ADOQuery4.fieldbyname('合同约定建筑面积').AsFloat;
   Application.ProcessMessages;
   adoK := TADOQuery.create(self);
   With adoK Do Begin
      connection := DMMain.ADOConnection1;
      sql.Text := 'select 客户编号 from 客户信息表 WHERE 公司编号=''' +
         DBText1.Caption + '''';
      open;
      For i := 0 To recordcount - 1 Do Begin
         DBComboBox2.Items.Add(fieldbyname('客户编号').Text);
         Next;
      End;

      Free;
   End;

End;

Procedure TfrmUnitPullDown.DBComboBox2Change(Sender: TObject);
Begin
   With ADOQuery2 Do Begin
      Close;
      sql.Text := 'select * from 客户信息表 WHERE 公司编号=''' +
         DBText1.Caption + ''' AND 客户编号=''' +
         DBComboBox2.Text + '''';
      open;

   End;
End;

Procedure TfrmUnitPullDown.FormShow(Sender: TObject);
Begin
   BendLoadDB := false;
   With ADOQuery1 Do Begin
      sql.Text := 'select * from 单元拆迁还建表 WHERE 公司编号=''' +
         DBText1.Caption + ''' and 项目编号=''' +
         DBText3.Caption + ''' and 幢号=''' +
         DBText5.Caption + ''' AND 房号=''' +
         DBText6.Caption + '''';

      open;
      If recordcount > 0 Then
         ADOQuery1.edit
      Else
         ADOQuery1.Append;
      Sleep(500);
   End;
   If STRTOFLOATDEF(DBNumberEditEh5.Text, 0) = 0 Then
      DBNumberEditEh5.value := area;

   DBComboBox1Change(self);
   DBComboBox2Change(self);
   BendLoadDB := true;
   Application.ProcessMessages;

   DBNumberEditEh11Change(self);
   DBNumberEditEh15Change(self);
End;

Procedure TfrmUnitPullDown.DBNumberEditEh1Change(Sender: TObject);
Begin
   If Not BendLoadDB Then Exit;
   DBNumberEditEh2.value := area * STRTOFLOATDEF(DBNumberEditEh1.Text,
      0);
End;

Procedure TfrmUnitPullDown.DBNumberEditEh3Change(Sender: TObject);
Begin
   If Not BendLoadDB Then Exit;
   DBNumberEditEh4.value := area * STRTOFLOATDEF(DBNumberEditEh3.Text,
      0);
End;

Procedure TfrmUnitPullDown.LbButton1Click(Sender: TObject);
Var
   ADOFS            : TADOQuery;

Begin
   ADOFS := TADOQuery.create(self);
   With ADOFS Do Begin
      connection := DMMain.ADOConnection1;
      sql.Text := 'SELECT * FROM 单元未售表 WHERE 公司编号=''' +
         DBText1.Caption + ''' AND 项目编号=''' +
         DBText3.Caption + ''' and 幢号=''' +
         DBText5.Caption + ''' AND 房号=''' +
         DBText6.Caption + ''' ORDER BY 待售起始日期 DESC';
      open;
      If fieldbyname('待售单价').AsFloat <> 0 Then
         DBNumberEditEh1.value := fieldbyname('待售单价').AsFloat;
//   DBNumberEditEh2.Value :=fieldbyname('待售总价').AsFloat ;
      Free;
   End;
End;

Procedure TfrmUnitPullDown.DBComboBox1Change(Sender: TObject);
Begin
   Case DBComboBox1.Items.IndexOf(DBComboBox1.Text) Of
      0: Begin
            Panel2.Visible := false;
            Panel3.Visible := false;
         End;
      1: Begin                          //分期
            Panel3.Visible := true;
            Panel2.Visible := false;
         End;
      2: Begin
            Panel3.Visible := false;
            Panel2.Visible := true;
         End;
   End;
   Panel1.Visible := true;
End;

Procedure TfrmUnitPullDown.LbButton3Click(Sender: TObject);
Var
   lt, ly, lm       : integer;
Begin
   lt := StrToIntDef(DBNumberEditEh30.Text, 0);
   ly := lt Div 12;
   lm := lt Mod 12;
   AALabel130.Caption := IntToStr(ly) + '年' + IntToStr(lm) + '月';
   If StrToDateDef(DBDateTimeEditEh14.Text, 0) = 0 Then Exit;

   DBDateTimeEditEh15.Text := FormatDateTime('yyyy-mm-dd',
      PUBFunction.GetNextMonths(
      tdatetime(DBDateTimeEditEh14.value), lt));
End;

Procedure TfrmUnitPullDown.DBNumberEditEh8Change(Sender: TObject);
Var
   a, b             : double;
Begin
   If Not BendLoadDB Then Exit;
   a := STRTOFLOATDEF(DBNumberEditEh8.Text, 0);
   b := STRTOFLOATDEF(DBNumberEditEh9.Text, 0);

   DBNumberEditEh10.value := (a - b);

End;

Procedure TfrmUnitPullDown.DBNumberEditEh5Change(Sender: TObject);
Var
   a, b             : double;
Begin
   If Not BendLoadDB Then Exit;
   a := STRTOFLOATDEF(DBNumberEditEh5.Text, 0);
   b := STRTOFLOATDEF(DBNumberEditEh6.Text, 0);

   DBNumberEditEh7.Text := FloatToStr(a - b);
End;

Procedure TfrmUnitPullDown.DBNumberEditEh19Change(Sender: TObject);
Begin
   If Not BendLoadDB Then Exit;
   DBNumberEditEh20.value := area * STRTOFLOATDEF(DBNumberEditEh19.Text,
      0);
End;

Procedure TfrmUnitPullDown.DBNumberEditEh11Change(Sender: TObject);
Var
   T, a, b, c, D    : double;
Begin
   If Not BendLoadDB Then Exit;
   T := STRTOFLOATDEF(DBText9.Caption, 0);
   If T = 0 Then Exit;
   a := STRTOFLOATDEF(DBNumberEditEh11.Text, 0);
   b := STRTOFLOATDEF(DBNumberEditEh12.Text, 0);
   c := STRTOFLOATDEF(DBNumberEditEh13.Text, 0);
   D := STRTOFLOATDEF(DBNumberEditEh14.Text, 0);
   DBNumberEditEh27.value := T - (a + b + c + D);

End;

Procedure TfrmUnitPullDown.DBNumberEditEh15Change(Sender: TObject);
Var
   T, a, b, c, D    : double;
Begin
   If Not BendLoadDB Then Exit;
   T := STRTOFLOATDEF(DBText9.Caption, 0);
   If T = 0 Then Exit;
   a := STRTOFLOATDEF(DBNumberEditEh15.Text, 0);
   b := STRTOFLOATDEF(DBNumberEditEh16.Text, 0);
   c := STRTOFLOATDEF(DBNumberEditEh17.Text, 0);
   D := STRTOFLOATDEF(DBNumberEditEh18.Text, 0);
   DBNumberEditEh28.value := a + b + c + D;
   DBNumberEditEh29.value := T - (a + b + c + D);

End;

Procedure TfrmUnitPullDown.TabSheet3Show(Sender: TObject);
Begin
   DBNumberEditEh11Change(self);
   DBNumberEditEh15Change(self);
End;

Procedure TfrmUnitPullDown.DBNumberEditEh1KeyUp(Sender: TObject;
   Var Key: word; Shift: TShiftState);
Begin
   If ADOQuery1.Active Then
      DBNumberEditEh2.value := area * STRTOFLOATDEF(DBNumberEditEh1.Text, 0);
End;

Procedure TfrmUnitPullDown.DBNumberEditEh25Change(Sender: TObject);
Var
   total, a, b, CS  : double;
Begin
   If Not BendLoadDB Then Exit;
   CS := STRTOFLOATDEF(DBNumberEditEh25.Text, 0);
   If (CS < 0) Or (CS > 9) Then Begin
      Application.MessageBox('成数必须是1到9 之间的实数！请重新输入！',
         '警告！',
         MB_ICONERROR);
      DBNumberEditEh25.SetFocus;
      Exit;
   End;
   total := STRTOFLOATDEF(DBText7.Caption, 0);
   If total = 0 Then Exit;
   b := total * CS * 0.1;
   a := total - b;
   DBNumberEditEh21.value := a;
   DBNumberEditEh22.value := b;

End;

Procedure TfrmUnitPullDown.DBNumberEditEh26Change(Sender: TObject);
Var
   total, a, b, CS  : double;
Begin
   If Not BendLoadDB Then Exit;
   CS := STRTOFLOATDEF(DBNumberEditEh26.Text, 0);
   If (CS < 0) Or (CS > 9) Then Begin
      Application.MessageBox('成数必须是1到9 之间的实数！请重新输入！',
         '警告！',
         MB_ICONERROR);
      DBNumberEditEh26.SetFocus;
      Exit;
   End;
   total := STRTOFLOATDEF(DBText8.Caption, 0);
   If total = 0 Then Exit;
   b := total * CS * 0.1;
   a := total - b;
   DBNumberEditEh23.value := a;
   DBNumberEditEh24.value := b;
End;

Procedure TfrmUnitPullDown.LbButton5Click(Sender: TObject);
Var
   lt, ly, lm       : integer;
Begin
   lt := StrToIntDef(DBNumberEditEh31.Text, 0);
   ly := lt Div 12;
   lm := lt Mod 12;

   AALabel133.Caption := IntToStr(ly) + '年' + IntToStr(lm) + '月';
   If StrToDateDef(DBDateTimeEditEh16.Text, 0) = 0 Then Exit;
   DBDateTimeEditEh17.Text := FormatDateTime('yyyy-mm-dd',
      PUBFunction.GetNextMonths(
      tdatetime(DBDateTimeEditEh16.value), lt));

End;

Procedure TfrmUnitPullDown.DBNumberEditEh31Change(Sender: TObject);
Var
   lt, ly, lm       : integer;
Begin
   lt := StrToIntDef(DBNumberEditEh31.Text, 0);
   ly := lt Div 12;
   lm := lt Mod 12;

End;

Procedure TfrmUnitPullDown.DBNumberEditEh30Change(Sender: TObject);
Var
   lt, ly, lm       : integer;
Begin
   lt := StrToIntDef(DBNumberEditEh30.Text, 0);
   ly := lt Div 12;
   lm := lt Mod 12;
   AALabel130.Caption := IntToStr(ly) + '年' + IntToStr(lm) + '月';

End;

End.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -