[ Mephisto1300 @ 12.05.2009. 21:08 ] @
Hvala unapred za one koji imaju razumevanja i volje da procitaju ceo text :)
Molim vas ljudi.Potreban mi je program,
koji ce u sebi da sadrzi:
Projektovanje baze podataka i kreiranje
Kreiranje osnovne forme i menija
Sastavljanje komplektnog projekta
Izrada veza izmedju baza
Kreiranje forme unosa podataka i stampanje podataka
Izrada izlaznih formi i izvestaja
Kreiranje pretrazivanja podataka
Krenuo sam ovako:
Postavio sam TTABLE,Datasource,DBGrid.
Prvo pitanje je sa cim da povezem TTable,Jer ja trebam da napravim bazu ne da uzimam vec postojecu.
Pa sam to uradio ovako:
Kreirao sam tabelu iz programa:
void __fastcall TForm1::FormShow(TObject *Sender)
{
Table1->Active=false;
if(!FileExists(put"\\Adresar.dbf"))
{
Table1->DataBaseName=put;
Table1->TableType=ttdBase;
Table1->FieldDefs->Add("IME",ftString,13,false);
Table1->FieldDefs->Add("PREZIME",ftString,15,false);
Table1->FieldDefs->Add("IME OCA",ftString,13,false);
Table1->FieldDefs->Add("DATUM RODJENJA",ftDate,0,false);
Table1->FieldDefs->Add("JMBG",ftString,13,false);
Table1->FieldDefs->Add("TELEFON",ftString,20,false);
Table1->FieldDefs->Add("MOBILNI TELEFON",ftString,20,false);
Table1->FieldDefs->Add("MAIL",ftString,60,false);
Table1->IndexDefs->Clear();
Table1->IndexDefs->Add("IME","UPPER(IME)",TIndexOptions()<<IxExpression);
Table1->IndexDefs->Add("PREZIME","UPPER(PREZIME)",TIndexOptions()<<IxExpression);
Table1->IndexDefs->Add("IME OCA","UPPER(IME OCA)",TIndexOptions()<<IxExpression);
Table1->IndexDefs->Add("DATUM RODJENJA","DATUM RODJENJA",TIndexOptions());
Table1->IndexDefs->Add("JMBG","JMBG",TIndexOptions());
Table1->IndexDefs->Add("TELEFON","TELEFON",TIndexOptions());
Table1->IndexDefs->Add("MOBILNI TELEFON","MOBILNI TELEFON",TIndexOptions());
Table1->IndexDefs->Add("MAIL","MAIL",TIndexOptions());
Table1->CreateTable();
Table1->Open();
Table1->IndexName="IME";
}
else
{
Table1->DataBaseName=put;
Table1->TableName="ADRESAR.DBF";
Table1->TableType=ttdBase;
Table1->Open();
Table1->IndexName="JMBG";
}
Da li se to ovako radi,i da li vidite neku gresku.I sta dalje raditi?
Hvala jos jednom!