tools.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "tools.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"
TForm13 *Form13;
extern AnsiString shurufa;
//---------------------------------------------------------------------------
__fastcall TForm13::TForm13(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm13::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
int i=DataModule1->ajsb->RecordCount;
if(DataModule1->asb->State==dsInsert)
DataModule1->asbxh->AsInteger=++i;
}
//---------------------------------------------------------------------------

void __fastcall TForm13::FormCreate(TObject *Sender)
{
Left=220;
Top=80;        
}
//---------------------------------------------------------------------------

void __fastcall TForm13::FormShow(TObject *Sender)
{
DataModule1->ajsb->IndexFieldNames="序号";
DBEdit1->DataSource=DataModule1->asb;
DBEdit2->DataSource=DataModule1->asb;
DBEdit3->DataSource=DataModule1->asb;
DBEdit4->DataSource=DataModule1->asb;
DBEdit5->DataSource=DataModule1->asb;
DBComboBox2->DataSource=DataModule1->asb;
DBComboBox1->DataSource=DataModule1->asb;
DBNavigator1->DataSource=DataModule1->asb;
DBEdit2->ImeName=shurufa;

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

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