[ 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! |