sampledelete.cpp

某公司资料管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "SampleDelete.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSampleDeleteForm *SampleDeleteForm;
//---------------------------------------------------------------------------
__fastcall TSampleDeleteForm::TSampleDeleteForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
     Action=caFree;        
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::CheckBox1Click(TObject *Sender)
{
    if(CheckBox1->Checked)
    {
        SampleNoEdit->Enabled=true;
        SampleNoEdit->Color=clWindow ;
    }
    else
    {
        SampleNoEdit->Enabled=false;
        SampleNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::CheckBox3Click(TObject *Sender)
{
    if(CheckBox3->Checked)
    {
        CustNoEdit->Enabled=true;
        CustNoEdit->Color=clWindow ;
    }
    else
    {
        CustNoEdit->Enabled=false;
        CustNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::CheckBox2Click(TObject *Sender)
{
    if(CheckBox2->Checked)
    {
        PartNoEdit->Enabled=true;
        PartNoEdit->Color=clWindow ;
    }
    else
    {
        PartNoEdit->Enabled=false;
        PartNoEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::CheckBox4Click(TObject *Sender)
{
    if(CheckBox4->Checked)
    {
        BoardTypeEdit->Enabled=true;
        BoardTypeEdit->Color=clWindow ;
    }
    else
    {
        BoardTypeEdit->Enabled=false;
        BoardTypeEdit->Color=clInfoBk;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::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;
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::BitBtn1Click(TObject *Sender)
{
    Query2->Close();
    Query1->Close();
 
    TempStr1="Select A.SampleNo,A.PartNo,B.CustomerNo,A.IsFinish,A.ProductQty,A.ProductDate,A.FinishQty,A.FinishDate,A.Operator FROM ProductSample A,MIBase B where A.PartNo=B.PartNo";
    TempStr2="";

    if(CheckBox1->Checked)  //SampleNo
    {
        if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and A.SampleNo='"+SampleNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and A.SampleNo='"+SampleNoEdit->Text.Trim()+"'";
        }
     }
     if(CheckBox2->Checked)  //PartNo
     {
            if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and A.PartNo='"+PartNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and A.PartNo='"+PartNoEdit->Text.Trim()+"'";
        }

     }
    if(CheckBox3->Checked)  //CustNo
    {
        if(Trim(TempStr2)!="")
        {
            TempStr2=TempStr2+" and B.CustomerNo='"+CustNoEdit->Text.Trim()+"'";
        }
        else
        {
            TempStr2=" and B.CustomerNo='"+CustNoEdit->Text.Trim()+"'";
        }
     }

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

    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add(TempStr1);
    if(Trim(TempStr2)!="")
    {
        Query1->SQL->Add(TempStr2);
    }
    if(OrderComboBox->Text.Trim()=="样板序号")
    {
        Query1->SQL->Add(" Order by A.SampleNo");
    }
    if(OrderComboBox->Text.Trim()=="产品编号")
    {
        Query1->SQL->Add(" Order by A.PartNo");
    }
    if(OrderComboBox->Text.Trim()=="客户编号")
    {
        Query1->SQL->Add(" Order by B.CustomerNo");
    }
    if(OrderComboBox->Text.Trim()=="交货日期")
    {
        Query1->SQL->Add(" Order by A.FinishDate");
    }
    Query1->Prepare();
    Query1->Open();

    if(!Query1->Eof)
    {
        Query2->Close();
       // Query2->SQL->Add("select C.SampleNo,C.ItemNo,C.RouteCode,C.FinishQty,C.IsFinish,C.Memo  from ProductSampleDetail C where C.SampleNo=:SampleNo");
        Query2->Params->Items[0]->AsString=Query1->FieldByName("SampleNo")->AsString;
        Query2->Prepare();
        Query2->Open();
    }

}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::DataSource1DataChange(TObject *Sender,
      TField *Field)
{
    if(!Query1->Eof)
    {
        Query2->Close();
        Query2->Params->Items[0]->AsString=Query1->FieldByName("SampleNo")->AsString;
        Query2->Prepare();
        Query2->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TSampleDeleteForm::BitBtn2Click(TObject *Sender)
{
    if(!MastData->Database->InTransaction)
    {
        MastData->Database->StartTransaction();
    }

    if(Trim(TempStr2)!="")
    {
       if(Application->MessageBox("确认删除所有选择的内容？..","第一次警告",MB_OKCANCEL+MB_DEFBUTTON2)==IDOK)
       {
          if(Application->MessageBox("再次确认删除所有选择的内容？..","第二次警告",MB_OKCANCEL+MB_DEFBUTTON2)==IDOK)
          {
             while(!Query1->Eof)
             {
                MastData->DeleteProductSample->Params->Items[1]->AsString=Query1->FieldByName("SampleNo")->Value;
                MastData->DeleteProductSample->ExecProc();
                Query1->Next();
             }
             {
               // MastData->ProductSample->ApplyUpdates();
               // MastData->ProductSampleDetail->ApplyUpdates();
                MastData->Database->Commit();
                MastData->Database->StartTransaction();
               // MastData->ProductSampleDetail->CommitUpdates();
               // MastData->ProductSample->CommitUpdates();
             }
             //MastData->ProductSample->Refresh();
             //MastData->ProductSampleDetail->Refresh();
             Query2->Close();
             Query1->Close();
          }
       }
    }
    else
    {
        Application->MessageBox("要删除的内容太多,请选择删除条件...","警告",MB_OK);
    }
}
//---------------------------------------------------------------------------