ә ң ұғ ұ ңғ . ұ ң қғ ө ө ұ.
ұ ғy ғғ ң ixDescending қ, қ ғ қғ ә ұ әғ ө . ixDescending ң қғ , ұ әң . ұ қ, IndexName IndexFieldNames қң ө . IndexName қң ә , құғғ ө. IndexFieldNames қ ә ң ө ө.
Paradox ң ң (ң) , ұ ұ IndexFieldNames қң ө ғ .
ң ө ұ ө.
Procedure TForm1.Button4Click(Sender: Tobject);
Begin
Case Radiogroup1.ItemIndex of
0: Table1.IndexName:=IndName;
1: Table1.IndexName:=indBirthday;
end;
end;
ә Table1 , ұ ә : Name ө ү құғ IndName , ә Birthday ө ү құғ indBirthday .
өң ө ғ ұ ө.
Procedure TForm1.Button5Click(Sender: Tobject);
Begin
Case Radiogroup1.ItemIndex of
0: Table1.IndexFieldNames:=Name;
1: Table1.IndexFieldNames:=Name;Birthday;
2: Table1.IndexFieldNames:=Code;
end;
end;
ұ ұ ө : Name (IndName ), Name ә Birthday (indNameBirthday ), Code ( ).
ққ ұ ққ. ә қ Table1 қ. ұ -ққң ө қ : ұң ү, ұң ғ ө. ұ ү қ ң . ү 21- ө.
21-. ұ ң
Procedure TForm1.Button5Click(Sender: Tobject);
Begin
Case Radiogroup1.ItemIndex of
0: Table1.IndexName:=IndName;
1: Table1.IndexName:=IndBirthday;
|
|
|
2: Table1.IndexName:=;
end;
Case Radiogroup1.ItemIndex of
0: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.Indexdefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options+[ixdescending];
1: Table1.IndexDefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options:=
Table1.Indexdefs[Table1.IndexDefs.IndexOf(Table1.IndexName)].Options-
[ixdescending];
End;
End;
ұ ө IndexName қ қ қ.
ұ ғ ғ ұ ө . ұ Paradox ү, ө ұ . dBase ү ң .
ұ ғ қ ғғ ң ixDescending ң ө ү . IndexDefs ғғ ө қ ү IndexOf ә қ.
қ қғ қғ ғ . ғ ә ә ғ ң ө. Ө ү Locate ә Lookup ә қ, ө ү.
Locate (const keyFields: String; const KeyValues: Variant; Options:TLocateOptions):Boolean өң ә . , True ә, қ ғ False қ.
ү ө KeyFields , ө ү ү (;) ө. Variant KeyValues ү ө ә ө.
Options қ . ұ TLocateOptions , ә
ә қ:
loCaseInsensitive (әң );
loPartialKey (әң ө ә );
ө :
Table1.Locate(Number, 123, []);
Number ө , ә ұ өң ә 123 .
ә қ қғ өң қ. ү 22- .
22-. ң
(Name) ә құ (Price) ө ү . ү ң .
ө қғ өң ң ә .
procedure TForm1.Button1Click(Sender: TObject);
Var Keyfields: String;
KeyValues: Variant;
Options: TLocateOptions;
begin
if not (CheckBox1.Checked or CheckBox2.Checked) then begin
MessageDlg('yt pflfys eckjdbt gjbcrf', mtInformation, [mbOK],0);
exit;
|
|
|
end;
// қ Name, Price ө
if CheckBox1.Checked and CheckBox2.Checked then begin
KeyFields:='Name;Price';
KeyValues:=VararrayOf([edit1.Text,edit2.Text]);
end
// өң
else begin
// Name ө
if CheckBox1.checked then begin
Keyfields:='Name';
keyvalues:=edit1.Text;
end;
// Price ө
if CheckBox2.Checked then begin
KeyFields:='Price';
KeyValues:=edit2.Text;
end;
end;
// әң
// ә ү
Options:=[loCaseInsensitive,loPartialKey];
// ғ қ
if not Table1.Locate(KeyFields,KeyValues,Options) then begin
Beep;
MessageDlg(' , mtInformation, [mbOK],0);
exit;
end;
end;
ҳ , ө ә ү әң ұқ ә ғ FindNearest, SetNearest, EditNearest ә GotoNearest әң ө ұғ .
ү, қ қғ өң ққ.
23-. ҳ
Қң ү қғ өң ө .
procedure TForm1.Edit1Change(Sender: TObject);
Var strField: String;
begin
// қғ , ғ
if not CheckBox1.Checked then exit;
// ү ө ң
case RadioGroup1.ItemIndex of
0:strField:= 'Name';
1:strField:= 'Firm';
2:strField:= 'City';
end;
//
Table1.Locate(strField,edit1.Text,
[loCaseInsensitive,loPartialKey]);
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
edit1Change(Sender);
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
edit1Change(Sender);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
