misearch.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "MISearch.h"
#include "MainHead.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMISearchForm *MISearchForm;
//---------------------------------------------------------------------------
__fastcall TMISearchForm::TMISearchForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm::MIRouteDataChange(TObject *Sender,TField *Field)
{
    if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
    {
        PanelCAD->Visible=true;
    }
    else
    {
        PanelCAD->Visible=false;
    }

    DBGrid2->Visible=false;
    DBGridDrill->Visible=false;
    if(MastData->MIRouteRouteCode->Value=="FDRL")
    {
        //一次钻
        DBGridDrill->Visible=true;
        DBGridDrill->Columns->Items[8]->Visible=true;
        MastData->MIDrill->Filtered=true;
        MastData->MIDrill->Filter="DrillType='FDRL'";
    }
    else
    {
       if(MastData->MIRouteRouteCode->Value=="SDRL")
       {
         //二次钻
         DBGridDrill->Visible=true;
         DBGridDrill->Columns->Items[8]->Visible=false;
         MastData->MIDrill->Filtered=true;
         MastData->MIDrill->Filter="DrillType='SDRL'";
       }
    }
    DBGrid2->Visible=!DBGridDrill->Visible;
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::FormShow(TObject *Sender)
{
    MastData->MIRouteSource->OnDataChange=MIRouteDataChange;
    MastData->MIBase->Open();
    MastData->MIBase->Refresh();

}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm::BitBtnSearchClick(TObject *Sender)
{
   if(FindPartNoForm->ShowModal()==mrOk)
   {
        TVarRec q(MastData->PartNoLookupPartNo->Value);
        MastData->MIBase->CachedUpdates=false;
        MastData->MIBase->GotoCurrent(MastData->PartNoLookup);
        MastData->MIBase->CachedUpdates=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm::DBImage1DblClick(TObject *Sender)
{
      ShowCADForm->HorzScrollBar->Range = DBImage1->Picture->Width;
      ShowCADForm->VertScrollBar->Range = DBImage1->Picture->Height;
     // ShowCADForm->Caption = Caption;
      ShowCADForm->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm::DBGrid1CellClick(TColumn *Column)
{
    if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
    {
        PanelCAD->Visible=true;
    }
    else
    {
        PanelCAD->Visible=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::DBGrid1ColEnter(TObject *Sender)
{
    if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
    {
        PanelCAD->Visible=true;
    }
    else
    {
        PanelCAD->Visible=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TMISearchForm::PreviewBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu5->Popup(MISearchForm->Left+Panel4->Left+PreviewBtn->Left+5,MISearchForm->Top+Panel4->Top+PreviewBtn->Top+115);
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::PrintBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu4->Popup(MISearchForm->Left+Panel4->Left+PrintBtn->Left+5,MISearchForm->Top+Panel4->Top+PrintBtn->Top+115);
}
//---------------------------------------------------------------------------








void __fastcall TMISearchForm::QRCompositeReport1AddReports(
      TObject *Sender)
{
   MastData->MIRoute->First();
   QRCompositeReport1->Reports->Clear();
   QRCompositeReport1->Reports->Add(MIQuickRep1Form->QuickRep1);
   MIRepRouteForm->Query1->Close();
   MIRepRouteForm->Query1->Params->Items[0]->AsString=MastData->MIRoutePartNo->Value;
   MIRepRouteForm->Query1->Open();
   QRCompositeReport1->Reports->Add(MIRepRouteForm->QuickRep1);

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


void __fastcall TMISearchForm::QRCompositeReport2AddReports(
      TObject *Sender)
{
   MastData->MIDrill->Filtered=false;
   MastData->MIDrill->Filtered=true;
   MastData->MIDrill->Filter="DrillType='FDRL'";
   MastData->MIDrill->First();
   if(!MastData->MIDrill->Eof)
   {
     QRCompositeReport2->Reports->Add(MIRepRouteFDRLForm->QuickRep1);
   }
   MastData->MIDrill->Filtered=false;
   MastData->MIDrill->Filtered=true;
   MastData->MIDrill->Filter="DrillType='SDRL'";
   MastData->MIDrill->First();
   if(!MastData->MIDrill->Eof)
   {
      QRCompositeReport2->Reports->Add(MIRepRouteSDRLForm->QuickRep1);
   }             
}
//---------------------------------------------------------------------------


void __fastcall TMISearchForm::N3Click(TObject *Sender)
{
    int ReportNo;
    ReportNo=0;  //基本类型
    if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
    {
        ReportNo=1; //BCUT
    }
    if(MastData->MIRouteRouteCode->Value=="FDRL")
    {
        ReportNo=2;
    }
    if(MastData->MIRouteRouteCode->Value=="SDRL")
    {
        ReportNo=3;
    }
    switch(ReportNo)
    {
       case 0: MIRepOtherForm->QuickRep1->Preview();break;
       case 1: MIRepBCutForm->QuickRep1->Preview();break;
       case 2: MIRepFDrlForm->QuickRep1->Preview();break;
       case 3: MIRepSDrlForm->QuickRep1->Preview();break;
       //......
    }         
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::MI2Click(TObject *Sender)
{
     QRCompositeReport1AddReports(Sender);
     QRCompositeReport1->Preview();

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

void __fastcall TMISearchForm::N8Click(TObject *Sender)
{
     QRCompositeReport2AddReports(Sender);
     QRCompositeReport2->Preview();        
        
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::MI1Click(TObject *Sender)
{
    int ReportNo;
    ReportNo=0;  //基本类型
    if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
    {
        ReportNo=1; //BCUT
    }
    if(MastData->MIRouteRouteCode->Value=="FDRL")
    {
        ReportNo=2;
    }
    if(MastData->MIRouteRouteCode->Value=="SDRL")
    {
        ReportNo=3;
    }
    //.....
    switch(ReportNo)
    {
       case 0: MIRepOtherForm->QuickRep1->Print();break;
       case 1: MIRepBCutForm->QuickRep1->Print();break;
       case 2: MIRepFDrlForm->QuickRep1->Print();break;
       case 3: MIRepSDrlForm->QuickRep1->Print();break;

       //......
    }        
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::N1Click(TObject *Sender)
{
     QRCompositeReport1AddReports(Sender);
     QRCompositeReport1->Print();
        
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::N9Click(TObject *Sender)
{
    int ReportNo;
    ReportNo=0;  //基本类型
   /* if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
    {
        ReportNo=1; //BCUT
    }
   */
    if(MastData->MIRouteRouteCode->Value=="FDRL")
    {
        ReportNo=2;
    }
    if(MastData->MIRouteRouteCode->Value=="SDRL")
    {
        ReportNo=3;
    }
    //.....
    switch(ReportNo)
    {
      /* case 0: MIRepOtherForm->QuickRep1->Print();break;
       case 1: MIRepBCutForm->QuickRep1->Print();break;
      */
       case 2: MIRepFDrlForm->QuickRep1->Print();break;
       case 3: MIRepSDrlForm->QuickRep1->Print();break;
       //......
    }
}
//---------------------------------------------------------------------------

void __fastcall TMISearchForm::FormActivate(TObject *Sender)
{
    MastData->MIRouteSource->OnDataChange=MIRouteDataChange;
        
}
//---------------------------------------------------------------------------