wxbwdj.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "FwJscl.h"
#include "FwFyJs.h"
#include "WxBwDj.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWxBwDjForm *WxBwDjForm;
//---------------------------------------------------------------------------
__fastcall TWxBwDjForm::TWxBwDjForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWxBwDjForm::FormCreate(TObject *Sender)
{
        MainForm->bxje = MainForm->zfje = MainForm->fwsje = 0;
        ADOQuerywxbw->Close();
        ADOQuerywxbw->Parameters->ParamByName("P_flbh")->Value = MainForm->MyGsFl;
        ADOQuerywxbw->Parameters->ParamByName("P_ppbh")->Value = MainForm->MyGsPp;
        ADOQuerywxbw->Parameters->ParamByName("P_ggbh")->Value = MainForm->MyGsGg;
        ADOQuerywxbw->Open();

        ADOQueryslbw->Close();
        ADOQueryslbw->Parameters->ParamByName("P_dabh")->Value = MainForm->MyDaBh;
        ADOQueryslbw->Open();
}
//---------------------------------------------------------------------------


void __fastcall TWxBwDjForm::BitBtn1Click(TObject *Sender)
{
        if(ADOQuerywxbw->RecordCount < 1 )
                Abort();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from slwxbwfy where dabh='"+MainForm->MyDaBh+"' and flbh='"+ MainForm->MyGsFl+"' and ppbh='"+MainForm->MyGsPp+"' and ggbh='"+ MainForm->MyGsGg+"' and bwbh='"+ ADOQuerywxbw->FieldByName("bwbh")->AsString+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("部位重复","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();

        ADOQueryslbw->Insert();
        ADOQueryslbw->FieldByName("dabh")->AsString = MainForm->MyDaBh;
        ADOQueryslbw->FieldByName("flbh")->AsString = MainForm->MyGsFl;
        ADOQueryslbw->FieldByName("ppbh")->AsString = MainForm->MyGsPp;
        ADOQueryslbw->FieldByName("ggbh")->AsString = MainForm->MyGsGg;
        ADOQueryslbw->FieldByName("bwbh")->AsString = ADOQuerywxbw->FieldByName("bwbh")->AsString;
        ADOQueryslbw->FieldByName("bwmc")->AsString = ADOQuerywxbw->FieldByName("bwmc")->AsString;
        ADOQueryslbw->FieldByName("gysgcfwf")->AsFloat = ADOQuerywxbw->FieldByName("gysgcfwf")->AsFloat;
        ADOQueryslbw->FieldByName("gyssmfwf")->AsFloat = ADOQuerywxbw->FieldByName("gyssmfwf")->AsFloat;
        ADOQueryslbw->FieldByName("khfwf")->AsFloat = ADOQuerywxbw->FieldByName("khfwf")->AsFloat;
        ADOQueryslbw->FieldByName("ryfwf")->AsFloat = ADOQuerywxbw->FieldByName("ryfwf")->AsFloat;
        ADOQueryslbw->FieldByName("gysjsflag")->AsString = MainForm->jsflag==true ? "是":"否";
        ADOQueryslbw->FieldByName("jsflag")->AsString = "否";
        ADOQueryslbw->FieldByName("fwfs")->AsString = MainForm->MyFwFs;
        if ( MainForm->MySflx == "商场保修" || MainForm->MySflx == "外购保修" ) {
                ADOQueryslbw->FieldByName("sflx")->AsString = "保修";
                if( MainForm->jsflag == true )
                        ADOQueryslbw->FieldByName("fwf")->AsFloat = MainForm->MyFwFs == "工场"? ADOQuerywxbw->FieldByName("gysgcfwf")->AsFloat:ADOQuerywxbw->FieldByName("gyssmfwf")->AsFloat;
                else
                        ADOQueryslbw->FieldByName("fwf")->AsFloat = 0;
        } else {
                ADOQueryslbw->FieldByName("fwf")->AsFloat =  ADOQueryslbw->FieldByName("khfwf")->AsFloat;
                ADOQueryslbw->FieldByName("sflx")->AsString = "自费";
        }
        ADOQueryslbw->Post();
}
//---------------------------------------------------------------------------

void __fastcall TWxBwDjForm::BitBtn2Click(TObject *Sender)
{
        if(ADOQueryslbw->RecordCount < 1 )
                Abort();
        ADOQueryslbw->Delete();
        ADOQueryslbw->Close();
        ADOQueryslbw->Open();
}
//---------------------------------------------------------------------------

void __fastcall TWxBwDjForm::BitBtn3Click(TObject *Sender)
{
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("delete from slwxbwfy where dabh='"+MainForm->MyDaBh+"'");
        ADOQuerytmp->ExecSQL();
        ADOQuerytmp->Close();
        ADOQueryslbw->Close();
        ADOQueryslbw->Open();
}
//---------------------------------------------------------------------------

void __fastcall TWxBwDjForm::BitBtn5Click(TObject *Sender)
{
        if( ADOQueryslbw->RecordCount> 0 ) {
                if ( Application->MessageBox("是否放弃登记？已登记的记录将被清除","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                        Abort();
        }
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("delete from slwxbwfy where dabh='"+MainForm->MyDaBh+"'");
        ADOQuerytmp->ExecSQL();
        ADOQuerytmp->Close();
        MainForm->bxje = MainForm->zfje = MainForm->fwsje = 0;
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TWxBwDjForm::BitBtn4Click(TObject *Sender)
{
        if( ADOQueryslbw->RecordCount> 0 ) {
                if ( Application->MessageBox("是否确认？","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                        Abort();
        }
        ADOQueryslbw->First();
        while(!ADOQueryslbw->Eof) {
                if( ADOQueryslbw->FieldByName("sflx")->AsString == "保修")
                        MainForm->bxje += ADOQueryslbw->FieldByName("fwf")->AsFloat;
                else
                        MainForm->zfje += ADOQueryslbw->FieldByName("fwf")->AsFloat;
                MainForm->fwsje += ADOQueryslbw->FieldByName("ryfwf")->AsFloat;
                ADOQueryslbw->Next();
        }
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TWxBwDjForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ADOQuerywxbw->Close();
        ADOQueryslbw->Close();
}
//---------------------------------------------------------------------------