sz_jysr.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                 集邮收入查询统计                   }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*

     本模块单独调用
*)
unit sz_jysr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, Spin, ExtCtrls, RXCtrls, ComboBoxDB,
  Db, DBTables, clipbrd;

type
  Tfrmz_jysr = class(TForm)
    Panel11: TPanel;
    DBG_Result: TDBGrid;
    Panel3: TPanel;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    Pnl_Condition: TPanel;
    BBt_Find: TBitBtn;
    BBt_Print: TBitBtn;
    BBt_Quit: TBitBtn;
    BBt_Send: TBitBtn;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    ND_Start: TSpinEdit;
    ND_End: TSpinEdit;
    YF_End: TSpinEdit;
    YF_Start: TSpinEdit;
    CB_DW: TComboBoxDB;
    DBGrid1: TDBGrid;
    Qry_Jyywcx: TQuery;
    Ds_Jyywcx: TDataSource;
    Qry_Jyywtj: TQuery;
    Ds_Jyywtj: TDataSource;
    RxLabel_Title: TRxLabel;
    Label2: TLabel;
    procedure BBt_SendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmz_jysr: Tfrmz_jysr;

implementation
uses
  pub,sz_jysrtjfx;
{$R *.DFM}

procedure Tfrmz_jysr.BBt_SendClick(Sender: TObject);
begin
  with TFrmz_jysrtjfx.Create(application) do
  try
    ShowModal;
  finally
    Release;
  end;
end;

procedure Tfrmz_jysr.FormCreate(Sender: TObject);
begin
  GetAllColWidth(Self);
  ND_Start.Value := VG_Year;
  ND_End.Value := VG_Year;
  YF_Start.Value := 1;
  YF_End.Value := VG_Month;
//2002-03-08 by jillshao
{  if CB_DW.Open and (CB_DW.Items.Count > 0) then
  begin
    CB_DW.Items.Insert(0, '全部');
    CB_DW.ItemIndex := 0;
  end;}
  CB_DW.Open;
end;

procedure Tfrmz_jysr.BBt_FindClick(Sender: TObject);
const
  QuerySQL = 'select B.DWMC,(A.JYPSR/10000) JYPSR,(A.YPSR/10000) YPSR,(A.QTSR/10000) QTSR,(A.ML/10000) ML from TYS_JYYWSRTJB A, TGS_GXDWSJB B'#13#10 +
    'where A.DWDM=B.DWDM(+)';
  TotalSQL = 'select ''合计'' HJ,(sum(JYPSR)/10000) JYPSR,(sum(YPSR)/10000) YPSR,(sum(QTSR)/10000) QTSR,(sum(ML)/10000) ML from TYS_JYYWSRTJB'#13#10 +
    'where 1=1';
  function GetFmtMon(AMon: string): string;
  begin
    if Length(AMon) = 1 then
      Result := '0' + AMon
    else
      Result := AMon;
  end;
begin
  with Qry_Jyywcx do
  begin
    Close;
    SQL.Clear;
    SQL.Add(QuerySQL);
//2002-03-08 by jillshao
//    if CB_DW.ItemIndex > 0 then
      SQL.Add(Format('and A.DWDM=''%s''', [CB_DW.Values[CB_DW.ItemIndex]]));
    if YF_Start.Value <= 0 then
      SQL.Add(Format('and to_number(A.ND) between %d and %d', [ND_Start.Value, ND_End.Value]))
    else
      SQL.Add(Format('and to_number(A.ND||A.YF) between %s and %s', [ND_Start.Text + GetFmtMon(YF_Start.Text), ND_End.Text + GetFmtMon(YF_End.Text)]));
    Open;
  end;
  with Qry_Jyywtj do
  begin
    Close;
    SQL.Clear;
    SQL.Add(TotalSQL);
//2002-03-08 by jillshao
//    if CB_DW.ItemIndex > 0 then
      SQL.Add(Format('and DWDM=''%s''', [CB_DW.Values[CB_DW.ItemIndex]]));
    if YF_Start.Value <= 0 then
      SQL.Add(Format('and to_number(ND) between %d and %d', [ND_Start.Value, ND_End.Value]))
    else
      SQL.Add(Format('and to_number(ND||YF) between %s and %s', [ND_Start.Text + GetFmtMon(YF_Start.Text), ND_End.Text + GetFmtMon(YF_End.Text)]));
    Open;
  end;
end;

procedure Tfrmz_jysr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveAllColWidth(Self);
end;

end.