grpsum.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit GrpSum;

interface

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

type

  TCustomDBGridCracker = class(TCustomDBGrid) ;

  TFrm_GrpSum = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DTPicker1: TDateTimePicker;
    DTPicker2: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    Btn_PRT: TButton;
    Btn_Close: TButton;
    Panel1: TPanel;
    Label5: TLabel;
    LB_YJ: TLabel;
    LB_CZ: TLabel;
    LB_ZS: TLabel;
    LB_YP: TLabel;
    LB_XY: TLabel;
    LB_QT: TLabel;
    LB_HT: TLabel;
    LB_YYJE: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure Btn_PRTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RunSql(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_GrpSum: TFrm_GrpSum;

implementation

uses sys_dm, Rpt2 ;

{$R *.dfm}

procedure TFrm_GrpSum.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 with TCustomDBGridCracker(sender) do
  begin
    if DataLink.ActiveRecord = Row-1 then
    begin
      Canvas.Font.color := clred ;
      Canvas.Brush.color := $00FFEEEE ;
    end else
    begin
      Canvas.Font.color := clblack;
      canvas.Brush.Color := clwhite;
    end;
    DefaultDrawColumnCell(Rect,DataCol,column,state);
  end;
end;


procedure TFrm_GrpSum.RunSql(Sender: TObject);
VAR
   edate1,edate2:string ;
begin
  edate1 :=  formatdatetime('yyyy"-"mm"-"dd', DTPicker1.Date) ;
  edate2 :=  formatdatetime('yyyy"-"mm"-"dd', DTPicker2.Date) ;

  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.Clear ;
    sql.text := 'select sum(YJ), sum(CZ), sum(ZS), sum(YP), sum(XY), sum(QT), sum(HT), sum(YYJE) from GRP '+
                'where (convert(char(10),edate,120)>='''+edate1+''') and (convert(char(10),edate,120)<='''+edate2+''')' ;
    try
       open ;
    except
    end;

    LB_YJ.Caption := floatTostr(fields[0].asfloat) ;
    LB_CZ.Caption := floatTostr(fields[1].asfloat) ;
    LB_ZS.Caption := floatTostr(fields[2].asfloat) ;
    LB_YP.Caption := floatTostr(fields[3].asfloat) ;
    LB_XY.Caption := floatTostr(fields[4].asfloat) ;
    LB_QT.Caption := floatTostr(fields[5].asfloat) ;
    LB_HT.Caption := floatTostr(fields[6].asfloat) ;
    LB_YYJE.Caption := floatTostr(fields[7].asfloat) ;

    close;
    sql.Clear ;
    sql.text := 'select * from GRP '+
                'where (convert(char(10),edate,120)>='''+edate1+''') and (convert(char(10),edate,120)<='''+edate2+''')' ;
    open;
 end;
end;

procedure TFrm_GrpSum.FormCreate(Sender: TObject);
begin
  DTPicker1.Date := strTodatetime(formatdatetime('yy"-"mm"-01"', now));
  DTPicker2.Date := now ;
  RunSql(Sender);
end;


procedure TFrm_GrpSum.Btn_PRTClick(Sender: TObject);
begin
  if messagebox(handle,'你要打印吗?','提示',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2)=mrno then
     exit ;
  frm_Rpt2 := Tfrm_Rpt2.create(application);
  frm_sys_dm.Qr_tmp2.Close;
  frm_sys_dm.Qr_tmp2.SQL.Text := frm_sys_dm.Qr_tmp1.SQL.Text ;
  frm_sys_dm.Qr_tmp2.open ;
  frm_Rpt2.QuickRep1.Print ;
  frm_sys_dm.Qr_tmp2.Close ;
  frm_Rpt2.free;
end;

procedure TFrm_GrpSum.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Frm_sys_dm.Qr_tmp1.close ;
  frm_sys_dm.Qr_tmp2.Close ;
end;

end.