//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvGrid"
#pragma link "BaseGrid"
#pragma link "SUIButton"
#pragma link "SUIImagePanel"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
dm->OraQuery1->Close();
dm->OraQuery1->SQL->Clear();
dm->OraQuery1->SQL->Add("select * from train_list");
dm->OraQuery1->Open();
int i = 1;
while(!dm->OraQuery1->Eof)
{
for(int j=0;j<dm->OraQuery1->Fields->Count;j++)
{
AdvStringGrid1->Cells[j][i] = dm->OraQuery1->Fields->Fields[j]->AsString.c_str();
}
AdvStringGrid1->RowCount++;
i++;
dm->OraQuery1->Next();
}
ShowMessage(AdvStringGrid1->Cells[0][0].c_str());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::suiButton1Click(TObject *Sender)
{
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
评论3
最新资源