wizard.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "wizard.h"
#include "cover.h"
#include "main.h"
#include "control.h"
#include "dm.h"
#include "gklist.h"
#include "gkrep.h"
#include "repshebei.h"
#include "rephangcai.h"
#include "hoursrep.h"
#include <inifiles.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "ksskinstdcontrol"
#pragma link "se_controls"
#pragma resource "*.dfm"
TForm17 *Form17;
extern AnsiString lujing;
extern AnsiString  djming[20];
extern int cishu[20],xiuhou[20],jizong[20],zongdian[20];
extern int plane;
extern AnsiString jixing[20];
AnsiString jihao,tiaojianstr;
Graphics::TBitmap *Bmp[5];
extern int jiashu;
int shijian[100],scshijian[100],shijianint;
bool mayprint;
extern int tianshu[20],cjcishu[20];
const cjwucha=30;
bool is82;
int maxcishu;
//---------------------------------------------------------------------------
__fastcall TForm17::TForm17(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

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

  switch(nextcount)
  {
  case 0:{

            docover(plane);


                 Form21->QuickRep1->Preview();

                 WriteDJ();
                 cancelbtn->Enabled=true;
                // GroupBox1->Visible=false;
                 Memo1->Lines->Clear();
                 Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 if(tianshu[plane]<cjwucha)
                Memo1->Lines->Add(IntToStr(cjcishu[plane]%8+1)+"C检+"+IntToStr(cishu[plane]+1)+djming[plane]+"检工卡清单。");
                else
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡清单。");
                 Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add("定检指令单");
                 Panel2->Visible=true;
                 Memo1->Visible=true;
              break;

        }
  case 1:{
                       is82=true;
                dogklist();
                        if(jixing[plane]=="MD82")
                {    if(mayprint)
                   {
                    TForm32* Form32=new TForm32(Application);
                    Form32->title->Caption= jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工作清单";
                    Form32->QuickRep1->Preview();
                    delete Form32;
                    }
                  Memo1->Lines->Clear();
                  Memo1->Lines->Add("下一步");
                  Memo1->Lines->Add("系统目前没有MD82飞机定检工作单库");
                  Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡清单。");

                }
                else
                {    if(mayprint)
                {
                  TForm9* Form9=new TForm9(Application);
                  Form9->QRLabel1->Caption=jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+Form9->QRLabel1->Caption;

                  Form9->QuickRep1->Preview();
                 delete Form9;
                 }
                 if(tianshu[plane]<cjwucha)
                 {
                 is82=false;
                 dogklist();
                 if(mayprint)
                 {
               TForm9* Form9=new TForm9(Application);


                  Form9->QRLabel1->Caption=jihao+"飞机"+IntToStr(cjcishu[plane]+1)+"C"+Form9->QRLabel1->Caption;
                  Form9->Tag=1;
                  Form9->QuickRep1->Preview();
                 delete Form9;
                 }
                 }
                  DataModule1->gk90->Filtered=false;
                   Memo1->Lines->Clear();
                   Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 if(tianshu[plane]<cjwucha)
                                  Memo1->Lines->Add(IntToStr(cjcishu[plane]%8+1)+"C+"+IntToStr(cishu[plane]+1)+djming[plane]+"检工作单卡。");
                                  else
                 Memo1->Lines->Add(IntToStr(cishu[plane]%8+1)+djming[plane]+"检工作单卡。");
                 Memo1->Lines->Add("上一步");
                  Memo1->Lines->Add("系统目前没有MD82飞机定检工作单库");
                  }


                 break;
        }
  case 2:{

                if(jixing[plane]=="MD90")
                {is82=true;
                dogklist();
                if(mayprint)
                {
                TForm8 *Form8=new TForm8(Application);
                Form8->QuickRep1->Preview();
                delete Form8;
                }
                if(tianshu[plane]<cjwucha)
                {
                 is82=false;
                dogklist();
                if(mayprint)
                {
                TForm8 *Form8=new TForm8(Application);
                Form8->QuickRep1->Preview();
                delete Form8;
                }
                }
                }
                 DataModule1->gk90->Filtered=false;
                   Memo1->Lines->Clear();
                 Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检常用工具设备清单。");
                  Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 if(tianshu[plane]<cjwucha)
                Memo1->Lines->Add(IntToStr(cjcishu[plane]%8+1)+"C+"+IntToStr(cishu[plane]+1)+djming[plane]+"检工卡清单。");
                else
                Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡清单。");

                 break;


          }
  case 3:{
                settools();
                if(mayprint)
                {
                TForm18* Form18=new TForm18(Application);
                Form18->QRLabel1->Caption=jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"常用工具设备清单";
                Form18->QuickRep1->Preview();
                delete Form18;
                }
                DataModule1->ajsb->Filtered=false;
                  Memo1->Lines->Clear();
                Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检常用航材清单。");
                 Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检常用工具设备清单。");
                break;

        }
  case 4:{    sethc();
               if(mayprint)
               {
                TForm19* Form19=new TForm19(Application);
                Form19->QRLabel1->Caption=jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"常用航材清单";
                Form19->QuickRep1->Preview();
                delete Form19;
                }
                DataModule1->ajhc->Filtered=false;
                   Memo1->Lines->Clear();
                Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add("小时卡、起落卡等工作清单");
                 Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检常用航材清单。");
                break;
          }
   case 5:
        {
        fhctrl();
        if(mayprint)
        {
        TForm32* Form32=new TForm32(Application);
                    Form32->title->Caption= jihao+"飞机小时卡、起落卡工作清单";
                    Form32->QuickRep1->Preview();
                    delete Form32;
                    }
        DataModule1->dayreport->Filtered=false;
        DataModule1->hours->Filtered=false;
        DataModule1->tiaojian->Filtered=false;
        DataModule1->md82ctrl->Filtered=false;
        DataModule1->dingjian->Filtered=false;
            Memo1->Lines->Clear();
                Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]+1)+djming[plane]+"检常用航材设备清单。");

        break;
        }
  }
nextcount++;

FormPaint(Sender);
backbtn->Enabled=nextcount;
nextbtn->Enabled=6-nextcount;


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

void __fastcall TForm17::backbtnClick(TObject *Sender)
{
nextcount--;
FormPaint(Sender);
backbtn->Enabled=nextcount;
nextbtn->Enabled=5-nextcount;
 switch(nextcount)
  {
  case 0:{

            docover(plane);

                 GroupBox1->Visible=true;
                 Form21->QuickRep1->Preview();

                 Memo1->Lines->Clear();
                 Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印");
                 Memo1->Lines->Add(jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡清单。");
                 Panel2->Visible=false;
                 Memo1->Visible=false;
              break;

        }
  case 1:{
                dogklist();
                if(jixing[plane]=="MD90")
                {
                  TForm9* Form9=new TForm9(Application);
                  Form9->QRLabel1->Caption=jihao+"飞机"+IntToStr(cishu[plane]+1)+djming[plane]+Form9->QRLabel1->Caption;
                  Form9->QuickRep1->Preview();
                  delete Form9;
                  DataModule1->gk90->Filtered=false;
                  }
                  else
                  {
                  TForm32* Form32=new TForm32(Application);
                    Form32->title->Caption= jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工作清单";
                    Form32->QuickRep1->Preview();
                    delete Form32;
                  }
                   Memo1->Lines->Clear();
                  Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印");
                 Memo1->Lines->Add(jihao+"飞机"+IntToStr(cishu[plane]%+1)+djming[plane]+"检工作指令单。");
                 Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印");
                 Memo1->Lines->Add(jihao+"飞机"+IntToStr(cishu[plane]%+1)+djming[plane]+"检工卡清单。");
                 break;
        }
  case 2:{     if(jixing[plane]=="MD90")
             {
                dogklist();
                TForm8 *Form8=new TForm8(Application);
                Form8->QuickRep1->Preview();
                delete Form8;
                 DataModule1->gk90->Filtered=false;
                 }
                   Memo1->Lines->Clear();
                 Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印");
                 Memo1->Lines->Add(jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡清单。");
                 Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印");
                 Memo1->Lines->Add(jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡单。");
                 break;


          }
  case 3:{
                settools();
                TForm18* Form18=new TForm18(Application);
                Form18->QRLabel1->Caption=jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"常用工具设备清单";
                Form18->QuickRep1->Preview();
                delete Form18;
                DataModule1->ajsb->Filtered=false;
                  Memo1->Lines->Clear();
                  Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工卡单。");
                Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工具设备清单。");
                break;

        }
  case 4:{     sethc();
                TForm19* Form19=new TForm19(Application);
                Form19->QRLabel1->Caption=jihao+"飞机"+IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"常用航材清单";
                Form19->QuickRep1->Preview();
                delete Form19;
                DataModule1->ajhc->Filtered=false;
                  Memo1->Lines->Clear();
                Memo1->Lines->Add("上一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"检工具设备清单。");
                 Memo1->Lines->Add("下一步");
                 Memo1->Lines->Add("打印"+jihao+"飞机结合");
                 Memo1->Lines->Add(IntToStr(cishu[plane]%maxcishu+1)+djming[plane]+"小时卡、起落卡。");
                break;
          }
  case 5:{
          fhctrl();
           TForm32* Form32=new TForm32(Application);
                    Form32->title->Caption=jihao+"飞机小时卡、起落卡工作清单";
                    Form32->QuickRep1->Preview();
                    delete Form32;
            DataModule1->dayreport->Filtered=false;
        DataModule1->hours->Filtered=false;
        DataModule1->tiaojian->Filtered=false;
        DataModule1->md82ctrl->Filtered=false;