What a great god remember c + + builder this software, I recently opened by the ADO module in the control of the software DBF database have a few problems, a sharing of the ADO Connection, in the Table, the datasource and DBgrid, BDE can open the database with the same method, ADO. Not, want to ask everybody a great god, help my sister code below
#include
# pragma hdrstop
# include "stdio.h"
# include "string. H"
# include "iostream. H"
# include "stdlib. H"
# include "ctype. H"
# include "conio. H"
# include "math. H"
# include "Unit1. H"
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
# pragma package (smart_init)
# pragma resource "*. DFM
"TForm1 * Form1;
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
__fastcall TForm1: : TForm1 (TComponent * Owner)
: TForm (the Owner)
{
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

Void __fastcall TForm1: : FormCreate (TObject * Sender)
{
Float xh [300], [300] PI, s;
Int I=0, j, i1, i2=0, i3, flag=0, n); AnsiString cc.
Fp1 fp FILE * and * * fp2;
OpenDialog1 - & gt; Filter="hierarchical database files (*. DBF) | *. DBF | all files (*. *) | *. *";
If (OpenDialog1 - & gt; The Execute ())
{
For (int I=0; I{
Fp=fopen (OpenDialog1 - & gt; Files - & gt; Strings [I] c_str (), "r");
Cc=OpenDialog1 - & gt; Files - & gt; Strings [I] c_str ();
If (fp)
{
ADOTable1 - & gt; TableName=cc;
ADOTable1 - & gt; The Open ();
DBGrid1 - & gt; The DataSource=DataSource1;
ADOTable1 - & gt; Active=true;
ADOTable1 - & gt; The First ();
while(! ADOTable1 - & gt; Eof)
{
Xh [I]=ADOTable1 - & gt; FieldByName (" little layer outside the boundaries of ") - & gt; The Value;//read "small layer outside the boundaries of" hierarchical data information
Image1 - & gt; Canvas - & gt; TextOutA (10, 10 + I * 25, xh [I]);
i++;
ADOTable1 - & gt; The Next ();
}
ADOTable1 - & gt; The First ();
}
}
}
}

CodePudding user response:

Which eldest brother help