sy_tjxxcx.pas

省级集邮品管理ERP

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

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
  TFrmY_TJXXCX = class(TForm)
    Panel3: TPanel;
    BBt_Quit: TBitBtn;
    DBGrid1: TDBGrid;
    DS_static: TDataSource;
    Panel1: TPanel;
    Label11: TLabel;
    Label1: TLabel;
    BBt_Find: TBitBtn;
    Label2: TLabel;
    Panel5: TPanel;
    XttxTitle: TRxLabel;
    DWMC: TLabel;
    BitBtn3: TBitBtn;
    DP_FROM: TDateEdit;
    DP_TO: TDateEdit;
    YZPPSel_pp: TYzppSelect;
    SQLStr_pp: TSqlStrings;
    RxQry_static: TRxQuery;
    SQLStr_static: TSqlStrings;
    RxQry_staticPPDM: TStringField;
    RxQry_staticXJ: TFloatField;
    RxQry_staticXGRQ: TDateTimeField;
    RxQry_staticXGR: TStringField;
    RxQry_staticPPMC: TStringField;
    RxQry_staticZH: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure Act_QuitExecute(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Qry_StaticXJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RxQry_staticXJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    Lio_Type: TIO_TYPE;
    { Private declarations }
  public
    { Public declarations }
  end;

function Show_TJXXCX(io_typ: TIO_TYPE): Boolean;

var
  FrmY_TJXXCX: TFrmY_TJXXCX;

implementation

uses
  pub;

{$R *.DFM}

function Show_TJXXCX(io_typ: TIO_TYPE): Boolean;
begin
  Application.CreateForm(TFrmY_TJXXCX, FrmY_TJXXCX);
  with FrmY_TJXXCX 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 TFrmY_TJXXCX.FormCreate(Sender: TObject);
begin
  DWMC.Caption := '使用单位：' + VG_UnitName;
  DP_FROM.DateTime := GetSysDate - 365;
  DP_TO.DateTime := DP_FROM.DateTime;
  BBt_FindClick(nil);
  GetAllColWidth(Self);
end;

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

procedure TFrmY_TJXXCX.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 TFrmY_TJXXCX.DBGrid1TitleClick(Column: TColumn);
begin
  DBGridTitleOrder(Column);
end;

procedure TFrmY_TJXXCX.Qry_StaticXJGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  CurrGetText(Sender, Text, DisplayText);
end;

procedure TFrmY_TJXXCX.BitBtn3Click(Sender: TObject);
begin
  if RxQry_Static.IsEmpty then
  begin
    CHQMsgBox('没有可打印的调价信息');
    exit;
  end;
  PrintDBGrid(DBGrid1, pCaption[integer(Lio_Type)] +'调价(' + DP_FROM.Text + '到' + DP_TO.Text + ')');
end;

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

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

end.