oilctrl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "oilctrl.h"
#include "oilrep.h"
#include "oilrep2.h"
#include "dm.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm29 *Form29;
AnsiString oiltitle,rq1,rq2;
extern AnsiString lujing;
//---------------------------------------------------------------------------
__fastcall TForm29::TForm29(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm29::Button1Click(TObject *Sender)
{
AnsiString tj1;
  tj1="类型 = '"+youlei->Text+"' AND 机型 = '"+jixing->Text+"' AND 位置 = '"+weizhi->Text+
  "' AND 机号 = '"+jihao->Text+"' AND 日期 >= '"+DateToStr(riqitk1->Date)+"' AND 日期 <= '"
  +DateToStr(riqitk2->Date)+"'";

  DataModule1->oil->Filtered=false;
  DataModule1->oil->Filter=tj1;
  DataModule1->oil->Filtered=true;
  oiltitle=youlei->Text+"油样成分含量曲线图";
  rq1=DateToStr(riqitk1->Date);
  rq2=DateToStr(riqitk2->Date);
  AnsiString enginesn=DataModule1->oilStringField->AsString;
  oiltitle=jihao->Text+"飞机"+enginesn+"发动机"+oiltitle;
  if(pagectrl->ItemIndex==0)
  {
        TForm26 *Form26=new TForm26(Application);
        if(printctrl->ItemIndex==0)
        Form26->QuickRep1->Preview();
        else
        Form26->QuickRep1->Print();
        delete Form26;
  }
  else
  {
   TForm30 *Form30=new TForm30(Application);
        if(printctrl->ItemIndex==0)
        Form30->QuickRep1->Preview();
        else
        Form30->QuickRep1->Print();
        delete Form30;
  }

}
//---------------------------------------------------------------------------
void __fastcall TForm29::FormCreate(TObject *Sender)
{
TMemo *memo=new TMemo(Handle);
memo->Lines->LoadFromFile(lujing+"plane.txt");
for(int i=0;i<memo->Lines->Count;i++)
{
        jihao->Items->Add(memo->Lines->Strings[i]);
}
jihao->Text=memo->Lines->Strings[0];
delete memo;
}
//---------------------------------------------------------------------------
void __fastcall TForm29::Button2Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------