mrphis.~cpp

C++Builder6下的一个生产管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "mrphis.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmMRPHis *fmMRPHis;
//---------------------------------------------------------------------------
__fastcall TfmMRPHis::TfmMRPHis(TComponent* Owner)
    : TfmParent(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmMRPHis::BitBtn1Click(TObject *Sender)
{
    Table1->Filter = "";
    AnsiString szFilter;
    // 设置条件
    if(!Edit1->Text.IsEmpty())
        szFilter = "物料编号 = '" + Edit1->Text + "' and ";
    if(!Edit2->Text.IsEmpty())
        szFilter += "年份 = " + Edit2->Text + " and ";
    if(!Edit3->Text.IsEmpty())
        szFilter += "计划期 = " + Edit3->Text + " and ";
    // 清除最后多余的and
    szFilter = szFilter.SubString(1,szFilter.Length()-5);
    Table1->Filtered = false;
    Table1->Filter = szFilter;
    Table1->Filtered = true;
}
//---------------------------------------------------------------------------