//建立資料表
  with mtbSale do
  begin
    Close;
    //定義資料欄位.
    with mtbSale.FieldDefs do
    begin
      Clear;
      Add('CustNo', ftString, 6, false);
      Add('Class', ftString, 8, false);
    end;        //定義索引檔.
    with mtbSale.IndexDefs do
    begin
      Clear;
      Add('Class', 'Class;CustNo', []);
      Add('CustNo', 'CustNo', []);
    end;        CreateTable; //建立資料表.        //選擇索引建.
    IndexFieldNames := 'CustNo'
  end;
  mtbSale.Open;