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

    unit Frm_View;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, XPMan, Grids, DBGrids, StdCtrls, ExtCtrls;
    
    type
      TFrmView = class(TForm)
        GBxList: TGroupBox;
        DSView: TDataSource;
        DBGView: TDBGrid;
        ADOConn: TADOConnection;
        AQView: TADOQuery;
        BtnView: TButton;
        BtnClose: TButton;
        procedure FormCreate(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure BtnViewClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmView: TFrmView;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmView.FormCreate(Sender: TObject);
    begin
      ADoConn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DelphiClassical200';
      ADOConn.Open;
    end;
    
    procedure TFrmView.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmView.BtnViewClick(Sender: TObject);
    begin
      with AQView do
      begin
        Close;
        Sql.Add('select * from viewBookIn');
        Open;
      end;
    end;
    
    end.