wizard.cpp

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

        DataModule1->dingjian->Filtered=false;
            Memo1->Lines->Clear();
                Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检常用航材设备清单。");
        break;
        }
  case 6:break;
  }

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


void TForm17::docover(int i)
{
  TMemo *memo=new TMemo(Panel1->Handle);
  TMemo *memo1=new TMemo(Panel1->Handle);
    TMemo *memo2=new TMemo(Panel1->Handle);
  memo->Lines->LoadFromFile(lujing+"lefteng.txt");
  memo1->Lines->LoadFromFile(lujing+"righteng.txt");
  memo2->Lines->LoadFromFile(lujing+"apusn.txt");
  Form21->zfxh->Caption=memo->Lines->Strings[i];
  Form21->yfxh->Caption=memo1->Lines->Strings[i];
  Form21->apuxh->Caption=memo2->Lines->Strings[i];
  delete memo2;
    delete memo1;
      delete memo;

   AnsiString tingchang;

   tingchang=RadioGroup1->Items->Strings[RadioGroup1->ItemIndex];
   int days=DateTimePicker2->Date-DateTimePicker1->Date+1;
Word years,months,day,years2,months2,day2;
TDate date1,date2;
date1=DateTimePicker1->DateTime;
date2=DateTimePicker2->DateTime;
DecodeDate(date1, years, months, day);
DecodeDate(date2, years2, months2, day2);

TMemo *memo3=new TMemo(Form17->Handle);
memo3->Lines->LoadFromFile(lujing+"plane.txt");
jihao=memo3->Lines->Strings[i];
delete memo3;

Form21->QRMemo1->Lines->Add(jihao+"飞机自"+
years+"年"+IntToStr(months)+"月"+IntToStr(day)+"日至"+IntToStr(years2)+"年"+IntToStr(months2)+"月"+IntToStr(day2)+"日");
Form21->QRMemo1->Lines->Add(tingchang+IntToStr(days)+"天需做"+IntToStr(cishu[i]%maxcishu+1)+djming[i]+"检工作。");
if(tianshu[i]< cjwucha)
{
Form21->QRMemo1->Lines->Clear();
Form21->QRMemo1->Lines->Add(jihao+"飞机自"+
IntToStr(years)+"年"+IntToStr(months)+"月"+IntToStr(day)+"日至"+IntToStr(years2)+"年"+IntToStr(months2)+"月"+IntToStr(day2)+"日");
Form21->QRMemo1->Lines->Add(tingchang+IntToStr(++days)+"天需做"+IntToStr(cjcishu[i]%8+1)+"C检+"+IntToStr(cishu[i]+1)+djming[i]+"检工作。");
}
/*if(months<10)
months="0"+months;*/
AnsiString bh;
if(cishu[i]<9)
bh="0"+IntToStr(cishu[i]+1);
else
bh=IntToStr(cishu[i]+1);

DataModule1->dayreport->Filtered=false;
DataModule1->dayreport->Filter="机号 = '"+jihao+"'";
DataModule1->dayreport->Filtered=true;
//DataModule1->dayreport->IndexName="jishenindex";
Form21->fh->Caption=FormatFloat("#####.##",zongdian[plane]);
int tian=int((zongdian[plane]-DataModule1->dayreportField4->AsInteger/60)/8);
Form21->le->Caption=FormatFloat("#####.##",(DataModule1->dayreportField6->AsInteger+tian*8)/60);
Form21->re->Caption=FormatFloat("#####.##",(DataModule1->dayreportField8->AsInteger+tian*8)/60);
Form21->ql->Caption=IntToStr(DataModule1->dayreportField10->AsInteger+tian*6);
Form21->apu->Caption=IntToStr(DataModule1->dayreportAPU->AsInteger+tian*4);
Form21->lc->Caption=IntToStr(DataModule1->dayreportField11->AsInteger+tian*6);
Form21->rc->Caption=IntToStr(DataModule1->dayreportField12->AsInteger+tian*6);
Form21->bianhao->Caption=dh->Text;

        //TODO: Add your source code here
}

void TForm17::GetYMD(AnsiString date1, AnsiString* year, AnsiString* month, AnsiString* day)
{
 AnsiString ch;
 int sn[2],k;
 k=0;
 for(int i=0;i<date1.Length();i++)
 {
        ch=date1.SubString(i,1);
        if(ch=="/")
        {++k;
        sn[k]=i;
        }

 }
 *month=date1.SubString(1,sn[1]-1);
 *day=date1.SubString(sn[1]+1,sn[2]-sn[1]-1);
 *year=date1.SubString(sn[2]+1,2);
*year="20"+*year;



        //TODO: Add your source code here
}
void __fastcall TForm17::cancelbtnClick(TObject *Sender)
{

Close();

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


void TForm17::dogklist()
{
    mayprint=true;
    AnsiString ming1,ming2,ming3,ming4,ming5,ming6,ming7;
    ming1=ming2=ming3=ming4=ming5=ming6=ming7="";
    AnsiString mtj[6];
    for(int n=0;n<6;n++)
    mtj[n]="";
 if(is82)
 {
if((cishu[plane]%maxcishu+1)%2==0)
    ming1="间隔 = '2"+djming[plane]+"'";
if((cishu[plane]%maxcishu+1)%3==0)
        ming2="间隔 = '3"+djming[plane]+"'";
if((cishu[plane]%maxcishu+1)%4==0)
        ming3="间隔 = '4"+djming[plane]+"'";
if(ming1!=""&&(ming2!=""||ming3!=""))
        ming1=ming1+" OR ";
if(ming2!=""&&ming3!="")
        ming2=ming2+" OR ";
        ming1=ming1+ming2+ming3;
        if(ming1!="")
        ming1="间隔 = '1A' OR "+ming1;
        else
        ming1= "间隔 = '1A'" ;
         tiaojianstr=ming1;
          if(jixing[plane]=="MD90")
{


   /* DataModule1->gk90->Filtered=false;
    DataModule1->gk90->Filter=ming1;
    DataModule1->gk90->Filtered=true;
    if(DataModule1->gk90->RecordCount==0)
    mayprint=false;*/
     DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select *,工时*12 As 实际工时 from gk90 where "+ming1);
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;
}
else
         {
         ming1="";
if((cishu[plane]%maxcishu+1)%2==0)
    ming1="类型 = 'A' AND 间隔 = '"+IntToStr(2*450)+"'";
if((cishu[plane]%maxcishu+1)%3==0)
        ming2="类型 = 'A' AND 间隔 = '"+IntToStr(3*450)+"'";
if((cishu[plane]%maxcishu+1)%4==0)
        ming3="类型 = 'A' AND 间隔 = '"+IntToStr(4*450)+"'";
if(ming1!=""&&(ming2!=""||ming3!=""))
        ming1=ming1+" OR ";
if(ming2!=""&&ming3!="")
        ming2=ming2+" OR ";
        ming1=ming1+ming2+ming3;
        if(ming1!="")
        ming1="类型 = 'A' AND 间隔 = '450' OR "+ming1;
        else
        ming1= "类型 = 'A' AND 间隔 = '450'" ;

/*       DataModule1->hours->Filtered=false;
       DataModule1->hours->Filter=ming1;
       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 "+ming1);
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount==0)
    mayprint=false;

         }
        //TODO: Add your source code here
  }
  else
        //C检
      {        if((cjcishu[plane]+1)%2==0)
    mtj[0]="间隔 = '2C'";
if((cjcishu[plane]+1)%3==0)
        mtj[1]="间隔 = '3C'";
if((cjcishu[plane]+1)%4==0)
        mtj[2]="间隔 = '4C'";
if((cjcishu[plane]+1)%5==0)
        mtj[3]="间隔 = '5C'";
if((cjcishu[plane]+1)%6==0)
        mtj[4]="间隔 = '6C'";
if((cjcishu[plane]+1)%7==0)
        mtj[5]="间隔 = '7C'";

//if(ming1!=""&&(ming2!=""||ming3!=""||ming4!=""||ming5!=""||ming6!=""))
  //      ming1=ming1+" OR ";
  ming1="间隔 = '1C' OR ";
        for(int k=0;k<5;k++)
        if(mtj[k]!="")
        ming1+=mtj[k]+" OR ";
/*if(ming2!=""&&ming3!="")
        ming2=ming2+" OR ";
        ming1=ming1+ming2+ming3;
        if(ming1!="")
        ming1="间隔 = '1C' OR "+ming1;
        else
        ming1= "间隔 = '1C'" ;*/
        int i_l=ming1.Length();

         tiaojianstr=ming1.SubString(1,i_l-4);
         ming1=tiaojianstr;
          if(jixing[plane]=="MD90")
{


/*    DataModule1->gk90->Filtered=false;
    DataModule1->gk90->Filter=ming1;
    DataModule1->gk90->Filtered=true;
    if(DataModule1->gk90->RecordCount!=0)
    mayprint=true;
    else
    mayprint=false;   */
         DataModule1->QM->Close();
     DataModule1->QM->SQL->Clear();
    DataModule1->QM->SQL->Add("select *,工时*12 As 实际工时 from gk90 where "+ming1);
    DataModule1->QM->Open();
    if(DataModule1->QM->RecordCount!=0)
    mayprint=true;
    else
    mayprint=false;

     }
        }
}

void TForm17::WriteDJ()
{
 TIniFile *ini;
   ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
String tj1;
int mcount=DataModule1->dingjian->RecordCount;
int dqcs;

if(jixing[plane]=="MD90")
dqcs=cishu[plane]%100+1;
else
dqcs=cishu[plane]%maxcishu+1;

tj1="机号 = '"+jihao+"' AND 定检名称 = 'A' AND 次数 = '"+IntToStr(dqcs)+"' AND 备注 = '新'";

ini->WriteString("修改一","定检条件1",tj1);
ini->WriteString("修改一","机号",jihao);
ini->WriteString("修改一","机型",jixing[plane]);
ini->WriteString("修改一","定检名",djming[plane]);
ini->WriteInteger("修改一","次数",dqcs);
ini->WriteInteger("修改一","修后",xiuhou[plane]);
ini->WriteInteger("修改一","飞行小时",zongdian[plane]);
ini->WriteDate("修改一","日期",DateTimePicker1->Date);
String update_Str="机号 = '"+jihao+"' AND 定检名称 = 'A' AND 次数 = '"+IntToStr(cishu[plane])+"' AND 备注 = '新'";
ini->WriteString("修改二","定检条件2",update_Str);
ini->WriteString("添加一","机号",jihao);
ini->WriteString("添加一","机型",jixing[plane]);
ini->WriteString("添加一","定检名",djming[plane]);
ini->WriteInteger("添加一","次数",dqcs);
ini->WriteInteger("添加一","修后",xiuhou[plane]);
ini->WriteInteger("添加一","飞行小时",zongdian[plane]);

    //TODO: Add your source code here
    //C检
    if(tianshu[plane]<cjwucha)
    {

            tj1="机号 = '"+jihao+"' AND 定检名称 = 'C' AND 次数 = '"+IntToStr(cjcishu[plane]%4+1)+"' AND 备注 = '新'";
            ini->WriteString("修改三","条件",tj1);
            ini->WriteString("修改三","机号",jihao);
            ini->WriteString("修改三","机型",jixing[plane]);
            ini->WriteInteger("修改三","次数",cjcishu[plane]%4+1);
            ini->WriteInteger("修改三","修后",xiuhou[plane]);
            ini->WriteInteger("修改三","飞行小时",zongdian[plane]);
            ini->WriteDate("修改三","日期",DateTimePicker1->Date);

                        tj1="机号 = '"+jihao+"' AND 定检名称 = 'C' AND 次数 = '"+IntToStr(cjcishu[plane])+"' AND 备注 = '新'";
                                ini->WriteString("修改四","条件",tj1);
                                ini->WriteString("添加二","机号",jihao);
                                ini->WriteString("添加二","机型",jixing[plane]);
                                ini->WriteString("添加二","定检名","C");
                                ini->WriteInteger("添加二","次数",cjcishu[plane]%4+1);
                                ini->WriteInteger("添加二","修后",xiuhou[plane]);
                                ini->WriteInteger("添加二","飞行小时",zongdian[plane]);
                                }
  delete ini;
}

void __fastcall TForm17::FormClose(TObject *Sender, TCloseAction &Action)
{
 TIniFile *ini;
   ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
if ( Application->MessageBox("保存本次定检所有记录吗？,如果确实该做定检则需保存，否则一定不要保存。", "定检向导", MB_YESNO) == IDYES)
{

int dqcs,xiuhou,zongdian;
String tj,jihao,jixing,djming;
TDate djDate;

tj=ini->ReadString("修改一","定检条件1","");
jihao=ini->ReadString("修改一","机号","2147");
jixing=ini->ReadString("修改一","机型","MD82");
djming=ini->ReadString("修改一","定检名","A");
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=djming;
  DataModule1->djcishu->AsInteger=dqcs;
  DataModule1->djxiuhou->AsInteger= xiuhou;
  DataModule1->djzongshijian->AsInteger=zongdian*60;
  DataModule1->djbeizhu->AsString="新";
  if(jixing=="MD90")
  DataModule1->djmax->AsInteger= 100;
  else
  DataModule1->djmax->AsInteger=8;
  DataModule1->djriqi->AsDateTime=djDate;
  DataModule1->dingjian->Post();


}
else
{
String update_Str=ini->ReadString("修改二","定检条件2","");

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();