hangcai.cpp

来自「民航飞机生产管理系统,实现了飞机定检坚控,小时卡起落卡等的坚控,并能生成工作任务」· C++ 代码 · 共 63 行

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

#include <vcl.h>
#pragma hdrstop

#include "hangcai.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"
TForm14 *Form14;
extern AnsiString shurufa;
//---------------------------------------------------------------------------
__fastcall TForm14::TForm14(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm14::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
int i=DataModule1->ajhc->RecordCount+1;
if(DataModule1->a->State==dsInsert)
DataModule1->xh->AsInteger=++i;
}
//---------------------------------------------------------------------------
void __fastcall TForm14::FormCreate(TObject *Sender)
{
Left=220;
Top=80;        
}
//---------------------------------------------------------------------------

void __fastcall TForm14::FormShow(TObject *Sender)
{
DBEdit2->ImeName=shurufa;
DataModule1->ajhc->IndexFieldNames="序号";
DBEdit1->DataSource=DataModule1->a;
DBEdit2->DataSource=DataModule1->a;
DBEdit3->DataSource=DataModule1->a;
DBEdit4->DataSource=DataModule1->a;
DBEdit6->DataSource=DataModule1->a;
DBEdit7->DataSource=DataModule1->a;
DBComboBox1->DataSource=DataModule1->a;
DBNavigator1->DataSource=DataModule1->a;
DBComboBox2->DataSource=DataModule1->a;
}
//---------------------------------------------------------------------------

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