ybqry.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "ybqry.h"
#include "dm.h"
#include "main.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm16 *Form16;
extern AnsiString lujing;
//---------------------------------------------------------------------------
__fastcall TForm16::TForm16(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm16::FormCreate(TObject *Sender)
{
TMemo *memo=new TMemo(GroupBox1->Handle);
memo->Lines->LoadFromFile(lujing+"plane.txt");
for(int i=0;i<memo->Lines->Count;i++)
DBComboBox1->Items->Add(memo->Lines->Strings[i]);
delete memo;
}
//---------------------------------------------------------------------------

void __fastcall TForm16::leixingChange(TObject *Sender)
{
jiange->Items->Clear();
switch(leixing->ItemIndex)
{
        case 0:
                {
                 jiange->Items->Add("650");
                 jiange->Items->Add("1250");
                 jiange->Items->Add("2000");
                 jiange->Items->Add("2500");
                 jiange->Items->Add("3500");
                 jiange->Items->Add("3750");
                 jiange->Items->Add("5000");
                 jiange->Items->Add("7000");
                 jiange->Items->Add("7500");
                 jiange->Items->Add("10000");
                 break;
                }
        case 1:
                {
                jiange->Items->Add("1200");
                jiange->Items->Add("1500");
                jiange->Items->Add("2000");
                jiange->Items->Add("2500");
                jiange->Items->Add("3000");
                jiange->Items->Add("3500");
                jiange->Items->Add("8000");
                jiange->Items->Add("16500");
                jiange->Items->Add("20000");
                break;
                }
        case 2:
                {
                jiange->Items->Add("1");
                jiange->Items->Add("6");
                jiange->Items->Add("12");
                jiange->Items->Add("24");
                jiange->Items->Add("32");
                break;
                }
        case 3:
                {
                jiange->Items->Add("350");
                jiange->Items->Add("1000");
                jiange->Items->Add("1500");
                jiange->Items->Add("2000");
                jiange->Items->Add("3000");
                break;
                }
        case 4:
                {
                jiange->Items->Add("3000");
                jiange->Items->Add("4000");
                jiange->Items->Add("5000");
                break;
                }
        case 5:
                {
                jiange->Items->Add("450");
                jiange->Items->Add("900");
                jiange->Items->Add("1350");
                jiange->Items->Add("1800");
                break;
                }
        case 6:
                {
                jiange->Items->Add("1");
                jiange->Items->Add("7");
                jiange->Items->Add("15");
                jiange->Items->Add("30");
                break;
                }
}        
}
//---------------------------------------------------------------------------

void __fastcall TForm16::FormClose(TObject *Sender, TCloseAction &Action)
{
//  DataModule1->md82ctrl->SaveToFile(DataModule1->md82ctrl->FileName,dfBinary);
//  DataModule1->dingjian->SaveToFile(DataModule1->dingjian->FileName,dfBinary);      
}
//---------------------------------------------------------------------------

void __fastcall TForm16::DateTimePicker1Change(TObject *Sender)
{
DBEdit1->Text=IntToStr(DateTimePicker1->Date);
}
//---------------------------------------------------------------------------

void __fastcall TForm16::DBNavigator2Click(TObject *Sender,
      TNavigateBtn Button)
{
if(DataModule1->ctrl82->State==dsBrowse)
{
        if(DataModule1->md82leixing->AsString=="M")
        DateTimePicker1->Date=DataModule1->md82shangcishijian->AsInteger;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm16::PageControl1Change(TObject *Sender)
{
switch(PageControl1->ActivePageIndex)
{
   case 0: DBNavigator4->DataSource=DataModule1->ctrl82;break;
   case 1: DBNavigator4->DataSource=DataModule1->bzcsjyb1;break;
   case 2: DBNavigator4->DataSource=DataModule1->djcontrol;break;
   case 3: DBNavigator4->DataSource=DataModule1->bzcsj;break;
   case 4: DBNavigator4->DataSource=DataModule1->xyjihua;break;
   case 5: DBNavigator4->DataSource=DataModule1->yuebao;break;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm16::FormActivate(TObject *Sender)
{
PageControl1->ActivePageIndex=0;
DBNavigator4->DataSource=DataModule1->ctrl82;

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


void __fastcall TForm16::dt2Change(TObject *Sender)
{
   DBEdit4->Text=DateToStr(dt2->Date);
}
//---------------------------------------------------------------------------