u82.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "U82.h"
#include "main.h"
#include "dm.h"
#include "hoursrep.h"
#include "Unit24.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinCheckBoxs"
#pragma link "KsSkinForms"
#pragma link "se_controls"
#pragma link "ksskinmessages"
#pragma resource "*.dfm"
TForm82 *Form82;
//---------------------------------------------------------------------------
__fastcall TForm82::TForm82(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm82::Button1Click(TObject *Sender)
{
AnsiString  tj="(类型='A' or 类型='C' ) AND (间隔 = '";
if(a1->Checked)
tj=tj+"450' OR 间隔 = '";
if(a2->Checked)
tj=tj+"900' OR 间隔 = '";
if(a3->Checked)
tj=tj+"1350' OR 间隔 = '";
if(a4->Checked)
tj=tj+"1800' OR 间隔 = '";
if(c1->Checked)
tj=tj+" 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->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from hours where "+tj+") order by 类型,间隔");
    DataModule1->QM->Open();

if(M1->MessageDlg("是否要保存为电子表格？         ",mtConfirmation, TMsgDlgButtons() << mbYes<<mbNo, 0)==mrNo)
{TForm32* Form32=new TForm32(Application);
Form32->title->Caption="MD82飞机小时卡、起落卡清单";
Form32->QuickRep1->Preview();
delete Form32;
 }
 else
 {
 TForm24 *f24=new TForm24(this);
 f24->ADT=(TADOTable* )DataModule1->QM;
 f24->ShowModal();
 delete f24;
 }
}
else
{
        ShowMessage("请选择工卡类别!");
}
}
//---------------------------------------------------------------------------