【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：fmViewMetadatMain2006.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit fmViewMetadatMain2006;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ComCtrls, DBXpress, DB, DBClient, SimpleDS, SqlExpr, Grids,
      DBGrids, ExtCtrls, DBCtrls;
    
    type
      TfrmMain = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        TabSheet3: TTabSheet;
        mmGeneral: TMemo;
        mmDataSet: TMemo;
        btnConnOff: TButton;
        btnConnOn: TButton;
        btnDataSetOff: TButton;
        btnDataSetOn: TButton;
        cbKeepConnection: TCheckBox;
        cbGetMetaData: TCheckBox;
        cbConnStatus: TCheckBox;
        cbDataSetStatus: TCheckBox;
        btnApplyUpdates: TButton;
        SQLConnection1: TSQLConnection;
        SimpleDataSet1: TSimpleDataSet;
        SQLMonitor1: TSQLMonitor;
        TabSheet4: TTabSheet;
        Memo3: TMemo;
        DataSource1: TDataSource;
        DBGrid1: TDBGrid;
        DBNavigator1: TDBNavigator;
        btnGetTables: TButton;
        TabSheet5: TTabSheet;
        Memo4: TMemo;
        procedure btnGetTablesClick(Sender: TObject);
        procedure btnApplyUpdatesClick(Sender: TObject);
        procedure SQLMonitor1Trace(Sender: TObject; CBInfo: pSQLTRACEDesc30;
          var LogTrace: Boolean);
        procedure btnDataSetOnClick(Sender: TObject);
        procedure btnConnOnClick(Sender: TObject);
        procedure btnDataSetOffClick(Sender: TObject);
        procedure btnConnOffClick(Sender: TObject);
        procedure FormActivate(Sender: TObject);
      private
        { Private declarations }
        mmMemo : TMemo;
        procedure SetControls;
        procedure ClearMemo;
      public
        { Public declarations }
      end;
    
    var
      frmMain: TfrmMain;
    
    implementation
    
    {$R *.dfm}
    
    procedure TfrmMain.btnApplyUpdatesClick(Sender: TObject);
    begin
      mmMemo := Memo3;
      Self.SimpleDataSet1.ApplyUpdates(0);
    end;
    
    procedure TfrmMain.btnConnOffClick(Sender: TObject);
    begin
      Self.SQLConnection1.Connected := False;
      Self.cbConnStatus.Checked := Self.SQLConnection1.Connected;
    end;
    
    procedure TfrmMain.btnConnOnClick(Sender: TObject);
    begin
      mmMemo := mmGeneral;
      ClearMemo;
      Self.SQLMonitor1.Active := True;
      Self.SQLConnection1.Connected := True;
      Self.cbConnStatus.Checked := Self.SQLConnection1.Connected;
    end;
    
    procedure TfrmMain.btnDataSetOffClick(Sender: TObject);
    begin
      Self.SimpleDataSet1.Active := False;
      Self.cbDataSetStatus.Checked := Self.SimpleDataSet1.Active;
    end;
    
    procedure TfrmMain.btnDataSetOnClick(Sender: TObject);
    begin
      mmMemo := mmDataSet;
      ClearMemo;
      Self.SimpleDataSet1.Active := True;
      Self.cbDataSetStatus.Checked := Self.SimpleDataSet1.Active;
    end;
    
    procedure TfrmMain.btnGetTablesClick(Sender: TObject);
    var
      aList : TStringList;
    begin
      mmMemo := Memo4;
      aList := TStringList.Create;
      try
        SQLConnection1.GetTableNames(aList, False);
      finally
        FreeAndNil(aList);
      end;
    end;
    
    procedure TfrmMain.ClearMemo;
    begin
      mmMemo.Lines.Clear;
    end;
    
    procedure TfrmMain.FormActivate(Sender: TObject);
    begin
      SetControls;
    end;
    
    procedure TfrmMain.SetControls;
    begin
      Self.cbKeepConnection.Checked := Self.SQLConnection1.KeepConnection;
      Self.cbGetMetaData.Checked := Self.SimpleDataSet1.DataSet.GetMetaData;
    end;
    
    procedure TfrmMain.SQLMonitor1Trace(Sender: TObject; CBInfo: pSQLTRACEDesc30;
      var LogTrace: Boolean);
    begin
      if Assigned(mmMemo) then
        mmMemo.Lines.Add(CBInfo.pszTrace);
    end;
    
    end.