aspsale.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "aSPsale.h"
#include "DataModule.h"
#include "login.h"
#include "addSP.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TaSPsaleForm *aSPsaleForm;
//---------------------------------------------------------------------------
__fastcall TaSPsaleForm::TaSPsaleForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TaSPsaleForm::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 *  from (select e.商品名称,c.出库时间,c.出库时间 as 时间,e.编号 as 商品编号,e.商品规格,e.单位,round(d.出库数量/2) as 数量,d.价格 as 单价,数量*单价 as 金额,c.客户名称 as 客户 from ";
                str+="(出库信息表 as c inner join 出库商品表 as d on c.编号=d.出库单编号) inner join 商品信息表 as e on e.编号=d.商品编号)";
                str+=" where 出库时间>=#";
                str+=Date1->Date.DateString();
                str+="# and ";
                str+="出库时间<=#";
                str+=Date2->Date.DateString();
                str+='#';
                str+=" and 商品编号='";
                str+=Edit1->Text;
                str+="'";
                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 *  from (select e.商品名称,c.出库时间,c.出库时间 as 时间,e.编号 as 商品编号,e.商品规格,e.单位,出库数量 as 数量,d.价格 as 单价,数量*单价 as 金额,c.客户名称 as 客户 from ";
                str+="(出库信息表 as c inner join 出库商品表 as d on c.编号=d.出库单编号) inner join 商品信息表 as e on e.编号=d.商品编号)";
                str+=" where 出库时间>=#";
                str+=Date1->Date.DateString();
                str+="# and ";
                str+="出库时间<=#";
                str+=Date2->Date.DateString();
                str+='#';
                str+=" and 商品编号='";
                str+=Edit1->Text;
                str+="'";
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
          }
      }
}
//---------------------------------------------------------------------------

void __fastcall TaSPsaleForm::BitBtn2Click(TObject *Sender)
{
              //
}
//---------------------------------------------------------------------------

void __fastcall TaSPsaleForm::BitBtn3Click(TObject *Sender)
{
          Close();
}
//---------------------------------------------------------------------------

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

void __fastcall TaSPsaleForm::SpeedButton1Click(TObject *Sender)
{
        TaddSPForm *addSPForm=new TaddSPForm(this);
        addSPForm->ShowModal();
        Edit1->Text=addSPForm->SPname;
        delete addSPForm;
}
//---------------------------------------------------------------------------