fhd_cx.pas

省级集邮品管理ERP

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Math,
  StdCtrls, Db, DBTables, Grids, DBGrids, Buttons, ExtCtrls, RXDBCtrl, FORMBASE,
  RxQuery, sqlstrings, RXCtrls, Spin, Menus, DBGridExport;

type
  TFrm_FHD_CX = class(TFFormBase)
    RxDBG_fhd: TRxDBGrid;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    XttxTitle: TRxLabel;
    DWMC: TLabel;
    Panel3: TPanel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    Label3: TLabel;
    BitBtn3: TBitBtn;
    SpinEdit2: TSpinEdit;
    BBt_CZFHD: TBitBtn;
    Button1: TButton;
    Qry_Static: TQuery;
    Qry_Static2: TQuery;
    qry_TXP: TRxQuery;
    qry_GRP: TRxQuery;
    qry_YP: TRxQuery;
    qry_JYP: TRxQuery;
    Button2: TButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RxDBGrid1TitleClick(Column: TColumn);
    procedure qry_JYPAfterOpen(DataSet: TDataSet);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure BBt_CZFHDClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RxDBG_fhdDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
    Fquery: TRxQuery;
    Fio_Type: TIO_TYPE;
  public
    { Public declarations }
  published
    {published declarations }
  end;

function Show_FHDCX(io_typ: TIO_TYPE): Boolean;
var
  Frm_FHD_CX: TFrm_FHD_CX;

implementation

uses Pub,FHD_CX_Search, SJ_FHSH_DY, SJ_RICHEDIT;
{$R *.DFM}

function Show_FHDCX(io_typ: TIO_TYPE): Boolean;
begin
  Application.CreateForm(TFrm_FHD_CX, Frm_FHD_CX);
  with Frm_FHD_CX do
  begin
 //*********************************zbk***************************************//
    case io_typ of
      io_jyp:
        BBt_CZFHD.Visible := CheckRight_Bool(CG_JYCZ);
      io_txp:
        BBt_CZFHD.Visible := CheckRight_Bool(CG_TXCZ);
      io_grp:
        BBt_CZFHD.Visible := CheckRight_Bool(CG_GRCZ);
      io_yp:
        BBt_CZFHD.Visible := CheckRight_Bool(CG_YPCZ);
    end;
 //***************************************************************************
    FIO_type := io_typ;
    Caption := '邮资票品管理信息系统——' + pCaption[integer(Fio_Type)] + '业务';
    XttxTitle.Caption := '发货单查询';
    DWMC.Caption := '使用单位：' + VG_UnitName;
    case Fio_type of
      io_jyp:
        begin
          FQuery := qry_JYP;
        end;
      io_yp:
        begin
          FQuery := qry_YP;
        end;
      io_grp:
        begin
          FQuery := qry_GRP;
        end;
      io_txp:
        begin
          FQuery := qry_TXP;
//          RxDBG_fhd.Columns[5].Title.caption := '面值';
//          RxDBG_fhd.Columns[6].Title.caption := '售价';
        end;
    end;
    if FQuery.Active then
      FQuery.Close;
    DataSource1.DataSet := FQuery;
    SpinEdit1.OnChange := nil;
    SpinEdit1.Value := VG_Year;
    SpinEdit1.OnChange := SpinEdit1Change;
    SpinEdit2.Value := VG_Month;
//    RxDBG_fhd.Columns[5].Visible := (Fio_type=io_txp);
    if Fio_type <> io_txp then
      RxDBG_fhd.Columns.Delete(5);
    result := ShowModal = MB_OK;
    Free;
  end;
end;


procedure TFrm_FHD_CX.BitBtn2Click(Sender: TObject);
var
  s: string;
begin
  Show_FHDCXTJ(s, FIo_type);
  if s <> '' then
    SetMacro(FQuery, 'CON', s);
end;

procedure TFrm_FHD_CX.FormDestroy(Sender: TObject);
begin
  if Frm_FHD_CX_Search <> nil then
  begin
    Frm_FHD_CX_Search.Free;
    Frm_FHD_CX_Search := nil;
  end;
end;

procedure TFrm_FHD_CX.RxDBGrid1TitleClick(Column: TColumn);
  procedure SetEmpty;
  begin
    with TRxQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
    begin
      Close;
      MacroByName('CON1').AsString := '''''';
      MacroByName('CON2').AsString := '''''';
      MacroByName('CON3').AsString := '''''';
      MacroByName('CON4').AsString := '''''';
      MacroByName('CON5').AsString := '''''';
      MacroByName('CON6').AsString := '''''';
      MacroByName('CON7').AsString := '''''';
      MacroByName('CON8').AsString := '''''';
    end;
  end;
begin
  with TRxQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
  begin
    if Column.FieldName = 'DWJC' then
    begin
      SetEmpty;
      MacroByName('CON1').AsString := 'DWJC';
      MacroByName('CON_GRP').AsString := 'DWJC';
      MacroByName('CON_ORD').AsString := 'DWJC';
      Open;
    end
    else if Column.FieldName = 'RCKXZMC' then
    begin
      SetEmpty;
      MacroByName('CON2').AsString := 'R.RCKXZMC';
      MacroByName('CON_GRP').AsString := 'R.RCKXZMC';
      MacroByName('CON_ORD').AsString := 'RCKXZMC';
      Open;
    end
    else if Column.FieldName = 'PPDM' then
    begin
      SetEmpty;
      case Fio_type of
        io_yp:
          begin
            MacroByName('CON3').AsString := '''(''||Y.ZH||'')''||Y.MC';
            MacroByName('CON_GRP').AsString := '''(''||Y.ZH||'')''||Y.MC';
          end;
        io_txp:
          begin
            MacroByName('CON3').AsString := '''(''||Y.ZH||'')''||Y.TMC';
            MacroByName('CON_GRP').AsString := '''(''||Y.ZH||'')''||Y.TMC';
          end;
      else
        begin
          MacroByName('CON3').AsString := '''(''||Y.ZH||'')''||Y.TJC';
          MacroByName('CON_GRP').AsString := '''(''||Y.ZH||'')''||Y.TJC';
        end;
      end;
      MacroByName('CON_ORD').AsString := 'PPDM';
      Open;
    end
    else if Column.FieldName = 'JSZT' then
    begin
      SetEmpty;
      MacroByName('CON4').AsString := 'DECODE(JSZT, 0, ''否'', ''是'')';
      MacroByName('CON_GRP').AsString := 'DECODE(JSZT, 0, ''否'', ''是'')';
      MacroByName('CON_ORD').AsString := 'JSZT';
      Open;
    end
    else if Column.FieldName = 'ZTZT' then
    begin
      SetEmpty;
      MacroByName('CON5').AsString := 'Z.ZTMC';
      MacroByName('CON_GRP').AsString := 'Z.ZTMC';
      MacroByName('CON_ORD').AsString := 'ZTZT';
      Open;
    end
    else if Column.FieldName = 'FH' then
    begin
      SetEmpty;
      MacroByName('CON6').AsString := 'DECODE(HDR, NULL, ''否'', ''是'')';
      MacroByName('CON_GRP').AsString := 'DECODE(HDR, NULL, ''否'', ''是'')';
      MacroByName('CON_ORD').AsString := 'FH';
      Open;
    end
    else if Column.FieldName = 'KDRQ' then
    begin
      SetEmpty;
      MacroByName('CON7').AsString := 'TO_CHAR(KDRQ,''YYYY-MM-DD'')';
      MacroByName('CON_GRP').AsString := 'TO_CHAR(KDRQ,''YYYY-MM-DD'')';
      MacroByName('CON_ORD').AsString := 'KDRQ';
      Open;
    end
    else if Column.FieldName = 'CKRQ' then
    begin
      SetEmpty;
      MacroByName('CON8').AsString := 'TO_CHAR(CKRQ,''YYYY-MM-DD'')';
      MacroByName('CON_GRP').AsString := 'TO_CHAR(CKRQ,''YYYY-MM-DD'')';
      MacroByName('CON_ORD').AsString := 'CKRQ';
      Open;
    end;
  end;
end;

procedure TFrm_FHD_CX.qry_JYPAfterOpen(DataSet: TDataSet);
begin
  inherited;
  with DataSet do
  begin
    TNumericField(FieldByName('MZ')).DisplayFormat := '#,##0.00';
    TNumericField(FieldByName('JJ')).DisplayFormat := '#,##0.00';
    TNumericField(FieldByName('XJ')).DisplayFormat := '#,##0.00';
    TNumericField(FieldByName('JSJ')).DisplayFormat := '#,##0.00';
    TNumericField(FieldByName('JSJE')).DisplayFormat := '#,##0.00';
    TNumericField(FieldByName('SL')).DisplayFormat := '#,##0';
  end;
end;

procedure TFrm_FHD_CX.BitBtn3Click(Sender: TObject);
begin
  PrintDBGrid(RxDBG_fhd, pCaption[integer(Fio_Type)] + '发货单');
end;

procedure TFrm_FHD_CX.SpinEdit1Change(Sender: TObject);
begin
  inherited;
  SetMacro(FQuery, 'CON', 'to_char(KDRQ, ''YYYY-MM'') = ''' + SpinEdit1.Text + '-' + formatfloat('00', SpinEdit2.Value) + '''');

end;