samplesearch.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "SampleSearch.h"
#include "DataModule.h"
#include "SampleSearchRep.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSampleSearchForm *SampleSearchForm;
//---------------------------------------------------------------------------
__fastcall TSampleSearchForm::TSampleSearchForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::BitBtn1Click(TObject *Sender)
{
    //chenge query1
    Query3->Close();
    Query2->Close();
    Query1->Close();
    AnsiString TempStr1,TempStr2,TempStr3;
    TempStr1="Select A.SampleNo,A.PartNo,B.CustomerNo,A.IsFinish,A.ProductQty,A.ProductDate,A.FinishQty,A.FinishDate,A.Operator FROM ProductSample A,MIBase B where A.PartNo=B.PartNo";
    TempStr2="";
    TempStr3="Select ProductArea=sum(A.ProductQty*B.AreaPerUnit),FinishArea=sum(A.FinishQty*B.AreaPerUnit) FROM ProductSample A,MIBase B where A.PartNo=B.PartNo ";
    TempStr4="";
    if(CheckBox1->Checked)  //SampleNo
    {
        if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and A.SampleNo='"+SampleNoEdit->Text.Trim()+"'";
            TempStr4=TempStr4+" and 样板单号='"+SampleNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and A.SampleNo='"+SampleNoEdit->Text.Trim()+"'";
            TempStr4=TempStr4+"样板单号='"+SampleNoEdit->Text.Trim()+"'";

        }
     }
     if(CheckBox2->Checked)  //PartNo
     {
        if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and A.PartNo='"+PartNoEdit->Text.Trim()+"'";
            TempStr4=TempStr4+" and 产品编号='"+PartNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and A.PartNo='"+PartNoEdit->Text.Trim()+"'";
            TempStr4=TempStr4+"产品编号='"+PartNoEdit->Text.Trim()+"'";
        }

     }
    if(CheckBox3->Checked)  //CustNo
    {
        if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and B.CustomerNo='"+CustNoEdit->Text.Trim()+"'";
            TempStr4=TempStr4+" and 客户编号='"+CustNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and B.CustomerNo='"+CustNoEdit->Text.Trim()+"'";
            TempStr4=TempStr4+"客户编号='"+CustNoEdit->Text.Trim()+"'";
        }
     }

     if(CheckBox4->Checked)  //BoardType
    {
        if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and B.BoardType='"+BoardTypeEdit->Text.Trim()+"'";
            TempStr4=TempStr4+" and 加工类型='"+BoardTypeEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and B.BoardType='"+BoardTypeEdit->Text.Trim()+"'";
            TempStr4=TempStr4+"加工类型='"+BoardTypeEdit->Text.Trim()+"'";
        }
     }
     if(CheckBox5->Checked)  //Date
    {
        if(Trim(TempStr2)!="")
        {
                TempStr2=TempStr2+" and A.FinishDate>= '"+DateToStr(DateTimePicker1->Date)+"' and A.FinishDate<='"+DateToStr(DateTimePicker2->Date)+"'";
                TempStr4=TempStr4+" and 完工日期>='"+DateToStr(DateTimePicker1->Date)+"' and 完工日期<='"+DateToStr(DateTimePicker2->Date)+"'";
         }
        else
        {
                TempStr2=" and A.FinishDate>= '"+DateToStr(DateTimePicker1->Date)+"' and A.FinishDate<='"+DateToStr(DateTimePicker2->Date)+"'";
                TempStr4=TempStr4+"完工日期>='"+DateToStr(DateTimePicker1->Date)+"' and 完工日期<='"+DateToStr(DateTimePicker2->Date)+"'";
         }
     }

    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add(TempStr1);
    if(TempStr2!="")
    {
        Query1->SQL->Add(TempStr2);
    }
    if(OrderComboBox->Text.Trim()=="样板序号")
    {
        Query1->SQL->Add(" Order by A.SampleNo");
    }
    if(OrderComboBox->Text.Trim()=="产品编号")
    {
        Query1->SQL->Add(" Order by A.PartNo");
    }
    if(OrderComboBox->Text.Trim()=="客户编号")
    {
        Query1->SQL->Add(" Order by B.CustomerNo");
    }
    if(OrderComboBox->Text.Trim()=="交货日期")
    {
        Query1->SQL->Add(" Order by A.FinishDate");
    }
    Query1->Prepare();
    Query1->Open();

    Query3->Close();
    Query3->SQL->Clear();
    Query3->SQL->Add(TempStr3);
    if(TempStr2!="")
    {
        Query3->SQL->Add(TempStr2);
    }
    Query3->Prepare();
    Query3->Open();

    if(!Query1->Eof)
    {
        Query2->Close();
       // Query2->SQL->Add("select C.SampleNo,C.ItemNo,C.RouteCode,C.FinishQty,C.IsFinish,C.Memo  from ProductSampleDetail C where C.SampleNo=:SampleNo");
        Query2->Params->Items[0]->AsString=Query1->FieldByName("SampleNo")->AsString;
        Query2->Prepare();
        Query2->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::CheckBox1Click(TObject *Sender)
{
    if(CheckBox1->Checked)
    {
        SampleNoEdit->Enabled=true;
        SampleNoEdit->Color=clWindow ;
    }
    else
    {
        SampleNoEdit->Enabled=false;
        SampleNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::CheckBox2Click(TObject *Sender)
{
    if(CheckBox2->Checked)
    {
        PartNoEdit->Enabled=true;
        PartNoEdit->Color=clWindow ;
    }
    else
    {
        PartNoEdit->Enabled=false;
        PartNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::CheckBox3Click(TObject *Sender)
{
    if(CheckBox3->Checked)
    {
        CustNoEdit->Enabled=true;
        CustNoEdit->Color=clWindow ;
    }
    else
    {
        CustNoEdit->Enabled=false;
        CustNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::CheckBox4Click(TObject *Sender)
{
    if(CheckBox4->Checked)
    {
        BoardTypeEdit->Enabled=true;
        BoardTypeEdit->Color=clWindow ;
    }
    else
    {
        BoardTypeEdit->Enabled=false;
        BoardTypeEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::CheckBox5Click(TObject *Sender)
{
    if(CheckBox5->Checked)
    {
        DateTimePicker1->Enabled=true;
        DateTimePicker2->Enabled=true;
        DateTimePicker1->Color=clWindow;
        DateTimePicker2->Color=clWindow;
    }
    else
    {
        DateTimePicker1->Enabled=false;
        DateTimePicker2->Enabled=false;
        DateTimePicker1->Color=clInfoBk;
        DateTimePicker2->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::DataSource1DataChange(TObject *Sender,
      TField *Field)
{
    if(!Query1->Eof)
    {
        Query2->Close();
        Query2->Params->Items[0]->AsString=Query1->FieldByName("SampleNo")->AsString;
        Query2->Prepare();
        Query2->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
      Query3->Close();
      Query2->Close();
      Query1->Close();
      Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::BitBtn3Click(TObject *Sender)
{
    Screen->Cursor = crHourGlass;
    SampleSearchRepForm=new TSampleSearchRepForm(Application);
    Screen->Cursor = crDefault;
    SampleSearchRepForm->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TSampleSearchForm::BitBtn2Click(TObject *Sender)
{
    Screen->Cursor = crHourGlass;
    SampleSearchRepForm=new TSampleSearchRepForm(Application);
    Screen->Cursor = crDefault;

    SampleSearchRepForm->QuickRep1->Print();        
}
//---------------------------------------------------------------------------