📄 bzcsjtj.cpp

📁 民航飞机生产管理系统,实现了飞机定检坚控,小时卡起落卡等的坚控,并能生成工作任务包
💻 CPP
📖 第 1 页 / 共 2 页
字号:
上一页 12
int fhtmp;
TForm39* f39=new TForm39(this);
DataModule1->bzcsjtj->Filtered=false;
DataModule1->bzcsjtj->Filter="年 = '"+nian->Text+"' AND 月 = '"+yue->Text+"'";
DataModule1->bzcsjtj->Filtered=true;
if(DataModule1->bzcsjtj->RecordCount!=0)
{
  DataModule1->bzcsjtj->First();
  for(int i=0;i<DataModule1->bzcsjtj->RecordCount;i++)
  {
     if(DataModule1->bzcsjtjjixing->AsString=="MD82")
     {
       fhtmp=DataModule1->bzcsjtjfh->AsInteger;
       f39->fh82->Caption=FormatFloat("#####.#",fhtmp/60);
       f39->qlcs82->Caption=IntToStr(DataModule1->bzcsjtjqlcs->AsInteger);
       f39->yycs82->Caption=DataModule1->bzcsjtjyycs->AsString;
       f39->cgcs82->Caption=DataModule1->bzcsjtjcgcs->AsString;
       f39->ryl82->Caption=FormatFloat("#####.#",StrToFloat(DataModule1->bzcsjtjrkyl->AsString));
       f39->kyl82->Caption=FormatFloat("#####.#",StrToFloat(DataModule1->bzcsjtjkyl->AsString));
       f39->syl82->Caption=FormatFloat("#####.#",DataModule1->bzcsjtjsyl->AsFloat);
       f39->kyjr82->Caption=DataModule1->bzcsjtjkyjr->AsString;
       f39->fxjr82->Caption=DataModule1->bzcsjtjfxjr->AsString;
       f39->zyjr82->Caption=DataModule1->bzcsjtjzyjr->AsString;
       f39->bkyjr82->Caption=DataModule1->bzcsjtjbkyjr->AsString;
       f39->zcjr82->Caption=DataModule1->bzcsjtjzcjr->AsString;
       f39->djjcts82->Caption=DataModule1->bzcsjtjdjcsts->AsString;
       f39->hftcts82->Caption=DataModule1->bzcsjtjhftcts->AsString;
     }
     else
     {
        fhtmp=DataModule1->bzcsjtjfh->AsInteger;
       f39->fh90->Caption=FormatFloat("####.#",fhtmp/60);
       f39->qlcs90->Caption=IntToStr(DataModule1->bzcsjtjqlcs->AsInteger);
       f39->yycs90->Caption=DataModule1->bzcsjtjyycs->AsString;
       f39->cgcs90->Caption=DataModule1->bzcsjtjcgcs->AsString;
       f39->ryl90->Caption=FormatFloat("#####.#",StrToFloat(DataModule1->bzcsjtjrkyl->AsString));
       f39->kyl90->Caption=FormatFloat("#####.#",StrToFloat(DataModule1->bzcsjtjkyl->AsString));
       f39->syl90->Caption=FormatFloat("#####.#",DataModule1->bzcsjtjsyl->AsFloat);
       f39->kyjr90->Caption=DataModule1->bzcsjtjkyjr->AsString;
       f39->fxjr90->Caption=DataModule1->bzcsjtjfxjr->AsString;
       f39->zyjr90->Caption=DataModule1->bzcsjtjzyjr->AsString;
       f39->bkyjr90->Caption=DataModule1->bzcsjtjbkyjr->AsString;
       f39->zcjr90->Caption=DataModule1->bzcsjtjzcjr->AsString;
       f39->djjcts90->Caption=DataModule1->bzcsjtjdjcsts->AsString;
       f39->hftcts90->Caption=DataModule1->bzcsjtjhftcts->AsString;
     }
     DataModule1->bzcsjtj->Next();
  }

}
f39->QuickRep1->Preview();
delete f39;
}
//---------------------------------------------------------------------------



void TForm38::shuzi(TObject* Sender)
{
        //判断是否录入的是数字
        TEdit* edit1=dynamic_cast<TEdit*>(Sender);
        if(edit1)
        {
           int l=edit1->Text.Length();
           AnsiString s=edit1->Text;
           for(int i=0;i<l;i++)
           if(s.SubString(i+1,1)>"9"||s.SubString(i+1,1)<"0")
             {
               ShowMessage("录入的第"+IntToStr(i+1)+"个字符不是数字！");
               edit1->Text=s.SubString(1,i);               
               return;
              }
              

        }
        else
        {
          return;
        }
}
void __fastcall TForm38::cgcs90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::kyjr90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bkyjr90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::fxjr90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zyjr90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zcjr90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::cgcs82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::kyjr82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bkyjr82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::fxjr82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zyjr82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zcjr82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zcjs90Change(TObject *Sender)
{
shuzi(Sender);      
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zcjs82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zyjs90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zyjs82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zywcs90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bfhmel90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zqxcs90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bfhmelqx90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zywcs82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bfhmel82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::zqxcs82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bfhmelqx82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bgbzc90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bgbzc82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bgmelbzc90Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::bgmelbzc82Change(TObject *Sender)
{
shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm38::FormCreate(TObject *Sender)
{
qishi->Date=Now();
jiezhi->Date=Now();
}
//---------------------------------------------------------------------------

void __fastcall TForm38::SeSkinButton2Click(TObject *Sender)
{
Screen->Cursor=crHourGlass;
if(S1->Execute())
{
    XLS->Clear();
    XLS->Filename=ExtractFileDir(Application->ExeName)+"\\bzcsjtjyb.xls";
    XLS->Read();
    String s_ny=nian->Text+"年"+yue->Text+"月";
    XLS->Sheets->Items[0]->WriteWideString(0,1,-1,s_ny);
    XLS->Sheets->Items[0]->WriteWideString(12,2,-1,danwei);
    int i_line=6;
    String s_tmp;
    int i_yycs,i_cgcs,i_bgbzc,i_melbgbzc,i_ywcs,i_qxcs,i_melyw,i_melqx;
                DataModule1->bzcsjtj->Filtered=false;
DataModule1->bzcsjtj->Filter="年 = '"+nian->Text+"' AND 月 = '"+yue->Text+"'";
DataModule1->bzcsjtj->Filtered=true;
if(DataModule1->bzcsjtj->RecordCount!=0)
{
  DataModule1->bzcsjtj->First();
  for(int i=0;i<DataModule1->bzcsjtj->RecordCount;i++)
  {
       s_tmp=DataModule1->bzcsjtj->FieldByName("机型")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(0,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcsjtj->FieldByName("在册架数")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(1,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcsjtj->FieldByName("在用架数")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(2,i_line,-1,s_tmp);
        s_tmp=FormatFloat("#####0.00",DataModule1->bzcsjtj->FieldByName("飞行时间")->AsInteger/60.0);
       XLS->Sheets->Items[0]->WriteWideString(3,i_line,-1,s_tmp);
       XLS->Sheets->Items[0]->WriteWideString(4,i_line,-1,s_tmp);
        s_tmp=FormatFloat("#####0.00",DataModule1->bzcsjtj->FieldByName("飞行时间")->AsInteger*1.1/60);
       XLS->Sheets->Items[0]->WriteWideString(5,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcsjtj->FieldByName("营运次数")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(6,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcsjtj->FieldByName("起落次数")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(7,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcsjtj->FieldByName("连续起落")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(7,i_line+1,-1,s_tmp);
        i_ywcs=DataModule1->bzcsjtj->FieldByName("总延误次数")->AsInteger;
        s_tmp=IntToStr(i_ywcs);
       XLS->Sheets->Items[0]->WriteWideString(9,i_line,-1,s_tmp);
        i_melyw=DataModule1->bzcsjtj->FieldByName("非mel延误次数")->AsInteger;
        s_tmp=IntToStr(i_melyw);
       XLS->Sheets->Items[0]->WriteWideString(9,i_line+1,-1,s_tmp);
       i_yycs=DataModule1->bzcsjtj->FieldByName("营运次数")->AsInteger;
        s_tmp=FormatFloat("###0.00",(i_ywcs*100.0/i_yycs));
       XLS->Sheets->Items[0]->WriteWideString(10,i_line,-1,s_tmp);
               s_tmp=FormatFloat("###0.00",(i_melyw*100.0/i_yycs));
       XLS->Sheets->Items[0]->WriteWideString(10,i_line+1,-1,s_tmp);
       i_qxcs=DataModule1->bzcsjtj->FieldByName("总取消次数")->AsInteger;
       s_tmp=IntToStr(i_qxcs);
       XLS->Sheets->Items[0]->WriteWideString(11,i_line,-1,s_tmp);
        i_melqx=DataModule1->bzcsjtj->FieldByName("非mel取消次数")->AsInteger;
        s_tmp=IntToStr(i_melqx);
       XLS->Sheets->Items[0]->WriteWideString(11,i_line+1,-1,s_tmp);
        s_tmp=FormatFloat("###0.00",(i_qxcs*100.0/i_yycs));
       XLS->Sheets->Items[0]->WriteWideString(12,i_line,-1,s_tmp);
               s_tmp=FormatFloat("###0.00",(i_melqx*100.0/i_yycs));
       XLS->Sheets->Items[0]->WriteWideString(12,i_line+1,-1,s_tmp);
       s_tmp=IntToStr(i_ywcs+i_qxcs);
       XLS->Sheets->Items[0]->WriteWideString(13,i_line,-1,s_tmp);
        s_tmp=IntToStr(i_melqx+i_melyw);
       XLS->Sheets->Items[0]->WriteWideString(13,i_line+1,-1,s_tmp);
        s_tmp=FormatFloat("###0.00",((i_ywcs+i_qxcs)*1000.0/i_yycs));
       XLS->Sheets->Items[0]->WriteWideString(14,i_line,-1,s_tmp);
       s_tmp=FormatFloat("###0.00",((i_melyw+i_melqx)*1000.0/i_yycs));
       XLS->Sheets->Items[0]->WriteWideString(14,i_line+1,-1,s_tmp);
       i_bgbzc=DataModule1->bzcsjtj->FieldByName("本港不正常次数")->AsInteger;
       i_melbgbzc=DataModule1->bzcsjtj->FieldByName("本港非mel不正常次数")->AsInteger;
       s_tmp=IntToStr(i_bgbzc);
       XLS->Sheets->Items[0]->WriteWideString(15,i_line,-1,s_tmp);
        s_tmp=IntToStr(i_melbgbzc);
       XLS->Sheets->Items[0]->WriteWideString(15,i_line+1,-1,s_tmp);
       i_cgcs= DataModule1->bzcsjtj->FieldByName("出港次数")->AsInteger;
       s_tmp=FormatFloat("###0.00",(i_cgcs-i_bgbzc)*100.0/i_cgcs);
       XLS->Sheets->Items[0]->WriteWideString(16,i_line,-1,s_tmp);
       s_tmp=FormatFloat("###0.00",(i_cgcs-i_melbgbzc)*100.0/i_cgcs);
       XLS->Sheets->Items[0]->WriteWideString(16,i_line+1,-1,s_tmp);
        s_tmp=FormatFloat("###0.00",DataModule1->bzcsjtj->FieldByName("日可用率")->AsFloat);
       XLS->Sheets->Items[0]->WriteWideString(17,i_line,-1,s_tmp);
       s_tmp=FormatFloat("###0.00",DataModule1->bzcsjtj->FieldByName("可用率")->AsFloat);
       XLS->Sheets->Items[0]->WriteWideString(18,i_line,-1,s_tmp);
       s_tmp=IntToStr(i_cgcs);
       XLS->Sheets->Items[0]->WriteWideString(19,i_line,-1,s_tmp);
       i_line+=2;
       DataModule1->bzcsjtj->Next();
     }

      XLS->Sheets->Items[0]->WriteWideString(17,12,-1,Date().DateString());
  }

    XLS->Filename=S1->FileName+".XLS";
    
    XLS->Write();
}
Screen->Cursor=crDefault;
}
//---------------------------------------------------------------------------
上一页 12
⌨️ 快捷键说明

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