【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“Frm_Brow.pas”一文，供大家参考学习

    unit Frm_Brow;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, DBCtrls, XPMan;
    
    type
      TFrmBrow = class(TForm)
        DSLIst: TDataSource;
        DBNList: TDBNavigator;
        ADOConn: TADOConnection;
        ATable: TADOTable;
        CBTable: TComboBox;
        GBList: TGroupBox;
        DBGList: TDBGrid;
        LBTBList: TLabel;
        BVLine: TBevel;
        BTNOpenTb: TButton;
        BTNClose: TButton;
        procedure FormCreate(Sender: TObject);
        procedure BTNOpenTbClick(Sender: TObject);
        procedure BTNCloseClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmBrow: TFrmBrow;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmBrow.FormCreate(Sender: TObject);
    begin
      try
        ADoConn.ConnectionString:='Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=DelphiClassical200';
        ADoConn.Open;
        AdoConn.GetTableNames(CBTable.Items,false);
        CBTable.ItemIndex:=0;
      except
        Application.MessageBox('数据库连接错误！','错误',MB_OK+MB_ICONError);
      end;
    end;
    
    procedure TFrmBrow.BTNOpenTbClick(Sender: TObject);
    begin
      ATable.Close;
      ATable.TableName:=CBTable.Text;
      ATable.Open;
    end;
    
    procedure TFrmBrow.BTNCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.