fwryjs.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "fwryjs.h"
#include "fwryjsd.h"
#include "Ryjshzb.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ColorButton"
#pragma resource "*.dfm"
TFwRyJsForm *FwRyJsForm;
//---------------------------------------------------------------------------
__fastcall TFwRyJsForm::TFwRyJsForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFwRyJsForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        MainForm->ADOConnection1->Close(); 
}
//---------------------------------------------------------------------------
void __fastcall TFwRyJsForm::dxfColorButton2Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFwRyJsForm::dxfColorButton1Click(TObject *Sender)
{
        AnsiString msql,sql;

        ADOQueryryxx->Close();
        ADOQueryryxx->SQL->Clear();

        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        switch( RadioGroup1->ItemIndex ) {
        case 0:
        case 1:
        case 2:
                msql = "select distinct fwjs.zxrm from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                msql +=" and fwsl.zxfwlx='"+ RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.jsflag='是' and fwjs.jslx<>'回访' and fwjs.dabh = fwsl.dabh group by fwjs.zxrm ";
                sql = "select * from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq and fwjs.zxrm =:zxrm ";
                sql += " and fwsl.zxfwlx='"+ RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.jsflag='是' and fwjs.jslx<>'回访' and fwjs.dabh = fwsl.dabh order by fwjs.dabh";
                break;
        case 3:
                msql = "select distinct fwjs.zxrm from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                msql +=" and fwjs.jslx='回访' and fwsl.hfflag='是' and fwjs.dabh = fwsl.dabh group by fwjs.zxrm ";
                sql = "select * from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq and fwjs.zxrm =:zxrm ";
                sql += " and fwjs.jslx='回访' and fwsl.hfflag='是' and fwjs.dabh = fwsl.dabh order by fwjs.dabh";
                break;
        case 4:
                msql = "select distinct fwjs.zxrm from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                msql += " and ( fwsl.jsflag='是' or fwsl.hfflag='是' ) and fwjs.dabh = fwsl.dabh group by fwjs.zxrm";
                sql = "select * from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq and fwjs.zxrm =:zxrm ";
                sql += " and ( fwsl.jsflag='是' or fwsl.hfflag='是' ) and fwjs.dabh = fwsl.dabh order by fwjs.dabh";
                break;
        }
        ADOQueryryxx->SQL->Add(msql);
        ADOQueryryxx->Parameters->ParamByName("P_startrq")->Value = DateTimePicker1->DateTime;
        ADOQueryryxx->Parameters->ParamByName("P_endrq")->Value = DateTimePicker2->DateTime;
        ADOQueryryxx->Open();
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->Parameters->ParamByName("P_startrq")->Value = DateTimePicker1->DateTime;
        ADOQuery1->Parameters->ParamByName("P_endrq")->Value = DateTimePicker2->DateTime;
        ADOQuery1->Open();
        if(ADOQueryryxx->RecordCount < 1 ) {
                ADOQueryryxx->Close();
                ADOQuery1->Close();
                Application->MessageBox("没有符合条件的记录可打印","错误",MB_OK+MB_ICONERROR);
                return;
        }
        TFwRyJsDForm *FwRyJsDForm;
        try
        {
                FwRyJsDForm = new TFwRyJsDForm(Application);
                FwRyJsDForm->fwf =  FwRyJsDForm->jtf = FwRyJsDForm->wgf = FwRyJsDForm->hjfwf = FwRyJsDForm->hjjtf = FwRyJsDForm->hjwgf = 0;
                FwRyJsDForm->QRLabel14->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker1->DateTime);
                FwRyJsDForm->QRLabel15->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker2->DateTime);
                FwRyJsDForm->QRLabel16->Caption = RadioGroup1->Items->Strings[RadioGroup1->ItemIndex];
                FwRyJsDForm->QuickRep1->Preview();
                delete FwRyJsDForm;
        }
        catch(...)
        {
                delete FwRyJsDForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------


void __fastcall TFwRyJsForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        RadioGroup1->ItemIndex  = 0;
        DateTimePicker1->DateTime = Date();
        DateTimePicker2->DateTime = Date();
}
//---------------------------------------------------------------------------

void __fastcall TFwRyJsForm::dxfColorButton3Click(TObject *Sender)
{
        AnsiString sql;

        ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        switch( RadioGroup1->ItemIndex ) {
        case 0:
        case 1:
        case 2:
                sql = "select fwjs.zxrm,sum(yfryfy),sum(yfryjtfy),sum(yfrywgfy) from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                sql += " and fwsl.zxfwlx='"+ RadioGroup1->Items->Strings[RadioGroup1->ItemIndex]+"' and fwsl.jsflag='是' and fwjs.jslx<>'回访' and fwjs.dabh = fwsl.dabh group by fwjs.zxrm order by fwjs.zxrm";
                break;
        case 3:
                sql = "select fwjs.zxrm,sum(yfryfy),sum(yfryjtfy),sum(yfrywgfy) from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                sql += " and fwjs.jslx='回访' and fwsl.hfflag='是' and fwjs.dabh = fwsl.dabh group by fwjs.zxrm order by fwjs.zxrm";
                break;
        case 4:
                sql = "select fwjs.zxrm,sum(yfryfy),sum(yfryjtfy),sum(yfrywgfy) from fwsl,fwjs where fwsl.delflag='否' and fwsl.slrq >=:P_startrq and fwsl.slrq <=:P_endrq ";
                sql += " and ( fwsl.jsflag='是' or fwsl.hfflag='是' ) and fwjs.dabh = fwsl.dabh group by fwjs.zxrm order by fwjs.zxrm";
                break;
        }
        ADOQuery2->SQL->Add(sql);
        ADOQuery2->Parameters->ParamByName("P_startrq")->Value = DateTimePicker1->DateTime;
        ADOQuery2->Parameters->ParamByName("P_endrq")->Value = DateTimePicker2->DateTime;
        ADOQuery2->Open();
        if(ADOQuery2->RecordCount < 1 ) {
                ADOQuery2->Close();
                Application->MessageBox("没有符合条件的记录可打印","错误",MB_OK+MB_ICONERROR);
                return;
        }
        TRyJsHzBForm *RyJsHzBForm;
        try
        {
                RyJsHzBForm = new TRyJsHzBForm(Application);
                RyJsHzBForm->QRLabel14->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker1->DateTime);
                RyJsHzBForm->QRLabel15->Caption =  FormatDateTime("yyyy-mm-dd",DateTimePicker2->DateTime);
                RyJsHzBForm->QRLabel16->Caption = RadioGroup1->Items->Strings[RadioGroup1->ItemIndex];
                RyJsHzBForm->QuickRep1->Preview();
                delete RyJsHzBForm;
        }
        catch(...)
        {
                delete RyJsHzBForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
        ADOQuery2->Close();
}
//---------------------------------------------------------------------------