sj_jypfhddy.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                   集邮票发货单打印                    }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级系统管理模块 集邮票、零枚票两部分的 发货单审核模块 中调用。
*)

unit SJ_JYPFHDDY;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls,Dialogs, Db, DBTables;

type
  TFrmK_YPFHDDY = class(TQuickRep)
    PageFooterBand1: TQRBand;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    Qry_ckdayin: TQuery;
    Qry_bz: TQuery;
    QRShape5: TQRShape;
    QRShape15: TQRShape;
    QRShape17: TQRShape;
    QRShape28: TQRShape;
    QRShape33: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRLabel1: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel35: TQRLabel;
    QRShape1: TQRShape;
    QRLabel3: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText11: TQRDBText;
    QRLabel12: TQRLabel;
    QRDBText12: TQRDBText;
    QRLabel19: TQRLabel;
    QRShape2: TQRShape;
    QRLabel4: TQRLabel;
    QRShape3: TQRShape;
    QRLabel6: TQRLabel;
    QRShape4: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRLabel7: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel11: TQRLabel;
    QRShape14: TQRShape;
    QRShape16: TQRShape;
    Query1: TQuery;
    QRDBText13: TQRDBText;
    QRShape19: TQRShape;
    Query2: TQuery;
    Qry_ckdayinZH: TStringField;
    Qry_ckdayinTMC: TStringField;
    Qry_ckdayinFHDH: TStringField;
    Qry_ckdayinXJ: TFloatField;
    Qry_ckdayinSL: TFloatField;
    Qry_ckdayinZJJE: TFloatField;
    Qry_ckdayinZK: TFloatField;
    Qry_ckdayinJSJE: TFloatField;
    Qry_ckdayinFXRQ: TDateTimeField;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    Qry_ckdayinDW: TStringField;
    QRShape20: TQRShape;
    QRDBText10: TQRDBText;
    procedure Qry_ckdayinAfterScroll(DataSet: TDataSet);
    procedure Qry_ckdayinXJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_ckdayinXJSetText(Sender: TField; const Text: String);
    procedure Qry_ckdayinJSJESetText(Sender: TField; const Text: String);
    procedure Qry_ckdayinJSJEGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_ckdayinZJJEGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_ckdayinZJJESetText(Sender: TField; const Text: String);
  private

  public
    nheight:integer;
    sumzj:double;
    sumjsj:double;
    S:string;
    SArray:array of variant;
  end;

var
  FrmK_YPFHDDY: TFrmK_YPFHDDY;


implementation

{$R *.DFM}

uses Pub;


procedure TFrmK_YPFHDDY.Qry_ckdayinAfterScroll(DataSet: TDataSet);
var
  DatArray:string;
begin
  // QRLabel10.Caption:=Qry_ckdayin.fieldbyname('ZJJE').asstring;
  // QRLabel20.Caption :=Qry_ckdayin.fieldbyname('JSJE').asstring;

   Query1.Close;
   Query1.SQL.Clear ;
   DatArray:='select * from tks_jyfhd where fhdh='''+Qry_ckdayin.fieldbyname('fhdh').asstring+'''';
   Query1.SQL.Add (DatArray);
   Query1.Open;


   DatArray:='select b.dwmc from tks_jyfhd a,tgs_gxdwsjb b where a.qxdw=b.dwdm(+) and fhdh='''+Qry_ckdayin.fieldbyname('fhdh').asstring+'''';
   Query2.Close;
   Query2.SQL.Clear ;
   Query2.SQL.Add(DatArray);
   Query2.Open;
  // QRLabel2.Caption :=Query2.fieldbyname('dwmc').asstring;

end;

procedure TFrmK_YPFHDDY.Qry_ckdayinXJGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  CurrGetText(sender,Text,Displaytext);
end;

procedure TFrmK_YPFHDDY.Qry_ckdayinXJSetText(Sender: TField;
  const Text: String);
begin
  CurrSetText(Sender,Text);
end;

procedure TFrmK_YPFHDDY.Qry_ckdayinJSJESetText(Sender: TField;
  const Text: String);
begin
  CurrSetText(Sender,Text);
end;

procedure TFrmK_YPFHDDY.Qry_ckdayinJSJEGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  CurrGetText(Sender,Text,DisplayText);
end;

procedure TFrmK_YPFHDDY.Qry_ckdayinZJJEGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  CurrGetText(Sender,Text,DisplayText);
end;

procedure TFrmK_YPFHDDY.Qry_ckdayinZJJESetText(Sender: TField;
  const Text: String);
begin
  CurrSetText(Sender,Text);
end;

end.