miapp.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "MIApp.h"
#include "MainHead.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMIAppForm *MIAppForm;
//---------------------------------------------------------------------------
__fastcall TMIAppForm::TMIAppForm(TComponent* Owner)
        : TForm(Owner)
{
}
//----------------------------------------------------------------------
void TMIAppForm::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 TMIAppForm::MIBaseStateChange(TObject *Sender)
{
    UpdateBitBtnState(Sender);
} */
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::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 TMIAppForm::FormShow(TObject *Sender)
{
   // MastData->MIBaseSource->OnStateChange =MIBaseStateChange;
    MastData->MIRouteSource->OnDataChange=MIRouteDataChange;
    PageControl1->ActivePage=TabSheet1;
    MastData->StandardRoute->Open();
    MastData->MIBase->Open();
    MastData->MIBase->Refresh();
    //MIBaseStateChange(Sender);
    UpdateBitBtnState(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::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 TMIAppForm::BitBtnPostClick(TObject *Sender)
{
     MastData->MIBase->Post();
     UpdateBitBtnState(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::BitBtnCancelClick(TObject *Sender)
{
      MastData->MIBase->Cancel();
      UpdateBitBtnState(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::PPEPBtnClick(TObject *Sender)
{
   if(MastData->MIBaseSource->State!= dsEdit ||MastData->MIBaseSource->State != dsInsert)
   {
       MastData->MIBase->Edit();
       UpdateBitBtnState(Sender);
    }
    MastData->MIBasePPEAPP->Value=MastData->UserName;
    MastData->MIBasePPEAPPDate->Value =Date();
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::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 TMIAppForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::BitBtn1Click(TObject *Sender)
{
   if(MastData->MIBaseSource->State!= dsEdit ||MastData->MIBaseSource->State != dsInsert)
   {
       MastData->MIBase->Edit();
       UpdateBitBtnState(Sender);
    }
    MastData->MIBasePPEAPP->Value="";
    //MastData->MIBasePPEAPPDate->Value =Date();
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::PreviewBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu5->Popup(MIAppForm->Left+Panel4->Left+PreviewBtn->Left+5,MIAppForm->Top+Panel4->Top+PreviewBtn->Top+115);
}
//---------------------------------------------------------------------------
void __fastcall TMIAppForm::PrintBtnMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    PopupMenu4->Popup(MIAppForm->Left+Panel4->Left+PrintBtn->Left+5,MIAppForm->Top+Panel4->Top+PrintBtn->Top+115);
}
//---------------------------------------------------------------------------




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

void __fastcall TMIAppForm::FormDeactivate(TObject *Sender)
{
   // MastData->MIBaseSource->OnStateChange = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMIAppForm::FormActivate(TObject *Sender)
{
   // MastData->MIBaseSource->OnStateChange =MIBaseStateChange;
    MastData->MIRouteSource->OnDataChange=MIRouteDataChange;

    MastData->MIBase->Open();
    MastData->MIBase->Refresh();
    //MIBaseStateChange(Sender);
    UpdateBitBtnState(Sender);
}
//---------------------------------------------------------------------------




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

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

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

void __fastcall TMIAppForm::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;
       //......
    }         
}
//---------------------------------------------------------------------------