gk.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "gk.h"
#include "dm.h"
#include "main.h"
#include "Ubcxtj.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinComboBoxs"
#pragma link "KsSkinForms"
#pragma link "KsSkinLabels"
#pragma link "KsSkinPanels"
#pragma link "se_controls"
#pragma link "KsSkinDBControls"
#pragma link "KsSkinEdits"
#pragma resource "*.dfm"
TForm5 *Form5;
extern AnsiString shurufa;
extern TDataSet* cxb;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm5::DateTimePicker1Change(TObject *Sender)
{
DBEdit4->Field->AsDateTime=DateTimePicker1->Date;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
int i=DataModule1->gk90->RecordCount;
DateTimePicker1->Enabled =(DataModule1->work90->State==dsEdit||DataModule1->work90->State==dsInsert);
if(DataModule1->work90->State==dsInsert)
        DBEdit1->Text=++i;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::DBNavigator1BeforeAction(TObject *Sender,
      TNavigateBtn Button)
{
DateTimePicker1->Enabled =(DataModule1->work90->State==dsEdit||DataModule1->work90->State==dsInsert);
}
//---------------------------------------------------------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
Left=220;
Top=80;        
}
//---------------------------------------------------------------------------



void __fastcall TForm5::DBEdit2Change(TObject *Sender)
{
 DBEdit7->Text="ALL";
}
//---------------------------------------------------------------------------


void __fastcall TForm5::ComboBox2Change(TObject *Sender)
{
 if(DataModule1->work90->State==dsInsert)
DBMemo2->Text=ComboBox2->Text;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::FormDestroy(TObject *Sender)
{
Form5->Release();
}
//---------------------------------------------------------------------------


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

void __fastcall TForm5::FormShow(TObject *Sender)
{
DBMemo1->ImeName=shurufa;

DBEdit1->DataSource=DataModule1->work90;
DBEdit2->DataSource=DataModule1->work90;
DBEdit3->DataSource=DataModule1->work90;
DBEdit4->DataSource=DataModule1->work90;
DBMemo3->DataSource=DataModule1->work90;
DBNavigator1->DataSource=DataModule1->work90;
DBEdit7->DataSource=DataModule1->work90;
DBEdit8->DataSource=DataModule1->work90;
DBMemo1->DataSource=DataModule1->work90;
DBMemo2->DataSource=DataModule1->work90;
DBComboBox2->DataSource=DataModule1->work90;
DBComboBox1->DataSource=DataModule1->work90;

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

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

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