Witam.
Chce zrobic pewna aplikacje na zaliczenie do szkoly. Prawie wszysto
zrobilem ale mam pewien problem. Program wyglada tak: sa dwie bazy
danych z dwoma tabelami: dbgrid1 i dbgrid2. W pierwszej wyswietlani sa
klienci warsztatu samochodowego (i ich dane adresowe) w drugiej
pojawiaja sie wykonane uslugi dla danego klienta (jezeli kliknie sie w
odpowiednia pozycje w dbgrid1). Chcialem zrobic jeszcze sortowanie wg
nazwiska, ID i samochodu w dbgrid1 przy pomocy komponentu radiogroup.
Ale gdy klikne odpowiednia pozycje w tym komponencie to wyswietla mi
sie blad ze nie mam utworzonych indexow. Ale ja je utworzylem chyba ze
cos przeoczylem. Tu jest kod tworzenia dbgrid1 wraz z indexami i
utworzenie radiogroup z sortowaniem:
procedure TForm1.TworzTabeleKlientow;
begin
with Table1 do
begin
DatabaseName:='';
TableName:='klienci';
TableType:=ttParadox;
FieldDefs.Add('ID klienta',ftInteger, 0, True);
FieldDefs.Add('Nazwisko',ftString,30,True);
FieldDefs.Add('Imię',ftString,30,True);
FieldDefs.Add('Samochód',ftString,10,True);
FieldDefs.Add('Kod pocztowy',ftString,6,False);
FieldDefs.Add('Miejscowość',ftString,30,False);
FieldDefs.Add('Ulica',ftString,20,False);
FieldDefs.Add('Numer domu',ftString,10,False);
IndexDefs.Add('','ID klienta',[ixPrimary,ixUnique]);
IndexDefs.Add('IndexNazwisko','Nazwisko;Imię',[ixCaseInsensitive]);
IndexDefs.Add('IndexSamochod','Samochód',[ixCaseInsensitive]);
CreateTable; {utworzenie tabeli bazy danych o powyższej definicji}
Open; {otwarcie tabeli bazy danych}
Edit; {ustawienie tabeli bazy danych w trybie edycji}
end; {with Table1 do}
end; {procedure TForm1.TworzTabeleKlientow;}
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.ItemIndex:=0;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
IntPom{zmienna pomocnicza}: integer;
begin
IntPom:=RadioGroup1.ItemIndex;
Case IntPom of
0: Table1.IndexName:='';
1: Table1.IndexName:='IndexNazwisko';
2: Table1.IndexName:='IndexSamochod';
end; {Case IntPom of}