sy_ckjhdzd1_xd.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                   选择请领单                          }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮票管理     地市集邮票
*)
unit SY_CKJHDZD1_XD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin, ExtCtrls, ActnList, Grids, DBGrids, DBCtrls,
  Mask, ToolEdit, CurrEdit, RXDBCtrl, Db, DBTables, RXCtrls, ImgList;

type
  TFrmY_CKJHDZD1_XD = class(TForm)
    Panel9: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Qry_GXDWSJB: TQuery;
    P_XQ: TPanel;
    RxDBGrid2: TRxDBGrid;
    Qry_Five: TQuery;
    DataSource5: TDataSource;
    Qry_Four: TQuery;
    DataSource4: TDataSource;
    Qry_Second: TQuery;
    Qry_SecondPPMC: TStringField;
    Qry_SecondTDM: TStringField;
    Qry_SecondXQZTS: TFloatField;
    DataSource3: TDataSource;
    Qry_FiveDWDM: TStringField;
    Qry_FiveDWMC: TStringField;
    Qry_FiveZT: TStringField;
    Splitter1: TSplitter;
    RxDBGrid1: TRxDBGrid;
    Splitter2: TSplitter;
    DBGrid4: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Qry_FourAfterScroll(DataSet: TDataSet);
    procedure Qry_FiveAfterScroll(DataSet: TDataSet);
  private
//    V_QLDH,
//    V_DWDM:String;
    { Private declarations }
  public
    V_ND:String;
    { Public declarations }
  end;

var
  FrmY_CKJHDZD1_XD: TFrmY_CKJHDZD1_XD;

implementation

uses
  pub;

{$R *.DFM}

procedure TFrmY_CKJHDZD1_XD.FormCreate(Sender: TObject);
begin
  GetAllColWidth(self);
end;


procedure TFrmY_CKJHDZD1_XD.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SaveAllColWidth(self);
end;

procedure TFrmY_CKJHDZD1_XD.FormShow(Sender: TObject);
begin
  with Qry_Five do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' select  DISTINCT A.DWDM ,B.DWJC DWMC,A.ZT from TY_JJWXQB A, TGS_GXDWSJB B');
    SQL.Add('where A.DWDM=B.DWDM and A.ND = ''' + V_ND + '''');
    SQL.Add(' and A.DWDM <>''' + VG_UnitID + ''' ');
    SQL.Add(' and A.ZT<>''' + CG_YCL + ''' ');
    Open;
  end;
end;

procedure TFrmY_CKJHDZD1_XD.Qry_FourAfterScroll(DataSet: TDataSet);
begin
  with Qry_Second do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DWDM,PPMC,TDM,XQZTS from TY_JJWXQB');
    SQL.Add('Where QLDH =''' + QRY_Four.FieldByName('QLDH').AsString + '''');
    Open;
  end;
end;

procedure TFrmY_CKJHDZD1_XD.Qry_FiveAfterScroll(DataSet: TDataSet);
begin
  Qry_Four.Close;
  Qry_Second.Close;
  with Qry_Four do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' select  DISTINCT QLDH,DWDM,ZT from TY_JJWXQB');
    SQL.Add('where ND =''' + V_ND + '''');
    SQL.Add(' and DWDM = ''' + Qry_Five.FieldByName('DWDM').AsString + ''' ');
    SQL.Add(' and ZT<>''' + CG_YCL + ''' ');
    Open;
  end;

  with Qry_Second do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' select DWDM,PPMC,TDM,SUM(XQZTS) XQZTS from TY_JJWXQB');
    SQL.Add('where ND =''' + V_ND + '''');
    SQL.Add(' and DWDM = ''' + Qry_Five.FieldByName('DWDM').AsString + ''' ');
    SQL.Add(' and ZT<>''' + CG_YCL + ''' ');
    SQL.Add(' GROUP BY DWDM,PPMC,TDM ');
    Open;
  end;


end;

end.