fwfx.cpp

售后服务系统优质的售后服务是企业生存和市场竞争的保障

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "FwFx.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwFxForm *FwFxForm;
//---------------------------------------------------------------------------
__fastcall TFwFxForm::TFwFxForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFwFxForm::Button1Click(TObject *Sender)
{
        switch( RadioGroup1->ItemIndex ) {
        case 0:
                Series1->Active = false;
                Series2->Active = false;
                Series3->Active = false;
                Series4->Active = false;
                Series5->Active = false;
                Series6->Active = true;
                Series7->Active = true;
                ADOQuerysrqs->Close();
                ADOQuerysrqs->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQuerysrqs->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                ADOQuerysrqs->Open();
                ADOQuerycbqs->Close();
                ADOQuerycbqs->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQuerycbqs->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                ADOQuerycbqs->Open();
                break;
        case 1:
                Series1->Active = false;
                Series2->Active = false;
                Series3->Active = false;
                Series4->Active = true;
                Series5->Active = false;
                Series6->Active = false;
                Series7->Active = false;
                ADOQueryslqs->Close();
                ADOQueryslqs->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQueryslqs->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                ADOQueryslqs->Open();
                break;
        case 2:
                Series1->Active = false;
                Series2->Active = false;
                Series3->Active = false;
                Series4->Active = false;
                Series5->Active = true;
                Series6->Active = false;
                Series7->Active = false;
                ADOQuerybxqs->Close();
                ADOQuerybxqs->SQL->Clear();
                ADOQuerybxqs->SQL->Add("select flmc,count(*) from fwsl where slrq>=:P_srq and slrq<=:P_erq and delflag='否' group by flmc");
                ADOQuerybxqs->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQuerybxqs->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                Series5->XLabelsSource = "flmc";
                Series5->YValues->ValueSource = "Expr1001";
                ADOQuerybxqs->Open();
                break;
        case 3:
                Series1->Active = false;
                Series2->Active = true;
                Series3->Active = false;
                Series4->Active = false;
                Series5->Active = false;
                Series6->Active = false;
                Series7->Active = false;
                ADOQueryfwry->Close();
                ADOQueryfwry->SQL->Clear();
                ADOQueryfwry->SQL->Add("select fwjs.zxrm,count(*) from fwsl,fwjs where fwsl.dabh=fwjs.dabh and fwsl.slrq>=:P_srq and fwsl.slrq<=:P_erq group by fwjs.zxrm");
                ADOQueryfwry->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQueryfwry->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                Series2->XLabelsSource = "zxrm";
                Series2->YValues->ValueSource = "Expr1001";
                ADOQueryfwry->Open();
                break;
        case 4:
                Series1->Active = true;
                Series2->Active = false;
                Series3->Active = false;
                Series4->Active = false;
                Series5->Active = false;
                Series6->Active = false;
                Series7->Active = false;
                ADOQueryfwry->Close();
                ADOQueryfwry->SQL->Clear();
                ADOQueryfwry->SQL->Add("select fwjs.zxrm,sum(yfryfy+yfryjtfy+yfrywgfy) from fwsl,fwjs where fwsl.dabh=fwjs.dabh and fwsl.slrq>=:P_srq and fwsl.slrq<=:P_erq group by fwjs.zxrm");
                ADOQueryfwry->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQueryfwry->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                Series1->XLabelsSource = "zxrm";
                Series1->YValues->ValueSource = "Expr1001";
                ADOQueryfwry->Open();
                break;
        case 5:
                Series1->Active = false;
                Series2->Active = false;
                Series3->Active = true;
                Series4->Active = false;
                Series5->Active = false;
                Series6->Active = false;
                Series7->Active = false;
                ADOQueryfwry->Close();
                ADOQueryfwry->SQL->Clear();
                ADOQueryfwry->SQL->Add("select fwjs.zxrm,sum(mfpjfy+mffwfy+gysjtfy+gyswgfy+sskhfy-yfryfy-yfryjtfy-yfrywgfy-fwpjcb) from fwsl,fwjs where fwsl.dabh=fwjs.dabh and fwsl.slrq>=:P_srq and fwsl.slrq<=:P_erq group by fwjs.zxrm");
                ADOQueryfwry->Parameters->ParamByName("P_srq")->Value =  DateTimePicker1->DateTime;
                ADOQueryfwry->Parameters->ParamByName("P_erq")->Value =  DateTimePicker2->DateTime;
                Series3->XLabelsSource = "zxrm";
                Series3->YValues->ValueSource = "Expr1001";
                ADOQueryfwry->Open();
                break;
        }

}
//---------------------------------------------------------------------------
void __fastcall TFwFxForm::Button2Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TFwFxForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        DateTimePicker1->DateTime = Date();
        DateTimePicker2->DateTime = Date();
}
//---------------------------------------------------------------------------
void __fastcall TFwFxForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFwFxForm::CheckBox1Click(TObject *Sender)
{
        if(CheckBox1->Checked == true)
                DBChart1->View3D = true;
        else
                DBChart1->View3D = false;
}
//---------------------------------------------------------------------------
void __fastcall TFwFxForm::RadioGroup1Click(TObject *Sender)
{
        ADOQueryfwry->Close();
        ADOQueryslqs->Close();
        ADOQuerybxqs->Close();
        ADOQuerysrqs->Close();
        ADOQuerycbqs->Close();
}
//---------------------------------------------------------------------------