sy_tjdcx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                      调价单查询                       }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级集邮票管理、省级市场购入票管理、省级集邮品管理、省级零枚票管理、
地市集邮票管理、地市集邮品管理、地市市场购入票管理  七个模块调用
*)
unit SY_TJDCX;

interface

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

type
  TFrm_TJDCX = class(TForm)
    Panel3: TPanel;
    BBt_Quit: TBitBtn;
    DBGrid1: TDBGrid;
    DS_static: TDataSource;
    Panel1: TPanel;
    BBt_Find: TBitBtn;
    Panel5: TPanel;
    XttxTitle: TRxLabel;
    DWMC: TLabel;
    BitBtn3: TBitBtn;
    SQLStr_pp: TSqlStrings;
    YZPPSel_pp: TYzppSelect;
    SQLStr_static: TSqlStrings;
    RxQry_static: TRxQuery;
    Label2: TLabel;
    RxQry_staticTJDH: TStringField;
    RxQry_staticORD: TFloatField;
    RxQry_staticZH: TStringField;
    RxQry_staticTMC: TStringField;
    RxQry_staticSL: TFloatField;
    RxQry_staticYDJ: TFloatField;
    RxQry_staticYJE: TFloatField;
    RxQry_staticXDJ: TFloatField;
    RxQry_staticXJE: TFloatField;
    RxQry_staticCE: TFloatField;
    Label1: TLabel;
    DP_FROM: TDateEdit;
    Label11: TLabel;
    DP_TO: TDateEdit;
    RxQry_staticZBR: TStringField;
    RxQry_staticTJRQ: TDateTimeField;
    procedure Act_QuitExecute(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
    procedure RxQry_staticYDJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Lio_Type: TIO_TYPE;
    { Private declarations }
  public
    { Public declarations }
  end;

function Show_TJDCX(io_typ: TIO_TYPE): Boolean;
var
  Frm_TJDCX: TFrm_TJDCX;

implementation

uses
  datas,pub, SJ_TJDDY ;

{$R *.DFM}
function Show_TJDCX(io_typ: TIO_TYPE): Boolean;
begin
  Application.CreateForm(Tfrm_TJDCX, frm_TJDCX);
  with frm_TJDCX do
  begin
    DWMC.Caption := '使用单位：' + VG_UnitName;
    Lio_type := io_typ;
    Caption := '邮资票品管理信息系统——' + pCaption[integer(Lio_Type)] + '业务';
    XttxTitle.Caption := '调价单查询';
    DP_To.Date := GetSYSDate;
    DP_From.Date := DP_To.Date - 365;

    RxQry_static.SQL.Text := SQLStr_static.FSqlText[Lio_type].Text;

    YZPPSel_pp.SQL.Text := SQLStr_pp.FSqlText[Lio_type].Text;
    YZPPSel_pp.Open;

    result := ShowModal = MB_OK;
    Free;
  end;
end;


procedure TFrm_TJDCX.Act_QuitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFrm_TJDCX.BBt_FindClick(Sender: TObject);
begin
  with RxQry_static do
  begin
    Close;
    MacroByName('PPDM').AsString := 'PPDM';
    if YZPPSel_pp.CurrDisText <> '' then
      MacroByName('PPDM').AsString := '''' + YZPPSel_pp.GetFieldVal('TDM') + '''';
    ParamByName('RQ_from').AsDateTime := DP_FROM.Date;
    ParamByName('RQ_to').AsDateTime := DP_To.Date;
    Open;
  end;
end;

procedure TFrm_TJDCX.DBGrid1TitleClick(Column: TColumn);
begin
//  DBGridTitleOrder(Column);
end;

procedure TFrm_TJDCX.BitBtn3Click(Sender: TObject);
  function GetTJDPPSL: Integer;
  var
    v_str: string;
  begin
    case Lio_type of
    io_jyp:
      v_str := 'TYS_JYPTJDB';
    io_txp:
      v_str := 'TYS_TXPTJDB';
    io_yp:
      v_str := 'TYS_YPTJDB';
    io_grp:
      v_str := 'TYS_GRPTJDB';
    end;
    AssignSQLstr(data.qrytmp, 'select count(PPDM) from ' + v_str + ' where TJDH=''' + RxQry_static.FieldByname('TJDH').AsString + '''');
    data.qrytmp.Open;
    Result := data.qrytmp.Fields[0].AsInteger;
  end;
begin
  if RxQry_static.IsEmpty then
  begin
    CHQMsgBox('没有可打印的调价单');
    exit;
  end;

  with RxQry_static do
  DoPntTJD(Lio_Type , FieldByname('TJDH').AsString, FieldByname('ZBR').AsString, FieldByname('TJRQ').AsString, GetTJDPPSL);
{  if Qry_Static.IsEmpty then
    exit;
  PrintDBGrid(DBGrid1, '集邮票调价(' + DP_FROM.Text + '到' + DP_TO.Text + ')');}
end;

procedure TFrm_TJDCX.RxQry_staticYDJGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  if Sender.AsFloat = 0 then
    Text := ''
  else
    CurrGetText(Sender, Text, DisplayText);
end;

procedure TFrm_TJDCX.FormCreate(Sender: TObject);
begin
  GetAllColWidth(Self);
end;

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

end.