{*******************************************************}
{                                                       }
{            集郵出庫計劃單制定——選擇單位模塊         }
{                                                       }
{            中軟金馬公司版權所有。2002.06              }
{                                                       }
{                   編制：楊俊                        }
{                                                       }
{                                                       }
{*******************************************************}

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

程序說明：
省級集郵票
  
修改記錄： 根據原來的通信票程序改成集郵品程序
           楊俊 2002.11 

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


unit SY_CK_JYP_DW;

interface

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

type
  TFrm_SY_CK_JYP_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_JYP_DW: TFrm_SY_CK_JYP_DW;

implementation

{$R *.DFM}

{ TFrm_SY_CK_JYP_DW }

{-------------------------------------------------------------------------------}
{查詢計劃中不存在的單位的基本信息}
procedure TFrm_SY_CK_JYP_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 JYYW=''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_JYP_DW.bbtn_OKClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

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

end.