sy_ck_lmp_dw.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{            零枚出库计划单制定——选择单位模块         }
{                                                       }
{            中软金马公司版权所有。2002.06              }
{                                                       }
{                   编制：侯华敏                        }
{                                                       }
{                                                       }
{*******************************************************}

(*==============================================================================

程序说明：
    1、查询出不在出库计划中的单位以供选择，可以单选或者多选
    2、查询的单位限制条件有：TGS_GXDWSJB中，ZJXJ=1 AND TXYW=1 AND FHDX=1
    3.  本模块在省级零枚票管理模块 计划管理部分 由单品种多去向出库计划单制定菜单调用的 零枚出库计划单制定模块 调用
侯华敏  2002.06.

===============================================================================*)


unit SY_CK_LMP_DW;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type
  TFrm_SY_CK_LMP_DW = class(TForm)
    dbg_DW: TDBGrid;
    bbtn_OK: TBitBtn;
    bbtn_Cancel: TBitBtn;
    qry_DW: TQuery;
    ds_DW: TDataSource;
    procedure bbtn_OKClick(Sender: TObject);
    procedure dbg_DWDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowDWInfo(A_lst_DWDM: TstringList); {查询计划中不存在的单位的基本信息}
    { Public declarations }
  end;

var
  Frm_SY_CK_LMP_DW: TFrm_SY_CK_LMP_DW;

implementation

{$R *.DFM}

{ TFrm_SY_CK_LMP_DW }

{-------------------------------------------------------------------------------}
{查询计划中不存在的单位的基本信息}
procedure TFrm_SY_CK_LMP_DW.ShowDWInfo(A_lst_DWDM: TstringList);
var
  l_sql: string;
  I: Integer;
begin
  l_sql := '  select DWDM, DWMC, DWJC, DH, LXR, EMAIL from TGS_GXDWSJB '+
  '  where ZJXJ=''1'' and TXYW=''1'' and FHDX=''1''';

  for I := 0 to a_lst_DWDM.Count - 1 do
    L_sql := l_sql + ' and DWDM <> ' + QuotedStr(a_lst_DWDM[I]);

  L_sql := l_sql + ' order by PXM ';
  with qry_DW do
  begin
    Close;
    SQL.TExt := l_sql;
    Open;
    bbtn_OK.Enabled := not IsEmpty;
  end;
end;

{-------------------------------------------------------------------------------}
{确认}
procedure TFrm_SY_CK_LMP_DW.bbtn_OKClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

{-------------------------------------------------------------------------------}
{双击等于确认}
procedure TFrm_SY_CK_LMP_DW.dbg_DWDblClick(Sender: TObject);
begin
  if not qry_DW.IsEmpty then
    bbtn_OKClick(nil);
end;

end.