tiaojian.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "tiaojian.h"
#include "dm.h"
#include "main.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinForms"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "se_controls"
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::FormShow(TObject *Sender)
{
DBComboBox1->DataSource=DataModule1->DataSource1;
DBComboBox2->DataSource=DataModule1->DataSource1;
DBComboBox3->DataSource=DataModule1->DataSource1;
DBComboBox4->DataSource=DataModule1->DataSource1;
DBComboBox5->DataSource=DataModule1->DataSource1;
DBEdit1->DataSource=DataModule1->DataSource1;
DBNavigator1->DataSource=DataModule1->DataSource1;
}
//---------------------------------------------------------------------------

void __fastcall TForm3::DBComboBox1Change(TObject *Sender)
{
switch(DBComboBox1->ItemIndex)
{
        case 2:
                {
                DBComboBox2->Items->Clear();
                DBComboBox2->Items->Add("650");
                 DBComboBox2->Items->Add("1250");
                 DBComboBox2->Items->Add("2000");
                 DBComboBox2->Items->Add("2500");
                 DBComboBox2->Items->Add("3500");
                 DBComboBox2->Items->Add("3750");
                 DBComboBox2->Items->Add("5000");
                 DBComboBox2->Items->Add("7000");
                 DBComboBox2->Items->Add("7500");
                 DBComboBox2->Items->Add("10000");
                 break;
                }
        case 3:
                {
                  DBComboBox2->Items->Clear();
                DBComboBox2->Items->Add("1200");
                 DBComboBox2->Items->Add("1500");
                 DBComboBox2->Items->Add("2000");
                 DBComboBox2->Items->Add("2500");
                 DBComboBox2->Items->Add("3000");
                 DBComboBox2->Items->Add("3500");
                 DBComboBox2->Items->Add("8000");
                 DBComboBox2->Items->Add("16500");
                 DBComboBox2->Items->Add("20000");
                 break;
                }
        case 4:
                {
                 DBComboBox2->Items->Clear();
                DBComboBox2->Items->Add("1");
                 DBComboBox2->Items->Add("6");
                 DBComboBox2->Items->Add("12");
                 DBComboBox2->Items->Add("24");
                 DBComboBox2->Items->Add("32");
                break;
                }
        case 5:
                {
                  DBComboBox2->Items->Clear();
                DBComboBox2->Items->Add("350");
                 DBComboBox2->Items->Add("1000");
                 DBComboBox2->Items->Add("1500");
                 DBComboBox2->Items->Add("3000");
                 break;
                }
        case 6:
                {
                 DBComboBox2->Items->Clear();
                DBComboBox2->Items->Add("3000");
                 DBComboBox2->Items->Add("4000");
                 DBComboBox2->Items->Add("5000");
                 break;
                }
        case 7:
                {
                 DBComboBox4->Items->Clear();
                DBComboBox4->Items->Add("30");
                 DBComboBox4->Items->Add("45");
                 DBComboBox4->Items->Add("60");
                  DBComboBox3->Items->Clear();
                DBComboBox3->Items->Add("15");
                 DBComboBox3->Items->Add("30");
                 DBComboBox3->Items->Add("45");
                 break;
                }
}
}
//---------------------------------------------------------------------------

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
DataModule1->tiaojian1->SaveToFile(DataModule1->tiaojian1->FileName,dfBinary);
Form1->FormShow(Sender);
}

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


void __fastcall TForm3::FormActivate(TObject *Sender)
{
DataModule1->tiaojian->Filtered=false;
}
//---------------------------------------------------------------------------