u_seek.pas

小银行系统

unit U_seek;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dxPSCore, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  DB, DBClient, Mask, Provider, ADODB, dxPSdxTLLnk, dxPSdxDBCtrlLnk,
  dxPSdxDBGrLnk,dxpsdxdbtllnk, dxExEdtr;

type
  TF_seek = class(TForm)
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    StaticText1: TStaticText;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    StaticText2: TStaticText;
    MaskEdit1: TMaskEdit;
    StaticText3: TStaticText;
    MaskEdit2: TMaskEdit;
    DBGrid1: TdxDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetPrint(aComponent : TComponent);
    { Public declarations }
  end;

var
  F_seek: TF_seek;

implementation

{$R *.dfm}

procedure TF_seek.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
   F_seek:=nil;
end;

procedure TF_seek.FormActivate(Sender: TObject);
begin
   self.Top:=0;
end;

procedure TF_seek.BitBtn1Click(Sender: TObject);
begin
   if trim(self.ComboBox1.Text)='' then
   begin
       showmessage('请选择查询条件!');
       comboBox1.SetFocus;
       exit;
   end;
     
end;

procedure TF_seek.BitBtn2Click(Sender: TObject);
begin
   if clientDataSet1.Eof then
   begin
       showmessage('请先查询资料方可列印!');
       exit;
   end
   else
   begin
     if clientDataSet1.RecordCount<=0 then
     begin
       showmessage('对不起!没有你需要的资料!');
       exit;
     end;
   end;
   setprint(self.DBGrid1);
end;

procedure TF_seek.SetPrint(aComponent : TComponent);
var
  ydPrinter : TdxComponentPrinter;
  ReportSetFileName : String;
begin
  ReportSetFileName := ExtractFilePath(application.ExeName) +
                       aComponent.Name + '.REC';
  ydPrinter := TdxComponentPrinter.Create(Application);

  try
    ydPrinter.PreviewOptions.WindowState := wsMaximized;
    ydPrinter.AddLink(aComponent);

    with TdxDBTreeListReportLink(ydPrinter.CurrentLink) do
    begin
      Font.Name := '宋体';
      Font.Size := 9;
      Font.Charset := GB2312_CHARSET;
      HeaderFont.Name := '宋体';
      HeaderFont.Size := 9;
      HeaderFont.Charset := GB2312_CHARSET;
      HeaderFont.Name := '宋体';
    end;

    if FileExists(ReportSetFileName) then      ydPrinter.LoadFromFile(ReportSetFileName);

    ydPrinter.Preview(True, nil);
  finally
    ydPrinter.SaveToFile(ReportSetFileName);
    ydPrinter.Free;
  end;
end;


procedure TF_seek.BitBtn3Click(Sender: TObject);
begin
   close;
end;

end.