Na formi imam dugme i opendialog1..Pomocu dugmeta ucitavam podatke. Zelim da stavim ogranicenje ako ucitam jedanput npr.neku tabelu STAT.dbf, da je nmg.ucitati ponovo, da mi se podaci ne bi duplirali. A uradio sam kada zatvaram formu, brisu mi se tabele..Pri kreiranju forme prave se tabele i upisuju se podaci u njih.
Deo koda za ucitavanje podataka
Code:
if(Open->Execute())
{
Edit1->Text = Open->FileName;
int i = Edit1->Text.LastDelimiter("\\");
int a = Edit1->Text.Length();
int b = a-i;
String s = Edit1->Text.SubString(i+1,b);
Edit2->Text = s;
Edit1->Text = Edit1->Text.SubString(1,i);
String p = Edit1->Text;
ADOConnection1->Close();
String str = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+p+";Mode=Share Deny None;Jet OLEDB:Engine Type=17;";
ADOConnection1->ConnectionString = str;
tabSTAT1->Connection = ADOConnection1;
tabSTAT1->TableName = s;
int x = s.LastDelimiter(".");
int y = s.Length();
int k = y-x;
String h = s.Delete(x,k+1);
ADOQuery1->SQL->Text = "INSERT INTO tabSTAT1 SELECT GRAD , PARTNER,DATUM,NAZIV_ART,KOLICINA,NETO FROM "+h+"";
.if(Open->Execute())
{
Edit1->Text = Open->FileName;
int i = Edit1->Text.LastDelimiter("\\");
int a = Edit1->Text.Length();
int b = a-i;
String s = Edit1->Text.SubString(i+1,b);
Edit2->Text = s;
Edit1->Text = Edit1->Text.SubString(1,i);
String p = Edit1->Text;
ADOConnection1->Close();
String str = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+p+";Mode=Share Deny None;Jet OLEDB:Engine Type=17;";
ADOConnection1->ConnectionString = str;
tabSTAT1->Connection = ADOConnection1;
tabSTAT1->TableName = s;
int x = s.LastDelimiter(".");
int y = s.Length();
int k = y-x;
String h = s.Delete(x,k+1);
ADOQuery1->SQL->Text = "INSERT INTO tabSTAT1 SELECT GRAD , PARTNER,DATUM,NAZIV_ART,KOLICINA,NETO FROM "+h+"";
Brisanje podataka pri zatvaranju forme
Code:
if(FileExists("tabSTAT.dbf"))
{
ADOConnection1->Close();
String s = ExtractFilePath(Application->ExeName);
String str= "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+s+";Mode=Share Deny None;Jet OLEDB:Engine Type=17;Properties=dBase IV;";
ADOConnection1->ConnectionString = str;
tabSTAT->Connection = ADOConnection1;
cmd->CommandText = "DROP TABLE tabSTAT";
cmd->Execute();
}
if(FileExists("tabSTAT.dbf"))
{
ADOConnection1->Close();
String s = ExtractFilePath(Application->ExeName);
String str= "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+s+";Mode=Share Deny None;Jet OLEDB:Engine Type=17;Properties=dBase IV;";
ADOConnection1->ConnectionString = str;
tabSTAT->Connection = ADOConnection1;
cmd->CommandText = "DROP TABLE tabSTAT";
cmd->Execute();
}