for i := 0 to tblSource.IndexDefs.Count - 1 do
begin
cbxIndexName.Items.Add(inttostr(i) + '-' + tblSource.IndexDefs.Name);
cbxIndexField.Items.Add(tblSource.IndexDefs.Fields);
// tblSource.Active := true;
end;
end;
begin
//将BDE识别的索引显示出来
cbxIndexField.ItemIndex := cbxIndexName.ItemIndex; //显示该索引对应字段
edtIndexType.Text := '';
if ixPrimary in DataModule2.tblSource.IndexDefs[cbxIndexName.ItemIndex].Options then
edtIndexType.Text := edtIndexType.Text + '主健' + ';';
if ixUnique in DataModule2.tblSource.IndexDefs[cbxIndexName.ItemIndex].Options then
edtIndexType.Text := edtIndexType.Text + '唯一性索引' + ';';
if ixDescending in DataModule2.tblSource.IndexDefs[cbxIndexName.ItemIndex].Options then
edtIndexType.Text := edtIndexType.Text + '降序' + ';';
if ixCaseInsensitive in DataModule2.tblSource.IndexDefs[cbxIndexName.ItemIndex].Options then
edtIndexType.Text := edtIndexType.Text + '不区分大小写' + ';';
if ixExpression in DataModule2.tblSource.IndexDefs[cbxIndexName.ItemIndex].Options then
edtIndexType.Text := edtIndexType.Text + 'dBase关键字索引' + ';';
if ixNonMaintained in DataModule2.tblSource.IndexDefs[cbxIndexName.ItemIndex].Options then
edtIndexType.Text := edtIndexType.Text + '自动维护索引' + ';';
if edtIndexType.Text = '' then
edtIndexType.Text := edtIndexType.Text + '一般索引' + ';';
end;
var
i:integer;
begin
Table1.Active := False;
Table1.Exclusive := True;
Table1.IndexDefs.Update;
for i:=0 to Table1.IndexDefs.Count-1 do
begin
if ixPrimary in Table1.IndexDefs.Options then
begin
Memo1.Lines.Add('主键名称:'+Table1.indexDefs[0].Name);
Memo1.Lines.Add('主键字段:'+Table1.IndexDefs[0].Fields );
end;
end;
end;