?? searchbysellunit.pas

?? 一個售樓系統
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
      open;
      StaticText18.Caption :=
         FloatToStr(fieldbyname('SUM1').AsFloat + fieldbyname('SUM2').AsFloat);
      sql.Text := 'select sum(預定總價) as sum1 from 單元預定表 where ' +
         wstr1;
      open;
      StaticText19.Caption := fieldbyname('SUM1').Text;
      sql.Text := 'select sum(預留總價) as sum1 from 單元預留表 where ' +
         wstr1;
      open;
      StaticText20.Caption := fieldbyname('SUM1').Text;

      sql.Text := 'select sum(補差價) as sum1 from 單元拆遷還建表 where ' +
         wstr1;
      open;
      StaticText21.Caption := fieldbyname('SUM1').Text;
      sql.Text := 'select sum(待售總價) as sum1 from 單元未售表 where ' +
         wstr1 + ' and 最后定價=TRUE';
      open;
      StaticText22.Caption := fieldbyname('SUM1').Text;
      StaticText38.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText16.Caption, 0) +
         STRTOFLOATDEF(StaticText21.Caption, 0));
//銷售金額完畢
      sql.Text :=
         'select sum(已收款) as sum1,sum(未收款) as sum2 from 單元預售表 where ' +
         wstr1;
      open;
      StaticText23.Caption := fieldbyname('SUM1').Text;
      StaticText30.Caption := fieldbyname('SUM2').Text;
      sql.Text :=
         'select sum(已收款) as sum1,sum(未收款) as sum2 from 單元拆遷還建表 where ' +
         wstr1;
      open;
      StaticText28.Caption := fieldbyname('SUM1').Text;
      StaticText35.Caption := fieldbyname('SUM2').Text;
      sql.Text :=
         'select sum(已交租金) as sum1,sum(未交租金) as sum2 from 單元租賃表 where ' +
         wstr1;
      open;
      StaticText25.Caption := fieldbyname('SUM1').Text;
      StaticText32.Caption := fieldbyname('SUM2').Text;

      StaticText39.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText23.Caption, 0) +
         STRTOFLOATDEF(StaticText25.Caption, 0) +
         STRTOFLOATDEF(StaticText28.Caption, 0));
      StaticText40.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText30.Caption, 0) +
         STRTOFLOATDEF(StaticText32.Caption, 0) +
         STRTOFLOATDEF(StaticText35.Caption, 0));
      Free;
   End;

End;

Procedure TSearchBySellForm.LbButton1Click(Sender: TObject);
Begin
   SaveDBGridEhToFile(ADOQuery4, DBGridEh4, SaveDialog1);
End;

Procedure TSearchBySellForm.GetRecByTypestr(stype: String);
Var
   SQLTEXT          : String;
Begin
   If stype = '預(銷)售' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 單元信息表 a ' +
         'inner join (單元預售表 b ' +
         'inner join 客戶信息表 c on b.客戶編號=c.客戶編號)' +
         'on (a.公司編號=b.公司編號 '

   Else If stype = '拆遷還建' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 單元信息表 a ' +
         'inner join (單元拆遷還建表 b ' +
         'inner join 客戶信息表 c on b.客戶編號=c.客戶編號)' +
         ' on (a.公司編號=b.公司編號 '

   Else If stype = '未售' Then
      SQLTEXT :=
         'SELECT a.*,b.* FROM 單元信息表 a ' +
         'inner join 單元未售表 b ' +
         ' on (a.公司編號=b.公司編號 and 最后定價=TRUE '

   Else If stype = '抵押' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 單元信息表 a ' +
         'inner join (單元抵押表 b ' +
         'inner join 客戶信息表 c on b.客戶編號=c.客戶編號) ' +
         'on (a.公司編號=b.公司編號 '

   Else If stype = '租賃' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 單元信息表 a ' +
         'inner join (單元租賃表 b ' +
         'inner join 租戶信息表 c on b.出租戶編號=c.出租戶編號) ' +
         'on (a.公司編號=b.公司編號 and B.最后租房=TRUE '

   Else If stype = '預定' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 單元信息表 a ' +
         'inner join (單元預定表 b ' +
         'inner join 客戶信息表 c on b.客戶編號=c.客戶編號) ' +
         'on (a.公司編號=b.公司編號 '

   Else If stype = '預留' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 單元信息表 a ' +
         'inner join (單元預留表 b ' +
         'inner join 客戶信息表 c on b.客戶編號=c.客戶編號) ' +
         'on (a.公司編號=b.公司編號 ';

   If Not CheckBox1.Checked Then
      SQLTEXT := SQLTEXT + ' and a.幢號=''' +
         ADOQuery3.fieldbyname('幢號').Text + '''';

   SQLTEXT := SQLTEXT +
      ') where a.房號=b.房號 and a.幢號=b.幢號 and a.項目編號=b.項目編號 and b.是否過期=false';
   ADOQuery4.sql.Text := SQLTEXT;

   ADOQuery4.open;

   DBGridEh4.FindColumn('是否過期').Visible := false;
   DBGridEh4.FindColumn('過期日期').Visible := false;
End;

Procedure TSearchBySellForm.LbButton2Click(Sender: TObject);
Begin
   If (ADOQuery4.Active = false) Then Exit;
   If (ADOQuery4.recordcount = 0) Then Exit;
   GetReportFile1;
   Case TLbButton(Sender).tag Of
      100: AcReport1.Preview;
      101: AcReport1.Print;
   End;
End;

Procedure TSearchBySellForm.LbButton4Click(Sender: TObject);
Begin
   GetReportFile2;
   Case TLbButton(Sender).tag Of
      200: AcReport2.Preview;
      201: AcReport2.Print;
   End;
End;

Procedure TSearchBySellForm.GetReportFile2();

Begin

   AcReport2.LoadFromFile(DM.CURRDIR + 'Collect.APT');
   AcReport2.Variants.Clear;
   AcReport2.Variants.SetVariant('條件', '無');
   AcReport2.Variants.SetVariant('條件描述', '無');
   AcReport2.Variants.SetVariant('幢號', ADOQuery3.fieldbyname('幢號').Text);
   If CheckBox1.Checked Then
      AcReport2.Variants.SetVariant('幢號', '整個項目');

   AcReport2.Variants.SetVariant('預銷售面積', StaticText2.Caption);
   AcReport2.Variants.SetVariant('拆遷還建面積', StaticText7.Caption);
   AcReport2.Variants.SetVariant('抵押面積', StaticText3.Caption);
   AcReport2.Variants.SetVariant('租賃面積', StaticText4.Caption);
   AcReport2.Variants.SetVariant('未售面積', StaticText8.Caption);
   AcReport2.Variants.SetVariant('預定面積', StaticText5.Caption);
   AcReport2.Variants.SetVariant('預留面積', StaticText6.Caption);
   AcReport2.Variants.SetVariant('總面積', StaticText1.Caption);

   AcReport2.Variants.SetVariant('預銷售套數', StaticText9.Caption);
   AcReport2.Variants.SetVariant('拆遷還建套數', StaticText14.Caption);
   AcReport2.Variants.SetVariant('抵押套數', StaticText10.Caption);
   AcReport2.Variants.SetVariant('租賃套數', StaticText11.Caption);
   AcReport2.Variants.SetVariant('未售套數', StaticText15.Caption);
   AcReport2.Variants.SetVariant('預定套數', StaticText12.Caption);
   AcReport2.Variants.SetVariant('預留套數', StaticText13.Caption);
   AcReport2.Variants.SetVariant('總套數', StaticText37.Caption);

   AcReport2.Variants.SetVariant('預銷售總額', StaticText16.Caption);
   AcReport2.Variants.SetVariant('拆遷還建總額', StaticText21.Caption);
   AcReport2.Variants.SetVariant('抵押總額', StaticText17.Caption);
   AcReport2.Variants.SetVariant('租賃總額', StaticText18.Caption);
   AcReport2.Variants.SetVariant('未售總額', StaticText22.Caption);
   AcReport2.Variants.SetVariant('預定總額', StaticText19.Caption);
   AcReport2.Variants.SetVariant('預留總額', StaticText20.Caption);
   AcReport2.Variants.SetVariant('總額', StaticText38.Caption);

   AcReport2.Variants.SetVariant('預銷售已收款', StaticText23.Caption);
   AcReport2.Variants.SetVariant('拆遷還建已收款', StaticText28.Caption);
   AcReport2.Variants.SetVariant('租賃已收款', StaticText25.Caption);
   AcReport2.Variants.SetVariant('已收款總額', StaticText39.Caption);

   AcReport2.Variants.SetVariant('預銷售未收款', StaticText30.Caption);
   AcReport2.Variants.SetVariant('拆遷還建未收款', StaticText35.Caption);
   AcReport2.Variants.SetVariant('租賃未收款', StaticText32.Caption);
   AcReport2.Variants.SetVariant('未收款總額', StaticText40.Caption);

End;

Procedure TSearchBySellForm.GetReportFile1;
Var
   stype            : String;
Begin
   stype := combobox1.Text;
   If stype = '預(銷)售' Then Begin
      AcReport1.Variants.Clear;
      AcReport1.Variants.SetVariant('預銷售面積', StaticText2.Caption);
      AcReport1.Variants.SetVariant('預銷售套數', StaticText9.Caption);
      AcReport1.Variants.SetVariant('預銷售總額', StaticText16.Caption);
      AcReport1.Variants.SetVariant('預銷售已收款', StaticText23.Caption);
      AcReport1.Variants.SetVariant('預銷售未收款', StaticText30.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_YXS.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_YXS.APT');

   End Else If stype = '拆遷還建' Then Begin
      AcReport1.Variants.SetVariant('拆遷還建面積', StaticText7.Caption);
      AcReport1.Variants.SetVariant('拆遷還建套數', StaticText14.Caption);
      AcReport1.Variants.SetVariant('拆遷還建總額', StaticText21.Caption);
      AcReport1.Variants.SetVariant('拆遷還建已收款', StaticText28.Caption);
      AcReport1.Variants.SetVariant('拆遷還建未收款', StaticText35.Caption);

      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_CQHJ.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_CQHJ.APT');

   End Else If stype = '未售' Then Begin
      AcReport1.Variants.SetVariant('未售面積', StaticText8.Caption);
      AcReport1.Variants.SetVariant('未售套數', StaticText15.Caption);
      AcReport1.Variants.SetVariant('未售總額', StaticText22.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_DS.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_DS.APT');

   End Else If stype = '抵押' Then Begin
      AcReport1.Variants.SetVariant('抵押面積', StaticText3.Caption);
      AcReport1.Variants.SetVariant('抵押套數', StaticText10.Caption);
      AcReport1.Variants.SetVariant('抵押總額', StaticText17.Caption);

      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_DY.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_DY.APT');

   End Else If stype = '租賃' Then Begin
      AcReport1.Variants.SetVariant('租賃面積', StaticText4.Caption);
      AcReport1.Variants.SetVariant('租賃套數', StaticText11.Caption);
      AcReport1.Variants.SetVariant('租賃總額', StaticText18.Caption);
      AcReport1.Variants.SetVariant('租賃已收款', StaticText25.Caption);
      AcReport1.Variants.SetVariant('租賃未收款', StaticText32.Caption);

      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_ZL.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_ZL.APT');

   End Else If stype = '預定' Then Begin
      AcReport1.Variants.SetVariant('預定面積', StaticText5.Caption);
      AcReport1.Variants.SetVariant('預定套數', StaticText12.Caption);
      AcReport2.Variants.SetVariant('預定總額', StaticText19.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_YD.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_YD.APT');

   End Else If stype = '預留' Then Begin
      AcReport1.Variants.SetVariant('預留面積', StaticText6.Caption);
      AcReport1.Variants.SetVariant('預留套數', StaticText13.Caption);
      AcReport1.Variants.SetVariant('預留總額', StaticText20.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_YL.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_YL.APT');

   End;
End;

Procedure TSearchBySellForm.DBGridEh4DblClick(Sender: TObject);
Begin

   If ADOQuery4.Active = false Then Exit;
   If ADOQuery4.recordcount = 0 Then Exit;
   ViewUnitForm := TViewUnitForm.create(self);
   ViewUnitForm.Show;
   Application.ProcessMessages;
   ViewUnitForm.ADOQuery1.RecNo := SearchBySellForm.ADOQuery1.RecNo;
   ViewUnitForm.DBGridEh1CellClick(ViewUnitForm.DBGridEH1.Columns.Items[0]);
   ViewUnitForm.ADOQuery2.RecNo := SearchBySellForm.ADOQuery2.RecNo;
   ViewUnitForm.DBGridEh2CellClick(ViewUnitForm.DBGridEh2.Columns.Items[0]);
   ViewUnitForm.ADOQuery3.RecNo := SearchBySellForm.ADOQuery3.RecNo;
   ViewUnitForm.ADOQuery4.sql.Text :=
      'SELECT * FROM 單元信息表 WHERE 公司編號=''' +
      ViewUnitForm.ADOQuery1.fieldbyname('公司編號').Text +
      ''' and 項目編號=''' +
      ViewUnitForm.ADOQuery2.fieldbyname('項目編號').Text + ''' and 幢號='''
      +
      ViewUnitForm.ADOQuery3.fieldbyname('幢號').Text + ''' AND 房號=''' +
      ADOQuery4.fieldbyname('a.房號').Text + '''';
   ViewUnitForm.ADOQuery4.open;

   ViewUnitForm.DBGridEh4CellClick(ViewUnitForm.DBGridEh4.Columns.Items[0]);
   ViewUnitForm.LbSpeedButton2.click;
End;

Procedure TSearchBySellForm.ClearSTEXT;
Var
   i                : integer;
Begin
   For i := 0 To ComponentCount - 1 Do
      If (components[i] Is TStaticText) Then
         (components[i] As TStaticText).Caption := '';
   StaticText41.Caption := '面積單位：平方米。金額單元：元';

End;

End.
上一頁 12
?? 文件大小 661 K
?? 上傳用戶 lihuitao1987
?? 所屬分類其他行業
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? searchbysellunit.pas

?? 快捷鍵說明
