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, RXDBCtrl, RXCtrls, DBGridExport, Menus;

type
  TFrmY_QLBCX = class(TForm)
    Qry_JJWXQB: TQuery;
    Dso1: TDataSource;
    Label2: TLabel;
    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: TDBGrid;
    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_JJWXQB1JHH: TStringField;
    QrY_JJWXQB1TMC: TStringField;
    RxDBGrid1: TRxDBGrid;
    Qry_JJWXQBJHH: TStringField;
    Qry_JJWXQBSQDWDM: TStringField;
    Qry_JJWXQBND: TStringField;
    Qry_JJWXQBZT: TStringField;
    Qry_JJWXQBYPMC: TStringField;
    Qry_JJWXQBDW: TStringField;
    Qry_JJWXQBXQZTS: TFloatField;
    Qry_JJWXQBYDTS: TFloatField;
    Qry_JJWXQBLSTS: TFloatField;
    Qry_JJWXQBZBR: TStringField;
    Qry_JJWXQBPZR: TStringField;
    Qry_JJWXQBZDRQ: TDateTimeField;
    Qry_JJWXQBSDRQ: TDateTimeField;
    Qry_JJWXQBBZ: TStringField;
    Qry_JJWXQBSDATE: TDateTimeField;
    Qry_JJWXQBDWMC: TStringField;
    Panel3: TPanel;
    XttTitle: TRxLabel;
    DWMC: TLabel;
    Label1: TLabel;
    ND: TSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure NDChange(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmY_QLBCX: TFrmY_QLBCX;

implementation

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

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

procedure TFrmY_QLBCX.NDChange(Sender: TObject);
begin
  with Qry_JJWXQB1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DISTINCT JHH,TMC from TF_YPFXJHTAO');
    SQL.Add('where ND='''+IntToStr(ND.Value)+'''');
//    SQL.Add('order by FXRQ ');
    Open;
  end;
  DBGrid1CellClick(nil);
end;

procedure TFrmY_QLBCX.DBGrid1CellClick(Column: TColumn);
begin
  with Qry_JJWXQB do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select JHH, SQDWDM, ND, ZT, YPMC, DW, XQZTS, YDTS, LSTS, ZBR, PZR, ZDRQ, SDRQ, a.BZ, SDATE from TY_YPZDB a, TGS_GXDWSJB b');
    SQL.Add('where a.SQDWDM=b.DWDM and JHH ='''+Qry_JJWXQB1.FieldByName('JHH').AsString+''' order by PXM');
    Open;
  end;
end;

procedure TFrmY_QLBCX.BitBtn2Click(Sender: TObject);
begin
  if Qry_JJWXQB.IsEmpty then Exit;
  QLBCX_PRT:=TQLBCX_PRT.Create(nil);
  try
    QLBCX_PRT.Qry_Print.SQL.Text:='select T.*, G.DWJC DWMC from TY_YPZDB  T ,TGS_GXDWSJB G where G.DWDM =T.SQDWDM and T.JHH='''+QrY_JJWXQB1.FieldByName('JHH').AsString+''' order by PXM' ;
    QLBCX_PRT.Qry_Print.Open ;
    QLBCX_PRT.Preview;
    QLBCX_PRT.Destroy ;
  except
    QLBCX_PRT.Destroy ;
  end;

end;

procedure TFrmY_QLBCX.SpinEdit1Change(Sender: TObject);
begin
  with Qry_JJWXQB1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DISTINCT JHH,TMC from TF_YPFXJHTAO');
    SQL.Add('where ND='''+IntToStr(ND.Value)+'''');
//    SQL.Add('order by FXRQ ');
    Open;
  end;
  DBGrid1CellClick(nil);
end;

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

end.