sz_xyyd.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{             新邮预定情况查询统计                      }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
仅本模块调用

*)
unit sz_xyyd;

interface

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

type
  TFrmz_xyyd = class(TForm)
    Panel1: TPanel;
    Qry_Xyydtj: TQuery;
    Ds_Xyydtj: TDataSource;
    Qry_Xyydqk: TQuery;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Panel5: TPanel;
    Panel7: TPanel;
    Label1: TLabel;
    CB_DW: TComboBoxDB;
    Label3: TLabel;
    ND: TSpinEdit;
    BBt_Find: TBitBtn;
    BBt_Send: TBitBtn;
    BBt_Quit: TBitBtn;
    BBt_Print: TBitBtn;
    DBGrid1: TDBGrid;
    Ds_Xyydqk: TDataSource;
    DBGrid2: TDBGrid;
    RxLabel_Title: TRxLabel;
    procedure BBt_SendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Qry_XyydqkAfterOpen(DataSet: TDataSet);
  private
  public
  end;

var
  Frmz_xyyd: TFrmz_xyyd;

implementation
uses
   datas,pub,sz_xyydtjfx;

{$R *.DFM}

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

procedure TFrmz_xyyd.FormCreate(Sender: TObject);
begin
  GetAllColWidth(Self);
  ND.Value := VG_Year;
  if CB_DW.Open and (CB_DW.Items.Count > 0) then
  begin
    CB_DW.Items.Insert(0, '全部');
    CB_DW.ItemIndex := 0;
  end;
end;

procedure TFrmz_xyyd.BBt_FindClick(Sender: TObject);
const
  QuerySQL = 'select B.DWMC,A.YDHS,A.YPSL,A.XZSL,A.JBSL,A.XBSL,A.YDJE/100 YDJE from TM_YDQKTJB A, TGS_GXDWSJB B'#13#10 +
    'where B.DWDM(+)=A.DWDM and A.ND=''%d''';
  TotalSQL = 'select ''合计'' HJ,sum(YDHS) YDHS,sum(YPSL) YPSL,sum(XZSL) XZSL,sum(JBSL) JBSL,sum(XBSL) XBSL,(sum(YDJE))/100 YDJE from TM_YDQKTJB'#13#10 +
    'where ND=''%d''';
begin
  with Qry_Xyydqk do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format(QuerySQL, [ND.Value]));
    if CB_DW.ItemIndex > 0 then
      SQL.Add(Format('and A.DWDM=''%s''', [CB_DW.Values[CB_DW.ItemIndex]]));
    Open;
  end;
  with Qry_Xyydtj do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format(TotalSQL, [ND.Value]));
    if CB_DW.ItemIndex > 0 then
      SQL.Add(Format('and DWDM=''%s''', [CB_DW.Values[CB_DW.ItemIndex]]));
    Open;
  end;
end;

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

procedure TFrmz_xyyd.Qry_XyydqkAfterOpen(DataSet: TDataSet);
begin
  with DataSet do
  begin
    TNumericField(FieldByName('YDHS')).DisplayFormat := '#,##';
    TNumericField(FieldByName('YPSL')).DisplayFormat := '#,##';
    TNumericField(FieldByName('XZSL')).DisplayFormat := '#,##';
    TNumericField(FieldByName('JBSL')).DisplayFormat := '#,##';
    TNumericField(FieldByName('XBSL')).DisplayFormat := '#,##';
    TNumericField(FieldByName('YDJE')).DisplayFormat := '#,##0.00##';
  end;

end;

end.