fwsl.cpp

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

                ADOQuerytmp->Parameters->ParamByName("P_yfwgf")->Value = ADOTabledzqy->FieldByName("wgfy")->AsFloat;
                ADOQuerytmp->Parameters->ParamByName("P_yfjtf")->Value = ADOTabledzqy->FieldByName("jtf")->AsFloat;
        } else {
                ADOQuerytmp->Parameters->ParamByName("P_yfwgf")->Value = 0;
                ADOQuerytmp->Parameters->ParamByName("P_yfjtf")->Value = 0;
        }
        ADOQuerytmp->Parameters->ParamByName("P_gysbh")->Value = ADOQueryggxx->FieldByName("gysbh")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_isgysjs")->Value = ADOQueryggxx->FieldByName("fwfyflag")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_dz")->Value = Edit5->Text;
        ADOQuerytmp->Parameters->ParamByName("P_flbh")->Value = DBLookupComboBox2->KeyValue;
        ADOQuerytmp->Parameters->ParamByName("P_flmc")->Value = DBLookupComboBox2->Text;
        ADOQuerytmp->Parameters->ParamByName("P_ppbh")->Value = DBLookupComboBox3->KeyValue;
        ADOQuerytmp->Parameters->ParamByName("P_ppmc")->Value = DBLookupComboBox3->Text;
        ADOQuerytmp->Parameters->ParamByName("P_ggbh")->Value = DBLookupComboBox4->KeyValue;
        ADOQuerytmp->Parameters->ParamByName("P_ggmc")->Value = DBLookupComboBox4->Text;
        ADOQuerytmp->Parameters->ParamByName("P_slppbh")->Value = DBLookupComboBox3->KeyValue;
        ADOQuerytmp->Parameters->ParamByName("P_slppmc")->Value = DBLookupComboBox3->Text;
        ADOQuerytmp->Parameters->ParamByName("P_slggbh")->Value = DBLookupComboBox4->KeyValue;
        ADOQuerytmp->Parameters->ParamByName("P_slggmc")->Value = DBLookupComboBox4->Text;
        ADOQuerytmp->Parameters->ParamByName("P_pzmc")->Value = Edit4->Text;

        if(CheckBox2->Checked == true)
                ADOQuerytmp->Parameters->ParamByName("P_gmrq")->Value = "不详";
        else
                ADOQuerytmp->Parameters->ParamByName("P_gmrq")->Value = DateTimePicker1->DateTime.DateString();
        ADOQuerytmp->Parameters->ParamByName("P_csbh")->Value = "";
        ADOQuerytmp->Parameters->ParamByName("P_pzno")->Value = Edit7->Text;
        if(RadioButton2->Checked == true) {
                ADOQuerytmp->Parameters->ParamByName("P_fwfs")->Value = "上门";
                ADOQuerytmp->Parameters->ParamByName("P_ydsmrq")->Value = DateTimePicker2->DateTime.DateString();
                ADOQuerytmp->Parameters->ParamByName("P_ydsmtime")->Value = Edit10->Text.Trim()+":"+ComboBox1->Text.Trim();
        } else {
                ADOQuerytmp->Parameters->ParamByName("P_fwfs")->Value = "工场";
                ADOQuerytmp->Parameters->ParamByName("P_ydsmrq")->Value = "";
                ADOQuerytmp->Parameters->ParamByName("P_ydsmtime")->Value = "";
        }
        ADOQuerytmp->Parameters->ParamByName("P_slbz")->Value = Edit9->Text;
        if( RadioGroup1->Items->Strings[RadioGroup1->ItemIndex] == "维修" )
                ADOQuerytmp->Parameters->ParamByName("P_jsfs")->Value = ADOQueryggxx->FieldByName("wxsflx")->AsString;
        else
                ADOQuerytmp->Parameters->ParamByName("P_jsfs")->Value = "计件";
        ADOQuerytmp->ExecSQL();
        Application->MessageBox("受理成功！","提示",MB_OK + MB_ICONASTERISK );
        Close();
}
//---------------------------------------------------------------------------


void __fastcall TFwSlForm::RadioGroup1Click(TObject *Sender)
{
        switch(  RadioGroup1->ItemIndex ) {
        case 0:
                RadioButton2->Checked = true;
                GroupBox4->Enabled = true;
                Edit8->Text = "";
                Edit8->Enabled = false;
                ADOQuerygzbm->Close();
                DBLookupComboBox6->Enabled = false;
                Edit9->Text = "";
                break;
        case 3:
                Edit8->Text = "";
                Edit8->Enabled = false;
                GroupBox4->Enabled = true;
                ADOQuerygzbm->Close();
                DBLookupComboBox6->Enabled = false;
                RadioGroup2->ItemIndex = 0;
                Edit9->Text = "【主动回访】";
                break;
        default:
                Edit8->Enabled = true;
                ADOQuerygzbm->Close();
                if(DBLookupComboBox2->Text.Trim()!="")
                        ADOQuerygzbm->Open();
                DBLookupComboBox6->Enabled = true;
                Edit9->Text = "";
                break;
        }
}
//---------------------------------------------------------------------------



void __fastcall TFwSlForm::RadioButton1Click(TObject *Sender)
{
        if(RadioButton1->Checked == false)
                GroupBox4->Enabled = true;
        else
                GroupBox4->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TFwSlForm::RadioGroup2Click(TObject *Sender)
{
        if( RadioGroup1->ItemIndex == 3 )
                RadioGroup2->ItemIndex = 0 ;
}
//---------------------------------------------------------------------------

void __fastcall TFwSlForm::InsertKhxx()
{
        AnsiString  tmp;
        ADOTablesys->Open();
        tmp = tmp.sprintf("%010d",ADOTablesys->FieldByName("cur_khid")->AsInteger + 1);
        ADOTablesys->Edit();
        ADOTablesys->FieldByName("cur_khid")->AsInteger = ADOTablesys->FieldByName("cur_khid")->AsInteger +1;
        ADOTablesys->Post();
        ADOTablesys->Close();

        ADOQuerytmp->Insert();
        ADOQuerytmp->FieldByName("khbh")->AsString = tmp;
        ADOQuerytmp->FieldByName("name")->AsString = Edit1->Text.Trim();
        ADOQuerytmp->FieldByName("qybh")->AsString = DBLookupComboBox1->KeyValue;
        ADOQuerytmp->FieldByName("qymc")->AsString = DBLookupComboBox1->Text;
        ADOQuerytmp->FieldByName("dz")->AsString = Edit5->Text.Trim();
        ADOQuerytmp->FieldByName("lxdh")->AsString = Edit2->Text.Trim();
        ADOQuerytmp->FieldByName("yddh")->AsString = Edit3->Text.Trim();
        ADOQuerytmp->FieldByName("bp")->AsString = "";
        ADOQuerytmp->FieldByName("iszdkh")->AsString = "否";
        ADOQuerytmp->FieldByName("isgr")->AsString = "是";
        ADOQuerytmp->FieldByName("djrq")->Value = Date();
        ADOQuerytmp->Post();
        MainForm->MyKhBh = tmp;
}
//---------------------------------------------------------------------------

void __fastcall TFwSlForm::DBLookupComboBox1Click(TObject *Sender)
{
        AnsiString sql;
        char tmp[100];
        if( Edit1->Text.Trim()=="")
                return;
        MainForm->AllTrim(Edit1->Text,tmp);
        Edit1->Text = String(tmp);
        Edit5->Clear();
        Edit2->Clear();
        Edit3->Clear();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        sql = "select * from khxx where name='"+Edit1->Text.Trim()+"' and qybh='"+DBLookupComboBox1->KeyValue+"'";
        ADOQuerytmp->SQL->Add(sql);
        ADOQuerytmp->Open();
        if(ADOQuerytmp->RecordCount == 1) {
                Edit5->Text = ADOQuerytmp->FieldByName("dz")->AsString;
                Edit2->Text = ADOQuerytmp->FieldByName("lxdh")->AsString;
                Edit3->Text = ADOQuerytmp->FieldByName("yddh")->AsString;
        }
        ADOQuerytmp->Close();
}
//---------------------------------------------------------------------------



void __fastcall TFwSlForm::CheckBox2Click(TObject *Sender)
{
        if(CheckBox2->Checked == true)
                DateTimePicker1->Enabled = false;
        else
                DateTimePicker1->Enabled = true;
}
//---------------------------------------------------------------------------


void __fastcall TFwSlForm::Button3Click(TObject *Sender)
{
        AnsiString sql;
        char tmp[100],datmp[100];

        if(Edit1->Text.Trim()=="") {
                Application->MessageBox("请输入客户名称","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        MainForm->AllTrim(Edit1->Text,tmp);
        Edit1->Text = String(tmp);

        if( DBLookupComboBox1->Text.Trim()=="" ) {
                Application->MessageBox("请选择客户区域","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(DBLookupComboBox2->Text.Trim()=="" ) {
                Application->MessageBox("请选择商品分类","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        sql = " select * from fwsl,fwjs where fwsl.jsflag='是' ";
        sql +=" and fwsl.khmc='"+Edit1->Text +"' and fwsl.qybh='"+DBLookupComboBox1->KeyValue +"' and fwsl.flbh='"+DBLookupComboBox2->KeyValue+"' ";
        sql +=" and fwsl.dabh = fwjs.dabh  and delflag='否' and fwjs.jslx<>'回访' order by fwsl.dabh desc";
        MainForm->MyKhBh =  sql;
        TKhFwxxForm *KhFwxxForm;
        try
        {
                KhFwxxForm = new TKhFwxxForm(Application);
                KhFwxxForm->ShowModal();
                delete KhFwxxForm;
        }
        catch(...)
        {
                delete KhFwxxForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------