sy_ypcbcx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                   进发存月结表查询                    }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮品，省级集邮票，省级零枚票，省级市场购入票
地市集邮品，地市集邮票，地市市场购入票,省级综合查询

*)
unit SY_YPCBCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SY_SearchBase, Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,
  Spin, RXCtrls, SqlStrings, RxQuery, Menus, DBGridExport;

type
  TFrmY_YPCBCX = class(TfrmY_SearchBase)
    Label1: TLabel;
    SED_Year: TSpinEdit;
    Label2: TLabel;
    CBo_YF: TComboBox;
    CB_bdpc: TCheckBox;
    procedure SED_YearChange(Sender: TObject);
    procedure Qry_SearchAfterOpen(DataSet: TDataSet);
    procedure BBt_PrintClick(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure Init;override;
    procedure Search;override;
  public
    { Public declarations }
  end;

function ShowYPCBCX(p_typ: TIO_TYPE): Boolean;
var
  FrmY_YPCBCX: TFrmY_YPCBCX;

implementation

uses  datas,pub, SY_JYPJFCYJB_RPT,SJ_RICHEDIT;

{$R *.DFM}

var l_typ: TIO_TYPE;

function ShowYPCBCX(p_typ: TIO_TYPE): Boolean;
begin
  l_Typ := p_typ;
  Application.CreateForm(TFrmY_YPCBCX, FrmY_YPCBCX);
  with FrmY_YPCBCX do
  begin
    Caption := '邮资票品管理信息系统——' + pCaption[integer(l_typ)] + '业务';
    panel1.Caption := pCaption[integer(l_typ)] +'进发存月结表查询';
    Qry_Search.SQL := SqlStrings.FSqlText[l_typ];
    result := ShowModal = MB_OK;
    Free;
  end;
end;

procedure TFrmY_YPCBCX.Init;
begin
  Inherited Init;
  SED_Year.Value:=CurYear;
  CBo_YF.ItemIndex := CurMonth -1;
end;

procedure TFrmY_YPCBCX.SED_YearChange(Sender: TObject);
begin
  inherited;
  CurYear:=SED_Year.Value;
end;

procedure TFrmY_YPCBCX.Search;
begin
  With Qry_Search do
  begin
    Close;
    Params.ParamByName('ND').Asstring := Sed_year.Text;
    Params.ParamByName('YF').Asstring := CBo_YF.Text;
    if CB_bdpc.Checked then
      MacroByName('BD').AsString := ' and PC.BYZJSL + PC.BYJSSL > 0 '
    else
      MacroByName('BD').AsString := '';
    Open;
  end;
end;

procedure TFrmY_YPCBCX.Qry_SearchAfterOpen(DataSet: TDataSet);
begin
  inherited;
  with DataSet do
  begin
    TNumericField(FieldByName('JJ')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('SYJCSL')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('SYJCJE')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('BYZJSL')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('BYZJJJJE')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('BYJSSL')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('BYJSXJJE')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('SQKCSL')).DisplayFormat := '#,##0.00##';
    TNumericField(FieldByName('KCJJJE')).DisplayFormat := '#,##0.00##';
  end;
end;

procedure TFrmY_YPCBCX.BBt_PrintClick(Sender: TObject);
begin
  if Qry_Search.IsEmpty then
    exit;
  if not Assigned(JYPJFCYJB_RPT) then
  begin
  Application.CreateForm(TJYPJFCYJB_RPT,JYPJFCYJB_RPT);
  Application.CreateForm(TFrm_RichEdit,Frm_RichEdit);
  with JYPJFCYJB_RPT,Frm_RichEdit do
  try
    Qry_Search.First;

    DetailLines:=0;
    QRlabel16.Caption :=VG_UnitName;
    QRlabel19.Caption :=FormatDateTime('yyyy"年"mm"月"dd"日"',Now);
    QRLabel12.Caption :=pCaption[integer(l_typ)]+' 进发存月结表';
    QRLabel12.Left :=Round((PageHeaderBand1.Width-QRLabel12.Width) div 2);
    Prepare;
    try
      TotalPageCount:=QRPrinter.PageCount;
      QRLabel20.Caption :=IntToStr(ToTalPageCount);
    finally
      QRPrinter.Free;
    end;
    QRPrinter := nil;

    Detaillines:=0;
    sumPreCount:=0;
    sumPreMoney:=0;
    sumCount:=0;
    sumMoney:=0;
    sumjianCount:=0;
    sumjianMoney:=0;
    sumExistCount:=0;
    sumExistMoney:=0;

    if CHQMsgBox('是否采用套打？', 2)=IDYES then
    Tao_Print_Flag:=True
    else Tao_Print_Flag:=False;
    Qry_Search.First;
    Qry_Search.next;
    Preview;
  finally
     JYPJFCYJB_RPT.Free;
     Frm_RichEdit.Free;
     JYPJFCYJB_RPT:=nil;
     Frm_RichEdit:=nil;
  end;
  end;

end;

end.