【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-frm_DBConn.pas，希望本篇文章对您学习有所帮助。

    unit frm_DBConn;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, XPMan;
    
    type
      TFrmDBConn = class(TForm)
        Conn: TADOConnection;
        TbList: TADOTable;
        DSList: TDataSource;
        DBGList: TDBGrid;
        Panel1: TPanel;
        BtnConne: TButton;
        BtnClose: TButton;
        procedure BtnConneClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmDBConn: TFrmDBConn;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmDBConn.BtnConneClick(Sender: TObject);
    begin
      try
        conn.ConnectionString:='Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=DelphiClassical200';
        conn.Open;
        tbList.Open;
      Except
        showmessage('无法连接数据库！');
        Application.Terminate;
      end;
    end;
    
    procedure TFrmDBConn.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.