dm.cpp

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

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

#include <vcl.h>
#include <inifiles.hpp>
#pragma hdrstop

#include "dm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinEngine"
#pragma resource "*.dfm"
TDataModule1 *DataModule1;
extern AnsiString lujing;
AnsiString danwei;
//---------------------------------------------------------------------------
__fastcall TDataModule1::TDataModule1(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TDataModule1::DataModuleCreate(TObject *Sender)
{
//feiyyfh->LoadFromFile(lujing+"feiyyfh.cds");
//feiyyfh->FileName=lujing+"feiyyfh.cds";
//tiaojian1->LoadFromFile(lujing+"条件.cds");
//tiaojian1->FileName=lujing+"条件.cds";
//dayreport->LoadFromFile(lujing+"日报.cds");
//dayreport->FileName=lujing+"日报.cds";
//plane->LoadFromFile(lujing+"飞机.cds");
//plane->FileName=lujing+"飞机.cds";
//gk90->LoadFromFile(lujing+"gk90.cds");
//gk90->FileName=lujing+"gk90.cds";
//Title->LoadFromFile(lujing+"title.cds");
//Title->FileName=lujing+"title.cds";
//ajhc->LoadFromFile(lujing+"ahc.cds");
//ajhc->FileName=lujing+"ahc.cds";
//ajsb->LoadFromFile(lujing+"asb.cds");
//ajsb->FileName=lujing+"asb.cds";
//fjyb->LoadFromFile(lujing+"yuebao.cds");
//fjyb->FileName=lujing+"yuebao.cds";
//dingjian->LoadFromFile(lujing+"djcontrol.cds");
//dingjian->FileName=lujing+"djcontrol.cds";
//oil->LoadFromFile(lujing+"oil.cds");
//oil->FileName=lujing+"oil.cds";
//hours->LoadFromFile(lujing+"hours.cds");
//hours->FileName=lujing+"hours.cds";
//md82ctrl->LoadFromFile(lujing+"md82ctrl.cds");
//md82ctrl->FileName=lujing+"md82ctrl.cds";
//bzcyb1->LoadFromFile(lujing+"bzcyb1.cds");
//bzcyb1->FileName=lujing+"bzcyb1.cds";
//bzcsjtj->LoadFromFile(lujing+"bzcsjtj.cds");
//bzcsjtj->FileName=lujing+"bzcsjtj.cds";
//jihua->LoadFromFile(lujing+"jihua.cds");
//jihua->FileName=lujing+"jihua.cds";
//gczl->LoadFromFile(lujing+"gczl.cds");
//gczl->FileName=lujing+"gczl.cds";
ADOConnection1->Connected=false;
String s_connect;
TIniFile *ini;
   ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
  s_connect=ini->ReadString("数据库","参数","");
   delete ini;

ADOConnection1->ConnectionString=s_connect;
try
{
ADOConnection1->Connected=true;
dingjian->Active=true;
tiaojian->Active=true;
plane->Active=true;
gk90->Active=true;
ajhc->Active=true;
ajsb->Active=true;
fjyb->Active=true;
oil->Active=true;
hours->Active=true;
md82ctrl->Active=true;
bzcyb1->Active=true;
bzcsjtj->Active=true;
jihua->Active=true;
feiyyfh->Active=true;
dayreport->Active=true;
gczl->Active=true;
}
catch(Exception *E)
{
ShowMessage("连接失败，原因："+E->Message);
ADOConnection1->Connected=false;
}


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

void __fastcall TDataModule1::bzcybCalcFields(TDataSet *DataSet)
{
bzcyb1heji->AsInteger=bzcyb1yanwu->AsInteger+bzcyb1quxiao->AsInteger;
}
//---------------------------------------------------------------------------



void __fastcall TDataModule1::bzcyb1CalcFields(TDataSet *DataSet)
{

bzcyb1->FieldByName("合计")->AsInteger=bzcyb1->FieldByName("延误")->AsInteger+bzcyb1->FieldByName("取消")->AsInteger;
}
//---------------------------------------------------------------------------