khsum.cpp

供销存软件

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

#include <vcl.h>
#pragma hdrstop

#include "KHsum.h"
#include "DataModule.h"
#include "login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TKHsumForm *KHsumForm;
//---------------------------------------------------------------------------
__fastcall TKHsumForm::TKHsumForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TKHsumForm::searchBtnClick(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 客户名称 as 供应商名称,round(总金额/2) as 合计金额,入库时间 from 入库信息表";
                str+=" where 入库时间>=#";
                str+=date1->Date.DateString();
                str+="# and ";
                str+="入库时间<=#";
                str+=date2->Date.DateString();
                str+='#';
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
                double n=0.0;
                while(!DM->ADOQ->Eof)
                {
                         n+=DM->ADOQ->FieldByName("合计金额")->AsString.Trim().ToDouble();
                         DM->ADOQ->Next();
                }
                sum->Caption=n;
        }
    }else{
        int n=date2->Date-date1->Date;
         if(n<0){
                ShowMessage("开始日期不得晚于结束日期，请重新查询。");
                date1->SetFocus();
        }else{
                DM->ADOQ->Close();
                DM->ADOQ->SQL->Clear();
                AnsiString str="select 客户名称 as 供应商名称,总金额 as 合计金额,入库时间 from 入库信息表";
                str+=" where 入库时间>=#";
                str+=date1->Date.DateString();
                str+="# and ";
                str+="入库时间<=#";
                str+=date2->Date.DateString();
                str+='#';
                DM->ADOQ->SQL->Add(str);
                DM->ADOQ->Open();
                double n=0.0;
                while(!DM->ADOQ->Eof)
                {
                         n+=DM->ADOQ->FieldByName("合计金额")->AsString.Trim().ToDouble();
                         DM->ADOQ->Next();
                }
                sum->Caption=n;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TKHsumForm::closeBtnClick(TObject *Sender)
{
       Close();
}
//---------------------------------------------------------------------------

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