spyxday.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "SPyxDay.h"
#include "DataModule.h"
#include "login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSPyxDayForm *SPyxDayForm;
//---------------------------------------------------------------------------
__fastcall TSPyxDayForm::TSPyxDayForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSPyxDayForm::searchBtnClick(TObject *Sender)
{
    if(LoginForm->Edituser->Text=="admin"){
         if(date1->Text.ToInt()>date2->Text.ToInt())
         {
                 date1->Text="";
                 date2->Text="";
                 date1->SetFocus();
         }else{
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select * from (select 入库时间,商品名称,单位,商品规格,价格 as 单价,round(入库数量/2) as 数量,单价*数量 as 金额,有效日期-出厂日期+1 as 天数 from (入库信息表 inner join 入库商品表 on 入库信息表.编号=入库商品表.入库单编号) inner join 商品信息表 on 入库商品表.商品编号=商品信息表.编号)";
                str+=" where 天数>=";
                str+=date1->Text.ToInt();
                str+=" and 天数<=";
                str+=date2->Text.ToInt();
                //ShowMessage(str);
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
         }
    }else{
         if(date1->Text.ToInt()>date2->Text.ToInt())
         {
                 date1->Text="";
                 date2->Text="";
                 date1->SetFocus();
         }else{
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select * from (select 入库时间,商品名称,单位,商品规格,价格 as 单价,入库数量 as 数量,金额,有效日期-出厂日期+1 as 天数 from (入库信息表 inner join 入库商品表 on 入库信息表.编号=入库商品表.入库单编号) inner join 商品信息表 on 入库商品表.商品编号=商品信息表.编号)";
                str+=" where 天数>=";
                str+=date1->Text.ToInt();
                str+=" and 天数<=";
                str+=date2->Text.ToInt();
                //ShowMessage(str);
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
         }
    }
}
//---------------------------------------------------------------------------

void __fastcall TSPyxDayForm::CloseBtnClick(TObject *Sender)
{
            Close();
}
//---------------------------------------------------------------------------

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