{*******************************************************}
{                                                       }
{            零枚出庫(kù)計(jì)劃單制定——選擇單位模塊         }
{                                                       }
{            中軟金馬公司版權(quán)所有。2002.06              }
{                                                       }
{                   編制：侯華敏                        }
{                                                       }
{                                                       }
{*******************************************************}

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

程序說(shuō)明：
    1、查詢出不在出庫(kù)計(jì)劃中的單位以供選擇，可以單選或者多選
    2、查詢的單位限制條件有：TGS_GXDWSJB中，ZJXJ=1 AND TXYW=1 AND FHDX=1
    3.  本模塊在省級(jí)零枚票管理模塊 計(jì)劃管理部分 由單品種多去向出庫(kù)計(jì)劃單制定菜單調(diào)用的 零枚出庫(kù)計(jì)劃單制定模塊 調(diào)用
侯華敏  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); {查詢計(jì)劃中不存在的單位的基本信息}
    { Public declarations }
  end;

var
  Frm_SY_CK_LMP_DW: TFrm_SY_CK_LMP_DW;

implementation

{$R *.DFM}

{ TFrm_SY_CK_LMP_DW }

{-------------------------------------------------------------------------------}
{查詢計(jì)劃中不存在的單位的基本信息}
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;

{-------------------------------------------------------------------------------}
{確認(rèn)}
procedure TFrm_SY_CK_LMP_DW.bbtn_OKClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

{-------------------------------------------------------------------------------}
{雙擊等于確認(rèn)}
procedure TFrm_SY_CK_LMP_DW.dbg_DWDblClick(Sender: TObject);
begin
  if not qry_DW.IsEmpty then
    bbtn_OKClick(nil);
end;

end.