?? sy_ck_jyp_dw.pas
字號:
{*******************************************************}
{ }
{ 集郵出庫計劃單制定——選擇單位模塊 }
{ }
{ 中軟金馬公司版權所有。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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -