sy_ckjhdzd_xzpp.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                        选择票品                       }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级集邮品系统管理模块里面的单去向多品种调用。
修改记录
修改用于销价进价结算价的显示小数点后扩到3位 将Qry_Static进价销价结算价显示调用的CurrGetText替换为CurrGetText3 jhshao 2003.05.08

*)
unit SY_CKJHDZD_XZPP;

interface

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

type
  TFrmY_CKJHDZD_XZPP = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Qry_Static: TQuery;
    DataSource1: TDataSource;
    Qry_KFB: TQuery;
    Qry_KFBKFDM: TStringField;
    Qry_KFBKFMC: TStringField;
    Label1: TLabel;
    Qry_StaticZH: TStringField;
    Qry_StaticPPMC: TStringField;
    Qry_StaticKFDM: TStringField;
    Qry_StaticKWH: TStringField;
    Qry_StaticJJ: TFloatField;
    Qry_StaticYJ: TFloatField;
    Qry_StaticXJ: TFloatField;
    Qry_StaticTS: TFloatField;
    Qry_StaticBZ: TStringField;
    Qry_StaticKFMC: TStringField;
    Qry_Static1: TQuery;
    Qry_StaticZK: TFloatField;
    Qry_StaticJSJ: TFloatField;
    Edit1: TEdit;
    Label4: TLabel;
    CB_KFB: TFieldComboBox;
    DBG_PP: TDBGrid;
    Qry_StaticPPDM: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure CB_KFBChange(Sender: TObject);
    procedure Qry_StaticJJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmY_CKJHDZD_XZPP: TFrmY_CKJHDZD_XZPP;

implementation
uses
  pub;

{$R *.DFM}


procedure TFrmY_CKJHDZD_XZPP.FormCreate(Sender: TObject);
begin
  CB_KFB.OnChange := nil;
  CB_KFB.ClearAll;
  with Qry_Static1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct A.KFMC,A.KFDM from TGS_KFB A,TGS_KFRYDZB B,TYS_YPPKC C ');
    SQL.Add('where A.KFDM=B.KFDM and A.KFDM=C.KFDM and B.YGDM=''' + VG_UserID + '''');
    Open;
    while not Eof do
    begin
      CB_KFB.Items.Add(Fields[0].AsString);
      CB_KFB.FieldItems.Add(Fields[1].AsString);
      Next;
    end;
  end;
  CB_KFB.OnChange := CB_KFBChange;
  CB_KFB.ItemIndex := 0;
  CB_KFBChange(nil);
end;

procedure TFrmY_CKJHDZD_XZPP.CB_KFBChange(Sender: TObject);
begin
  with Qry_Static do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT A.ZH, A.MC PPMC, B.PPDM, B.KFDM, B.KWH, B.JJ, B.YJ, B.XJ, B.TS, B.BZ, B.ZK, B.JSJ  FROM TB_JYPTXXB A,(' + yp_llkc + ') B WHERE A.TDM = B.PPDM and b.TS > 0');
    SQL.Add('AND B.KFDM=''' + CB_KFB.FieldString + '''');
    SQL.Add('order by B.KFDM ,A.ZH DESC ');
    Open;
    if not Eof then
      DBG_PP.SelectedRows.CurrentRowSelected := True;
  end;

end;

procedure TFrmY_CKJHDZD_XZPP.Qry_StaticJJGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
{修改，销价进价结算价显示小数点后3位 原来调用的CurrGetText替换为CurrGetText3 jhshao 2003.05.08}
  CurrGetText3(Sender, Text, DisplayText);
end;

procedure TFrmY_CKJHDZD_XZPP.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
    Qry_Static.Locate('ZH', Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

end.