Evo ti moj prjedlog. Ja uvek upotrebljavam PARADOX i SQL. Jer za ozbiljan rad sa bazama podataka ne ide vise bez SQL i slicnih stvari. ;-) Evo kako to ide u Delphi-ju:
procedure TBazaForm.FormCreate(Sender: TObject);
var
Baza: TTable;
begin
if not FileExists('USERS.DB') then
begin
Baza:=TTable.Create(Self);
try
try
with Baza do
begin
Active:=False;
DatabaseName:='FIT';
TableName:='USERS';
TableType:=ttParadox;
with FieldDefs do
begin
Clear;
Add('Ime',ftString,10,True);
Add('Geslo',ftString,10,True);
Add('Nivo',ftInteger,0,True);
Add('Slika',ftGraphic);
end;
with IndexDefs do
begin
Clear;
Add('','Ime',[ixPrimary]);
end;
CreateTable;
end;
Baza.Open;
Baza.AppendRecord(['SERVIS','SERVIS',9,'']);
Baza.Close;
except
MessageDlg('Ne morem ustvariti USERS.DB!',mtError,[mbOK],0);
Application.Terminate;
end
finally
Baza.Free;
end;
end;
end;
Pa nadam se, da sam ti pomogao.
LP,
VasjaS