pjclmx.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "PjclMx.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPjclMxForm *PjclMxForm;
//---------------------------------------------------------------------------
__fastcall TPjclMxForm::TPjclMxForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPjclMxForm::FormCreate(TObject *Sender)
{
        DateTimePicker1->DateTime = Date();
        DateTimePicker2->DateTime = Date();
        ADOQuerypjkc->Close();
        ADOQuerypjpzxx->Close();
        ADOTableflxx->Close();
        ComboBox1->ItemIndex = 0;
        ADOTableflxx->Open();
        if(ADOTableflxx->RecordCount > 0 )
                DBLookupComboBox1->KeyValue = ADOTableflxx->FieldByName("flbh")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::Button1Click(TObject *Sender)
{
        AnsiString sql;
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        if(ComboBox1->Text.Trim()=="") {
               Application->MessageBox("请选择使用类型","错误",MB_OK+MB_ICONERROR);
               Abort();
        }
        if(ComboBox1->Text=="全部")
                sql = "select * from wxpjxx where clrq>=:P_srq and clrq<=:P_erq";
        else
               sql ="select * from wxpjxx where cllx='"+ComboBox1->Text+"' and clrq>=:P_srq and clrq<=:P_erq";
        if(RadioButton1->Checked == true) {
                if(DBLookupComboBox1->Text.Trim()=="") {
                        Application->MessageBox("请选择配件分类","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                sql += " and  gsfl='"+DBLookupComboBox1->KeyValue+"' order by clrq desc";
        }
        if(RadioButton2->Checked == true) {
                if(DBLookupComboBox1->Text.Trim()=="") {
                        Application->MessageBox("请选择配件分类","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                if(DBLookupComboBox2->Text.Trim()=="") {
                        Application->MessageBox("请选择配件种类","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                sql += " and  gsfl='"+DBLookupComboBox1->KeyValue+"' and gspz='"+DBLookupComboBox2->KeyValue+"' order by clrq desc";
        }
        if(RadioButton3->Checked == true){
                if(DBLookupComboBox1->Text.Trim()=="") {
                        Application->MessageBox("请选择配件分类","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                if(DBLookupComboBox2->Text.Trim()=="") {
                        Application->MessageBox("请选择配件种类","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                if(DBLookupComboBox3->Text.Trim()=="") {
                        Application->MessageBox("请选择配件型号","错误",MB_OK+MB_ICONERROR);
                        Abort();
                }
                sql += " and  gsfl='"+DBLookupComboBox1->KeyValue+"' and gspz='"+DBLookupComboBox2->KeyValue+"' and pjbh='"+DBLookupComboBox3->KeyValue+"' order by clrq desc";
        }
        ADOQuery1->SQL->Add(sql);
        ADOQuery1->Parameters->ParamByName("P_srq")->Value = DateTimePicker1->DateTime;
        ADOQuery1->Parameters->ParamByName("P_erq")->Value = DateTimePicker2->DateTime;
        ADOQuery1->Open();
}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::Button2Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ADOQuery1->Close();        
}
//---------------------------------------------------------------------------


void __fastcall TPjclMxForm::DBLookupComboBox1Click(TObject *Sender)
{
        ADOQuerypjpzxx->Close();
        ADOQuerypjkc->Close();
        if(  DBLookupComboBox1->Text.Trim()=="")
                Abort();
        if( RadioButton1->Checked == true)
                return;
        ADOQuerypjpzxx->Open();
        if(ADOQuerypjpzxx->RecordCount > 0 ) {
                DBLookupComboBox2->KeyValue = ADOQuerypjpzxx->FieldByName("pzbh")->AsString;
                if( RadioButton3->Checked == true) {
                        ADOQuerypjkc->Open();
                        if(ADOQuerypjkc->RecordCount > 0 )
                                DBLookupComboBox3->KeyValue = ADOQuerypjkc->FieldByName("pjbh")->AsString;
                }
        }
}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::DBLookupComboBox2Click(TObject *Sender)
{
        ADOQuerypjkc->Close();
        if(  DBLookupComboBox1->Text.Trim()=="")
                Abort();
        if(  DBLookupComboBox2->Text.Trim()=="")
                Abort();
        if( RadioButton1->Checked == true)
                return;
        if( RadioButton2->Checked == true)
                return;
        ADOQuerypjkc->Open();
        if(ADOQuerypjkc->RecordCount > 0 )
                DBLookupComboBox3->KeyValue = ADOQuerypjkc->FieldByName("pjbh")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::RadioButton1Click(TObject *Sender)
{
        if( RadioButton1->Checked == false)
                return;
        ADOQuerypjkc->Close();
        ADOQuerypjpzxx->Close();
        if(ADOTableflxx->RecordCount > 0 )
                DBLookupComboBox1->KeyValue = ADOTableflxx->FieldByName("flbh")->AsString;

}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::RadioButton2Click(TObject *Sender)
{
        if( RadioButton2->Checked == false)
                return;
        ADOQuerypjkc->Close();
        ADOQuerypjpzxx->Close();
        if(  DBLookupComboBox1->Text.Trim()=="")
                Abort();
        ADOQuerypjpzxx->Open();
        if(ADOQuerypjpzxx->RecordCount > 0 )
                DBLookupComboBox2->KeyValue = ADOQuerypjpzxx->FieldByName("pzbh")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TPjclMxForm::RadioButton3Click(TObject *Sender)
{
        if( RadioButton3->Checked == false)
                return;
        ADOQuerypjkc->Close();
        if(  DBLookupComboBox1->Text.Trim()=="")
                Abort();
        if(  DBLookupComboBox2->Text.Trim()=="")
                Abort();
        ADOQuerypjkc->Open();
        if(ADOQuerypjkc->RecordCount > 0 )
                DBLookupComboBox3->KeyValue = ADOQuerypjkc->FieldByName("pjbh")->AsString;

}
//---------------------------------------------------------------------------