fwpgcl.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "FwPgcl.h"
#include "GetFwRy.h"
#include "fwpgd.h"
#include "slxxzx.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFwPgForm *FwPgForm;
//---------------------------------------------------------------------------
__fastcall TFwPgForm::TFwPgForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::Button7Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        Button4->Enabled = false;
        Button2->Enabled = false;
        Button6->Enabled = false;
        Button3->Enabled = false;
        Button5->Enabled = false;
        ADOQueryfwsl->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::Button1Click(TObject *Sender)
{
        AnsiString sql;

        ADOQueryfwsl->Close();
        ADOQueryfwsl->SQL->Clear();
        sql = "select * from fwsl";
        if(CheckBox1->Checked == true)
                sql += " where delflag='否' and ( slrq + "+String( MainForm->MyCxSum) +")>=Date() order by dabh desc";
        else {
                if(CheckBox2->Checked == true)
                        sql += " where delflag='是' and ( slrq + "+String( MainForm->MyCxSum) +")>=Date() order by dabh desc";
                else
                        sql += " where pgflag='否' and delflag='否' order by dabh";
        }
        ADOQueryfwsl->SQL->Add(sql);
        ADOQueryfwsl->Open();
        if( CheckBox2->Checked == true && ADOQueryfwsl->RecordCount>0 )
                Button4->Enabled = true;
        else
                Button4->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::Button2Click(TObject *Sender)
{
        AnsiString sql;
        if(ADOQueryfwsl->FieldByName("delflag")->AsString != "否") {
                Application->MessageBox("该记录已注销!不能处理","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("pgflag")->AsString != "否") {
                Application->MessageBox("该记录已派工!不能重复派工","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        MainForm->MyGsFl = "0000";
        TGetFwRyForm *GetFwRyForm;
        try
        {
                GetFwRyForm = new TGetFwRyForm(Application);
                GetFwRyForm->ShowModal();
                delete GetFwRyForm;
        }
        catch(...)
        {
                delete GetFwRyForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }

        if(MainForm->MyGsFl == "0000")
                Abort();
        ADOQueryfwsl->Edit();
        ADOQueryfwsl->FieldByName("zxrybh")->AsString = MainForm->MyGsFl;
        ADOQueryfwsl->FieldByName("zxrm")->AsString = MainForm->MyGsPp;
        ADOQueryfwsl->FieldByName("pgrq")->Value =  Date();
        ADOQueryfwsl->FieldByName("pgrybh")->AsString = MainForm->MyLoginBh;
        ADOQueryfwsl->FieldByName("pgrm")->AsString = MainForm->MyLoginName;
        ADOQueryfwsl->FieldByName("pgflag")->AsString ="是";
        ADOQueryfwsl->Post();
        Application->MessageBox("派工成功!","确认",MB_OK + MB_ICONASTERISK);
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::Button3Click(TObject *Sender)
{
        AnsiString sql;
        if(ADOQueryfwsl->FieldByName("delflag")->AsString != "否") {
                Application->MessageBox("该记录已注销!不能处理","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("pgflag")->AsString != "是") {
                Application->MessageBox("该记录并未派工!","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("jsflag")->AsString == "是" && ADOQueryfwsl->FieldByName("fwlx")->AsString != "主动回访") {
                Application->MessageBox("该记录已结算，不能撤销派工!","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("hfflag")->AsString == "是" && ADOQueryfwsl->FieldByName("fwlx")->AsString == "主动回访") {
                Application->MessageBox("该记录已回访!不能重复派工","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(Application->MessageBox("是否撤销派工?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQueryfwsl->Edit();
        ADOQueryfwsl->FieldByName("zxrybh")->AsString = "0000";
        ADOQueryfwsl->FieldByName("zxrm")->AsString = "";
        ADOQueryfwsl->FieldByName("pgrq")->Clear();
        ADOQueryfwsl->FieldByName("pgrybh")->AsString = "0000";
        ADOQueryfwsl->FieldByName("pgrm")->AsString = "";
        ADOQueryfwsl->FieldByName("pgflag")->AsString ="否";
        ADOQueryfwsl->Post();
        Application->MessageBox("派工撤销成功!","确认",MB_OK+ MB_ICONASTERISK);
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::Button5Click(TObject *Sender)
{
        AnsiString sql;
        if(ADOQueryfwsl->FieldByName("delflag")->AsString != "否") {
                Application->MessageBox("该记录已注销!不能重复注销","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("pgflag")->AsString == "是") {
                Application->MessageBox("该记录已派工!不能注销","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("jsflag")->AsString == "是" && ADOQueryfwsl->FieldByName("fwlx")->AsString != "主动回访") {
                Application->MessageBox("该记录已结算，不能注销!","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("hfflag")->AsString == "是" && ADOQueryfwsl->FieldByName("fwlx")->AsString == "主动回访") {
                Application->MessageBox("该记录已回访!不能注销","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(Application->MessageBox("是否注销当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        MainForm->pzflag = false;
        TSlxxZxForm *SlxxZxForm;
        try
        {
                SlxxZxForm = new TSlxxZxForm(Application);
                SlxxZxForm->ShowModal();
                delete SlxxZxForm;
        }
        catch(...)
        {
                delete SlxxZxForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
        if( MainForm->pzflag == false )
                Abort();
        ADOQueryfwsl->Edit();
        ADOQueryfwsl->FieldByName("delrq")->Value = Date();
        ADOQueryfwsl->FieldByName("delrybh")->Value = MainForm->MyLoginBh;
        ADOQueryfwsl->FieldByName("delrm")->Value = MainForm->MyLoginName;
        ADOQueryfwsl->FieldByName("delyy")->Value = MainForm->MyGsFl;
        ADOQueryfwsl->FieldByName("delbz")->Value = MainForm->MyGsGg;
        ADOQueryfwsl->FieldByName("delflag")->Value = "是";
        ADOQueryfwsl->Post();
        ADOQueryfwsl->Close();
        ADOQueryfwsl->Open();
}

//---------------------------------------------------------------------------
void __fastcall TFwPgForm::DataSourcefwslStateChange(TObject *Sender)
{
        switch(ADOQueryfwsl->State) {
        case dsBrowse:
                if(ADOQueryfwsl->RecordCount > 0) {
                        Button2->Enabled = true;
                        Button6->Enabled = true;
                        Button3->Enabled = true;
                        Button5->Enabled = true;
                }else{
                        Button2->Enabled = false;
                        Button6->Enabled = false;
                        Button3->Enabled = false;
                        Button5->Enabled = false;
                }
                break;
        case dsEdit:
        case dsInsert:
                Button2->Enabled = true;
                Button6->Enabled = false;
                Button3->Enabled = false;
                Button5->Enabled = false;
                break;
        default:
                Button2->Enabled = false;
                Button6->Enabled = false;
                Button3->Enabled = false;
                Button5->Enabled = false;
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::Button6Click(TObject *Sender)
{
        if(ADOQueryfwsl->FieldByName("delflag")->AsString != "否") {
                Application->MessageBox("该记录已注销!不能处理","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("pgflag")->AsString != "是") {
                Application->MessageBox("当前记录未派工,不能再打印派工单","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("jsflag")->AsString == "是" && ADOQueryfwsl->FieldByName("fwlx")->AsString != "主动回访") {
                Application->MessageBox("当前记录已结算,不能再打印派工单","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryfwsl->FieldByName("hfflag")->AsString == "是" && ADOQueryfwsl->FieldByName("fwlx")->AsString == "主动回访") {
                Application->MessageBox("该记录已回访!不能再打印派工单","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        TFwclDForm *FwclDForm;
        try
        {
                FwclDForm = new TFwclDForm(Application);
                FwclDForm->QRLabel1->Caption = MainForm->MyGsMc + "服务受理单（"+ ADOQueryfwsl->FieldByName("zxfwlx")->AsString+"）";
                FwclDForm->QuickRep1->Preview();
                delete FwclDForm;
        }
        catch(...)
        {
                delete FwclDForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------
void __fastcall TFwPgForm::DataSourcefwslDataChange(TObject *Sender,
      TField *Field)
{
        if(ADOQueryfwsl->FieldByName("fwfs")->AsString == "工场") {
                Label12->Visible = false;
                DBEdit14->Visible = false;
                DBEdit15->Visible = false;
        } else {
                Label12->Visible = true;
                DBEdit14->Visible = true;
                DBEdit15->Visible = true;
        }
}
//---------------------------------------------------------------------------

void __fastcall TFwPgForm::CheckBox1Click(TObject *Sender)
{
        ADOQueryfwsl->Close();
        if(CheckBox1->Checked == true)
                CheckBox2->Checked = false;
        if(CheckBox2->Checked == true)
                CheckBox1->Checked = false;
}
//---------------------------------------------------------------------------

void __fastcall TFwPgForm::CheckBox2Click(TObject *Sender)
{
        ADOQueryfwsl->Close();
        if(CheckBox2->Checked == true)
                CheckBox1->Checked = false;
        if(CheckBox1->Checked == true)
                CheckBox2->Checked = false;
}
//---------------------------------------------------------------------------


void __fastcall TFwPgForm::Button4Click(TObject *Sender)
{
        GroupBox1->Enabled = false;
        GroupBox2->Visible = false;
        GroupBox3->Visible = true;
}
//---------------------------------------------------------------------------

void __fastcall TFwPgForm::Button8Click(TObject *Sender)
{
        GroupBox1->Enabled = true;
        GroupBox2->Visible = true;
        GroupBox3->Visible = false;
}
//---------------------------------------------------------------------------