📄 main.~cpp
字号:
{
DataModule1->tiaojian->Next();
continue;
}
if(leixing=="M")
{
days=jiange*30-wucha-int((Now()-shangcishijian));
if(days>mini&&days<maxi)
{
DataModule1->jihua->Append();
DataModule1->jihuanian->AsInteger=StrToInt("20"+nian);
DataModule1->jihuayue->AsInteger=StrToInt(yue);
DataModule1->jihuajihao->AsInteger=jihao;
DataModule1->jihuajixing->AsString=jixing;
DataModule1->jihuajiange->AsInteger=StrToInt(jiange);
DataModule1->jihualeixing->AsString=leixing;
DataModule1->jihuaxyrq->AsDateTime=Now()+days;
DataModule1->jihuariqi->AsDateTime=shangcishijian;
DataModule1->jihua->Post();
DataModule1->tiaojian->Next();
continue;
}
else
{
if(days+StrToInt(jiange)>=mini&&days+StrToInt(jiange)<=maxi)
{
DataModule1->jihua->Append();
DataModule1->jihuanian->AsInteger=StrToInt("20"+nian);
DataModule1->jihuayue->AsInteger=StrToInt(yue);
DataModule1->jihuajihao->AsInteger=jihao;
DataModule1->jihuajixing->AsString=jixing;
DataModule1->jihuajiange->AsInteger=StrToInt(jiange);
DataModule1->jihualeixing->AsString=leixing;
DataModule1->jihuaxyrq->AsDateTime=Now()+days+StrToInt(jiange);
DataModule1->jihuariqi->AsDateTime=shangcishijian;
DataModule1->jihua->Post();
DataModule1->tiaojian->Next();
continue;
}
}
}
if(leixing=="FH")
{
days=int((jiange-wucha-(dangqian-shangcishijian))/rkyl);
if(days>=mini&&days<=maxi)
{
DataModule1->jihua->Append();
DataModule1->jihuanian->AsInteger=StrToInt("20"+nian);
DataModule1->jihuayue->AsInteger=StrToInt(yue);
DataModule1->jihuajihao->AsInteger=jihao;
DataModule1->jihuajixing->AsString=jixing;
DataModule1->jihuajiange->AsInteger=StrToInt(jiange);
DataModule1->jihualeixing->AsString=leixing;
DataModule1->jihuaxyrq->AsDateTime=Now()+days;
// DataModule1->jihuariqi->AsDateTime=shangcishijian;
DataModule1->jihua->Post();
DataModule1->tiaojian->Next();
continue;
}
}
if(leixing=="LD")
{
days=int((jiange-wucha-(dangqian-shangcishijian))/6);
if(days>=mini&&days<=maxi)
{
DataModule1->jihua->Append();
DataModule1->jihuanian->AsInteger=StrToInt("20"+nian);
DataModule1->jihuayue->AsInteger=StrToInt(yue);
DataModule1->jihuajihao->AsInteger=jihao;
DataModule1->jihuajixing->AsString=jixing;
DataModule1->jihuajiange->AsInteger=StrToInt(jiange);
DataModule1->jihualeixing->AsString=leixing;
DataModule1->jihuaxyrq->AsDateTime=Now()+days;
// DataModule1->jihuariqi->AsDateTime=shangcishijian;
DataModule1->jihua->Post();
DataModule1->tiaojian->Next();
continue;
}
}
if(leixing=="EH")
{
days=int((jiange-wucha-(dangqian-shangcishijian))/rkyl);
if(days>=mini&&days<=maxi)
{
DataModule1->jihua->Append();
DataModule1->jihuanian->AsInteger=StrToInt("20"+nian);
DataModule1->jihuayue->AsInteger=StrToInt(yue);
DataModule1->jihuajihao->AsInteger=jihao;
DataModule1->jihuajixing->AsString=jixing;
DataModule1->jihuajiange->AsInteger=StrToInt(jiange);
DataModule1->jihualeixing->AsString=leixing;
DataModule1->jihuaxyrq->AsDateTime=Now()+days;
//DataModule1->jihuariqi->AsDateTime=shangcishijian;
DataModule1->jihua->Post();
DataModule1->tiaojian->Next();
continue;
}
}
if(leixing=="EC")
{
days=int((jiange-wucha-(dangqian-shangcishijian))/6);
if(days>=mini&&days<=maxi)
{
DataModule1->jihua->Append();
DataModule1->jihuanian->AsInteger=StrToInt("20"+nian);
DataModule1->jihuayue->AsInteger=StrToInt(yue);
DataModule1->jihuajihao->AsInteger=jihao;
DataModule1->jihuajixing->AsString=jixing;
DataModule1->jihuajiange->AsInteger=StrToInt(jiange);
DataModule1->jihualeixing->AsString=leixing;
DataModule1->jihuaxyrq->AsDateTime=Now()+days;
// DataModule1->jihuariqi->AsDateTime=shangcishijian;
DataModule1->jihua->Post();
DataModule1->tiaojian->Next();
continue;
}
}
DataModule1->tiaojian->Next();
}//for i
}//for jia
DataModule1->jihua->Filtered=false;
DataModule1->jihua->Filter="年 = '20"+nian+"' AND 月 = '"+yue+"'";
DataModule1->jihua->Filtered=true;
if(DataModule1->jihua->RecordCount!=0)
{
TForm47* f47=new TForm47(this);
f47->QuickRep1->Preview();
delete f47;
return;
}
delete m1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N59_oldClick(TObject *Sender)
{
TForm45* f45=new TForm45(this);
f45->ShowModal();
if(f45->qn->Text!=NULL&&f45->qy->Text!=NULL&&f45->jn->Text!=NULL&&f45->jy->Text!=NULL&&f45->jx->Text!=NULL)
{
DataModule1->bzcsjtj->Filtered=false;
DataModule1->bzcsjtj->Filter="年 >= '"+f45->qn->Text+"' AND 年 <= '"+f45->jn->Text+
"' AND 月 >= '"+f45->qy->Text+"' AND 月 <= '"+f45->jy->Text+"' AND 机型 = '"+f45->jx->Text+"'";
DataModule1->bzcsjtj->Filtered=true;
if(DataModule1->bzcsjtj->RecordCount==0)
{
delete f45;
return;
}
}
else
{
delete f45;
return;
}
TForm48* f48=new TForm48(this);
f48->title1->Caption=f45->jx->Text+"飞机"+f45->jn->Text+"年"+f45->qy->Text+"到"+f45->jy->Text+
"月份不正常事件比较直方图";
int yw,qx,yyql,cgcs,ywm,qxm;
float bzclv,zbzclv,ywl,qxl,zbclzl,bclzl,zbclzlm,bclzlm,zywm,zqxm,bzcm,zbzclm;
zbzclv=0;
ywl=qxl=0;
zbclzl=0;
zbclzlm=0;
zywm=zqxm=zbzclm=0;
DataModule1->bzcsjtj->First();
int yuecount=DataModule1->bzcsjtj->RecordCount;
AnsiString fhlabel;
for(int i=0;i<yuecount;i++)
{
cgcs=DataModule1->bzcsjtjcgcs->AsInteger;
bclzl=float((cgcs-DataModule1->bzcsjtjbgbzc->AsInteger)*100/cgcs);
zbclzl=zbclzl+bclzl;
bclzlm=float((cgcs-DataModule1->bzcsjtjbgmelbzc->AsInteger)*100/cgcs);
zbclzlm=zbclzlm+bclzlm;
yyql=DataModule1->bzcsjtjyycs->AsInteger;
yw=DataModule1->bzcsjtjzywcs->AsInteger;
qx=DataModule1->bzcsjtjzqxcs->AsInteger;
ywm=DataModule1->bzcsjtjmelyw->AsInteger;
qxm=DataModule1->bzcsjtjmelqxcs->AsInteger;
bzclv=(float)(yw+qx)*1000/yyql;
bzcm=(float)(ywm+qxm)*1000/yyql;
zbzclv=zbzclv+bzclv;
zbzclm=zbzclm+bzcm;
zywm=zywm+(float)ywm*100/yyql;
zqxm=zqxm+(float)qxm*100/yyql;
ywl=ywl+(float)yw*100/yyql;
qxl=qxl+(float)qx*100/yyql;
fhlabel=IntToStr(DataModule1->bzcsjtjyue->AsInteger);
f48->BarSeries6->AddBar(bzclv,fhlabel,clRed);
DataModule1->bzcsjtj->Next();
}
ywl=ywl/yuecount;
qxl=qxl/yuecount;
zbzclv=zbzclv/yuecount;
f48->ywl->Caption="平均延误率:"+FormatFloat("##.##",ywl)+"%; "+"平均取消率:"+FormatFloat("##.##",qxl)+"%; "+
"平均不正常千次率:"+FormatFloat("##.##",zbzclv)+"‰; "+"平均百次离站率:"+FormatFloat("###.##",zbclzl/yuecount)+"%";
f48->ywlm->Caption="平均不符合MEl延误率:"+FormatFloat("###.##",zywm/yuecount)+"%; "+"平均不符合MEl取消率："+FormatFloat("###.##",zqxm/yuecount)+"%; "+
+"平均不符合MEL不正常千次率："+FormatFloat("###.##",zbzclm/yuecount)+"‰";
f48->zbclzl->Caption="平均不符合MEl百次离站率:"+FormatFloat("###.##",zbclzlm/yuecount)+"%";
f48->QuickRep1->Preview();
delete f45;
delete f48;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N22_oldClick(TObject *Sender)
{
AnsiString file="c:\\cost\\cost.exe";
if(FileExists(file))
{
if((WinExec(file.c_str(),SW_SHOW))<=31)
Application->MessageBoxA("启动成本控制出错！","生产科管理系统",MB_OK);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MD901_oldClick(TObject *Sender)
{
TForm45* f45=new TForm45(this);
f45->Label5->Visible=false;
f45->jx->Visible=false;
f45->ShowModal();
if(f45->ModalResult==mrOk)
{
/*
DataModule1->bzcsjtj->Filtered=false;
DataModule1->bzcsjtj->Filter="机型 = 'MD90' AND 年 >= '"+f45->qn->Text+
"' AND 年 <= '"+f45->jn->Text+"' AND 月>= '"+f45->qy->Text+"' AND 月<= '"+f45->jy->Text+"'";
DataModule1->bzcsjtj->Filtered=true;*/
String stj="机型 = 'MD90' AND 年 >= '"+f45->qn->Text+"' AND 年 <= '"+f45->jn->Text+"' AND 月>= '"+f45->qy->Text+"' AND 月<= '"+f45->jy->Text+"'";
DataModule1->Q_bzctj->Close();
DataModule1->Q_bzctj->SQL->Clear();
DataModule1->Q_bzctj->SQL->Add("select * from bzcsjtj where "+stj);
DataModule1->Q_bzctj->Open();
TForm51* f51=new TForm51(this);
f51->title->Caption=f45->qn->Text+"年"+f45->qy->Text+"月至"+f45->jn->Text+"年"+f45->jy->Text+"月MD-90飞机各月数据统计";
f51->QuickRep1->Prepare();
f51->QuickRep1->Preview();
delete f51;
TForm57* f57=new TForm57(this);
f57->title->Caption=f45->qn->Text+"年"+f45->qy->Text+"月至"+f45->jn->Text+"年"+f45->jy->Text+"月MD-90飞机各月数据统计(二)";
f57->QuickRep1->Prepare();
f57->QuickRep1->Preview();
delete f57;
}
delete f45;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MD823_oldClick(TObject *Sender)
{
TForm45* f45=new TForm45(this);
f45->Label5->Visible=false;
f45->jx->Visible=false;
f45->ShowModal();
if(f45->ModalResult==mrOk)
{
/*DataModule1->bzcsjtj->Filtered=false;
DataModule1->bzcsjtj->Filter="机型 = 'MD82' AND 年 >= '"+f45->qn->Text+
"' AND 年 <= '"+f45->jn->Text+"' AND 月>= '"+f45->qy->Text+"' AND 月<= '"+f45->jy->Text+"'";
DataModule1->bzcsjtj->Filtered=true;*/
String stj="机型 = 'MD82' AND 年 >= '"+f45->qn->Text+"' AND 年 <= '"+f45->jn->Text+"' AND 月>= '"+f45->qy->Text+"' AND 月<= '"+f45->jy->Text+"'";
DataModule1->Q_bzctj->Close();
DataModule1->Q_bzctj->SQL->Clear();
DataModule1->Q_bzctj->SQL->Add("select * from bzcsjtj where "+stj);
DataModule1->Q_bzctj->Open();
TForm51* f51=new TForm51(this);
f51->title->Caption=f45->qn->Text+"年"+f45->qy->Text+"月至"+f45->jn->Text+"年"+f45->jy->Text+"月MD-82飞机各月数据统计";
f51->QuickRep1->Prepare();
f51->QuickRep1->Preview();
delete f51;
TForm57* f57=new TForm57(this);
f57->title->Caption=f45->qn->Text+"年"+f45->qy->Text+"月至"+f45->jn->Text+"年"+f45->jy->Text+"月MD-82飞机各月数据统计(二)";
f57->QuickRep1->Prepare();
f57->QuickRep1->Preview();
delete f57;
}
delete f45;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N62_oldClick(TObject *Sender)
{
TForm52* f52=new TForm52(this);
f52->ShowModal();
delete f52;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N63_oldClick(TObject *Sender)
{
if(M1->MessageDlg("是否要保存为电子表格？ ",mtConfirmation, TMsgDlgButtons() << mbYes<<mbNo, 0)==mrNo)
{
TForm53* f53=new TForm53(this);
f53->QuickRep1->Prepare();
f53->QuickRep1->Preview();
delete f53;
}
else
{
TForm24 *f24=new TForm24(this);
f24->ADT=DataModule1->gczl;
f24->ShowModal();
delete f24;
}
}
//---------------------------------------------------------------------------
void TForm1::gczljk()
{
int txx,wc;
DataModule1->tiaojian->Filtered=false;
DataModule1->tiaojian->Filter="定检名称 = '工程指令'";
DataModule1->tiaojian->Filtered=true;
txx=DataModule1->tiaojianField4->AsInteger;
wc=DataModule1->tiaojianField3->AsInteger;
Form54->rqtx->Caption="日期提前"+IntToStr(txx)+"天";
Form54->rxwc->Caption="日期提前"+IntToStr(wc)+"天";
//TODO: 工程指令监控
int gczlldv,dqld;
AnsiString tempjh;
DataModule1->gczl->Filtered=false;
DataModule1->gczl->Filter="实完日期 = NULL";
DataModule1->gczl->Filtered=true;
gczlcount=0;
for(int i=0;i<DataModule1->gczl->RecordCount;i++)
{
if(DataModule1->gczlzt->AsString!="")
{
gczlldv=StrToInt(DataModule1->gczlzt->AsString);
tempjh=DataModule1->gczljh->AsString;
DataModule1->dayreport->Filtered=false;
DataModule1->dayreport->Filter="机号 = '"+tempjh+"'";
DataModule1->dayreport->Filtered=true;
DataModule1->dayreport->IndexFieldNames="机身总";
DataModule1->dayreport->Last();
dqld=DataModule1->dayreportField10->AsInteger;
if((gczlldv-dqld)<100)
{
color[gczlcount]=clRed;
gczlbh[gczlcount]=DataModule1->gczlzlbh->AsString;
gczljh[gczlcount]=DataModule1->gczljh->AsString;
gczlld[gczlcount]=DataModule1->gczlzt->AsInteger;
gczlldfhdq[gczlcount]=dqld;
gczlcount++;
}
else if((gczlldv-dqld)<200)
{
color[gczlcount]=clYellow;
gczlbh[gczlcount]=DataModule1->gczlzlbh->AsString;
gczljh[gczlcount]=DataModule1->gczljh->AsString;
gczlld[gczlcount]=DataModule1->gczlzt->AsInteger;
gczlldfhdq[gczlcount]=dqld;
gczlcount++;
}
}
else if(DataModule1->gczlfh->AsString!="")
{
gczlldv=DataModule1->gczlfh->AsInteger;
tempjh=DataModule1->gczljh->AsString;
DataModule1->dayreport->Filtered=false;
DataModule1->dayreport->Filter="机号 = '"+tempjh+"'";
DataModule1->dayreport->Filtered=true;
DataModule1->dayreport->IndexFieldNames="机身总";
DataModule1->dayreport->Last();
dqld=DataModule1->dayreportField4->AsInteger/60;
if((gczlldv-dqld)<150)
{
color[gczlcount]=clRed;
gczlbh[gczlcount]=DataModule1->gczlzlbh->AsString;
gczljh[gczlcount]=DataModule1->gczljh->AsString;
gczlfh[gczlcount]=DataModule1->gczlfh->AsInteger;
gczlldfhdq[gczlcount]=dqld;
gczlcount++;
}
else if((gczlldv-dqld)<300)
{
color[gczlcount]=clYellow;
gczlbh[gczlcount]=DataModule1->gczlzlbh->AsString;
gczljh[gczlcount]=DataModule1->gczljh->AsString;
gczlfh[gczlcount]=DataModule1->gczlfh->AsInteger;
gczlldfhdq[gczlcount]=dqld;
gczlcount++;
}
}
else
{
if(int(DataModule1->gczlyqrq->AsDateTime)==0)
{
if(DataModule1->gczlywrq->AsDateTime-wc<Date())
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -