dayreport.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "dayreport.h"
#include "dm.h"
#include "main.h"
#include "Ubcxtj2.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 resource "*.dfm"
TForm4 *Form4;
int fhlast,jixiul,zuoxiul,youxiul,zuofal,youfal,qixiul,qizongl,zuoxunl,youxunl,apul;
int editfg;
extern AnsiString lujing;
extern TDataSet *cxb2;

//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
Date1->Date=Now();

Left=220;
Top=80;
editfg=0;
ComboBox2->Items->LoadFromFile(lujing+"plane.txt");
//for(int i=0;i<Memo1->Lines->Count;i++)
//Form4->ComboBox2->Items->Add(Memo1->Lines->Strings[i]);
DataModule1->dayreport->Filtered=false;

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

void __fastcall TForm4::BitBtnAddClick(TObject *Sender)
{
setwrite();
BitBtnOk->Enabled=true;
editfg=2;
BitBtnCan->Enabled=true;
BitBtnAdd->Enabled=false;
//DataModule1->dayreport->Append();
ClearData();
ComboBox1->Text="营运";
lianxuql->Visible=false;
}
//---------------------------------------------------------------------------


int TForm4::StrTimeToInt(AnsiString ansistr)
{
        int fh,l;
        fh=-1;
AnsiString sall,fhstr,fmstr;

sall=ansistr.Trim();

l=sall.Length();
if(sall!="")
 {
        fhstr=sall.SubString(1,(l-3));
        float sv=StrToFloat(fhstr);
        if(sv<0.00001)
        {fh=0;
        return fh;}
        fmstr=sall.SubString(l-1,2);
        fh=60*fhstr.ToInt()+fmstr.ToInt();

  }
  return fh;//TODO: Add your source code here
}
void __fastcall TForm4::BitBtnOkClick(TObject *Sender)
{
if(editfg==1)
{
DataModule1->dayreport->Edit();
DataModule1->dayreportField->AsDateTime=Date1->DateTime;
DataModule1->dayreportField2->AsInteger=StrToInt(ComboBox2->Text);
DataModule1->dayreportField3->AsInteger=StrTimeToInt(jixiu->Text);
DataModule1->dayreportField4->AsInteger=StrTimeToInt(jishen->Text);
DataModule1->dayreportField5->AsInteger=StrTimeToInt(zuoxiu->Text);
DataModule1->dayreportField6->AsInteger=StrTimeToInt(zuofa->Text);
DataModule1->dayreportField7->AsInteger=StrTimeToInt(youxiu->Text);
DataModule1->dayreportField8->AsInteger=StrTimeToInt(youfa->Text);
DataModule1->dayreportField9->AsInteger=StrToInt(qixiu->Text);
DataModule1->dayreportField10->AsInteger=StrToInt(qiluo->Text);
DataModule1->dayreportField11->AsFloat=StrToFloat(zuoxun->Text);
DataModule1->dayreportField12->AsFloat=StrToFloat(youxun->Text);
DataModule1->dayreportAPU->AsInteger=StrToInt(apu->Text);
DataModule1->dayreportField14->AsString=ComboBox1->Text;
DataModule1->dayreport->Post();
DataModule1->dayrep->AutoEdit=false;
BitBtnAdd->Enabled=!DataModule1->dayrep->AutoEdit;
BitBtnCan->Enabled=!DataModule1->dayrep->AutoEdit;
BitBtnDel->Enabled=!DataModule1->dayrep->AutoEdit;
BitBtnEdit->Enabled=true;
}
else
{
DataModule1->dayreport->Filtered=false;
DataModule1->dayreport->Filter="机号="+ComboBox2->Text;
DataModule1->dayreport->Filtered=true;
DataModule1->dayreport->IndexFieldNames="机身总";
DataModule1->dayreport->Last();
jixiul=DataModule1->dayreportField3->AsInteger;
fhlast=DataModule1->dayreportField4->AsInteger;
zuoxiul=DataModule1->dayreportField5->AsInteger;
zuofal=DataModule1->dayreportField6->AsInteger;
youxiul=DataModule1->dayreportField7->AsInteger;
youfal=DataModule1->dayreportField8->AsInteger;
qixiul=DataModule1->dayreportField9->AsInteger;
qizongl=DataModule1->dayreportField10->AsInteger;
zuoxunl=DataModule1->dayreportField11->AsFloat;
youxunl=DataModule1->dayreportField12->AsFloat;
apul=DataModule1->dayreportAPU->AsInteger;
DataModule1->dayreport->Filtered=false;

DataModule1->dayreport->Insert();
DataModule1->dayreportField->AsDateTime=Date1->DateTime;
DataModule1->dayreportField2->AsInteger=StrToInt(ComboBox2->Text);
int fhin=fhlast+StrTimeToInt(jishen->Text);
if(jixiul>0)
DataModule1->dayreportField3->AsInteger=jixiul+StrTimeToInt(jishen->Text);
else
DataModule1->dayreportField3->AsInteger=0;
DataModule1->dayreportField4->AsInteger=fhin;
if(zuoxiul>0)
DataModule1->dayreportField5->AsInteger=zuoxiul+StrTimeToInt(zuofa->Text);
else
DataModule1->dayreportField5->AsInteger=0;

DataModule1->dayreportField6->AsInteger=zuofal+StrTimeToInt(zuofa->Text);
if(youxiul>0)
DataModule1->dayreportField7->AsInteger=youxiul+StrTimeToInt(youfa->Text);
else
DataModule1->dayreportField7->AsInteger=0;
DataModule1->dayreportField8->AsInteger=youfal+StrTimeToInt(youfa->Text);
if(qixiul>0)
DataModule1->dayreportField9->AsInteger=qixiul+StrToInt(qiluo->Text);
else
DataModule1->dayreportField9->AsInteger=0;
DataModule1->dayreportField10->AsInteger=qizongl+StrToInt(qiluo->Text);
DataModule1->dayreportField11->AsInteger=zuoxunl+StrToFloat(zuoxun->Text);
DataModule1->dayreportField12->AsInteger=youxunl+StrToFloat(youxun->Text);
DataModule1->dayreportAPU->AsInteger=StrToFloat(apu->Text);
DataModule1->dayreportField14->AsString=ComboBox1->Text;
if(ComboBox1->Text.operator ==("训练"))
   DataModule1->dayreportField13->AsInteger=StrToInt(lianxuql->Text);
DataModule1->dayreport->Post();
/*if(DataModule1->dayreport->ChangeCount>0)
DataModule1->dayreport->MergeChangeLog();

  */
ReadData();

Form1->control();
BitBtnOk->Enabled=false;
BitBtnAdd->Enabled=true;
editfg=0;
}
setread();


//DataModule1->dayreport->SaveToFile(DataModule1->dayreport->FileName,dfBinary);
//DataModule1->dayreport->LoadFromFile(DataModule1->dayreport->FileName);
 }
//---------------------------------------------------------------------------


AnsiString TForm4::IntToStrTime(int fh)
{    AnsiString s,mstr;
     if(fh==0)
        {s="0:00";
        return s;}
     int h,m;
     m=fh%60;
     if(m<10)
     mstr="0"+IntToStr(m);
     else
     mstr=IntToStr(m);
     h=(fh-m)/60;
     s=IntToStr(h)+":"+mstr;
     return s;
        //TODO: Add your source code here
}
void __fastcall TForm4::FormActivate(TObject *Sender)
{

DataModule1->dayreport->Filtered=false;
DataModule1->dayreport->Last();
int fhout=DataModule1->dayreportField4->AsInteger;
jishen->Text=IntToStrTime(fhout);
ReadData();
SetSatus();
setread();
}
//---------------------------------------------------------------------------


void TForm4::ReadData()
{
         Date1->Date=DataModule1->dayreportField->AsDateTime;
         ComboBox2->Text=IntToStr(DataModule1->dayreportField2->AsInteger);
         jixiu->Text=IntToStrTime(DataModule1->dayreportField3->AsInteger);
         jishen->Text=IntToStrTime(DataModule1->dayreportField4->AsInteger);
         zuofa->Text=IntToStrTime(DataModule1->dayreportField6->AsInteger);
         zuoxiu->Text=IntToStrTime(DataModule1->dayreportField5->AsInteger);
         youfa->Text=IntToStrTime(DataModule1->dayreportField8->AsInteger);
         youxiu->Text=IntToStrTime(DataModule1->dayreportField7->AsInteger);
         qiluo->Text=IntToStr(DataModule1->dayreportField10->AsInteger);
         qixiu->Text=IntToStr(DataModule1->dayreportField9->AsInteger);
         zuoxun->Text=IntToStr(DataModule1->dayreportField11->AsInteger);
         youxun->Text=IntToStr(DataModule1->dayreportField12->AsInteger);
         apu->Text=IntToStr(DataModule1->dayreportAPU->AsInteger);
         ComboBox1->Text=DataModule1->dayreportField14->AsString;
         if(ComboBox1->Text.operator ==("训练"))
         {
         lianxuql->Visible=true;
         lianxuql->Text=IntToStr(DataModule1->dayreport->FieldByName("连续起落")->AsInteger);
         }
         else
         {
         lianxuql->Visible=false;
         Label15->Visible=false;
         }
        //TODO: Add your source code here
}

void TForm4::ClearData()
{
      
    ComboBox2->Text="";
    jishen->Text="";
    jixiu->Text="0:00";
    zuofa->Text="";
    zuoxiu->Text="0:00";
    youfa->Text="";
    youxiu->Text="0:00";
    qiluo->Text="0";
    qixiu->Text="";
    zuoxun->Text="";
    youxun->Text="";
    apu->Text="";
    ComboBox1->Text="";  //TODO: Add your source code here
}
void __fastcall TForm4::qiluoChange(TObject *Sender)
{
if(editfg!=1)
{
zuoxun->Text=qiluo->Text;
youxun->Text=qiluo->Text;
qixiu->Text="0";
}