📄 bzcsjtj.cpp

📁 民航飞机生产管理系统,实现了飞机定检坚控,小时卡起落卡等的坚控,并能生成工作任务包
💻 CPP
📖 第 1 页 / 共 2 页
字号:
12 下一页
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "bzcsjtj.h"
#include "dm.h"
#include "main.h"
#include "hbbzcsj.h"
#include "yfxsjbb2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinComboBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "se_controls"
#pragma link "XLSReadWriteII"
#pragma resource "*.dfm"
TForm38 *Form38;
extern AnsiString lujing;
extern AnsiString danwei; //单位名称
//---------------------------------------------------------------------------
__fastcall TForm38::TForm38(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm38::Button4Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm38::yueChange(TObject *Sender)
{
if(nian->Text!=NULL&&yue->Text!=NULL)
{
   DataModule1->bzcsjtj->Filtered=false;
   DataModule1->bzcsjtj->Filter="年 = '"+nian->Text+"' AND 月 = '"+yue->Text+"'";
   DataModule1->bzcsjtj->Filtered=true;
   DataModule1->feiyyfh->Filtered=false;
   DataModule1->feiyyfh->Filter="年 = '"+nian->Text+"' AND 月 = '"+yue->Text+"'";
   DataModule1->feiyyfh->Filtered=true;
   if(DataModule1->bzcsjtj->RecordCount==0)
   {Button1->Enabled=true;
   Button2->Enabled=false;
   Button3->Enabled=false;
    qishi->Enabled=true;
    jiezhi->Enabled=true;
    cgcs90->Enabled=true;
    kyjr90->Enabled=true;
    bkyjr90->Enabled=true;
    fxjr90->Enabled=true;
    zyjr90->Enabled=true;
    zcjr90->Enabled=true;
    djcsts90->Enabled=true;
    zcjs90->Enabled=true;
    zywcs90->Enabled=true;
    bfhmel90->Enabled=true;
    zqxcs90->Enabled=true;
    bfhmelqx90->Enabled=true;
    hftcts90->Enabled=true;
    zyjs90->Enabled=true;
    cgcs82->Enabled=true;
    kyjr82->Enabled=true;
    bkyjr82->Enabled=true;
    fxjr82->Enabled=true;
    zyjr82->Enabled=true;
    zcjr82->Enabled=true;
    djjcts82->Enabled=true;
    zcjs82->Enabled=true;
    zywcs82->Enabled=true;
    bfhmel82->Enabled=true;
    zqxcs82->Enabled=true;
    bfhmelqx82->Enabled=true;
    hftcts82->Enabled=true;
    zyjs82->Enabled=true;
   }
   else
   {
    Button1->Enabled=false;
    Button2->Enabled=true;
   Button3->Enabled=true;
    qishi->Enabled=false;
    jiezhi->Enabled=false;
    cgcs90->Enabled=false;
    kyjr90->Enabled=false;
    bkyjr90->Enabled=false;
    fxjr90->Enabled=false;
    zyjr90->Enabled=false;
    zcjr90->Enabled=false;
    djcsts90->Enabled=false;
    zcjs90->Enabled=false;
    zywcs90->Enabled=false;
    bfhmel90->Enabled=false;
    zqxcs90->Enabled=false;
    bfhmelqx90->Enabled=false;
    hftcts90->Enabled=false;
    zyjs90->Enabled=false;
    zyjs82->Enabled=false;
    cgcs82->Enabled=false;
    kyjr82->Enabled=false;
    bkyjr82->Enabled=false;
    fxjr82->Enabled=false;
    zyjr82->Enabled=false;
    zcjr82->Enabled=false;
    djjcts82->Enabled=false;
    zcjs82->Enabled=false;
    zywcs82->Enabled=false;
    bfhmel82->Enabled=false;
    zqxcs82->Enabled=false;
    bfhmelqx82->Enabled=false;
    hftcts82->Enabled=false;
   }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm38::Button1Click(TObject *Sender)
{
int fxfh82,qlcs82,yycs82,kz82,lxql82,feiyy82,yyfh82,prefh82,nextfh82,feiyyfh82;
int fxfh90,qlcs90,yycs90,kz90,lxql90,feiyy90,yyfh90,prefh90,nextfh90,feiyyfh90;

  DataModule1->dayreport->Filtered=false;
  DataModule1->dayreport->Filter="日期 >= '"+DateToStr(qishi->Date-1)+"' AND  日期<= '"+DateToStr(jiezhi->Date)+"'";
  DataModule1->dayreport->Filtered=true;
  DataModule1->dayreport->Last();
  lxql82=lxql90=0;
  feiyy82=feiyy90=0;
  yyfh82=yyfh90=0;
  DataModule1->dayreport->First();

  for(int i=0;i<DataModule1->dayreport->RecordCount;i++)
  {
    if(DataModule1->dayreportField2->AsInteger>2200)
      {
          if(DataModule1->dayreportField14->AsString=="训练")
          lxql90=lxql90+DataModule1->dayreportField13->AsInteger;
          if(DataModule1->dayreportField14->AsString=="调机")
          feiyy90=feiyy90+DataModule1->dayreportField13->AsInteger;
          if(DataModule1->dayreportField14->AsString=="营运")
          yyfh90=yyfh90+DataModule1->dayreportField4->AsInteger;

      }
      else
      {
          if(DataModule1->dayreportField14->AsString=="训练")
          lxql82=lxql82+DataModule1->dayreportField13->AsInteger;
          if(DataModule1->dayreportField14->AsString=="调机")
          feiyy82=feiyy82+DataModule1->dayreportField13->AsInteger;
      }
      DataModule1->dayreport->Next();
  }
  TMemo* m=new TMemo(Panel1->Handle);
   m->Lines->LoadFromFile(lujing+"plane.txt");
   feiyyfh82=feiyyfh90=0;
   for(int i=0;i<m->Lines->Count;i++)
   {

     // //DataModule1->dayreport->IndexName="jishenindex";

      if(m->Lines->Strings[i]>"2200")
      {
       DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="机号 = '"+m->Lines->Strings[i]+"' AND 日期 >='"
      +DateToStr(qishi->Date-1)+"' AND 日期 <= '"+DateToStr(jiezhi->Date)+"'";
      DataModule1->dayreport->Filtered=true;
      DataModule1->dayreport->IndexFieldNames="日期";
                  DataModule1->dayreport->First();
       prefh90=DataModule1->dayreport->FieldByName("机身总")->AsInteger;
      for(int k=0;k<DataModule1->dayreport->RecordCount;k++)
      {

      DataModule1->dayreport->Next();
      nextfh90=DataModule1->dayreport->FieldByName("机身总")->AsInteger;
      if(DataModule1->dayreport->FieldByName("任务类型")->AsString!="营运")
      feiyyfh90=feiyyfh90+nextfh90-prefh90;
      prefh90=nextfh90;
      }
      }
      else
      {
       DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="机号 = '"+m->Lines->Strings[i]+"' AND 日期 >='"
      +DateToStr(qishi->Date-1)+"' AND 日期 <= '"+DateToStr(jiezhi->Date)+"'";
      DataModule1->dayreport->Filtered=true;
            DataModule1->dayreport->IndexFieldNames="日期";
            DataModule1->dayreport->First();
          prefh82=DataModule1->dayreport->FieldByName("机身总")->AsInteger;
      for(int k=0;k<DataModule1->dayreport->RecordCount;k++)
      {

      DataModule1->dayreport->Next();
      nextfh82=DataModule1->dayreport->FieldByName("机身总")->AsInteger;
      if(DataModule1->dayreport->FieldByName("任务类型")->AsString!="营运")
      feiyyfh82=feiyyfh82+nextfh82-prefh82;
      prefh82=nextfh82;
      }
      }

   }







   int fh182,fh282,ql182,ql282,fh190,fh290,ql190,ql290;
     qlcs82=qlcs90=0;
     fxfh82=fxfh90=0;
    for(int j=0;j<m->Lines->Count;j++)
    {


      if(StrToInt(m->Lines->Strings[j])>2200)
       {
       DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="机号 = '"+m->Lines->Strings[j]+"' AND 日期 <= '"+DateToStr(jiezhi->Date)+"'";
      DataModule1->dayreport->Filtered=true;
      DataModule1->dayreport->Last();

          ql190=DataModule1->dayreportField10->AsInteger;
          fh190=DataModule1->dayreportField4->AsInteger;
          DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="机号 = '"+m->Lines->Strings[j]+"' AND 日期 < '"+DateToStr(qishi->Date)+"'";
      DataModule1->dayreport->Filtered=true;
      DataModule1->dayreport->Last();
      ql290=DataModule1->dayreportField10->AsInteger;
          fh290=DataModule1->dayreportField4->AsInteger;
           fxfh90=fxfh90+(fh190-fh290);
           qlcs90=qlcs90+(ql190-ql290);
                 }
       else
       {  DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="机号 = '"+m->Lines->Strings[j]+"' AND 日期 <= '"+DateToStr(jiezhi->Date)+"'";
      DataModule1->dayreport->Filtered=true;
      DataModule1->dayreport->Last();
          ql182=DataModule1->dayreportField10->AsInteger;
          fh182=DataModule1->dayreportField4->AsInteger;
          DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="机号 = '"+m->Lines->Strings[j]+"' AND 日期 < '"+DateToStr(qishi->Date)+"'";
      DataModule1->dayreport->Filtered=true;
      DataModule1->dayreport->Last();
                ql282=DataModule1->dayreportField10->AsInteger;
          fh282=DataModule1->dayreportField4->AsInteger;
            fxfh82=fxfh82+(fh182-fh282);
            qlcs82=qlcs82+(ql182-ql282);
               }


    }
   delete m;
   DataModule1->fjyb->Filtered=false;
   DataModule1->fjyb->Filter="年 = '"+nian->Text+"' AND 月份 = '"+yue->Text+"'";
   DataModule1->fjyb->Filtered=true;
   int ybzhch90,ybzhch82;
   ybzhch90=0;
   ybzhch82=0;
   for(int k=0;k<DataModule1->fjyb->RecordCount;k++)
   {
       if(DataModule1->fjyb->FieldByName("机号")->AsString>"2200")
       {
       ybzhch90+=DataModule1->fjyb->FieldByName("正常起落")->AsInteger-DataModule1->fjyb->FieldByName("总连续")->AsInteger
       +DataModule1->fjyb->FieldByName("连续起落")->AsInteger;;
       }
       else
       {
       ybzhch82+=DataModule1->fjyb->FieldByName("正常起落")->AsInteger-DataModule1->fjyb->FieldByName("总连续")->AsInteger
       +DataModule1->fjyb->FieldByName("连续起落")->AsInteger;;
       }
       DataModule1->fjyb->Next();
   }
   qlcs90=qlcs90 > ybzhch90 ?  qlcs90:ybzhch90;
   qlcs82=qlcs82 > ybzhch82 ?  qlcs82:ybzhch82;
   DataModule1->bzcsjtj->Append();
   DataModule1->bzcsjtjfh->AsInteger=fxfh90;
   DataModule1->bzcsjtjqlcs->AsInteger=qlcs90;
   DataModule1->bzcsjtjyycs->AsInteger=qlcs90-lxql90-feiyy90;
   DataModule1->bzcsjtjcgcs->AsInteger=StrToInt(cgcs90->Text);
   DataModule1->bzcsjtjkyl->AsFloat=StrToFloat(kyjr90->Text)*100/StrToFloat(zcjr90->Text);
   DataModule1->bzcsjtjrkyl->AsFloat=fxfh90/60/StrToFloat(zyjr90->Text);
   DataModule1->bzcsjtjsyl->AsFloat=StrToFloat(fxjr90->Text)/StrToFloat(kyjr90->Text)*100;
   DataModule1->bzcsjtjkyjr->AsInteger=StrToInt(kyjr90->Text);
   DataModule1->bzcsjtjbkyjr->AsInteger=StrToInt(bkyjr90->Text);
   DataModule1->bzcsjtjzcjr->AsInteger=StrToInt(zcjr90->Text);
   DataModule1->bzcsjtjdjcsts->AsString=djcsts90->Text;
   DataModule1->bzcsjtjhftcts->AsString=hftcts90->Text;
   DataModule1->bzcsjtjjixing->AsString="MD90";
   DataModule1->bzcsjtj->FieldByName("非营运时间")->AsInteger=feiyyfh90;
   DataModule1->zcjs->AsInteger=StrToInt(zcjs90->Text);
   DataModule1->bzcsjtjzyjs->AsInteger=StrToInt(zyjs90->Text);
   DataModule1->bzcsjtjkz->AsInteger=fxfh90;
   DataModule1->bzcsjtjlxql->AsInteger=lxql90;
   DataModule1->bzcsjtjzywcs->AsInteger=StrToInt(zywcs90->Text);
   DataModule1->bzcsjtjmelyw->AsInteger=StrToInt(bfhmel90->Text);
   DataModule1->bzcsjtjzqxcs->AsInteger=StrToInt(zqxcs90->Text);
   DataModule1->bzcsjtjmelqxcs->AsInteger=StrToInt(bfhmelqx90->Text);
   DataModule1->bzcsjtjfxjr->AsInteger=StrToInt(fxjr90->Text);
   DataModule1->bzcsjtjzyjr->AsInteger=StrToInt(zyjr90->Text);
   DataModule1->bzcsjtjbgbzc->AsInteger=StrToInt(bgbzc90->Text);
   DataModule1->bzcsjtjbgmelbzc->AsInteger=StrToInt(bgmelbzc90->Text);
   DataModule1->bzcsjtjnian->AsInteger=StrToInt(nian->Text);
   DataModule1->bzcsjtjyue->AsInteger=StrToInt(yue->Text);
   DataModule1->bzcsjtj->Post();
   DataModule1->bzcsjtj->Append();
   DataModule1->bzcsjtjfh->AsInteger=fxfh82;
   DataModule1->bzcsjtjqlcs->AsInteger=qlcs82;
   DataModule1->bzcsjtjyycs->AsInteger=qlcs82-lxql82-feiyy82;
   DataModule1->bzcsjtjcgcs->AsInteger=StrToInt(cgcs82->Text);
   DataModule1->bzcsjtjkyl->AsFloat=StrToFloat(kyjr82->Text)*100/StrToFloat(zcjr82->Text);
   DataModule1->bzcsjtjrkyl->AsFloat=fxfh82/60/StrToFloat(zyjr82->Text);
   DataModule1->bzcsjtjsyl->AsFloat=StrToFloat(fxjr82->Text)/StrToFloat(kyjr82->Text)*100;
   DataModule1->bzcsjtjkyjr->AsInteger=StrToInt(kyjr82->Text);
   DataModule1->bzcsjtjbkyjr->AsInteger=StrToInt(bkyjr82->Text);
   DataModule1->bzcsjtjzcjr->AsInteger=StrToInt(zcjr82->Text);
   DataModule1->bzcsjtjdjcsts->AsString=djjcts82->Text;
   DataModule1->bzcsjtjhftcts->AsString=hftcts82->Text;
   DataModule1->bzcsjtjjixing->AsString="MD82";
   DataModule1->zcjs->AsInteger=StrToInt(zcjs82->Text);
   DataModule1->bzcsjtjzyjs->AsInteger=StrToInt(zyjs82->Text);
   DataModule1->bzcsjtjkz->AsInteger=fxfh82;
   DataModule1->bzcsjtj->FieldByName("非营运时间")->AsInteger=feiyyfh82;
   DataModule1->bzcsjtjlxql->AsInteger=lxql82;
   DataModule1->bzcsjtjzywcs->AsInteger=StrToInt(zywcs82->Text);
   DataModule1->bzcsjtjmelyw->AsInteger=StrToInt(bfhmel82->Text);
   DataModule1->bzcsjtjzqxcs->AsInteger=StrToInt(zqxcs82->Text);
   DataModule1->bzcsjtjmelqxcs->AsInteger=StrToInt(bfhmelqx82->Text);
   DataModule1->bzcsjtjfxjr->AsInteger=StrToInt(fxjr82->Text);
   DataModule1->bzcsjtjzyjr->AsInteger=StrToInt(zyjr82->Text);
   DataModule1->bzcsjtjbgbzc->AsInteger=StrToInt(bgbzc82->Text);
   DataModule1->bzcsjtjbgmelbzc->AsInteger=StrToInt(bgmelbzc82->Text);
   DataModule1->bzcsjtjnian->AsInteger=StrToInt(nian->Text);
   DataModule1->bzcsjtjyue->AsInteger=StrToInt(yue->Text);
   DataModule1->bzcsjtj->Post();
  DataModule1->bzcsjtj->Filtered=false;
   DataModule1->bzcsjtj->Filter="年 = '"+nian->Text+"' AND 月 = '"+yue->Text+"'";
   DataModule1->bzcsjtj->Filtered=true;
   Button2->Enabled=true;
   Button3->Enabled=true;
   Button1->Enabled=false;

}
//---------------------------------------------------------------------------

void __fastcall TForm38::Button3Click(TObject *Sender)
{
TForm40* f40=new TForm40(this);
f40->QuickRep1->Preview();
delete f40;
}
//---------------------------------------------------------------------------

void __fastcall TForm38::Button2Click(TObject *Sender)
{
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -