sy_ndfpjhcx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                    年度分配计划查询                   }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级集邮品系统管理模块里面调用。

*)
unit SY_NDFPJHCX;

interface

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

type
  TFrmY_NDFPJHCX = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BBt_Quit: TBitBtn;
    Ldwmc: TLabel;
    Label3: TLabel;
    BBt_Find: TBitBtn;
    BBt_Print: TBitBtn;
    ND: TSpinEdit;
    BBt_Send: TBitBtn;
    Panel5: TPanel;
    Qry_JJNFPJH: TQuery;
    DataSource3: TDataSource;
    Qry_GXDWSJB: TQuery;
    Qry_Static: TQuery;
    Qry_JJNFPJHDWDM: TStringField;
    Qry_JJNFPJHDWMC: TStringField;
    Qry_JJNFPJHJHH: TStringField;
    Qry_JJNFPJHND: TStringField;
    Qry_JJNFPJHZT: TStringField;
    Qry_JJNFPJHZBR: TStringField;
    Qry_JJNFPJHPZR: TStringField;
    Qry_JJNFPJHZDRQ: TDateTimeField;
    Qry_JJNFPJHBZ: TStringField;
    Panel4: TPanel;
    Panel7: TPanel;
    DBGrid2: TDBGrid;
    CB_JHH: TComboBox;
    Label1: TLabel;
    Label4: TLabel;
    RG_ZT: TRadioGroup;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    DBEdit3: TDBEdit;
    XttxTitle: TRxLabel;
    Qry_JJNFPJHYPMC: TStringField;
    Qry_JJNFPJHDW: TStringField;
    Qry_JJNFPJHJHFPZS: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure DBG_JJNFPJHTitleClick(Column: TColumn);
    procedure NDChange(Sender: TObject);
    procedure BBt_PrintClick(Sender: TObject);
    procedure CB_JHHChange(Sender: TObject);
    procedure BBt_SendClick(Sender: TObject);
    procedure BBt_FindClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmY_NDFPJHCX: TFrmY_NDFPJHCX;

implementation
uses
  datas, pub, SY_DataSend, SY_NDFPJHCX_RPT;

{$R *.DFM}

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

procedure TFrmY_NDFPJHCX.DBG_JJNFPJHTitleClick(Column: TColumn);
begin
{  if Qry_JJNFPJH.SQL.Count < 0 then Exit;
  if Qry_JJNFPJH.SQL.Count > 2 then
    with Qry_JJNFPJH do
    begin
      Close;
      if Column.FieldName = 'DWMC' then
        SQL[SQl.Count - 1] := 'order by DWDM'
      else
        SQL[SQl.Count - 1] := 'order by ' + Column.FieldName;
      Open;
    end;}
end;

procedure TFrmY_NDFPJHCX.NDChange(Sender: TObject);
begin
  CB_JHH.Text := '';
  CB_JHH.Items.Clear;
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DISTINCT JHH from TY_YPFPJH');
    SQL.Add('where ND =''' + IntToStr(ND.Value) + '''');
    SQL.Add('order by JHH DESC ');
    Open;
    while not Eof do
    begin
      CB_JHH.Items.Add(Fields[0].AsString);
      Next;
    end;
  end;
  if CB_JHH.Items.Count > 0 then
    CB_JHH.ItemIndex := 0;
  BBt_FindClick(nil);
end;




procedure TFrmY_NDFPJHCX.BBt_PrintClick(Sender: TObject);
begin
  if CB_JHH.Text = '' then
  begin
    CHQMsgBox('请选择分配单号！');
    Exit;
  end;

  if Qry_JJNFPJH.IsEmpty then Exit;
  NDFPJHCX_RPT := TNDFPJHCX_RPT.Create(nil);
  try
    NDFPJHCX_RPT.Qry_Print.SQL.Text := 'select ROWNUM, T.*, G.DWJC DWMC from TY_YPFPJH T ,TGS_GXDWSJB G where G.DWDM=T.DWDM and  t.JHH=''' + CB_JHH.Text + '''';
    NDFPJHCX_RPT.Qry_Print.Open;
    NDFPJHCX_RPT.Preview;
    NDFPJHCX_RPT.Destroy;
  except
    NDFPJHCX_RPT.Destroy;
  end;
end;

procedure TFrmY_NDFPJHCX.CB_JHHChange(Sender: TObject);
begin
  BBt_FindClick(nil);
end;

procedure TFrmY_NDFPJHCX.BBt_SendClick(Sender: TObject);
begin
  VG_SQLWhere := 'select * from TY_YPFPJH '
    + 'where JHH = ''' + CB_JHH.Text + ''' ';
  if SendData(VG_SQLWhere, 'TY_YPFPJH') = IDOK then
    CHQMsgBox('信息发送成功！');

end;

procedure TFrmY_NDFPJHCX.BBt_FindClick(Sender: TObject);
begin
  with Qry_JJNFPJH do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select a.* from TY_YPFPJH a, TGS_GXDWSJB b');
    SQL.Add('where a.DWDM=b.DWDM and JHH = ''' + CB_JHH.Text + ''' ');
{    if RG_ZT.ItemIndex = 0 then
      SQL.Add('and ZT = ''' + CG_WCL + ''' ')
    else
      SQL.Add('and ZT = ''' + CG_YCL + ''' ');}
    SQL.Add('order by PXM');
    Open;
  end;
end;

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

end.