wizard.cpp

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

 DataModule1->QM->SQL->Add("update dingjian set 备注='' where "+update_Str);
 DataModule1->QM->ExecSQL();
 }
jihao= ini->ReadString("添加一","机号","2147");
jixing=ini->ReadString("添加一","机型","MD82");
djming=ini->ReadString("添加一","定检名","A");
dqcs=ini->ReadInteger("添加一","次数",0);
xiuhou=ini->ReadInteger("添加一","修后",0);
zongdian=ini->ReadInteger("添加一","飞行小时",0);
  DataModule1->dingjian->Append();

  DataModule1->djjihao->AsInteger=StrToInt(jihao);
  DataModule1->djjixing->AsString=jixing;
  DataModule1->mingcheng->AsString=djming;
  DataModule1->djcishu->AsInteger=dqcs;
  DataModule1->djxiuhou->AsInteger=xiuhou;
  DataModule1->djzongshijian->AsInteger=zongdian*60;
  if(jixing=="MD90")
  {
  DataModule1->djmax->AsInteger= 100;
  DataModule1->djcishu->AsInteger=dqcs;
  }
  else
  {
  DataModule1->djmax->AsInteger=8;
  DataModule1->djcishu->AsInteger=dqcs;
  }
  DataModule1->djriqi->AsDateTime=djDate;
  DataModule1->djbeizhu->AsString="新";
  DataModule1->dingjian->Post();
 }


    //TODO: Add your source code here
    //C检
             tj=ini->ReadString("修改三","条件","");
            jihao=ini->ReadString("修改三","机号","2147");
            jixing=ini->ReadString("修改三","机型","MD82");
            dqcs=ini->ReadInteger("修改三","次数",0);
            xiuhou=ini->ReadInteger("修改三","修后",0);
            zongdian=ini->ReadInteger("修改三","飞行小时",0);
            djDate=ini->ReadDate("修改三","日期",0);
            DataModule1->dingjian->Filtered=false;
            DataModule1->dingjian->Filter=tj;
            DataModule1->dingjian->Filtered=true;
                if(DataModule1->dingjian->RecordCount>=1)
                        {
                          DataModule1->dingjian->First();
                          DataModule1->dingjian->Edit();
                          DataModule1->djjihao->AsInteger=StrToInt(jihao);
                          DataModule1->djjixing->AsString=jixing;
                          DataModule1->mingcheng->AsString="C";
                          DataModule1->djcishu->AsInteger=dqcs;
                          DataModule1->djxiuhou->AsInteger= xiuhou;
                          DataModule1->djzongshijian->AsInteger=zongdian;
                          DataModule1->djbeizhu->AsString="新";
                          DataModule1->djmax->AsInteger= 4;
                          DataModule1->djriqi->AsDateTime=djDate;
                          DataModule1->dingjian->Post();
                        }
                else
                        {
                        String update_Str=  ini->ReadString("修改四","条件","");
                               jihao= ini->ReadString("添加二","机号","2147");
                                jixing=ini->ReadString("添加二","机型","MD82");
                                djming=ini->ReadString("添加二","定检名","C");
                                dqcs=ini->ReadInteger("添加二","次数",0);
                                xiuhou=ini->ReadInteger("添加二","修后",0);
                                zongdian=ini->ReadInteger("添加二","飞行小时",0);
                        DataModule1->dingjian->Filtered=false;
                        DataModule1->dingjian->Filter=update_Str;
                        DataModule1->dingjian->Filtered=true;
                        if(DataModule1->dingjian->RecordCount>=1)
                                {
                                /* DataModule1->dingjian->Edit();
                                 DataModule1->djbeizhu->AsString="";
                                 DataModule1->dingjian->Post();*/
                                 DataModule1->QM->Close();
                                 DataModule1->QM->SQL->Clear();
                                 DataModule1->QM->SQL->Add("update dingjian set 备注='' where "+update_Str);
                                 DataModule1->QM->ExecSQL();
                                 }
                          DataModule1->dingjian->Append();
                           DataModule1->djjihao->AsInteger=StrToInt(jihao);
                          DataModule1->djjixing->AsString=jixing;
                          DataModule1->mingcheng->AsString="C";
                          DataModule1->djcishu->AsInteger=dqcs;
                          DataModule1->djxiuhou->AsInteger=xiuhou;
                          DataModule1->djzongshijian->AsInteger=zongdian*60;
                          DataModule1->djmax->AsInteger= 4;
                          DataModule1->djriqi->AsDateTime=djDate;
                          DataModule1->djbeizhu->AsString="新";
                          DataModule1->dingjian->Post();
                 }
 }
   else
   {
   String str_tj;
   for(int i=0;i<shijianint;i++)
   {

str_tj="备注 = '新' AND 上次时间 = '"+IntToStr(shijian[i])+"'";
   DataModule1->QM->Close();
   DataModule1->QM->SQL->Clear();
   DataModule1->QM->SQL->Add("delete from md82ctrl where "+str_tj);
   DataModule1->QM->ExecSQL();

   str_tj="备注 = '' AND 上次时间 = '"+IntToStr(scshijian[i])+"'";
    DataModule1->QM->Close();
   DataModule1->QM->SQL->Clear();
   DataModule1->QM->SQL->Add("update  md82ctrl set 备注='新' where "+str_tj);
   DataModule1->QM->ExecSQL();
   }
   }

 delete ini;
}
//---------------------------------------------------------------------------

void __fastcall TForm17::FormCreate(TObject *Sender)
{
DateTimePicker1->Date=Now();
DateTimePicker2->Date=Now();
AnsiString luj=ExtractFileDir(Application->ExeName);
luj=luj+"\\";
for(int i=0;i<5;i++)
{
    Bmp[i]=new Graphics::TBitmap;
    Bmp[i]->LoadFromFile(luj+IntToStr(i+1)+".bmp");
}
}
//---------------------------------------------------------------------------

void __fastcall TForm17::FormPaint(TObject *Sender)
{

if(nextcount==5)
Image1->Canvas->Draw(0,0,Bmp[nextcount-1]);
else
{
if(nextcount<0)
nextcount=0;
Image1->Canvas->Draw(0,0,Bmp[nextcount]);
}
}
//---------------------------------------------------------------------------



void __fastcall TForm17::FormShow(TObject *Sender)
{
nextcount=0;
GroupBox1->Visible=true;
Panel2->Visible=false;
if(jixing[plane]=="MD90")
maxcishu=100;
else
maxcishu=8;
}
//---------------------------------------------------------------------------


void TForm17::settools()
{  mayprint=true;
    if(jixing[plane]=="MD90")
    {
   /* DataModule1->ajsb->Filtered=false;
    DataModule1->ajsb->Filter="(备注 = 'MD82MD90' OR 备注 = 'MD90')AND ("+tiaojianstr+")";
    DataModule1->ajsb->Filtered=true;
    if(DataModule1->ajsb->RecordCount==0)
    mayprint=false;*/
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from ajsb where (备注 = 'MD82MD90' OR 备注 = 'MD90')AND ("+tiaojianstr+")");
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;
    }
    else
    {
   /*  DataModule1->ajsb->Filtered=false;
    DataModule1->ajsb->Filter="(备注 = 'MD82MD90' OR 备注 = 'MD82') AND ("+tiaojianstr+")";
    DataModule1->ajsb->Filtered=true;
    if(DataModule1->ajsb->RecordCount==0)
    mayprint=false;*/
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from ajsb where (备注 = 'MD82MD90' OR 备注 = 'MD82') AND ("+tiaojianstr+")");
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;
    }
        //TODO: Add your source code here
}

void TForm17::sethc()
{  mayprint=true;
        if(jixing[plane]=="MD90")
    {
   /* DataModule1->ajhc->Filtered=false;
    DataModule1->ajhc->Filter="(备注 = 'MD82MD90' OR 备注 = 'MD90') AND ("+tiaojianstr+")";
    DataModule1->ajhc->Filtered=true;
    if(DataModule1->ajhc->RecordCount==0)
    mayprint=false;*/
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from ajhc where (备注 = 'MD82MD90' OR 备注 = 'MD90') AND ("+tiaojianstr+")");
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;
    }
    else
    {
   /*  DataModule1->ajhc->Filtered=false;
    DataModule1->ajhc->Filter="(备注 = 'MD82' OR 备注 = 'MD82MD90') AND ("+tiaojianstr+")";
    DataModule1->ajhc->Filtered=true;
    if(DataModule1->ajhc->RecordCount==0)
    mayprint=false;*/
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from ajhc where (备注 = 'MD82MD90' OR 备注 = 'MD82') AND ("+tiaojianstr+")");
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;
    }
        //TODO: Add your source code here
}

void TForm17::fhctrl()
{   mayprint=true;
     shijianint=0;
     AnsiString printtj="";
     DataModule1->tiaojian->Filtered=false;
     DataModule1->tiaojian->Filter="定检名称 <> 'A' AND 定检名称 <> 'C' AND 机型 = '"+jixing[plane]+"'";
     DataModule1->tiaojian->Filtered=true;
     int tjcount=DataModule1->tiaojian->RecordCount;
     DataModule1->tiaojian->First();
     for(int i=0;i<tjcount;i++)
     {
        AnsiString leixing,jiange,wucha,tixing;
        leixing=DataModule1->tiaojianField->AsString;
        jiange=DataModule1->tiaojianField2->AsString;
        wucha=DataModule1->tiaojianField3->AsString;
        tixing=DataModule1->tiaojianField4->AsString;
          if(jiange=="")
        jiange="0";
        if(wucha=="")
        wucha="0";
        if(tixing=="")
        tixing="0";
        DataModule1->md82ctrl->Filtered=false;
        DataModule1->md82ctrl->Filter="机号 = '"+jihao+"' AND 类型 = '"+leixing
        +"' AND 间隔 = '"+jiange+"'AND 备注 = '新'";
        DataModule1->md82ctrl->Filtered=true;
        if(DataModule1->md82ctrl->RecordCount==0)
        {
        DataModule1->tiaojian->Next();
        continue;
        }
        DataModule1->md82ctrl->Last();
        int leijicishu=DataModule1->md82cishu->AsInteger;
        int shangcishijian=DataModule1->md82shangcishijian->AsInteger;
        DataModule1->dayreport->IndexFieldNames="机身总";
        DataModule1->dayreport->Filtered=false;
        DataModule1->dayreport->Filter="机号 = '"+jihao+"'";
        DataModule1->dayreport->Filtered=true;
        if(DataModule1->dayreport->RecordCount==0)
        {
        DataModule1->tiaojian->Next();
        continue;
        }
        DataModule1->dayreport->Last();
        int dangqian=0;
        if(leixing=="FH")
           dangqian=DataModule1->dayreportField4->AsInteger/60;
        if(leixing=="LD")
            dangqian=DataModule1->dayreportField10->AsInteger;
        if(leixing=="M")
                {
                dangqian=Now();

                }
        if (dangqian==0)
        {
        DataModule1->tiaojian->Next();
        continue;
        }
        if(leixing=="M")
        {
           if((StrToInt(jiange)*30-(dangqian-shangcishijian))<=StrToInt(tixing))
           {
            if(printtj=="")
             printtj="(机型 = '"+jixing[plane]+"' AND 类型 = '"+leixing+"' AND 间隔 = '"+jiange+"')";
            printtj=printtj+" OR (机型 = '"+jixing[plane]+"' AND 类型 = '"+leixing+"' AND 间隔 = '"+jiange+"')";
            DataModule1->tiaojian->Next();

            DataModule1->md82ctrl->Edit();
            DataModule1->md82beizhu->AsString="";
            DataModule1->md82ctrl->Post();
            DataModule1->md82ctrl->Append();
            DataModule1->md82jihao->AsInteger=StrToInt(jihao);
            DataModule1->md82jixing->AsString=jixing[plane];
            DataModule1->md82leixing->AsString=leixing;
            DataModule1->md82shangcishijian->AsInteger=dangqian;
            DataModule1->md82cishu->AsInteger=leijicishu+1;
            DataModule1->md82jiange->AsInteger=StrToInt(jiange);
            DataModule1->md82beizhu->AsString="新";
            DataModule1->md82ctrl->Post();
            shijian[shijianint]=dangqian;
            scshijian[shijianint]=shangcishijian;
            shijianint++;
            continue;
            }
        }
        else
        {
        if((StrToInt(jiange)-(dangqian-shangcishijian))<=StrToInt(tixing))
        {
        if(printtj=="")
        printtj="(机型 = '"+jixing[plane]+"' AND 类型 = '"+leixing+"' AND 间隔 = '"+jiange+"')";
        printtj=printtj+" OR (机型 = '"+jixing[plane]+"' AND 类型 = '"+leixing+"' AND 间隔 = '"+jiange+"')";
        DataModule1->md82ctrl->Edit();
            DataModule1->md82beizhu->AsString="";
            DataModule1->md82ctrl->Post();
            DataModule1->md82ctrl->Append();
            DataModule1->md82jihao->AsInteger=StrToInt(jihao);
            DataModule1->md82jixing->AsString=jixing[plane];
            DataModule1->md82leixing->AsString=leixing;
            DataModule1->md82shangcishijian->AsInteger=dangqian;
            DataModule1->md82cishu->AsInteger=leijicishu+1;
            DataModule1->md82jiange->AsInteger=StrToInt(jiange);
            DataModule1->md82beizhu->AsString="新";
            DataModule1->md82ctrl->Post();
            shijian[shijianint]=dangqian;
            scshijian[shijianint]=shangcishijian;

            shijianint++;
        }
        }
        DataModule1->tiaojian->Next();
     }
     if(printtj=="")
     printtj="机型 = 'WWWW'";
   /*  DataModule1->hours->Filtered=false;
     DataModule1->hours->Filter=printtj;
     DataModule1->hours->Filtered=true;
     if(DataModule1->hours->RecordCount==0)
    mayprint=false;*/
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select * from hours where "+printtj);
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;
}