khgl.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "khgl.h"
#include "khfwxx.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ColorButton"
#pragma link "PictureButton"
#pragma resource "*.dfm"
TKhGlForm *KhGlForm;
//---------------------------------------------------------------------------
__fastcall TKhGlForm::TKhGlForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TKhGlForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        RadioGroup1->ItemIndex = 1;
        ADOTable1->Open();
        GroupBox1->Enabled = true;
        GroupBox2->Enabled = false;
        Button1->Enabled = false;
        Button3->Enabled = false;
        Button4->Enabled = false;
        Button2->Enabled = false;
        Button5->Enabled = false;
        Button8->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TKhGlForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TKhGlForm::Button1Click(TObject *Sender)
{
        ADOQuerykhxx->Insert();
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::Button2Click(TObject *Sender)
{
        ADOQuerykhxx->Edit();
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::Button3Click(TObject *Sender)
{
        ADOQuerykhxx->Post();        
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::Button4Click(TObject *Sender)
{
        ADOQuerykhxx->Cancel();        
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::Button5Click(TObject *Sender)
{
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from fwsl where khbh='"+ADOQuerykhxx->FieldByName("khbh")->AsString+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();
        ADOQuerykhxx->Delete();
        ADOQuerykhxx->Close();
        ADOQuerykhxx->Open();
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::ADOQuerykhxxAfterInsert(TDataSet *DataSet)
{
        ADOQuerykhxx->FieldByName("isgr")->AsString = "是";
        ADOQuerykhxx->FieldByName("iszdkh")->AsString = "否";
        ADOQuerykhxx->FieldByName("djrq")->Value = Date();
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::ADOQuerykhxxBeforePost(TDataSet *DataSet)
{
        char tmp[100];
        if(ADOQuerykhxx->FieldByName("name")->AsString.Trim()=="") {
                Application->MessageBox("请输入客户名称","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        MainForm->AllTrim(ADOQuerykhxx->FieldByName("name")->AsString,tmp);
        ADOQuerykhxx->FieldByName("name")->AsString = String(tmp);
        if(DBLookupComboBox1->Text.Trim()=="") {
                Application->MessageBox("请选择地址区域","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQuerykhxx->State == dsInsert ) {
                ADOTablesys->Close();
                ADOTablesys->Open();
                ADOQuerykhxx->FieldByName("khbh")->AsString = ADOQuerykhxx->FieldByName("khbh")->AsString.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();
        }
        ADOQuerykhxx->FieldByName("qymc")->AsString = DBLookupComboBox1->Text;
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::DataSourcekhxxStateChange(TObject *Sender)
{
        switch(ADOQuerykhxx->State) {
        case dsBrowse:
                GroupBox1->Enabled = true;
                GroupBox2->Enabled = false;
                Button1->Enabled = true;
                Button3->Enabled = false;
                Button4->Enabled = false;
                if(ADOQuerykhxx->RecordCount> 0) {
                        Button2->Enabled = true;
                        Button5->Enabled = true;
                        Button8->Enabled = true;
                } else {
                        Button2->Enabled = false;
                        Button5->Enabled = false;
                        Button8->Enabled = false;
                }
                break;
        case dsInsert:
        case dsEdit:
                GroupBox1->Enabled = false;
                GroupBox2->Enabled = true;
                Button1->Enabled = false;
                Button3->Enabled = true;
                Button4->Enabled = true;
                Button2->Enabled = false;
                Button5->Enabled = false;
                break;
        default:
                GroupBox1->Enabled = true;
                GroupBox2->Enabled = false;
                Button1->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = false;
                Button2->Enabled = false;
                Button5->Enabled = false;
                Button8->Enabled = false;
                break;
       }
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::RadioGroup1Click(TObject *Sender)
{
        if( RadioGroup1->ItemIndex == 2)
                Edit1->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::Button6Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TKhGlForm::Button7Click(TObject *Sender)
{
        AnsiString sql;
        if(Edit1->Text.Trim()=="" && RadioGroup1->ItemIndex != 2 ) {
                Application->MessageBox("请输入查询条件","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerykhxx->Close();
        ADOQuerykhxx->SQL->Clear();
        sql = "select * from khxx ";
        if( RadioGroup1->ItemIndex == 0)
                sql += "where name='"+ Edit1->Text +"'";
        if( RadioGroup1->ItemIndex == 1)
                sql += "where lxdh='"+ Edit1->Text +"' or yddh='"+ Edit1->Text +"'";;
        ADOQuerykhxx->SQL->Add( sql );
        ADOQuerykhxx->Open();        
}
//---------------------------------------------------------------------------


void __fastcall TKhGlForm::Button8Click(TObject *Sender)
{
        AnsiString sql;
        sql = " select * from fwsl,fwjs where fwsl.jsflag='是' and fwjs.jslx<>'回访' and fwsl.khbh='"+ADOQuerykhxx->FieldByName("khbh")->AsString+"' and fwsl.dabh = fwjs.dabh  and delflag='否' 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);
        }         
}
//---------------------------------------------------------------------------