資料庫基本語法

相關物件
TColumn
TDBGrid
DataSource

type
  TForm1 = class(TForm)
    Button2: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DataSource1: TDataSource;                        //資料庫來源語法
    ADOQuery1: TADOQuery;                        //Data查詢啟用語法
    DBGrid1: TDBGrid;                                    //資料表顯示語法



procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
end;                                                             ＊重要，必須開啟才能使用＊    


下列為開啟資料表在Control Panel理動態新增分頁並且動態設定資料表讀取欄位與寬度設定
var
  Yoo: TTabSheet;
  i, j: integer;
  aDBGrid:TDBGrid;
  c: TColumn;
begin
 j:=3;
 for i:= 1 to 5 do
  begin
    Yoo :=TTabSheet.Create(Self);
    Yoo.PageControl :=PageControl1;
    Yoo.Caption := Yoo.ClassName+inttostr(j);
    aDBGrid:= TDBGrid.Create(Self);
    if Yoo.TabIndex =3 then
    Begin
     aDBGrid.Parent :=Yoo;
     aDBGrid.Align :=alClient;
     aDbGrid.DataSource := DataSource1;     //DATA Source導入語法

     c := aDBGrid.Columns.Add;
      c.FieldName:='ID_CUST';

     c := aDBGrid.Columns.Add;
      c.FieldName:='NM_C';
      c.Width:=335;                                        //第二欄寬定
    End;
    j :=j+1;
   end;
end;