ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('Create Table Sala(SDYear Varchar(4) not null,SDNo Varchar(10) not null,SDType Varchar(2) not null ,');
ADOQuery1.SQL.Add('SDSort Varchar(2) not null,SD_January Float not null default 0,SD_February Float not null default 0, ');
ADOQuery1.SQL.Add('SD_March Float not null default 0,SD_April Float not null default 0, ');
ADOQuery1.SQL.Add('Primary key(SDYear,SDNo,SDType,SDSort) )');
使用sql 語法建立table 及 'Primary key
請問有什麼指語法得知Primary key 的 indexname
每開一個Table 所產生的 indexname 都不一樣 如 Index_4D8B88EA_793D_4260
Index_.......後面都不一樣

試試看
procedure TMDIMainForm.Button1Click(Sender: TObject);
var
i: integer;
begin
inherited;
table1.Open;
for i := 0 to table1.IndexDefs.Count - 1 do
if (ixPrimary in table1.IndexDefs.Items[i].options) or
(ixUnique in table1.IndexDefs.Items[i].options) then
showmessage('PKindexname=' table1.IndexDefs.Items[i].Name);
end;

------
星期一,二...無窮迴圈＠＠

謝謝 pgdennis 
好像 用在 TTABLE 可以
我用是 Microsoft Access 資料庫好像不可以 ?
ADOQuery1.SQL.Add('Primary key(SDYear,SDNo,SDType,SDSort) )'); 主key

// 以下是取得 Primarykey Name
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOConnection1.OpenSchema(siPrimaryKeys, EmptyParam, EmptyParam, ADODataSet1);
ADODataSet1.Open;
ADODataset1.Locate('TABLE_NAME', 'table1', []); // table1是 table name
ShowMessage(ADODataset1.FieldByName('PK_NAME').AsString);
end;
// 以下是取得Index Name
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOConnection1.Open;
ADOConnection1.OpenSchema(siIndexes, EmptyParam, EmptyParam, ADODataSet1);
ADODataSet1.Open;
ADODataset1.Locate('TABLE_NAME', 'table1', []);
ShowMessage(ADODataset1.FieldByName('INDEX_NAME').AsString);
end;

謝謝 Hagar  大大 終於解我多日困擾問題
謝謝您

謝謝 Hagar  大大 終於解我多日困擾問題
謝謝您