sy_qlbcx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                  本级计划外需求查询                   }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮品，省级集邮票 ,地市集邮品，地市集邮票

*)
unit SY_QLBCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls, ActnList, ImgList, Buttons,
  ExtCtrls, Spin, QuickRpt, Qrctrls, RXCtrls, RXDBCtrl, FieldComboBox;

type
  TFrmY_QLBCX = class(TForm)
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Dso2: TDataSource;
    QrY_JJWXQB1: TQuery;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    Panel2: TPanel;
    DBGrid1: TRxDBGrid;
    ColumnHeaderBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape21: TQRShape;
    QRShape22: TQRShape;
    QRShape23: TQRShape;
    QRShape24: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    Qry_GXDWSJB: TQuery;
    QrY_JJWXQB1DWDM: TStringField;
    QrY_JJWXQB1QLDH: TStringField;
    QrY_JJWXQB1DWMC: TStringField;
    Label4: TLabel;
    Label5: TLabel;
    Mem_SY: TMemo;
    Label1: TLabel;
    QrY_JJWXQB1ZT: TStringField;
    Label3: TLabel;
    CB_DWMC: TFieldComboBox;
    RG_JB: TRadioGroup;
    Qry_Static: TQuery;
    RxDBGrid1: TRxDBGrid;
    Qry_JJWXQB: TQuery;
    Qry_JJWXQBQLDH: TStringField;
    Qry_JJWXQBTDM: TStringField;
    Qry_JJWXQBDWDM: TStringField;
    Qry_JJWXQBND: TStringField;
    Qry_JJWXQBPPMC: TStringField;
    Qry_JJWXQBXQZTS: TFloatField;
    Qry_JJWXQBBZ: TStringField;
    Qry_JJWXQBTPMS: TFloatField;
    Qry_JJWXQBTPMZ: TFloatField;
    Qry_JJWXQBZH: TStringField;
    Qry_JJWXQBZBR: TStringField;
    Qry_JJWXQBZDRQ: TDateTimeField;
    Qry_JJWXQBZT: TStringField;
    Qry_JJWXQBTPSJ: TFloatField;
    DataSource1: TDataSource;
    Panel3: TPanel;
    XttxTitle: TRxLabel;
    Label2: TLabel;
    ND: TSpinEdit;
    DWMC: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure NDChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Qry_JJWXQBXQZTSGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure QrY_JJWXQB1AfterScroll(DataSet: TDataSet);
    procedure RG_JBClick(Sender: TObject);
    procedure Qry_JJWXQBTPSJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmY_QLBCX: TFrmY_QLBCX;

implementation

{$R *.DFM}
uses pub, GY_JHWXQCX_RPT;

procedure TFrmY_QLBCX.FormCreate(Sender: TObject);
begin
  RG_JBClick(nil);
  ND.Value := VG_Year;
  DWMC.Caption := '使用单位：' + VG_UnitName;
end;

procedure TFrmY_QLBCX.NDChange(Sender: TObject);
begin
  Qry_JJWXQB.Close;
  with Qry_JJWXQB1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DISTINCT DWDM,QLDH,ZT from TY_JJWXQB');
    SQL.Add('where ND =''' + ND.Text + '''');
    if RG_JB.ItemIndex = 0 then
      SQL.Add('and  DWDM=''' + CB_DWMC.FieldString + '''')

    else
    begin
      if CB_DWMC.Text = '全部' then
        SQL.Add('and  DWDM <> ''' + VG_UnitID + '''')
      else
        SQL.Add('and  DWDM=''' + CB_DWMC.FieldString + '''');
    end;
    SQL.Add('order by ZT,QLDH ');
    Open;
  end;
  QrY_JJWXQB1AfterScroll(nil);
end;
{  with Qry_JJWXQB do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from TY_JJWXQB ');
    SQL.Add('where QLDH ='''+Qry_JJWXQB1.FieldByName('QLDH').AsString+'''');
    SQL.Add('order by DWDM ');
    Open;
  end;  }

procedure TFrmY_QLBCX.BitBtn2Click(Sender: TObject);
begin
  if Qry_JJWXQB1.IsEmpty then Exit;
  JHWXQCX_RPT := TJHWXQCX_RPT.Create(nil);
  try
    JHWXQCX_RPT.Qry_Print.ParamByName('QLDH').AsString := Qry_JJWXQB1.FieldByName('QLDH').AsString;
    JHWXQCX_RPT.dwmC.Caption := QrY_JJWXQB1DWMC.Value;
    JHWXQCX_RPT.QRM_BZ.Lines := Mem_SY.Lines;
    JHWXQCX_RPT.Qry_Print.Open;
    JHWXQCX_RPT.Preview;
  finally
    JHWXQCX_RPT.Free;
  end;
end;

procedure TFrmY_QLBCX.Qry_JJWXQBXQZTSGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  Text := FormatFloat('#,##0.00##', Sender.AsFloat / 10000);
end;

procedure TFrmY_QLBCX.DBGrid2TitleClick(Column: TColumn);
begin
  DBGridTitleOrder(Column);
end;

procedure TFrmY_QLBCX.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if QrY_JJWXQB1.FieldByName('ZT').AsString <> CG_WCL then
    DBGrid1.Canvas.Font.Color := clred;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

procedure TFrmY_QLBCX.QrY_JJWXQB1AfterScroll(DataSet: TDataSet);
begin
  Mem_SY.Text := '';
  if QrY_JJWXQB1.IsEmpty then Exit;
  with Qry_JJWXQB do
  begin
    Close;
    ParamByName('QLDH').AsString := Qry_JJWXQB1.FieldByName('QLDH').AsString;
    Open;
    First;
    if not Eof then
    begin
      Mem_SY.Text := FieldByName('BZ').AsString;
    end;
  end;

end;

procedure TFrmY_QLBCX.RG_JBClick(Sender: TObject);
begin
  CB_DWMC.ClearAll;
  if RG_JB.ItemIndex = 1 then
  begin
    XttxTitle.Caption := '下级计划外需求查询';
    with Qry_Static do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select DWJC DWMC,DWDM from TGS_GXDWSJB ');
      SQL.Add('where JYYW=''1'' and FHDX=''1'' order by PXM');
      Open;
      while not Eof do
      begin
        CB_DWMC.Items.Add(Fields[0].AsString);
        CB_DWMC.FieldItems.Add(Fields[1].AsString);
        Next;
      end;
      Close;
    end;
    CB_DWMC.Items.Insert(0, '全部');
    CB_DWMC.FieldItems.Insert(0, '全部');
    CB_DWMC.ItemIndex := 0;
  end
  else
  begin
    XttxTitle.Caption := '本级计划外需求查询';
    with Qry_Static do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select DWJC DWMC,DWDM from TGS_GXDWSJB ');
      SQL.Add('where BJ=''1''');
      Open;
      while not Eof do
      begin
        CB_DWMC.Items.Add(Fields[0].AsString);
        CB_DWMC.FieldItems.Add(Fields[1].AsString);
        Next;
      end;
      Close;
    end;
    CB_DWMC.ItemIndex := 0;
  end;
  NDChange(nil);
end;

procedure TFrmY_QLBCX.Qry_JJWXQBTPSJGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := FormatFloat('#,##0.00##', Sender.AsFloat / 100);
end;

end.