引言: 請問如何將現有Oracle 或MSSQL 的DATABASE 的資料表的欄位名稱.型別.長度.PK.是否為Null 轉出Word 或Excel 謝謝

         Table1.open;
         if Table1.active then
         begin
            NewFile;
            MainForm.ComboBox1.text:=ComboBox1.Text;
            MainForm.Edit1.text:=ComboBox2.Text;
            DBHFileName:=ComboBox2.Text '.DBH';
            Table1.fieldDefs.update;
            for i:=0 to Table1.fieldDefs.count-1 do
            begin
               with Table1.fieldDefs.Items[i] do
               begin
                  if i<>0 then StringGrid1.rowcount:=StringGrid1.rowcount 1;
                  StringGrid1.Cells[1,i 1]:=Name;
                  StringGrid1.Cells[2,i 1]:=FieldTypeAlis[DataType];
                  StringGrid1.Cells[3,i 1]:=inttostr(size);
                  if Required then StringGrid1.cells[4,i 1]:='R';
                  StringGrid1.Cells[5,i 1]:=Name;
               end;
            end;
            Table1.IndexDefs.Update;
            for i:=0 to Table1.IndexDefs.count-1 do
            begin
               with Table1.IndexDefs.Items[i] do
               begin
                  if i<>0 then StringGrid2.rowcount:=StringGrid2.rowcount 1;
                  tmp:='';
                  if (ixPrimary in Options)  then  tmp:=tmp 'P';
                  if (ixUnique  in Options)  then  tmp:=tmp 'U';
                  if (ixDescending in Options)  then tmp:=tmp 'U';
                  if (ixExpression in Options)  then tmp:=tmp 'E';
{                  if (ixCaseInSensitive in Options)  then tmp:=tmp 'C';}
                  StringGrid2.Cells[1,i 1]:=Name;
                  StringGrid2.Cells[2,i 1]:=fields;
                  StringGrid2.Cells[3,i 1]:=tmp;
                  StringGrid2.Cells[4,i 1]:=Name;
               end;
            end;
            AdjustCaption;
         end;
         Table1.close;
      end;

         Table1.open;打開Table             if Table1.active then打開成功
         begin
            Table1.fieldDefs.update;更新Table的欄位資訊
            for i:=0 to Table1.fieldDefs.count-1 doTable的每一個欄位個跑一遍
            begin
               with Table1.fieldDefs.Items[i] do使用欄位資訊
               begin
                  StringGrid1.Cells[1,i 1]:=Name; 將欄位名稱存入stringgrid
                  StringGrid1.Cells[2,i 1]:=FieldTypeAlis[DataType];將資料型態轉成文字名稱
                  StringGrid1.Cells[3,i 1]:=inttostr(size);將欄位大小存入stringgrid
                  if Required then StringGrid1.cells[4,i 1]:='R';就是Not Null
               end;
            end;
            Table1.IndexDefs.Update;更新Table的索引資訊
            for i:=0 to Table1.IndexDefs.count-1 do每個index各跑一遍
            begin
               with Table1.IndexDefs.Items[i] do取出index資訊
               begin
                  tmp:='';
                  if (ixPrimary in Options)  then  tmp:=tmp 'P'; Primary Key
                  if (ixUnique  in Options)  then  tmp:=tmp 'U';Uni-Key
                  if (ixDescending in Options)  then tmp:=tmp 'U';降羃 Key
                  if (ixExpression in Options)  then tmp:=tmp 'E';運算 Key
{                  if (ixCaseInSensitive in Options)  then tmp:=tmp 'C';}
                  StringGrid2.Cells[1,i 1]:=Name;index名稱
                  StringGrid2.Cells[2,i 1]:=fields;index的欄位
               end;
            end;
         end;
         Table1.close;
      end;

      FieldTypeTot =23;
      FieldType : array[1..FieldTypeTot] of record
                 key:string;
                 cmd:string;
                 memo:string;
                 end
      =(
{
        (key:'S'   ;memo:'Smallint   ';ft:ftSmallint   ),
        (key:'I'   ;memo:'Integer    ';ft:ftInteger    ),
        (key:'W'   ;memo:'Word       ';ft:ftWord       ),
        (key:'L'   ;memo:'Boolean    ';ft:ftBoolean    ),
        (key:'N'   ;memo:'Float      ';ft:ftFloat      ),
        (key:'$'   ;memo:'Currency   ';ft:ftCurrency   ),
        (key:'#'   ;memo:'BCD        ';ft:ftBCD        ),
        (key:'D'   ;memo:'Date       ';ft:ftDate       ),
        (key:'T'   ;memo:'Time       ';ft:ftTime       ),
        (key:'@'   ;memo:'DateTime   ';ft:ftDateTime   ),
        (key:'Y'   ;memo:'Bytes      ';ft:ftBytes      ),
        (key:'V'   ;memo:'VarBytes   ';ft:ftVarBytes   ),
        (key:' '   ;memo:'AutoInc    ';ft:ftAutoInc    ),
        (key:'BLOB';memo:'Blob       ';ft:ftBlob       ),
        (key:'M'   ;memo:'Memo       ';ft:ftMemo       ),
        (key:'G'   ;memo:'Graphic    ';ft:ftGraphic    ),
        (key:'F'   ;memo:'FmtMemo    ';ft:ftFmtMemo    ),
        (key:'POLE';memo:'ParadoxOle ';ft:ftParadoxOle ),
        (key:'DOLE';memo:'DBaseOle   ';ft:ftDBaseOle   ),
        (key:'B'   ;memo:'TypedBinary';ft:ftTypedBinary)
}
        (key:'C'   ;cmd:'CHAR(n)             ';memo:'¤å¦r'),
        (key:'N'   ;cmd:'NUMERIC(n)          ';memo:'¼Æ¦r'),
        (key:'S'   ;cmd:'SMALLINT            ';memo:''),
        (key:'I'   ;cmd:'INTEGER             ';memo:'¾¼Æ'),
        (key:'F'   ;cmd:'FLOAT               ';memo:''),
        (key:'DE'  ;cmd:'DECIMAL(n)          ';memo:''),
        (key:'B'   ;cmd:'BOOLEAN             ';memo:'¯u°²'),
        (key:'D'   ;cmd:'DATE                ';memo:'¤é´Á'),
        (key:'T'   ;cmd:'TIME                ';memo:'®É¶¡'),
        (key:'DT'  ;cmd:'DATETIME            ';memo:'¤é´Á®É¶¡'),
        (key:'$'   ;cmd:'MONEY               ';memo:'ª÷¿ú'),
        (key:' '   ;cmd:'AUTOINC             ';memo:'¦Û°Ê²Ö¥['),
        (key:'BT'  ;cmd:'BYTES(n)            ';memo:''),
        (key:'M'   ;cmd:'BLOB(n,1)           ';memo:'MEMO'),
        (key:'BI'  ;cmd:'BLOB(n,2)           ';memo:'BINARY'),
        (key:'FM'  ;cmd:'BLOB(n,3)           ';memo:'FMT-MEMO'),
        (key:'O'   ;cmd:'BLOB(n,4)           ';memo:'OLEOBJ'),
        (key:'G'   ;cmd:'BLOB(n,5)           ';memo:'GRAPHIC'),
        (key:'U'   ;cmd:'DOUBLE PRECISION    ';memo:''),
        (key:'CH'  ;cmd:'CHARACTER(n)        ';memo:''),
        (key:'CV'  ;cmd:'CHARACTER VARYING(n)';memo:''),
        (key:'VC'  ;cmd:'VARCHAR(n)          ';memo:''),
        (key:'LR'  ;cmd:'LONG RAW            ';memo:'ORACLE¹Ï¤å')
      );
// ¦Û©wÄæ¦ì¥N¸¹
type
   TFieldTypeAlisMap = array [TFieldType] of  string[2];
const    FieldTypeAlis : TFieldTypeAlisMap =
( '_','VC','SI','I','S','B','F','$','DE','D','T',
'DT','BI','BI',' ','BI','M','G','FM','O','O','BI','_','_','_','_','_','_','_','_','_','_','_','_','_','_');    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Table1: TTable;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    const FieldTypeTot = 23;    var
  Form1: TForm1;
  FieldType: array[1..FieldTypeTot] of record
    key: string;
    cmd: string;
    memo: string;
  end;
type TFieldTypeAlisMap = array[TFieldType] of string[2];
const FieldTypeAlis: TFieldTypeAlisMap = ('_', 'VC', 'SI', 'I', 'S', 'B', 'F', '$', 'DE', 'D', 'T', 'DT', 'BI', 'BI', ' ', 'BI', 'M', 'G', 'FM', 'O', 'O', 'BI', '_', '_', '_', '_', '_', '_', '_', '_', '_', '_', '_', '_', '_', '_');    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
  tmp: string;
begin
  Table1.open; //¥´¶}Table
  if Table1.active then //¥´¶}¦¨¥\
    StringGrid1.RowCount := Table1.FieldCount   1;
  StringGrid1.ColCount := Table1.FieldCount   1;
  begin
    Table1.fieldDefs.update; //§ó·sTableªºÄæ¦ì¸ê°T
    for i := 0 to Table1.fieldDefs.count - 1 do //Tableªº¨C¤@­ÓÄæ¦ì­Ó¶]¤@¹M
    begin
      with Table1.fieldDefs.Items[i] do //¨Ï¥ÎÄæ¦ì¸ê°T
      begin
        StringGrid1.Cells[1, i   1] := Name; //±NÄæ¦ì¦WºÙ¦s¤Jstringgrid
        StringGrid1.Cells[2, i   1] := FieldTypeAlis[DataType]; //±N¸ê®Æ«¬ºAÂন¤å¦r¦WºÙ
        StringGrid1.Cells[3, i   1] := inttostr(size); //±NÄæ¦ì¤j¤p¦s¤Jstringgrid
        if Required then
          StringGrid1.cells[4, i   1] := 'Y'; //´N¬ONot Null
      end;
    end;
    Table1.IndexDefs.Update; //§ó·sTableªº¯Á¤Þ¸ê°T
    for i := 0 to Table1.IndexDefs.count - 1 do //¨C­Óindex¦U¶]¤@¹M
    begin
      with Table1.IndexDefs.Items[i] do //¨ú¥Xindex¸ê°T
      begin
        tmp := '';
        if (ixPrimary in Options) then tmp := tmp   'P'; //Primary Key
        if (ixUnique in Options) then tmp := tmp   'U'; //Uni-Key
        if (ixDescending in Options) then tmp := tmp   'U'; //­°ò» Key
        if (ixExpression in Options) then tmp := tmp   'E'; //¹Bºâ Key
        if (ixCaseInSensitive in Options) then tmp := tmp   'C';
        StringGrid2.Cells[1, i   1] := Name; //index¦WºÙ
        StringGrid2.Cells[2, i   1] := fields; //indexªºÄæ¦ì
      end;
    end;
  end;
  Table1.close;
end;    end.    end.    

引言: 還有欄位是採用簡碼,您可能要自己轉換! ～～～Delphi K.Top討論區站長～～～

引言: var i:integer; str:string; strlist:Tstringlist; begin try with Table1 do begin first; DisableControls; while not eof do begin str:=''; for i:=0 to fieldcount-1 do begin str:=str fields[i].asstring #9; strlist.add(str); next; end; strlist.savetofile(c:\a.xls); enableControls; end; end; finally strlist.free; end; end;