fwhfcl.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "FwHfcl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwHfclForm *FwHfclForm;
//---------------------------------------------------------------------------
__fastcall TFwHfclForm::TFwHfclForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::Button7Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        ADOTableryxx->Open();
        ADOQueryhfxx->Open();
        GroupBox2->Enabled = false;
        Button2->Enabled = false;
        Button4->Enabled = false;
        ADOQueryfwjs->Close();
        ADOQueryfwsl->Close();
        ADOQueryfwsl->Open();
        ADOQueryfwjs->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();  
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::Button1Click(TObject *Sender)
{
        AnsiString sql;
        ADOQueryfwjs->Close();
        ADOQueryfwsl->Close();
        ADOQueryfwsl->SQL->Clear();
        sql = "select * from fwsl";
        if(CheckBox1->Checked == false)
                sql += " where delflag='否' and hfflag='否' and ( jsflag='是' or fwlx='回访' ) order by slrq";
        else
                sql += " where delflag='否' and ( jsflag='是' or fwlx='回访' ) and (slrq+"+String( MainForm->MyCxSum)+")>=Date() order by slrq desc";
        ADOQueryfwsl->SQL->Add(sql);
        ADOQueryfwsl->Open();
        if( ADOQueryfwsl->RecordCount > 0) {
                Button2->Enabled = true;
                Button4->Enabled = true;
        }
        ADOQueryfwjs->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::Button2Click(TObject *Sender)
{
        if(ADOQueryfwsl->FieldByName("hfflag")->AsString =="是") {
                Application->MessageBox("该记录已回访，不能重复回访","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if( ADOQueryfwjs->RecordCount > 0) {
                ADOQuerytmp->Close();
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("delete from fwjs where dabh=:P_dabh and  jslx='回访' ");
                ADOQuerytmp->Parameters->ParamByName("P_dabh")->Value = ADOQueryfwsl->FieldByName("dabh")->AsString;
                ADOQuerytmp->ExecSQL();
        }
        ADOQuerytmp->Close();

        MainForm->bxje = MainForm->zfje = 0;   //bxje = wgf zfje=jtf
        if(ADOQueryfwsl->FieldByName("isgysjs")->AsString == "是" ) {
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select * from gysqtfyxx  where flbh=:P_flbh and ppbh=:P_ppbh and ggbh=:P_ggbh");
                ADOQuerytmp->Parameters->ParamByName("P_flbh")->Value = ADOQueryfwsl->FieldByName("flbh")->AsString;
                ADOQuerytmp->Parameters->ParamByName("P_ppbh")->Value = ADOQueryfwsl->FieldByName("ppbh")->AsString;
                ADOQuerytmp->Parameters->ParamByName("P_ggbh")->Value = ADOQueryfwsl->FieldByName("ggbh")->AsString;
                ADOQuerytmp->Open();
                ADOQuerytmp->First();
                while( !ADOQuerytmp->Eof ) {
                        if( ADOQueryfwsl->FieldByName("qylc")->AsInteger >= ADOQuerytmp->FieldByName("start")->AsInteger && ADOQueryfwsl->FieldByName("qylc")->AsInteger <= ADOQuerytmp->FieldByName("end")->AsInteger ) {
                                MainForm->bxje =  ADOQuerytmp->FieldByName("wgf")->AsFloat;
                                MainForm->zfje =  ADOQuerytmp->FieldByName("jtf")->AsFloat;
                                break;
                        }
                        ADOQuerytmp->Next();
                }
        }
        MainForm->fwsje = MainForm->fwpjcb = 0;  // fwsje = hfdj fwpjcb = ryhfdj
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select * from ggxx where flbh=:P_flbh and ppbh=:P_ppbh and ggbh=:P_ggbh");
        ADOQuerytmp->Parameters->ParamByName("P_flbh")->Value = ADOQueryfwsl->FieldByName("flbh")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_ppbh")->Value = ADOQueryfwsl->FieldByName("ppbh")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_ggbh")->Value = ADOQueryfwsl->FieldByName("ggbh")->AsString;
        ADOQuerytmp->Open();
        if(ADOQuerytmp->RecordCount != 1) {
                ADOQuerytmp->Close();
                Application->MessageBox("无法定位规格信息","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        MainForm->fwsje =  ADOQuerytmp->FieldByName("hfdj")->AsFloat;
        MainForm->fwpjcb = ADOQuerytmp->FieldByName("ryhfdj")->AsFloat;
        ADOQuerytmp->Close();
        
        DateTimePicker1->Visible = true;
        DateTimePicker1->DateTime = Date();
        ADOQueryfwjs->Insert();
        GroupBox2->Enabled = true;
        Button1->Enabled = false;
        Button2->Enabled = false;
        Button4->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::Button3Click(TObject *Sender)
{
        if(DBLookupComboBox1->Text.Trim()=="") {
                Application->MessageBox("请确定回访人员","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(DBLookupComboBox2->Text.Trim()=="") {
                Application->MessageBox("请输入回访情况","错误",MB_OK+MB_ICONERROR);
                Abort();
        }

        ADOQueryfwjs->FieldByName("zxrm")->AsString = DBLookupComboBox1->Text;
        ADOQueryfwjs->FieldByName("zxqk")->AsString = DBLookupComboBox2->Text;
        ADOQueryfwjs->FieldByName("jsrybh")->AsString = MainForm->MyLoginBh;
        ADOQueryfwjs->FieldByName("jsrm")->AsString = MainForm->MyLoginName;
        ADOQueryfwjs->FieldByName("zxrq")->Value = DateTimePicker1->DateTime;
        ADOQueryfwjs->FieldByName("endrq")->Value = DateTimePicker1->DateTime;
        ADOQueryfwjs->FieldByName("dabh")->Value = ADOQueryfwsl->FieldByName("dabh")->AsString;
        ADOQueryfwjs->Post();
        ADOQueryfwsl->Edit();
        ADOQueryfwsl->FieldByName("hfrq")->Value = DateTimePicker1->DateTime;
        ADOQueryfwsl->FieldByName("hfflag")->Value = "是";
        if( ADOQueryfwsl->FieldByName("fwlx")->AsString == "回访" ) {
                ADOQueryfwsl->FieldByName("jsrq")->Value = Date();
                ADOQueryfwsl->FieldByName("jsflag")->Value = "是";
        }
        ADOQueryfwsl->Post();
        ADOQuerytmp->Close();
        Application->MessageBox("回访完成","提示",MB_OK + MB_ICONASTERISK );
        ADOQueryfwsl->Close();
        ADOQueryfwsl->Open();
        GroupBox2->Enabled = false;
        Button1->Enabled = true;
        DateTimePicker1->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::Button5Click(TObject *Sender)
{
        ADOQueryfwjs->Cancel();
        ADOQuerytmp->Close();
        GroupBox2->Enabled = false;
        Button1->Enabled = true;
        Button2->Enabled = true;
        DateTimePicker1->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TFwHfclForm::Button4Click(TObject *Sender)
{
        if(ADOQueryfwsl->FieldByName("hfflag")->AsString !="是") {
                Application->MessageBox("该记录并未回访","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(Application->MessageBox("是否取消当前记录回访?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQueryfwsl->Edit();
        ADOQueryfwsl->FieldByName("hfrq")->Clear();
        ADOQueryfwsl->FieldByName("hfflag")->Value = "否";
        if( ADOQueryfwsl->FieldByName("fwlx")->AsString == "回访" ) {
                ADOQueryfwsl->FieldByName("jsrq")->Clear();
                ADOQueryfwsl->FieldByName("jsflag")->Value = "否";
        }
        ADOQueryfwsl->Post();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("delete from fwjs where dabh=:P_dabh and jslx='回访'");
        ADOQuerytmp->Parameters->ParamByName("P_dabh")->Value = ADOQueryfwsl->FieldByName("dabh")->AsString;
        ADOQuerytmp->ExecSQL();
        ADOQueryfwsl->Close();
        ADOQueryfwsl->Open();
        Application->MessageBox("回访已取消","提示",MB_OK+ MB_ICONASTERISK);
}
//---------------------------------------------------------------------------

void __fastcall TFwHfclForm::ADOQueryfwjsAfterInsert(TDataSet *DataSet)
{
        ADOQueryfwjs->FieldByName("jslx")->AsString = "回访";
        ADOQueryfwjs->FieldByName("zxfwyj")->AsString = "电话";
        ADOQueryfwjs->FieldByName("mfpjfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("mfpjfwsfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("zfpjfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("fwpjcb")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("zffwfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("ysqtfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("ssfwfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("sspjfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("ssqtfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("sskhfy")->AsFloat = 0;
        
        ADOQueryfwjs->FieldByName("iszfryfwfy")->AsString = "否";
        ADOQueryfwjs->FieldByName("yfryfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("iszfrywgfy")->AsString = "否";
        ADOQueryfwjs->FieldByName("yfrywgfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("iszfryjtfy")->AsString = "否";
        ADOQueryfwjs->FieldByName("yfryjtfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("gysfyflag")->AsString = "否";
        ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("gyswgfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("gysjtfy")->AsFloat = 0;
        ADOQueryfwjs->FieldByName("zxrybh")->AsString = ADOQueryfwsl->FieldByName("zxrybh")->AsString;
        ADOQueryfwjs->FieldByName("zxrq")->Value = Date();
}
//---------------------------------------------------------------------------

void __fastcall TFwHfclForm::DBCheckBox4Click(TObject *Sender)
{
        if(ADOQueryfwjs->State != dsInsert)
                return;
        if( DBCheckBox4->Checked == true ) {
                if( ADOQueryfwsl->FieldByName("isgysjs")->AsString =="否")
                        DBCheckBox4->Checked = false;
        }

        if( DBCheckBox4->Checked  == true ) {                //供应商费用
                ADOQueryfwjs->FieldByName("mffwfy")->Value =  MainForm->fwsje;
                ADOQueryfwjs->FieldByName("gyswgfy")->Value = MainForm->bxje;
                ADOQueryfwjs->FieldByName("gysjtfy")->Value = MainForm->zfje;
        }else{
                ADOQueryfwjs->FieldByName("mffwfy")->AsFloat = 0;
                ADOQueryfwjs->FieldByName("gyswgfy")->AsFloat = 0;
                ADOQueryfwjs->FieldByName("gysjtfy")->AsFloat = 0;
        }
}
//---------------------------------------------------------------------------

void __fastcall TFwHfclForm::CheckBox1Click(TObject *Sender)
{
        ADOQueryfwsl->Close();
        ADOQueryfwjs->Close();
}
//---------------------------------------------------------------------------

void __fastcall TFwHfclForm::DataSourcefwslStateChange(TObject *Sender)
{
        switch(ADOQueryfwsl->State) {
        case dsBrowse:
                if( ADOQueryfwsl->RecordCount > 0) {
                        Button2->Enabled = true;
                        Button4->Enabled = true;
                } else {
                        Button2->Enabled = false;
                        Button4->Enabled = false;
                }
                break;
        default:
                Button2->Enabled = false;
                Button4->Enabled = false;
                break;
        }
}
//---------------------------------------------------------------------------


void __fastcall TFwHfclForm::DBCheckBox1Click(TObject *Sender)
{
        if(ADOQueryfwjs->State != dsInsert)
                return;
        if(DBCheckBox1->Checked == true)                     //人员服务费用
                ADOQueryfwjs->FieldByName("yfryfy")->Value = MainForm->fwpjcb;
        else
                ADOQueryfwjs->FieldByName("yfryfy")->Value = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFwHfclForm::DBCheckBox2Click(TObject *Sender)
{
        if(ADOQueryfwjs->State != dsInsert)
                return;
        if(DBCheckBox2->Checked == true)                     //人员误工费用
                ADOQueryfwjs->FieldByName("yfrywgfy")->Value = ADOQueryfwsl->FieldByName("yfwgf")->AsFloat;
        else
                ADOQueryfwjs->FieldByName("yfrywgfy")->Value = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFwHfclForm::DBCheckBox3Click(TObject *Sender)
{
        if(ADOQueryfwjs->State != dsInsert)
                return;
        if(DBCheckBox3->Checked == true)                    //人员交通费用
                ADOQueryfwjs->FieldByName("yfryjtfy")->Value = ADOQueryfwsl->FieldByName("yfwgf")->AsFloat;
        else
                ADOQueryfwjs->FieldByName("yfryjtfy")->Value = 0;
}
//---------------------------------------------------------------------------