pjset.cpp

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

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

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

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPjSetForm *PjSetForm;
//---------------------------------------------------------------------------
__fastcall TPjSetForm::TPjSetForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button7Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        DBGrid5->ReadOnly = true;
        DBLookupComboBox7->Enabled = true;
        Button2->Enabled = false;
        Button3->Enabled = false;
        Button4->Enabled = false;
        Button5->Enabled = false;
        Button6->Enabled = false;
        ADOQuerypjflxx->Close();
        ADOTableflxx->Open();
        if(ADOTableflxx->RecordCount > 0) {
                DBLookupComboBox7->KeyValue = ADOTableflxx->FieldByName("flbh")->AsString;
                ADOQuerypjflxx->Open();
        }
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button2Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        ADOQuerypjflxx->Insert();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button3Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        ADOQuerypjflxx->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button4Click(TObject *Sender)
{
        ADOQuerypjflxx->Post();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button5Click(TObject *Sender)
{
        ADOQuerypjflxx->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button6Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from pjkc where flbh='"+DBLookupComboBox7->KeyValue+"' and pzbh='"+ADOQuerypjflxx->FieldByName("pzbh")->AsString+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现PJKC相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();

        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from wxpjxx where gsfl='"+DBLookupComboBox7->KeyValue+"' and gspz='"+ADOQuerypjflxx->FieldByName("pzbh")->AsString+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现WXPJXX相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();
        ADOQuerypjflxx->Delete();
        ADOQuerypjflxx->Close();
        ADOQuerypjflxx->Open();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::ADOQuerypjflxxAfterInsert(TDataSet *DataSet)
{
        AnsiString sql;
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        sql = "select max(pzbh) from pjpzxx where flbh= '"+ DBLookupComboBox7->KeyValue+"'";
        ADOQuerytmp->SQL->Add( sql );
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                ADOQuerypjflxx->FieldByName("pzbh")->AsString = "0001";
        else
                ADOQuerypjflxx->FieldByName("pzbh")->AsString = ADOQuerypjflxx->FieldByName("pzbh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
        ADOQuerytmp->Close();
        ADOQuerypjflxx->FieldByName("flbh")->AsString = DBLookupComboBox7->KeyValue;
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::ADOQuerypjflxxBeforePost(TDataSet *DataSet)
{
        if(ADOQuerypjflxx->FieldByName("mc")->AsString.Trim()=="") {
                Application->MessageBox("请输入名称","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::DataSource2StateChange(TObject *Sender)
{
        switch(ADOQuerypjflxx->State) {
        case dsBrowse:
                DBGrid5->ReadOnly = true;
                DBLookupComboBox7->Enabled = true;
                Button2->Enabled = true;
                if( ADOQuerypjflxx->RecordCount>0)
                        Button3->Enabled = true;
                else
                        Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                if( ADOQuerypjflxx->RecordCount>0)
                        Button6->Enabled = true;
                else
                        Button6->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                DBGrid5->ReadOnly = false;
                DBLookupComboBox7->Enabled = false;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = true;
                Button5->Enabled = true;
                Button6->Enabled = false;
                break;
        default:
                DBGrid5->ReadOnly = true;
                DBLookupComboBox7->Enabled = true;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::DBLookupComboBox7Click(TObject *Sender)
{
        if(DBLookupComboBox7->Text.Trim()=="")
                Abort();
        ADOQuerypjflxx->Close();
        ADOQuerypjflxx->Open();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::DBLookupComboBox1Click(TObject *Sender)
{
        if( DBLookupComboBox1->Text.Trim()=="")
                Abort();
        ADOQuerypjflxx->Close();
        ADOQuerypjkc->Close();
        ADOQuerypjflxx->Open();
        if( ADOQuerypjflxx->RecordCount > 0)
                ADOQuerypjkc->Open();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::DBLookupComboBox2Click(TObject *Sender)
{
        if( DBLookupComboBox1->Text.Trim()=="")
                Abort();
        if( DBLookupComboBox2->Text.Trim()=="")
                Abort();
        ADOQuerypjkc->Close();
        ADOQuerypjkc->Open();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::PageControl1Change(TObject *Sender)
{
        if( PageControl1->ActivePageIndex == 0) {
                ADOQuerypjkc->Close();
                ADOTableflxx->Close();
                ADOTableflxx->Open();
                if(ADOTableflxx->RecordCount > 0) {
                        DBLookupComboBox7->KeyValue = ADOTableflxx->FieldByName("flbh")->AsString;
                        ADOQuerypjflxx->Open();
                }
        } else {
                ADOTableflxx->Close();
                ADOTableflxx->Open();
                ADOQuerypjkc->Close();
                ADOQuerypjflxx->Close();
                if(ADOTableflxx->RecordCount > 0) {
                        DBLookupComboBox1->KeyValue = ADOTableflxx->FieldByName("flbh")->AsString;
                        ADOQuerypjflxx->Open();
                        if(ADOQuerypjflxx->RecordCount > 0) {
                                DBLookupComboBox2->KeyValue = ADOQuerypjflxx->FieldByName("pzbh")->AsString;
                                ADOQuerypjkc->Open();
                        }
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button9Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        ADOQuerypjkc->Insert();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button10Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        ADOQuerypjkc->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button11Click(TObject *Sender)
{
        ADOQuerypjkc->Post();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button12Click(TObject *Sender)
{
        ADOQuerypjkc->Cancel();        
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::Button13Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from wxpjxx where gsfl='"+DBLookupComboBox1->KeyValue+"' and gspz='"+DBLookupComboBox2->KeyValue+"' and pjbh='"+ADOQuerypjkc->FieldByName("pjbh")->AsString+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现WXPJXX相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();
        ADOQuerypjkc->Delete();
        ADOQuerypjkc->Close();
        ADOQuerypjkc->Open();
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::ADOQuerypjkcAfterInsert(TDataSet *DataSet)
{
        AnsiString sql;
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        sql = "select max(pjbh) from pjkc where flbh= '"+ DBLookupComboBox1->KeyValue+"' and pzbh='"+ DBLookupComboBox2->KeyValue+"'";
        ADOQuerytmp->SQL->Add( sql );
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                ADOQuerypjkc->FieldByName("pjbh")->AsString = "0001";
        else
                ADOQuerypjkc->FieldByName("pjbh")->AsString = ADOQuerypjkc->FieldByName("pjbh")->AsString.sprintf( "%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
        ADOQuerytmp->Close();
        ADOQuerypjkc->FieldByName("flbh")->AsString = DBLookupComboBox1->KeyValue;
        ADOQuerypjkc->FieldByName("pzbh")->AsString = DBLookupComboBox2->KeyValue;
        ADOQuerypjkc->FieldByName("kcsl")->Value = 0;
        ADOQuerypjkc->FieldByName("wjsl")->Value = 0;
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::ADOQuerypjkcBeforePost(TDataSet *DataSet)
{
        if(ADOQuerypjkc->FieldByName("mc")->AsString.Trim()=="") {
                Application->MessageBox("请输入名称","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQuerypjkc->FieldByName("bxdj")->AsString.Trim()=="")
                ADOQuerypjkc->FieldByName("bxdj")->Value = 0;
        if(ADOQuerypjkc->FieldByName("lsdj")->AsString.Trim()=="")
                ADOQuerypjkc->FieldByName("lsdj")->Value = 0;
}
//---------------------------------------------------------------------------
void __fastcall TPjSetForm::DataSource3StateChange(TObject *Sender)
{
        switch(ADOQuerypjkc->State) {
        case dsBrowse:
                DBGrid4->ReadOnly = true;
                DBLookupComboBox1->Enabled = true;
                DBLookupComboBox2->Enabled = true;
                Button9->Enabled = true;
                if( ADOQuerypjkc->RecordCount>0)
                        Button10->Enabled = true;
                else
                        Button10->Enabled = false;
                Button11->Enabled = false;
                Button12->Enabled = false;
                if( ADOQuerypjkc->RecordCount>0)
                        Button13->Enabled = true;
                else
                        Button13->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                DBGrid4->ReadOnly = false;
                DBLookupComboBox1->Enabled = false;
                DBLookupComboBox2->Enabled = false;
                Button9->Enabled = false;
                Button10->Enabled = false;
                Button11->Enabled = true;
                Button12->Enabled = true;
                Button13->Enabled = false;
                break;
        default:
                DBGrid4->ReadOnly = true;
                DBLookupComboBox1->Enabled = true;
                DBLookupComboBox2->Enabled = true;
                Button9->Enabled = false;
                Button10->Enabled = false;
                Button11->Enabled = false;
                Button12->Enabled = false;
                Button13->Enabled = false;
        }
}
//---------------------------------------------------------------------------