midesigner.cpp

某公司资料管理系统

                  MastData->MIDrill->Edit();
                  MastData->MIDrillDrillType->Value=MastData->MIRouteLookupRouteCode->Value;
                  MastData->MIDrillItemNo->Value=MastData->MIDrillLookupItemNo->Value;
                  MastData->MIDrillSymbol->Value=MastData->MIDrillLookupSymbol->Value;
                  MastData->MIDrillDiameter->Value=MastData->MIDrillLookupDiameter->Value;
                  MastData->MIDrillQty->Value=MastData->MIDrillLookupQty->Value;
                  MastData->MIDrillUnit->Value=MastData->MIDrillLookupUnit->Value;
                  MastData->MIDrillQtyPerPanel->Value=MastData->MIDrillLookupQtyPerPanel->Value;
                  MastData->MIDrillTQty->Value=MastData->MIDrillLookupTQty->Value;
                  MastData->MIDrillDrill->Value=MastData->MIDrillLookupDrill->Value;
                  MastData->MIDrillNPTH->Value=MastData->MIDrillLookupNPTH->Value;
                  MastData->MIDrillMemo->Value=MastData->MIDrillLookupMemo->Value;
                  MastData->MIDrill->Post();
                  MastData->MIDrillLookup->Next();
               }
               MastData->MIDrill->ApplyUpdates();
               MastData->Database->Commit();
               MastData->Database->StartTransaction();
               MastData->MIDrill->CommitUpdates();

           }
           else
           {
              MastData->RouteDetailLookup->First();
              while(!MastData->RouteDetailLookup->Eof)
              {
                 MastData->InsertingRouteDetail=true;
                 MastData->RouteDetail->Insert();
                 MastData->RouteDetail->Edit();
                 MastData->RouteDetailItemNo->Value=MastData->RouteDetailLookupItemNo->Value;
                 MastData->RouteDetailName->Value=MastData->RouteDetailLookupName->Value;
                 MastData->RouteDetailParameter->Value=MastData->RouteDetailLookupParameter->Value;
                 MastData->RouteDetailMemo->Value=MastData->RouteDetailLookupMemo->Value;
                 MastData->RouteDetail->Post();
                 MastData->InsertingRouteDetail=false;

                 MastData->RouteDetailLookup->Next();
              }
              MastData->RouteDetail->ApplyUpdates();
              MastData->Database->Commit();
              MastData->Database->StartTransaction();
              MastData->RouteDetail->CommitUpdates();

           }
           MastData->MIRouteLookup->Next();
       }
    }
 /*   MastData->MIBase->EnableControls();
    MastData->MIDrill->EnableControls();
    MastData->MIRoute->EnableControls();
    MastData->RouteDetail->EnableControls();
   */
    MastData->RouteDetailLookup->Close();
    MastData->MIRouteLookup->Close();
    MastData->MIDrillLookup->Close();
    MastData->MIBaseLookup->Close();
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::ViewBtnClick(TObject *Sender)
{
    OpenPictureDialog1->Execute();
    if(OpenPictureDialog1->FileName.Trim()!="")
    {
       MastData->MIRoute->Edit();
       DBImage1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
       MastData->MIRoute->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::PreviewBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu5->Popup(MIDesignerForm->Left+Panel4->Left+PreviewBtn->Left+5,MIDesignerForm->Top+Panel4->Top+PreviewBtn->Top+115);
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::PrintBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu4->Popup(MIDesignerForm->Left+Panel4->Left+PrintBtn->Left+5,MIDesignerForm->Top+Panel4->Top+PrintBtn->Top+115);
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::PrintRouteReport1Click(TObject *Sender)
{
    int ReportNo;
    ReportNo=0;  //基本类型
    if(MastData->MIRouteRouteCode->Value=="BCUT")
    {
        ReportNo=1; //BCUT
    }
    if(MastData->MIRouteRouteCode->Value=="FDRL")
    {
        ReportNo=2;
    }
    if(MastData->MIRouteRouteCode->Value=="SDRL")
    {
        ReportNo=12;
    }
    //.....
    switch(ReportNo)
    {
       case 0: MIRepOtherForm->QuickRep1->Print();break;
       case 1: MIRepBCutForm->QuickRep1->Print();break;
       case 2: MIRepFDrlForm->QuickRep1->Preview();break;
       case 12: MIRepSDrlForm->QuickRep1->Preview();break;
       //......
    }
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::MI2Click(TObject *Sender)
{
     QRCompositeReport1AddReports(Sender);
     QRCompositeReport1->Preview();
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::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 TMIDesignerForm::N5Click(TObject *Sender)
{
      ShowCADForm->HorzScrollBar->Range = DBImage1->Picture->Width;
      ShowCADForm->VertScrollBar->Range = DBImage1->Picture->Height;

      ShowCADForm->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::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 TMIDesignerForm::N1Click(TObject *Sender)
{
     QRCompositeReport1AddReports(Sender);
     QRCompositeReport1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::FormActivate(TObject *Sender)
{
   // MainMenuForm->MasterDataSource->DataSet=MastData->MIBase;
   // MainMenuForm->DetailDataSource->DataSet=MastData->MIFlow;
    MastData->MIBaseSource->OnStateChange =MIBaseStateChange;
    MastData->MIBaseSource->OnDataChange=MIBaseDataChange;
    MastData->MIRouteSource->OnDataChange=MIRouteDataChange;

    MastData->MIBase->Open();
    MastData->MIBase->Refresh();
    MIBaseStateChange(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::FormDeactivate(TObject *Sender)
{
   // MainMenuForm->MasterDataSource->DataSet=NULL;
   // MainMenuForm->DetailDataSource->DataSet=NULL;
    MastData->MIBaseSource->OnStateChange = NULL;
    MastData->MIBaseSource->OnDataChange=NULL;
    MastData->MIRouteSource->OnDataChange=NULL;
}
//---------------------------------------------------------------------------











void __fastcall TMIDesignerForm::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 TMIDesignerForm::N8Click(TObject *Sender)
{
     QRCompositeReport2AddReports(Sender);
     QRCompositeReport2->Preview();
}
//---------------------------------------------------------------------------

void __fastcall TMIDesignerForm::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 TMIDesignerForm::DBEdit10KeyPress(TObject *Sender,
      char &Key)
{
    if(int(Key)==13)
    {
       Key=char(0);
       Perform(WM_NEXTDLGCTL,0,0);
    }
}
//---------------------------------------------------------------------------


void __fastcall TMIDesignerForm::DBGridDrillKeyPress(TObject *Sender,
      char &Key)
{
    int index;
    if(int(Key)==13)
    {
       if(ActiveControl==DBGridDrill)
       {
           index=DBGridDrill->SelectedIndex;
           DBGridDrill->SelectedIndex=DBGridDrill->SelectedIndex+1;
       }
       if(index==DBGridDrill->SelectedIndex)
       {
         DBGridDrill->SelectedIndex=0;
       }
       Key=char(0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TMIDesignerForm::DBGrid2KeyPress(TObject *Sender,
      char &Key)
{
    int index;
    if(int(Key)==13)
    {
       if(ActiveControl==DBGrid2)
       {
           index=DBGrid2->SelectedIndex;
           DBGrid2->SelectedIndex=DBGrid2->SelectedIndex+1;
       }
       if(index==DBGrid2->SelectedIndex)
       {
         DBGrid2->SelectedIndex=0;
       }
       Key=char(0);
    }
}
//---------------------------------------------------------------------------