setfwqkxx.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "SetFwQkxx.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSetFwQkxxForm *SetFwQkxxForm;
//---------------------------------------------------------------------------
__fastcall TSetFwQkxxForm::TSetFwQkxxForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::Button2Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        switch(PageControl1->ActivePageIndex ){
        case 0:
                ADOQueryfwqkxx->Insert();
                break;
        case 1:
                ADOQueryfwqkxx->Insert();
                break;
        case 2:
                ADOTable3->Insert();
                break;
        case 3:
                ADOQuerygzbm->Insert();
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::Button3Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        switch(PageControl1->ActivePageIndex ){
        case 0:
                ADOQueryfwqkxx->Edit();
                break;
        case 1:
                ADOQueryfwqkxx->Edit();
                break;
        case 2:
                ADOTable3->Edit();
                break;
        case 3:
                ADOQuerygzbm->Edit();
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::Button4Click(TObject *Sender)
{
        switch(PageControl1->ActivePageIndex ){
        case 0:
                if(ADOQueryfwqkxx->FieldByName("mc")->AsString.Trim()=="") {
                        Application->MessageBox("请输入名称","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                if( ADOQueryfwqkxx->State == dsInsert ) {
                        ADOQuerytmp->Close();
                        ADOQuerytmp->SQL->Clear();
                        ADOQuerytmp->SQL->Add( "select max(bh) from fwqkxx where lx='服务'");
                        ADOQuerytmp->Open();
                        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                                ADOQueryfwqkxx->FieldByName("bh")->AsString = "0001";
                        else
                                ADOQueryfwqkxx->FieldByName("bh")->AsString = ADOQueryfwqkxx->FieldByName("bh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
                        ADOQuerytmp->Close();
                        ADOQueryfwqkxx->FieldByName("lx")->AsString = "服务";
                }
                ADOQueryfwqkxx->Post();
                break;
        case 1:
                if(ADOQueryfwqkxx->FieldByName("mc")->AsString.Trim()=="") {
                        Application->MessageBox("请输入名称","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                if( ADOQueryfwqkxx->State == dsInsert ) {
                        ADOQuerytmp->Close();
                        ADOQuerytmp->SQL->Clear();
                        ADOQuerytmp->SQL->Add( "select max(bh) from fwqkxx where lx='回访'");
                        ADOQuerytmp->Open();
                        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                                ADOQueryfwqkxx->FieldByName("bh")->AsString = "0001";
                        else
                                ADOQueryfwqkxx->FieldByName("bh")->AsString = ADOQueryfwqkxx->FieldByName("bh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
                        ADOQuerytmp->Close();
                        ADOQueryfwqkxx->FieldByName("lx")->AsString = "回访";
                }
                ADOQueryfwqkxx->Post();
                break;
        case 2:
                ADOTable3->Post();
                break;
        case 3:
                ADOQuerygzbm->Post();
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::Button5Click(TObject *Sender)
{
        switch(PageControl1->ActivePageIndex ){
        case 0:
                ADOQueryfwqkxx->Cancel();
                break;
        case 1:
                ADOQueryfwqkxx->Cancel();
                break;
        case 2:
                ADOTable3->Cancel();
                break;
        case 3:
                ADOQuerygzbm->Cancel();
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::Button6Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();

        switch(PageControl1->ActivePageIndex ){
        case 0:
                ADOQuerytmp->Close();
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select count(*) from fwjs where zxqkbh='"+ADOQueryfwqkxx->FieldByName("bh")->AsString+"' and ishfjs='否'");
                ADOQuerytmp->Open();
                if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                        ADOQuerytmp->Close();
                        Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                ADOQuerytmp->Close();
                ADOQueryfwqkxx->Delete();
                ADOQueryfwqkxx->Close();
               ADOQueryfwqkxx->Open();
                break;
        case 1:
                ADOQuerytmp->Close();
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select count(*) from fwjs where zxqkbh='"+ADOQueryfwqkxx->FieldByName("bh")->AsString+"' and ishfjs='是'");
                ADOQuerytmp->Open();
                if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                        ADOQuerytmp->Close();
                        Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                ADOQuerytmp->Close();
                ADOQueryfwqkxx->Delete();
                ADOQueryfwqkxx->Close();
                ADOQueryfwqkxx->Open();
                break;
        case 2:
                ADOQuerytmp->Close();
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select count(*) from fwsl where qybh='"+ADOTable3->FieldByName("qybh")->AsString+"'");
                ADOQuerytmp->Open();
                if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                        ADOQuerytmp->Close();
                        Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                ADOQuerytmp->Close();
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select count(*) from khxx where qybh='"+ADOTable3->FieldByName("qybh")->AsString+"'");
                ADOQuerytmp->Open();
                if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                        ADOQuerytmp->Close();
                        Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                ADOQuerytmp->Close();
                ADOTable3->Delete();
                ADOTable3->Close();
                ADOTable3->Open();
                break;
        case 3:
                ADOQuerytmp->Close();
                ADOQuerytmp->SQL->Clear();
                ADOQuerytmp->SQL->Add("select count(*) from fwsl where flbh='"+DBLookupComboBox1->KeyValue+"' and xxbh='"+ADOQuerygzbm->FieldByName("gzbh")->AsString+"'");
                ADOQuerytmp->Open();
                if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                        ADOQuerytmp->Close();
                        Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                ADOQuerytmp->Close();
                ADOQuerygzbm->Delete();
                ADOQuerygzbm->Close();
                ADOQuerygzbm->Open();
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::Button7Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        Button2->Enabled = false;
        Button3->Enabled = false;
        Button4->Enabled = false;
        Button5->Enabled = false;
        Button6->Enabled = false;
        DBGrid1->ReadOnly = true;
        DBGrid2->ReadOnly = true;
        DBGrid3->ReadOnly = true;
        DBGrid4->ReadOnly = true;
        ADOTableflxx->Close();
        ADOQuerygzbm->Close();
        ADOQueryfwqkxx->Close();
        ADOQueryfwqkxx->Parameters->ParamByName("P_lx")->Value = "服务";
        ADOQueryfwqkxx->Open();
        ADOTable3->Close();

}