u90card.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "U90card.h"
#include "dm.h"
#include "gkrep.h"
#include "gklist.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinForms"
#pragma link "se_controls"
#pragma resource "*.dfm"
TF90card *F90card;
//---------------------------------------------------------------------------
__fastcall TF90card::TF90card(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TF90card::Button1Click(TObject *Sender)
{
AnsiString  tj="间隔 = '";
if(a1->Checked)
tj=tj+"1A' OR 间隔 = '";
if(a2->Checked)
tj=tj+"2A' OR 间隔 = '";
if(a3->Checked)
tj=tj+"3A' OR 间隔 = '";
if(a4->Checked)
tj=tj+"4A' OR 间隔 = '";
if(c1->Checked)
tj=tj+"1C' OR 间隔 = '";
if(c2->Checked)
tj=tj+"2C' OR 间隔 = '";
if(c3->Checked)
tj=tj+"3C' OR 间隔 = '";
if(c4->Checked)
tj=tj+"4C' OR 间隔 = '";
int l=tj.Length();
if(l>8)
{
    tj=tj.SubString(1,l-12);
DataModule1->gk90->Filtered=false;
DataModule1->gk90->Filter=tj;
DataModule1->gk90->Filtered=true;
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from gk90 where "+tj);
    DataModule1->QM->Open();

if(Tag==0)
{
TForm8* Form8=new TForm8(Application);
Form8->QuickRep1->Preview();
delete Form8;
}
else
{
        TForm9* Form9=new TForm9(Application);
        if(c1->Checked||c2->Checked||c3->Checked||c4->Checked)
        {
  Form9->QRLabel1->Caption="MD-90 C 检工卡清单";
  Form9->Tag=1;
  }
  else
  {
        Form9->QRLabel1->Caption="MD-90 A 检工卡清单";
  Form9->Tag=0;        
        }
Form9->QuickRep1->Preview();
delete Form9;
}
}
else
{
        ShowMessage("请选择工卡类别!");
}
}
//---------------------------------------------------------------------------