ubcxtj2.cpp

民航飞机生产管理系统,实现了飞机定检坚控,小时卡起落卡等的坚控,并能生成工作任务包

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

#include <vcl.h>
#pragma hdrstop

#include "Ubcxtj2.h"

#include "dm.h"
#include "dayreport.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFBcxtj2 *FBcxtj2;
TDataSet *cxb2;
AnsiString querystr;
extern AnsiString dw;
//---------------------------------------------------------------------------
__fastcall TFBcxtj2::TFBcxtj2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFBcxtj2::FormShow(TObject *Sender)
{

  CField->Items->Clear();
  for(int i=0;i<cxb2->Fields->Count;i++)
  CField->Items->Add(cxb2->Fields->Fields[i]->DisplayLabel);
  CField->ItemIndex=-1;
  CField->Text="";
  Cfu->ItemIndex=-1;
  querystr="";
  Listtj->Items->Clear();
  Listtj->ItemIndex=0;
  tjValue->Text="";
  if(!CField->Enabled||Cfu->Enabled||tjValue->Enabled)
{
CField->Enabled=true;
  Cfu->Enabled=true;
  tjValue->Enabled=true;
  }
}
//---------------------------------------------------------------------------
void __fastcall TFBcxtj2::CFieldChange(TObject *Sender)
{
tjValue->ReadOnly=false;
int i=CField->ItemIndex;
if(cxb2->Fields->Fields[i]->FieldName=="日期")
{
tjValue->Visible=false;
rq->Visible=true;
leibie->Visible=false;
tjValue->Text=DateToStr(rq->Date);
}
else
{
tjValue->Visible=true;
tjValue->ReadOnly=false;
rq->Visible=false;
leibie->Visible=false;
}

}
//---------------------------------------------------------------------------
void __fastcall TFBcxtj2::FormCreate(TObject *Sender)
{
rq->Date=Date();
}
//---------------------------------------------------------------------------
void __fastcall TFBcxtj2::BtncxClick(TObject *Sender)
{
AnsiString strtmp,liststr;
int index1=CField->ItemIndex;
int index2=Cfu->ItemIndex;
if(index1>=0&&tjValue->Text!="")
  {
  CField->Enabled=false;
  Cfu->Enabled=false;
  tjValue->Enabled=false;
strtmp=cxb2->Fields->Fields[index1]->FieldName;
        switch(index2)
        {
        case 0:strtmp=strtmp+" = '";break;
        case 1:strtmp=strtmp+" < '";break;
        case 2:strtmp=strtmp+" > '";break;
        default:{strtmp=strtmp+" = '";
                Cfu->Text="等于";
                }

        }
    if(rq->Visible)
    {
    rq2->Caption=rq1->Caption;
    rq1->Caption=DateToStr(rq->Date);
    }

   strtmp=strtmp+tjValue->Text.UpperCase()+"'";
   liststr=CField->Text+" "+Cfu->Text+" "+tjValue->Text;
   if(Listtj->Items->Count==0)
   Listtj->Items->Add(liststr);
   else
   Listtj->Items->Strings[Listtj->Items->Count-1]=Listtj->Items->Strings[Listtj->Items->Count-1]+" "+liststr;

  }
  querystr=querystr+strtmp;


}
//---------------------------------------------------------------------------
void __fastcall TFBcxtj2::BtnbqClick(TObject *Sender)
{
CField->ItemIndex=-1;
Cfu->ItemIndex=-1;
tjValue->Text="";
querystr=querystr+" AND ";
Listtj->Items->Add("并且");
if(!CField->Enabled||Cfu->Enabled||tjValue->Enabled)
{
CField->Enabled=true;
  Cfu->Enabled=true;
  tjValue->Enabled=true;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFBcxtj2::BtnhzClick(TObject *Sender)
{
CField->ItemIndex=-1;
Cfu->ItemIndex=-1;
tjValue->Text="";
querystr=querystr+" OR ";
Listtj->Items->Add("或者");
if(!CField->Enabled||Cfu->Enabled||tjValue->Enabled)
{
CField->Enabled=true;
  Cfu->Enabled=true;
  tjValue->Enabled=true;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFBcxtj2::rqChange(TObject *Sender)
{
 tjValue->Text=DateToStr(rq->Date);        
}
//---------------------------------------------------------------------------

void __fastcall TFBcxtj2::BtnqkClick(TObject *Sender)
{
Listtj->Items->Clear();
CField->ItemIndex=-1;
Cfu->ItemIndex=-1;
tjValue->Text="";
querystr="";
if(!CField->Enabled||Cfu->Enabled||tjValue->Enabled)
{
CField->Enabled=true;
  Cfu->Enabled=true;
  tjValue->Enabled=true;
  }
}
//---------------------------------------------------------------------------



void __fastcall TFBcxtj2::leibieChange(TObject *Sender)
{
tjValue->Text=leibie->Text;        
}
//---------------------------------------------------------------------------




void __fastcall TFBcxtj2::BitBtn3Click(TObject *Sender)
{
tj->Caption=querystr;
}
//---------------------------------------------------------------------------