unit24.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit24.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "XLSDbRead"
#pragma link "XLSReadWriteII"
#pragma resource "*.dfm"
TForm24 *Form24;
//---------------------------------------------------------------------------
__fastcall TForm24::TForm24(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm24::BitBtn2Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm24::BitBtn1Click(TObject *Sender)
{
Animate1->Visible=true;
Animate1->Active=true;
if(S1->Execute())
{
       ADT->Active=true;
      const int i_line=ADT->RecordCount;
         const int i_col=ADT->FieldCount;
         String s_fname[20];
         String s_value[20];
        XLS->Clear();
        XLS->Filename=S1->FileName;
        for(int i=0;i<i_col;i++)
        {
        s_fname[i]=ADT->Fields->Fields[i]->FieldName;
        XLS->Sheets->Items[0]->WriteWideString(i,0,-1,s_fname[i]);
        }
        ADT->First();
        for(int i=0;i<i_line;i++)
        {
                for(int j=0;j<i_col;j++)
                {
                s_value[j]=ADT->FieldByName(s_fname[j])->AsString;
                XLS->Sheets->Items[0]->WriteWideString(j,i+1,-1,s_value[j]);
                    }
         ADT->Next();
        }
        XLS->Write();
}
Animate1->Active=false;
Animate1->Visible=false;
}
//---------------------------------------------------------------------------