⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bzcyb1.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "bzcyb1.h"
#include "dm.h"
#include "main.h"
#include "bzcyb1rep.h"
#include "bzcsjtj.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinComboBoxs"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "se_controls"
#pragma link "XLSReadWriteII"
#pragma resource "*.dfm"
TForm35 *Form35;
extern AnsiString lujing;
//---------------------------------------------------------------------------
__fastcall TForm35::TForm35(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm35::Button1Click(TObject *Sender)
{
if(ComboBox1->Text==NULL||ComboBox2->Text==NULL)
return;

DataModule1->bzcyb1->Filtered=false;
DataModule1->bzcyb1->Filter="年 = '"+ComboBox1->Text+"' AND 月 ='"+ComboBox2->Text+"'";
DataModule1->bzcyb1->Filtered=true;
//如果有记录
if(DataModule1->bzcyb1->RecordCount!=0)
    {
    TForm36* Form36=new TForm36(this);
    Form36->QuickRep1->Preview();
    delete Form36;
    }
    else
    {  if(MD82yanwu->Text==NULL||
MD82quxiao->Text==NULL||md90yanwu->Text==NULL||md90quxiao->Text==NULL)
return;
      int yyfh82,yyfh90,yyql82,yyql90,lxql82,lxql90,lxfh82,lxfh90;
      yyfh82=yyfh90=yyql82=yyql90=lxql82=lxql90=lxfh82=lxfh90=0;
      int qianfh,houfh,qianql,houql;
      int prefh=0;
      DataModule1->dayreport->Filtered=false;
      DataModule1->dayreport->Filter="日期 >= '"+DateToStr(DateTimePicker1->Date-1)+"' AND 日期 <= '"+DateToStr(DateTimePicker2->Date)+"'";
      DataModule1->dayreport->Filtered=true;
      if(DataModule1->dayreport->RecordCount!=0)
      {
        DataModule1->dayreport->IndexFieldNames="机号;日期";
      DataModule1->dayreport->First();

      for(int i=0;i<DataModule1->dayreport->RecordCount;i++)
        {

         if(DataModule1->dayreportField14->AsString=="训练")
         {
            if(DataModule1->dayreportField2->AsInteger>2200)
            {
            lxql90=lxql90+DataModule1->dayreportField13->AsInteger;
            lxfh90=lxfh90+(DataModule1->dayreportField4->AsInteger-prefh);
            }
            else
            {
            lxql82=lxql82+DataModule1->dayreportField13->AsInteger;
            lxfh82=lxfh90+(DataModule1->dayreportField4->AsInteger-prefh);
            }
         }
          prefh=DataModule1->dayreportField4->AsInteger;
         DataModule1->dayreport->Next();
      }
      TMemo* m1=new TMemo(Handle);
      m1->Lines->LoadFromFile(lujing+"plane.txt");
      for(int j=0;j<m1->Lines->Count;j++)
       {

         if(StrToInt(m1->Lines->Strings[j])>2200)
           {
                DataModule1->dayreport->Filtered=false;
         DataModule1->dayreport->Filter="机号 ='"+m1->Lines->Strings[j]+"' AND 日期<= '"+DateToStr(DateTimePicker2->Date)+"'";
         DataModule1->dayreport->Filtered=true;
                     DataModule1->dayreport->IndexFieldNames="机身总";
                DataModule1->dayreport->Last();
               houql=DataModule1->dayreportField10->AsInteger;
               houfh=DataModule1->dayreportField4->AsInteger;
               DataModule1->dayreport->Filtered=false;
         DataModule1->dayreport->Filter="机号 ='"+m1->Lines->Strings[j]+"' AND 日期< '"+DateToStr(DateTimePicker1->Date)+"'";
         DataModule1->dayreport->Filtered=true;
                    DataModule1->dayreport->IndexFieldNames="机身总";
               DataModule1->dayreport->Last();
              qianfh=DataModule1->dayreportField4->AsInteger;
              qianql=DataModule1->dayreportField10->AsInteger;
              yyfh90=yyfh90+(houfh-qianfh);
              yyql90=yyql90+(houql-qianql);

           }
           else
           {     DataModule1->dayreport->Filtered=false;
         DataModule1->dayreport->Filter="机号 ='"+m1->Lines->Strings[j]+"' AND 日期<= '"+DateToStr(DateTimePicker2->Date)+"'";
         DataModule1->dayreport->Filtered=true;
                     DataModule1->dayreport->IndexFieldNames="机身总";
              DataModule1->dayreport->Last();
               houql=DataModule1->dayreportField10->AsInteger;
               houfh=DataModule1->dayreportField4->AsInteger;
               DataModule1->dayreport->Filtered=false;
         DataModule1->dayreport->Filter="机号 ='"+m1->Lines->Strings[j]+"' AND 日期< '"+DateToStr(DateTimePicker1->Date)+"'";
         DataModule1->dayreport->Filtered=true;
          DataModule1->dayreport->IndexFieldNames="机身总";
               DataModule1->dayreport->Last();
              qianfh=DataModule1->dayreportField4->AsInteger;
              qianql=DataModule1->dayreportField10->AsInteger;
              yyfh82=yyfh82+(houfh-qianfh);
              yyql82=yyql82+(houql-qianql);
           }
       }
      DataModule1->bzcyb1->Append();
      DataModule1->bzcyb1year->AsInteger=StrToInt(ComboBox1->Text);
      DataModule1->bzcyb1month->AsInteger=StrToInt(ComboBox2->Text);
      DataModule1->bzcyb1bianhao->AsString="DB-NH-"+ComboBox1->Text+ComboBox2->Text;
      DataModule1->bzcyb1jixing->AsString="MD90";
      DataModule1->bzcyb1yingyunshijian->AsInteger=yyfh90-lxfh90;
      DataModule1->bzcyb1gjkongzhong->AsInteger=yyfh90;
      DataModule1->bzcyb1gjkongdi->AsInteger=int(yyfh90+yyql90*10);
      DataModule1->bzcyb1yyqiluo->AsInteger=(yyql90-lxql90);
      DataModule1->bzcyb1gjzhengchang->AsInteger=(yyql90-lxql90);
      DataModule1->bzcyb1gjlianxu->AsInteger=lxql90;
      DataModule1->bzcyb1yanwu->AsInteger=StrToInt(md90yanwu->Text);
      DataModule1->bzcyb1quxiao->AsInteger=StrToInt(md90quxiao->Text);
      DataModule1->bzcyb1->Post();
       DataModule1->bzcyb1->Append();
      DataModule1->bzcyb1year->AsInteger=StrToInt(ComboBox1->Text);
      DataModule1->bzcyb1month->AsInteger=StrToInt(ComboBox2->Text);
      DataModule1->bzcyb1bianhao->AsString="DB-NH-"+ComboBox1->Text+ComboBox2->Text;
      DataModule1->bzcyb1jixing->AsString="MD82";
      DataModule1->bzcyb1yingyunshijian->AsInteger=yyfh82-lxfh82;
      DataModule1->bzcyb1gjkongzhong->AsInteger=yyfh82;
      DataModule1->bzcyb1gjkongdi->AsInteger=int(yyfh82+yyql82*10);
      DataModule1->bzcyb1yyqiluo->AsInteger=(yyql82-lxql82);
      DataModule1->bzcyb1gjzhengchang->AsInteger=(yyql82-lxql82);
      DataModule1->bzcyb1gjlianxu->AsInteger=lxql82;
      DataModule1->bzcyb1yanwu->AsInteger=StrToInt(MD82yanwu->Text);
      DataModule1->bzcyb1quxiao->AsInteger=StrToInt(MD82quxiao->Text);
      DataModule1->bzcyb1->Post();
      }
     TForm36* Form36=new TForm36(this);
     Form36->QuickRep1->Preview();
     delete Form36;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm35::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->Text!=NULL&&ComboBox2->Text!=NULL)
  {
   DataModule1->bzcyb1->Filtered=false;
   DataModule1->bzcyb1->Filter="年 = '"+ComboBox1->Text+"' AND 月 ='"+ComboBox2->Text+"'";
   DataModule1->bzcyb1->Filtered=true;
     if(DataModule1->bzcyb1->RecordCount==0)
     {
       DateTimePicker1->Enabled=true;
       DateTimePicker2->Enabled=true;
       md90yanwu->Enabled=true;
       md90quxiao->Enabled=true;
       MD82yanwu->Enabled=true;
       MD82quxiao->Enabled=true;
     }
     else
     {
      DateTimePicker1->Enabled=false;
       DateTimePicker2->Enabled=false;
       md90yanwu->Enabled=false;
       md90quxiao->Enabled=false;
       MD82yanwu->Enabled=false;
       MD82quxiao->Enabled=false;
     }
  }

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

void __fastcall TForm35::md90yanwuChange(TObject *Sender)
{
Form38->shuzi(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm35::md90quxiaoChange(TObject *Sender)
{
Form38->shuzi(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm35::MD82yanwuChange(TObject *Sender)
{
Form38->shuzi(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TForm35::MD82quxiaoChange(TObject *Sender)
{
Form38->shuzi(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TForm35::FormCreate(TObject *Sender)
{
DateTimePicker1->Date=Now();
DateTimePicker2->Date=Now();        
}
//---------------------------------------------------------------------------

void __fastcall TForm35::SeSkinButton1Click(TObject *Sender)
{
DataModule1->bzcyb1->Filtered=false;
DataModule1->bzcyb1->Filter="年 = '"+ComboBox1->Text+"' AND 月 ='"+ComboBox2->Text+"'";
DataModule1->bzcyb1->Filtered=true;
int i_max=DataModule1->bzcyb1->RecordCount;
if(i_max==0)
{
 ShowMessage("无满足条件纪录！");
return;
}
Screen->Cursor=crHourGlass;
if(S1->Execute())
{
    XLS->Clear();
    XLS->Filename=ExtractFileDir(Application->ExeName)+"\\hbbzcyb.xls";
    XLS->Read();
    String s_ny=ComboBox1->Text+"年"+ComboBox2->Text+"月";
    XLS->Sheets->Items[0]->WriteWideString(5,1,-1,s_ny);
    s_ny="DB-NH-"+ComboBox1->Text+ComboBox2->Text;
     XLS->Sheets->Items[0]->WriteWideString(1,1,-1,s_ny);
    int i_line=4;
    String s_tmp;
    int i_fh,i_fhxl,i_fhz,i_xh,i_zks;

  DataModule1->bzcyb1->First();
  for(int i=0;i<i_max;i++)
  {
       s_tmp=DataModule1->bzcyb1->FieldByName("机型")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(2,i_line,-1,s_tmp);
        i_fh=DataModule1->bzcyb1->FieldByName("营运时间")->AsInteger;
        s_tmp=FormatFloat("####0.00",i_fh/60.0);
       XLS->Sheets->Items[0]->WriteWideString(3,i_line,-1,s_tmp);
i_fh=DataModule1->bzcyb1->FieldByName("共计空中")->AsInteger;
        s_tmp=FormatFloat("####0.00",i_fh/60.0);
       XLS->Sheets->Items[0]->WriteWideString(4,i_line,-1,s_tmp);
i_fh=DataModule1->bzcyb1->FieldByName("共计空地")->AsInteger;
        s_tmp=FormatFloat("####0.00",i_fh/60.0);
       XLS->Sheets->Items[0]->WriteWideString(5,i_line,-1,s_tmp);

        s_tmp=DataModule1->bzcyb1->FieldByName("营运起落")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(6,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcyb1->FieldByName("共计连续")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(8,i_line,-1,s_tmp);
        s_tmp=DataModule1->bzcyb1->FieldByName("共计正常")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(7,i_line,-1,s_tmp);

      s_tmp=DataModule1->bzcyb1->FieldByName("延误")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(9,i_line,-1,s_tmp);

       s_tmp=DataModule1->bzcyb1->FieldByName("取消")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(10,i_line,-1,s_tmp);
       s_tmp=DataModule1->bzcyb1->FieldByName("合计")->AsString;
       XLS->Sheets->Items[0]->WriteWideString(11,i_line,-1,s_tmp);

              i_line+=1;
       DataModule1->bzcyb1->Next();
     }

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


    XLS->Filename=S1->FileName+".XLS";

    XLS->Write();
}
Screen->Cursor=crDefault;
}
//---------------------------------------------------------------------------

⌨️ 快捷键说明

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