qysale.cpp

供销存软件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "QYsale.h"
#include "login.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TQYsaleForm *QYsaleForm;
//---------------------------------------------------------------------------
__fastcall TQYsaleForm::TQYsaleForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TQYsaleForm::BitBtn1Click(TObject *Sender)
{
     if(LoginForm->Edituser->Text=="admin"){
        int n=Date2->Date-Date1->Date;
        if(n<0){
                ShowMessage("开始日期不得晚于结束日期，请重新查询。");
                Date1->SetFocus();
        }else{
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select 客户名称,sum(金额) as 金额,区域  from (select a.出库时间,round(a.总金额/2) as 金额,a.客户名称,b.地区名称 as 区域 from ";
                str+="出库信息表 as a inner join 客户资料表 as b on a.客户名称=b.名称";
                str+=" where 出库时间>=#";
                str+=Date1->Date.DateString();
                str+="# and ";
                str+="出库时间<=#";
                str+=Date2->Date.DateString();
                str+="#)";
                str+=" group by 客户名称,区域";
                 DM->ADOQ->SQL->Add(str);
                 DM->ADOQ->Open();
        }
    }else{
        int n=Date2->Date-Date1->Date;
        if(n<0){
                ShowMessage("开始日期不得晚于结束日期，请重新查询。");
                Date1->SetFocus();
        }else{
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select 客户名称,sum(金额) as 金额,区域 from (select a.出库时间,a.总金额 as 金额,a.客户名称,b.地区名称 as 区域 from ";
                str+="出库信息表 as a inner join 客户资料表 as b on a.客户名称=b.名称";
                str+=" where 出库时间>=#";
                str+=Date1->Date.DateString();
                str+="# and ";
                str+="出库时间<=#";
                str+=Date2->Date.DateString();
                str+="#)";
                str+=" group by 客户名称,区域";
                 DM->ADOQ->SQL->Add(str);
                 DM->ADOQ->Open();
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TQYsaleForm::BitBtn2Click(TObject *Sender)
{
      Close();  
}
//---------------------------------------------------------------------------

void __fastcall TQYsaleForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
      DM->ADOQ->Close();
}
//---------------------------------------------------------------------------