miqacheck.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "MIQACheck.h"
#include "MainHead.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMIQACheckForm *MIQACheckForm;
//---------------------------------------------------------------------------
__fastcall TMIQACheckForm::TMIQACheckForm(TComponent* Owner)
        : TForm(Owner)
{
}
//----------------------------------------------------------------------

void TMIQACheckForm::UpdateBitBtnState(TObject *Sender)
{
  //    BitBtnInsert->Enabled =MastData->MIBaseSource->State == dsBrowse;
  //    BitBtnDelete->Enabled = MastData->MIBaseSource->State == dsBrowse;
      BitBtnPost->Enabled = MastData->MIBaseSource->State == dsEdit ||
                            MastData->MIBaseSource->State == dsInsert;
      BitBtnCancel->Enabled = BitBtnPost->Enabled;
     // BitBtnNext->Enabled=!BitBtnPost->Enabled;
     // BitBtnPrior->Enabled=!BitBtnPost->Enabled;
      BitBtnClose->Enabled=!BitBtnPost->Enabled;
      BitBtnSearch->Enabled=!BitBtnPost->Enabled;
     // MainMenuForm->UpdateMenu();
}

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TMIQACheckForm::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 TMIQACheckForm::FormShow(TObject *Sender)
{
     MastData->MIRouteSource->OnDataChange=MIRouteDataChange;

     PageControl1->ActivePage=TabSheet1;
    MastData->StandardRoute->Open();
    MastData->MIBase->Open();
    MastData->MIBase->Refresh();
    UpdateBitBtnState(Sender);

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

void __fastcall TMIQACheckForm::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 TMIQACheckForm::BitBtnPostClick(TObject *Sender)
{
     MastData->MIBase->Post();

     UpdateBitBtnState(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::BitBtnCancelClick(TObject *Sender)
{
      MastData->MIBase->Cancel();

     UpdateBitBtnState(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::PPEPBtnClick(TObject *Sender)
{
   if(MastData->MIBaseSource->State!= dsEdit ||MastData->MIBaseSource->State != dsInsert)
   {
       MastData->MIBase->Edit();

       UpdateBitBtnState(Sender);
    }
    MastData->MIBaseQACheck->Value=MastData->UserName;
    MastData->MIBaseQACheckDate->Value =Date();
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
  if(BitBtnPost->Enabled)
  {
     if(MessageBox(NULL,"基本资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
        MastData->MIBaseAfterPost(MastData->MIBase);
     else
        MastData->MIBaseAfterCancel(MastData->MIBase);
  }
  CanClose=true;        
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;        
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::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 TMIQACheckForm::BitBtn1Click(TObject *Sender)
{
   if(MastData->MIBaseSource->State!= dsEdit ||MastData->MIBaseSource->State != dsInsert)
   {
       MastData->MIBase->Edit();
        
       UpdateBitBtnState(Sender);
    }
    MastData->MIBaseQACheck->Value="";
    //MastData->MIBaseQACheckDate->Value =Date();
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::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 TMIQACheckForm::DBImage1DblClick(TObject *Sender)
{
      ShowCADForm->HorzScrollBar->Range = DBImage1->Picture->Width;
      ShowCADForm->VertScrollBar->Range = DBImage1->Picture->Height;
     // ShowCADForm->Caption = Caption;
      ShowCADForm->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TMIQACheckForm::PreviewBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu5->Popup(MIQACheckForm->Left+Panel4->Left+PreviewBtn->Left+5,MIQACheckForm->Top+Panel4->Top+PreviewBtn->Top+115);
        
}
//---------------------------------------------------------------------------

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

void __fastcall TMIQACheckForm::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 TMIQACheckForm::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 TMIQACheckForm::MI2Click(TObject *Sender)
{
     QRCompositeReport1AddReports(Sender);
     QRCompositeReport1->Preview();

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


void __fastcall TMIQACheckForm::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 TMIQACheckForm::N1Click(TObject *Sender)
{
     QRCompositeReport1AddReports(Sender);
     QRCompositeReport1->Print();
 }
//---------------------------------------------------------------------------


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

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

void __fastcall TMIQACheckForm::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 TMIQACheckForm::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);
   }         
}
//---------------------------------------------------------------------------