unit1.pas

ceshixitongzhuceshifouwanshan

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,   Grids, DBGrids,
  StdCtrls, DB, ADODB, ExtCtrls, CustomsailPrint, QuickRpt,
  sailprintsource,SailReport, ComCtrls;

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    DBGrid2: TDBGrid;
    ADODataSet2: TADODataSet;
    DataSource1: TDataSource;
    Button4: TButton;
    Button5: TButton;
    DBGridSource1: TDBGridSource;
    SailReport1: TSailReport;
    SailReport2: TSailReport;
    ComboBox1: TComboBox;
    SailReport3: TSailReport;
    SailReport4: TSailReport;
    SailReport5: TSailReport;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SailReport1PrintDetail(RowCount: Integer;
      var Cols: array of WideString; var CanPrint: Boolean);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Stream:TStream  ;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var path :string;
begin
  path:=ExtractFilePath(Application.ExeName);
  ADOConnection1.ConnectionString:='DBQ='+path+'db1.MDB;DefaultDir='+path+';Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;password=21233382135761;UserCommitSync=Yes';
  ADOConnection1.Connected:=true;
  ADODataSet2.CommandText:='SELECT id as 序号, 自有或合同, 维修企业名称, 类别, 合同起讫年限, 合同号, 设备台数, 年维修量, 固定资产 FROM 维修企业档案 ORDER BY 类别,维修企业名称';
  ADODataSet2.Open;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
case combobox1.ItemIndex of
   0:  sailreport1.Preview;
   1:   sailreport2.Preview;
   2:   sailreport3.Preview;
   3:  sailreport4.Preview;
   4:  sailreport5.Preview;
end;
end;
procedure TForm1.SailReport1PrintDetail(RowCount: Integer;
  var Cols: array of WideString; var CanPrint: Boolean);
  var i:integer;
begin
  if combobox1.ItemIndex=0 then
  if  (Cols[0]<>'') or (Cols[6]<>'') then
  for i:=1 to 5 do SailReport1.Columns.Items[i].Color:= clWhite
  else  for i:=1 to 5 do SailReport1.Columns.Items[i].Color:= clSilver;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
case combobox1.ItemIndex of
   0:  sailreport1.SetOption;
   1:   sailreport2.SetOption;
   2:   sailreport3.SetOption;
   3:  sailreport4.SetOption;
   4:  sailreport5.SetOption;
end;
end;

end.