repplane.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "repplane.h"
#include "dm.h"
#include "main.h"
#include "control.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
extern AnsiString danwei;
int apu[20],starter[20],apufh[20];
extern AnsiString lujing,djming[20];
extern int cishu[20],rectlength[20],jiange[20];
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------




void TForm6::createdata()
{
  QRMemo1->Lines->LoadFromFile(lujing+"plane.txt");
TMemo* memo1=new TMemo(Form6->Handle);
memo1->Lines->LoadFromFile(lujing+"apu.txt");
TMemo* memo2=new TMemo(Form6->Handle);
memo2->Lines->LoadFromFile(lujing+"starter.txt");
int mcou=QRMemo1->Lines->Count;
DataModule1->dayreport->First();
for(int i=0;i<mcou;i++)
{
     apu[i]=StrToInt(memo1->Lines->Strings[i]);
     starter[i]=StrToInt(memo2->Lines->Strings[i]);
     int k=DataModule1->dayreportField2->AsInteger ;
     int fh=DataModule1->dayreportAPU->AsInteger;
     for(int j=0;j<mcou;j++)
     {
        if(k==StrToInt(QRMemo1->Lines->Strings[j]))
                apufh[j]=fh;

     }
     DataModule1->dayreport->Next();
}
delete memo2;
delete memo1;
QRMemo2->Lines->Clear();
QRMemo3->Lines->Clear();
 for(int i=0;i<mcou;i++)
 {
        if(QRMemo1->Lines->Strings[i]>"2200")
        QRMemo1->Lines->Strings[i]=QRMemo1->Lines->Strings[i]+"飞机距 "+IntToStr(cishu[i]%100+1)+"["+djming[i]+"] 检还有："+IntToStr(jiange[i]-rectlength[i])+"飞行小时";
        else
        QRMemo1->Lines->Strings[i]=QRMemo1->Lines->Strings[i]+"飞机距 "+IntToStr(cishu[i]%8+1)+"["+djming[i]+"] 检还有："+IntToStr(jiange[i]-rectlength[i])+"飞行小时";
        QRMemo2->Lines->Add(" 距更换 APU 发动机还有:"+IntToStr(apu[i]-apufh[i]));
        QRMemo3->Lines->Add(" 距更换 APU 起动机还有:"+IntToStr(starter[i]-apufh[i]));
 }
      //TODO: Add your source code here
}


void __fastcall TForm6::FormCreate(TObject *Sender)
{
dw->Caption="单位："+danwei;         
}
//---------------------------------------------------------------------------