sy_ck_jyp_dw.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{            集邮出库计划单制定——选择单位模块         }
{                                                       }
{            中软金马公司版权所有。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.