misearch11.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "MISearch11.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMISearchForm11 *MISearchForm11;
//---------------------------------------------------------------------------
__fastcall TMISearchForm11::TMISearchForm11(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::FormClose(TObject *Sender,
      TCloseAction &Action)
{
     RouteDetail->Close();
     Query2->Close();
     Query1->Close();
     Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
    CanClose=true;
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::DataSource2DataChange(TObject *Sender,
      TField *Field)
{
    //chenge Query3
   {
       RouteDetail->Close();
       RouteDetail->Params->Items[0]->AsString=Query2->FieldByName("PartNo")->AsString;
       RouteDetail->Params->Items[1]->AsString=Query2->FieldByName("RouteNo")->AsString;
       RouteDetail->Open();
   }
   if(Query2->FieldByName("RouteCode")->AsString=="FDRL")
   {
        //修改特殊表头
        RouteDetailItemNo->DisplayLabel="序号";
        RouteDetailItemNo->DisplayWidth=4;
        RouteDetailParameter1->DisplayLabel="符号";
        RouteDetailParameter1->DisplayWidth=4;
        RouteDetailParameter2->DisplayLabel="完成孔径及公差";
        RouteDetailParameter2->DisplayWidth=14;
        RouteDetailParameter3->DisplayLabel="孔数";
        RouteDetailParameter3->DisplayWidth=4;
        RouteDetailParameter4->DisplayLabel="排版数量";
        RouteDetailParameter4->DisplayWidth=8;
        RouteDetailParameter5->DisplayLabel="T数";
        RouteDetailParameter5->DisplayWidth=4;
        RouteDetailParameter6->DisplayLabel="钻咀";
        RouteDetailParameter6->DisplayWidth=4;
        RouteDetailParameter7->DisplayLabel="是否NPTH";
        RouteDetailParameter7->DisplayWidth=4;
        RouteDetailParameter8->DisplayLabel="备注";
        RouteDetailParameter8->DisplayWidth=20;

        RouteDetailPartNo->Visible=false;
        RouteDetailRouteNo->Visible=false;
        RouteDetailItemNo->Visible=true;
        RouteDetailParameter1->Visible=true;
        RouteDetailParameter2->Visible=true;
        RouteDetailParameter3->Visible=true;
        RouteDetailParameter4->Visible=true;
        RouteDetailParameter5->Visible=true;
        RouteDetailParameter6->Visible=true;
        RouteDetailParameter7->Visible=true;
        RouteDetailParameter8->Visible=true;
    }
    else
    {
       if(Query2->FieldByName("RouteCode")->AsString=="SDRL")
       {
        //修改特殊表头
        RouteDetailItemNo->DisplayLabel="序号";
        RouteDetailItemNo->DisplayWidth=4;
        RouteDetailParameter1->DisplayLabel="符号";
        RouteDetailParameter1->DisplayWidth=4;
        RouteDetailParameter2->DisplayLabel="完成孔径及公差";
        RouteDetailParameter2->DisplayWidth=14;
        RouteDetailParameter3->DisplayLabel="孔数";
        RouteDetailParameter3->DisplayWidth=4;
        RouteDetailParameter4->DisplayLabel="排版数量";
        RouteDetailParameter4->DisplayWidth=8;
        RouteDetailParameter5->DisplayLabel="T数";
        RouteDetailParameter5->DisplayWidth=4;
        RouteDetailParameter6->DisplayLabel="钻咀";
        RouteDetailParameter6->DisplayWidth=4;
        RouteDetailParameter7->DisplayLabel="备注";
        RouteDetailParameter7->DisplayWidth=30;
       // RouteDetailParameter8->DisplayLabel="备注";
       // RouteDetailParameter8->DisplayWidth=20;

        RouteDetailPartNo->Visible=false;
        RouteDetailRouteNo->Visible=false;
        RouteDetailItemNo->Visible=true;
        RouteDetailParameter1->Visible=true;
        RouteDetailParameter2->Visible=true;
        RouteDetailParameter3->Visible=true;
        RouteDetailParameter4->Visible=true;
        RouteDetailParameter5->Visible=true;
        RouteDetailParameter6->Visible=true;
        RouteDetailParameter7->Visible=true;
        RouteDetailParameter8->Visible=false;
      }
      else
      {
        //普通表头
        RouteDetailItemNo->DisplayLabel="序号";
        RouteDetailItemNo->DisplayWidth=4;
        RouteDetailParameter1->DisplayLabel="项目名称";
        RouteDetailParameter1->DisplayWidth=30;
        RouteDetailParameter2->DisplayLabel="项目参数";
        RouteDetailParameter2->DisplayWidth=30;
        RouteDetailParameter3->DisplayLabel="项目参数说明";
        RouteDetailParameter3->DisplayWidth=30;
        RouteDetailPartNo->Visible=false;
        RouteDetailRouteNo->Visible=false;
        RouteDetailItemNo->Visible=true;
        RouteDetailParameter1->Visible=true;
        RouteDetailParameter2->Visible=true;
        RouteDetailParameter3->Visible=true;
        RouteDetailParameter4->Visible=false;
        RouteDetailParameter5->Visible=false;
        RouteDetailParameter6->Visible=false;
        RouteDetailParameter7->Visible=false;
        RouteDetailParameter8->Visible=false;
      }
    }

}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::DataSource1DataChange(TObject *Sender,
      TField *Field)
{
    //chenge Query2
    //    if(!Query1->Eof)
    {
        Query2->Close();
        Query2->Params->Items[0]->AsString=Query1->FieldByName("PartNo")->AsString;
        Query2->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::BitBtn1Click(TObject *Sender)
{
    //chenge query1

    AnsiString TempStr1,TempStr2;
    TempStr1="Select PartNo,CustomerNo,CustPartNo,BoardNo FROM MIBase ";
    TempStr2="";
    RouteDetail->Close();
    Query2->Close();
    Query1->Close();
    if(CheckBox1->Checked)  //PartNo
    {
        if(Trim(TempStr2)=="")
        {
            TempStr2=" where PartNo='"+PartNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and PartNo='"+PartNoEdit->Text.Trim()+"'";
        }
     }
    if(CheckBox2->Checked)  //CustPartNo
    {
        if(Trim(TempStr2)=="")
        {
            TempStr2=" where CustPartNo='"+CustPartNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and CustPartNo='"+CustPartNoEdit->Text.Trim()+"'";
        }
     }
    if(CheckBox3->Checked)  //CustPartNo
    {
        if(Trim(TempStr2)=="")
        {
            TempStr2=" where CustomerNo='"+CustNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and CustomerNo='"+CustNoEdit->Text.Trim()+"'";
        }
     }

     if(CheckBox4->Checked)  //BoardType
    {
        if(Trim(TempStr2)=="")
        {
            TempStr2=" where BoardType='"+BoardTypeEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and BoardType='"+BoardTypeEdit->Text.Trim()+"'";
        }
     }
     if(CheckBox5->Checked)  //Date
    {
        if(Trim(TempStr2)=="")
        {
                TempStr2=TempStr2+"where PPEDATE>= '"+DateToStr(DateTimePicker1->Date)+"' and PPEDATE<='"+DateToStr(DateTimePicker2->Date)+"'";
         }
        else
        {
                TempStr2=TempStr2+" and PPEDATE>= '"+DateToStr(DateTimePicker1->Date)+"' and PPEDATE<='"+DateToStr(DateTimePicker2->Date)+"'";
         }
     }

    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add(TempStr1);
    Query1->SQL->Add(TempStr2);
    if(OrderComboBox->Text.Trim()=="产品编号")
    {
        Query1->SQL->Add(" Order by PartNo");
    }
    if(OrderComboBox->Text.Trim()=="客户名称")
    {
        Query1->SQL->Add(" Order by CustomerNo");
    }
    if(OrderComboBox->Text.Trim()=="制作日期")
    {
        Query1->SQL->Add(" Order by PPEDate");
    }
    Query1->Prepare();
    Query1->Open();
    if(!Query1->Eof)
    {
        Query2->Close();
        Query2->Params->Items[0]->AsString=Query1->FieldByName("PartNo")->AsString;
        Query2->Prepare();
        Query2->Open();
    }
    if(!Query2->Eof)
    {
         RouteDetail->Close();
         RouteDetail->Params->Items[0]->AsString=Query2->FieldByName("PartNo")->AsString;
         RouteDetail->Params->Items[1]->AsString=Query2->FieldByName("RouteNo")->AsString;
         RouteDetail->Prepare();
         RouteDetail->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::CheckBox1Click(TObject *Sender)
{
    if(CheckBox1->Checked)
    {
        PartNoEdit->Enabled=true;
        PartNoEdit->Color=clWindow ;
    }
    else
    {
        PartNoEdit->Enabled=false;
        PartNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::CheckBox3Click(TObject *Sender)
{
    if(CheckBox3->Checked)
    {
        CustNoEdit->Enabled=true;
        CustNoEdit->Color=clWindow ;
    }
    else
    {
        CustNoEdit->Enabled=false;
        CustNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::CheckBox2Click(TObject *Sender)
{
    if(CheckBox2->Checked)
    {
        CustPartNoEdit->Enabled=true;
        CustPartNoEdit->Color=clWindow ;
    }
    else
    {
        CustPartNoEdit->Enabled=false;
        CustPartNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::CheckBox4Click(TObject *Sender)
{
    if(CheckBox4->Checked)
    {
        BoardTypeEdit->Enabled=true;
        BoardTypeEdit->Color=clWindow ;
    }
    else
    {
        BoardTypeEdit->Enabled=false;
        BoardTypeEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm11::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;
    }
}
//---------------------------------------------------------------------------