hour.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "hour.h"
#include "dm.h"
#include "Ubcxtj.h"
#include "main.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinComboBoxs"
#pragma link "KsSkinDBControls"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "se_controls"
#pragma resource "*.dfm"
TForm27 *Form27;
extern AnsiString shurufa;
extern TDataSet* cxb;
//---------------------------------------------------------------------------
__fastcall TForm27::TForm27(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm27::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;
                }
        case 7:
                {
                jiange->Items->Add("1");
                jiange->Items->Add("2");
                jiange->Items->Add("3");
                jiange->Items->Add("4");
                jiange->Items->Add("5");
                break;
                }
}
}
//---------------------------------------------------------------------------
void __fastcall TForm27::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
if(DataModule1->hour->State==dsInsert)
{
        DataModule1->hoursStringField2->AsString ="MD82";
        DataModule1->hoursIntegerField2->AsInteger=1;
}
}
//---------------------------------------------------------------------------


void __fastcall TForm27::FormShow(TObject *Sender)
{
  DBEdit1->ImeMode<<imClose;
 DBMemo1->ImeMode<<imChinese;
  DBMemo1->ImeName=shurufa;
  DBEdit2->ImeMode<<imClose;
}
//---------------------------------------------------------------------------

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

void __fastcall TForm27::Button1Click(TObject *Sender)
{
cxb=DataModule1->hours;
FBcxtj->Show();
}
//---------------------------------------------------------------------------