📄 control.~cpp
字号:
case 4:
{
tj+=" AND ((间隔= '1') OR (间隔='2') OR (间隔='4')))";
break;
}
case 5:
{
tj+=" AND ((间隔= '1') OR (间隔='5')))";
break;
}
case 6:
{
tj+=" AND ((间隔= '1') OR (间隔='2') OR (间隔='3')))";
break;
}
case 7:
{
tj+=" AND (间隔= '1'))";
break;
}
case 8:
{
tj+=" AND ((间隔= '1') OR (间隔='2') OR (间隔='4')))";
break;
}
case 9:
{
tj+=" AND ((间隔= '1') OR (间隔='3')))";
break;
}
case 10:
{
tj+=" AND ((间隔= '1') OR (间隔='2') OR (间隔='5')))";
break;
}
}
/* DataModule1->hours->Filtered=false;
DataModule1->hours->Filter=tj;
DataModule1->hours->Filtered=true;
DataModule1->hours->IndexFieldNames="类型;间隔";*/
DataModule1->QM->Close();
DataModule1->QM->SQL->Clear();
DataModule1->QM->SQL->Add("select * from hours where "+tj+" order by 类型,间隔");
DataModule1->QM->Open();
TForm32* Form32=new TForm32(Application);
Form32->title->Caption= f->jh->Text+"飞机"+f->ComboLeiBie->Text+"C检工作清单";
Form32->QuickRep1->Preview();
delete Form32;
tj="(备注='MD82' OR 备注='MD82MD90') AND (间隔='1A' OR 间隔='2A' OR 间隔='3A' OR 间隔='4A' ";
switch(leibie)
{
case 1:
{
tj+="OR 间隔= '1C' )";
break;
}
case 2:
{
tj+=" OR 间隔= '1C' OR 间隔='2C')";
break;
}
case 3:
{
tj+=" OR 间隔= '1C' OR 间隔='3C')";
break;
}
case 4:
{
tj+=" OR 间隔= '1C' OR 间隔='2C' OR 间隔='4C')";
break;
}
case 5:
{
tj+=" OR 间隔= '1C' OR 间隔='5C')";
break;
}
case 6:
{
tj+=" OR 间隔= '1C' OR 间隔='2C' OR 间隔='3C')";
break;
}
case 7:
{
tj+=" OR 间隔= '1C')";
break;
}
case 8:
{
tj+=" OR 间隔= '1C' OR 间隔='2C' OR 间隔='4C')";
break;
}
case 9:
{
tj+=" OR 间隔= '1C' OR 间隔='3C')";
break;
}
case 10:
{
tj+=" OR 间隔= '1C' OR 间隔='2C' OR 间隔='5C')";
break;
}
}
/*DataModule1->ajsb->Filtered=false;
DataModule1->ajsb->Filter=tj;
DataModule1->ajsb->Filtered=true;*/
DataModule1->QM->Close();
DataModule1->QM->SQL->Clear();
DataModule1->QM->SQL->Add("select * from ajsb where "+tj);
DataModule1->QM->Open();
TForm18* Form18=new TForm18(Application);
Form18->QRLabel1->Caption=f->jh->Text+"飞机"+f->ComboLeiBie->Text+"C检常用工具设备清单";
Form18->QuickRep1->Preview();
delete Form18;
/* DataModule1->ajhc->Filtered=false;
DataModule1->ajhc->Filter=tj;
DataModule1->ajhc->Filtered=true;*/
DataModule1->QM->Close();
DataModule1->QM->SQL->Clear();
DataModule1->QM->SQL->Add("select * from ajhc where "+tj);
DataModule1->QM->Open();
TForm19* Form19=new TForm19(Application);
Form19->QRLabel1->Caption=f->jh->Text+"飞机"+f->ComboLeiBie->Text+"C检常用航材清单";
Form19->QuickRep1->Preview();
delete Form19;
}
}
delete f;
if ( Application->MessageBox("保存本次定检所有记录吗？,如果确实该做定检则需保存，否则一定不要保存。", "定检向导", MB_YESNO) == IDYES)
{
DataModule1->dingjian->Filtered=false;
DataModule1->dingjian->Filter="机号 = '"+jihao+"' AND 定检名称 = 'C' AND 次数 = '"+IntToStr(cjcishu[plane])+"' AND 备注 = '新'";
DataModule1->dingjian->Filtered=true;
if(DataModule1->dingjian->RecordCount>0)
{
DataModule1->dingjian->Edit();
DataModule1->dingjian->FieldByName("备注")->AsString="";
DataModule1->dingjian->Post();
}
DataModule1->dingjian->Filtered=false;
DataModule1->dingjian->Append();
DataModule1->dingjian->FieldByName("机号")->AsString=jihao;
DataModule1->dingjian->FieldByName("机型")->AsString="MD82";
DataModule1->dingjian->FieldByName("定检名称")->AsString="C";
DataModule1->dingjian->FieldByName("次数")->AsInteger=cjcishu[plane]+1;
DataModule1->dingjian->FieldByName("总时间")->AsInteger=zongdian[plane]*60;
DataModule1->dingjian->FieldByName("日期")->AsDateTime=cjdate;
DataModule1->dingjian->FieldByName("备注")->AsString="新";
DataModule1->dingjian->Post();
DataModule1->dingjian->Filtered=false;
DataModule1->dingjian->Filter="机号 = '"+jihao+"' AND 定检名称 = 'A' AND 次数 = '"+IntToStr(cishu[plane])+"' AND 备注 = '新'";
DataModule1->dingjian->Filtered=true;
if(DataModule1->dingjian->RecordCount>0)
{
DataModule1->dingjian->Edit();
DataModule1->dingjian->FieldByName("备注")->AsString="";
DataModule1->dingjian->Post();
}
DataModule1->dingjian->Filtered=false;
DataModule1->dingjian->Append();
DataModule1->dingjian->FieldByName("机号")->AsString=jihao;
DataModule1->dingjian->FieldByName("机型")->AsString="MD82";
DataModule1->dingjian->FieldByName("定检名称")->AsString="A";
DataModule1->dingjian->FieldByName("次数")->AsInteger=8;
DataModule1->dingjian->FieldByName("最大次数")->AsInteger=8;
DataModule1->dingjian->FieldByName("总时间")->AsInteger=zongdian[plane]*60;
DataModule1->dingjian->FieldByName("日期")->AsDateTime=cjdate;
DataModule1->dingjian->FieldByName("备注")->AsString="新";
DataModule1->dingjian->Post();
}
}
}
}
if(djcolor[plane]==clGreen)
{
if (MessageDlg(memo->Lines->Strings[plane]+"飞机距"+IntToStr(cishu[plane]%100+1)+djming[plane]+"检尚早，还不必做准备工作。", mtWarning, TMsgDlgButtons() << mbOK, 0) == mrOk)
;
}
else
{
if(djcolor[plane]==clYellow)
{
if (MessageDlg(memo->Lines->Strings[plane]+"飞机距"+IntToStr(dqcishu)+djming[plane]+"检尚早,未进入误差范围之内，现在做准备工作吗？", mtWarning, TMsgDlgButtons() << mbYes<<mbNo, 0) == mrYes)
{
pass=0;
//密码
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
if(edit)
{
Form17->ShowModal();
}
}
}
else
{
if(MessageDlg(memo->Lines->Strings[plane]+"飞机距"+IntToStr(dqcishu)+djming[plane]+"检进入误差范围之内，现在做准备工作吗？", mtWarning, TMsgDlgButtons() << mbYes<<mbNo, 0) == mrYes)
{
pass=0;
TForm23 *Form23=new TForm23(Application);
Form23->ShowModal();
delete Form23;
if(edit)
{
Form17->ShowModal();
}
}
}
}
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -