u_form1.pas

很好地delphi书籍源码

unit U_Form1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids,Dy_QReport;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Button1: TButton;
    CheckBox1: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses U_Form2;

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  i:byte;
begin
  if CheckBox1.Checked then
    for i:=0 to 2 do
      DBGrid1.Columns[i].Visible:=false
   else
     for i:=0 to 2 do
     DBGrid1.Columns[i].Visible:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  GridPrint1:TGridPrint;
begin
  Form2:=TForm2.Create(Application);
  with Form2 do
  begin
    GridPrint1:=TGridPrint.Create(QuickRep1,DBGrid1,QRBand1,QRBand2,QRBand3,
                      '足彩竞猜对阵表');
    GridPrint1.DoPreview();
    GridPrint1.Free;
  end;


end;

end.