setfwqkxx.cpp

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

//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        MainForm->ADOConnection1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::DataSource1StateChange(TObject *Sender)
{
        switch(ADOQueryfwqkxx->State) {
        case dsBrowse:
                DBGrid1->ReadOnly = true;
                DBGrid2->ReadOnly = true;
                Button2->Enabled = true;
                if(ADOQueryfwqkxx->RecordCount > 0)
                        Button3->Enabled = true;
                else
                        Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                if(ADOQueryfwqkxx->RecordCount > 0)
                        Button6->Enabled = true;
                else
                        Button6->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                DBGrid1->ReadOnly = false;
                DBGrid2->ReadOnly = false;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = true;
                Button5->Enabled = true;
                Button6->Enabled = false;
                break;
        default:
                DBGrid1->ReadOnly = true;
                DBGrid2->ReadOnly = true;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TSetFwQkxxForm::ADOTable3AfterInsert(TDataSet *DataSet)
{
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add( "select max(qybh) from dzqy ");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                ADOTable3->FieldByName("qybh")->AsString = "0001";
        else
                ADOTable3->FieldByName("qybh")->AsString = ADOTable3->FieldByName("qybh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
        ADOQuerytmp->Close();
        ADOTable3->FieldByName("lc")->AsInteger = 0;
        ADOTable3->FieldByName("wgfy")->AsFloat = 0;
        ADOTable3->FieldByName("jtf")->AsFloat = 0;
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::ADOTable3BeforePost(TDataSet *DataSet)
{
        if(ADOTable3->FieldByName("mc")->AsString.Trim()=="") {
                Application->MessageBox("请输入地址","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOTable3->FieldByName("lc")->AsString.Trim()=="") {
                Application->MessageBox("请输入里程","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOTable3->FieldByName("wgfy")->AsString.Trim()=="") {
                Application->MessageBox("请输入误工费用","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOTable3->FieldByName("jtf")->AsString.Trim()=="") {
                Application->MessageBox("请输入交通费用","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::DataSource3StateChange(TObject *Sender)
{
        switch(ADOTable3->State) {
        case dsBrowse:
                DBGrid3->ReadOnly = true;
                Button2->Enabled = true;
                if(ADOTable3->RecordCount > 0)
                        Button3->Enabled = true;
                else
                        Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                if(ADOTable3->RecordCount > 0)
                        Button6->Enabled = true;
                else
                        Button6->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                DBGrid3->ReadOnly = false;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = true;
                Button5->Enabled = true;
                Button6->Enabled = false;
                break;
        default:
                DBGrid3->ReadOnly = true;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
        }
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::PageControl1Change(TObject *Sender)
{
        switch(PageControl1->ActivePageIndex ){
        case 0:
                ADOQueryfwqkxx->Close();
                ADOQueryfwqkxx->Parameters->ParamByName("P_lx")->Value = "服务";
                ADOQueryfwqkxx->Open();
                ADOTable3->Close();
                ADOQuerygzbm->Close();
                ADOTableflxx->Close();
                break;
        case 1:
                ADOQueryfwqkxx->Close();
                ADOQueryfwqkxx->Parameters->ParamByName("P_lx")->Value = "回访";
                ADOQueryfwqkxx->Open();
                ADOTable3->Close();
                ADOQuerygzbm->Close();
                ADOTableflxx->Close();
                break;
        case 2:
                ADOQueryfwqkxx->Close();
                ADOTable3->Close();
                ADOQuerygzbm->Close();
                ADOTableflxx->Close();
                ADOTable3->Open();
                break;
        case 3:
                ADOQueryfwqkxx->Close();
                ADOTable3->Close();
                ADOQuerygzbm->Close();
                ADOTableflxx->Close();
                ADOTableflxx->Open();
                if(ADOTableflxx->RecordCount > 0) {
                        DBLookupComboBox1->KeyValue = ADOTableflxx->FieldByName("flbh")->AsString;
                        ADOQuerygzbm->Open();
                }
                break;
        }
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::DBLookupComboBox1Click(TObject *Sender)
{
        ADOQuerygzbm->Close();
        if( DBLookupComboBox1->Text.Trim()=="")
                Abort();
        ADOQuerygzbm->Open();
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::ADOQuerygzbmAfterInsert(TDataSet *DataSet)
{
        ADOQuerygzbm->FieldByName("flbh")->AsString = DBLookupComboBox1->KeyValue;
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add( "select max(gzbh) from gzbm ");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                ADOQuerygzbm->FieldByName("gzbh")->AsString = "0001";
        else
                ADOQuerygzbm->FieldByName("gzbh")->AsString = ADOQuerygzbm->FieldByName("gzbh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
        ADOQuerytmp->Close();
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::ADOQuerygzbmBeforePost(TDataSet *DataSet)
{
        if(ADOQuerygzbm->FieldByName("mc")->AsString.Trim()=="") {
                Application->MessageBox("请输入故障代码名称！","警告",MB_OK+MB_ICONWARNING);
                Abort();
        }
}
//---------------------------------------------------------------------------

void __fastcall TSetFwQkxxForm::DataSourcegzbmStateChange(TObject *Sender)
{
        switch(ADOQuerygzbm->State) {
        case dsBrowse:
                DBGrid4->ReadOnly = true;
                Button2->Enabled = true;
                GroupBox1->Enabled = true;
                if(ADOQuerygzbm->RecordCount > 0)
                        Button3->Enabled = true;
                else
                        Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                if(ADOQuerygzbm->RecordCount > 0)
                        Button6->Enabled = true;
                else
                        Button6->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                DBGrid4->ReadOnly = false;
                GroupBox1->Enabled = false;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = true;
                Button5->Enabled = true;
                Button6->Enabled = false;
                break;
        default:
                GroupBox1->Enabled = true;
                DBGrid4->ReadOnly = false;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
        }
}
//---------------------------------------------------------------------------