sz_txpdecx.pas

省级集邮品管理ERP

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

*)
unit sz_txpdecx;

interface

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

type
  TFrmz_txpdecx = class( TForm )
    Panel1: TPanel;
    Panel3: TPanel;
    BBt_Quit: TBitBtn;
    Label3: TLabel;
    BBt_Find: TBitBtn;
    BBt_Print: TBitBtn;
    ND: TSpinEdit;
    BBt_Send: TBitBtn;
    Qry_Txdecx: TQuery;
    Ds_Txdecx: TDataSource;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Panel5: TPanel;
    Frmz_ndfpjh: 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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmz_txpdecx: TFrmz_txpdecx;

implementation
uses
  pub,sz_txpdeTJFX;

{$R *.DFM}

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

procedure TFrmz_txpdecx.FormCreate( Sender: TObject );
begin
  GetAllColWidth(Self);
  ND.Value := VG_Year;
end;

procedure TFrmz_txpdecx.BBt_FindClick( Sender: TObject );
const
  QuerySQL = 'select A.MZ, B.DWMC,A.DEY/1000000 DEY from TY_TXPDESJB A, TGS_GXDWSJB B'#13#10 +
    'where B.DWDM(+)=A.DWDM and A.ND=''%d'' and a.MZ<>-1 ';
{  TotalSQL = 'select ''合计'' HJ,sum(DEY) DEY from TY_TXPDESJB'#13#10 +
    'where ND=''%d''';}
begin
  with Qry_Txdecx do
  begin
    Close;
    SQL.Clear;
    SQL.Add( Format( QuerySQL, [ND.Value] ) );
    Open;
  end;
{  with Qry_Txdetj do
  begin
    Close;
    SQL.Clear;
    SQL.Add( Format( TotalSQL, [ND.Value] ) );
    Open;
  end;}
end;

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

end.