cxdw_personunit.pas

使用delphi语言

unit cxdw_personunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Grids, DBGrids,
  DB, ADODB;

type
  Tcxdw_personform = class(TForm)
    ToolBar1: TToolBar;
    sb_print: TSpeedButton;
    sb_close: TSpeedButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet1DSDesigner: TStringField;
    ADODataSet1DSDesigner2: TBCDField;
    ADODataSet1DSDesigner3: TBCDField;
    ADODataSet1DSDesigner4: TBCDField;
    procedure sb_closeClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure sb_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxdw_personform: Tcxdw_personform;

implementation
  uses cx_dw_personunit,dmunit,printunit;
{$R *.dfm}

procedure Tcxdw_personform.sb_closeClick(Sender: TObject);
begin
  adodataset1.Close;
  close;
end;

procedure Tcxdw_personform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=119 then
    sb_close.Click ;
  if key=114 then
    sb_print.Click ;
end;

procedure Tcxdw_personform.FormCreate(Sender: TObject);
begin
  label2.Caption:=cx_dw_personform.MaskEdit1.Text +'年' ;
  adodataset1.Close;
  adodataset1.Parameters.ParamByName('y').Value:=cx_dw_personform.MaskEdit1.Text;
  adodataset1.Open ;
end;

procedure Tcxdw_personform.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if adodataset1.RecordCount >0 then
  begin
    if dbgrid1.Columns[1].FieldName='个人缴纳' then
      dbgrid1.Columns[1].Font.Color:=clblue;
    if dbgrid1.Columns[2].FieldName='单位缴纳' then
      dbgrid1.Columns[2].Font.Color:=clgreen;
    if dbgrid1.Columns[3].FieldName='汇总缴纳' then
      dbgrid1.Columns[3].Font.Color:=clred;
  end;
  dbgrid1.DefaultDrawDataCell(rect,field,state);
end;

procedure Tcxdw_personform.sb_printClick(Sender: TObject);
begin
  if adodataset1.RecordCount>0 then
  begin
    Application.CreateForm(Tprintform, printform);
    printform.QuickRep2.BringToFront ;
    printform.QuickRep2.ReportTitle:='个人与单位缴纳汇总表预览';
    printform.QuickRep2.Preview;
    printform.Free;
  end;
end;

end.