rkd_cx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{            集邮入库单查询                             }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮品，省级市场购入票，省级集邮票管理，省级库房管理
地市集邮品，地市市场购入票，地市集邮票管理

修改记录：
1。入库单操作人员（制表人和复核人）的显示，在界面上和4个RxQuery的SQL里 by jhshao 2003.05.07

*)
unit RKD_CX;

interface

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

type
  TFrm_RKD_CX = class(TFFormBase)
    RxDBG_rkd: TRxDBGrid;
    Panel1: TPanel;
    DataSource1: TDataSource;
    qry_JYP: TRxQuery;
    qry_YP: TRxQuery;
    qry_GRP: TRxQuery;
    qry_TXP: TRxQuery;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    XttxTitle: TRxLabel;
    DWMC: TLabel;
    Panel3: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    BitBtn3: TBitBtn;
    SpinEdit2: TSpinEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RxDBGrid1TitleClick(Column: TColumn);
    procedure qry_JYPJJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure qry_JYPAfterOpen(DataSet: TDataSet);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
  private
    { Private declarations }
    Fquery: TRxQuery;
    Fio_Type: TIO_TYPE;
  public
    { Public declarations }
  published
    {published declarations }
  end;

function Show_RKDCX(io_typ: TIO_TYPE): Boolean;
var
  Frm_RKD_CX: TFrm_RKD_CX;

implementation

uses
  datas,
  RKD_CX_Search;{入库单查询查询条件}
{$R *.DFM}

function Show_RKDCX(io_typ: TIO_TYPE): Boolean;
begin
  Application.CreateForm(TFrm_RKD_CX, Frm_RKD_CX);
  with Frm_RKD_CX do
  begin
    DWMC.Caption := '使用单位：' + VG_UnitName;
    FIO_type := io_typ;
    Caption := '邮资票品管理信息系统——' + pCaption[integer(Fio_Type)] + '业务';
    XttxTitle.Caption := '入库单查询';
    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_rkd.Columns[3].Title.caption := '面值';
//          RxDBG_rkd.Columns[4].Title.caption := '售价';
        end;
    end;
    if FQuery.Active then
      FQuery.Close;
    DataSource1.DataSet := FQuery;
    SpinEdit1.Value := VG_Year;
    SpinEdit2.Value := VG_Month;
//    RxDBG_rkd.Columns[3].Visible := (Fio_type=io_txp);
    if Fio_type <> io_txp then
      RxDBG_rkd.Columns.Delete(3);
    result := ShowModal = MB_OK;
    Free;
  end;
end;

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

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

procedure TFrm_RKD_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 := '''''';
    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 := 'PXM';
      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 = 'FH' then
    begin
      SetEmpty;
      MacroByName('CON5').AsString := 'DECODE(JZY, NULL, ''否'', ''是'')';
      MacroByName('CON_GRP').AsString := 'DECODE(JZY, NULL, ''否'', ''是'')';
      MacroByName('CON_ORD').AsString := 'FH';
      Open;
    end
    else if Column.FieldName = 'KDRQ' then
    begin
      SetEmpty;
      MacroByName('CON6').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 = 'DJRQ' then
    begin
      SetEmpty;
      MacroByName('CON7').AsString := 'TO_CHAR(RKRQ,''YYYY-MM-DD'')';
      MacroByName('CON_GRP').AsString := 'TO_CHAR(RKRQ,''YYYY-MM-DD'')';
      MacroByName('CON_ORD').AsString := 'RKRQ';
      Open;
    end;
  end;
end;

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

procedure TFrm_RKD_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_RKD_CX.BitBtn3Click(Sender: TObject);
begin
  PrintDBGrid(RxDBG_rkd, '入库单');
end;

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

end;

end.