sy_ckjhdzd_xd.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{           零星请领分配单制定--选择分配计划            }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级零枚票管理模块 计划管理部分的 零星请领分配单制定 模块中调用。
修改记录
增加，销价小数点后保留3位 by jhshao 2003.05.09
*)

unit SY_CKJHDZD_XD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin, ExtCtrls, ActnList, Grids, DBGrids, DBCtrls,
  Mask, ToolEdit, CurrEdit, RXDBCtrl, Db, DBTables, RXCtrls, ImgList,
  ComCtrls;

type
  TFrmY_CKJHDZD_XD = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource5: TDataSource;
    Qry_LXQL: TQuery;
    DataSource4: TDataSource;
    Qry_GXDWSJB: TQuery;
    Qry_LXQLPPDM: TStringField;
    Qry_LXQLDWDM: TStringField;
    Qry_LXQLPPMC: TStringField;
    Qry_LXQLMZ: TFloatField;
    Qry_LXQLSL: TFloatField;
    Qry_LXQLQLDH: TStringField;
    Qry_LXQL1QLDH: TStringField;
    Qry_LXQL1DWDM: TStringField;
    Qry_LXQL1DWMC: TStringField;
    Qry_LXQL1HJJE: TFloatField;
    Qry_LXQLKCSL: TFloatField;
    Qry_LXQLXJ: TFloatField;
    Qry_LXQLKFDM: TStringField;
    Qry_LXQL1: TQuery;
    pgc_Select: TPageControl;
    tbs_PP: TTabSheet;
    tbs_DW: TTabSheet;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Qry_DW: TQuery;
    Panel2: TPanel;
    Label3: TLabel;
    DBGrid3: TDBGrid;
    Label4: TLabel;
    DBG_LXQL: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Qry_LXQL1AfterScroll(DataSet: TDataSet);
    procedure Qry_LXQLKCSLGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_LXQLMZGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure pgc_SelectChange(Sender: TObject);
    procedure Qry_LXQLXJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
//    V_QLDH,
//    V_DWDM:String;
    { Private declarations }
  public
    V_ND, V_YF: string;
    { Public declarations }
  end;

var
  FrmY_CKJHDZD_XD: TFrmY_CKJHDZD_XD;

implementation

uses
  Pub;

{$R *.DFM}

procedure TFrmY_CKJHDZD_XD.FormCreate(Sender: TObject);
begin
  GetAllColWidth(self);
end;

procedure TFrmY_CKJHDZD_XD.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SaveAllColWidth(self);
end;

procedure TFrmY_CKJHDZD_XD.FormShow(Sender: TObject);
begin
  pgc_Select.ActivePage := TabSheet1;
  Qry_LXQL1.Close;
  Qry_LXQL1.ParamByName('DWDM').AsString := VG_UnitID;
  Qry_LXQL1.ParamByName('ND').AsString := V_ND;
  Qry_LXQL1.ParamByName('YF').AsString := V_YF;
  Qry_LXQL1.Open;
  Qry_LXQL.Open;
  DBGrid3.SelectedRows.CurrentRowSelected := True;
  Qry_DW.Open;
  DBGrid1.SelectedRows.CurrentRowSelected := True;
end;

procedure TFrmY_CKJHDZD_XD.Qry_LXQL1AfterScroll(DataSet: TDataSet);
begin
  with Qry_LXQL do
  begin
    Close;
    SQL.Clear ;
    SQL.Add ('select a.qldh,a.ppdm,a.dwdm,a.ppmc,a.mz,a.sl,nvl(b.ts,0) kcsl,b.XJ,b.KFDM');
    SQL.Add ('from tys_txpqld a, ('+txp_llkc+') b');
    SQL.Add ('Where a.PPDM=b.PPDM(+)');
    SQL.Add ('and QLDH ='''+Qry_LXQL1.FieldByName('QLDH').AsString+'''');
    Open;
  end;
end;

procedure TFrmY_CKJHDZD_XD.Qry_LXQLKCSLGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
//  Text := FormatFloat('#,##0.####', Sender.AsFloat / 10000);
  Text := FormatFloat('#,##', Sender.AsFloat);
end;

procedure TFrmY_CKJHDZD_XD.Qry_LXQLMZGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := FormatFloat('#,##0.00##', Sender.AsFloat / 100);
end;

procedure TFrmY_CKJHDZD_XD.pgc_SelectChange(Sender: TObject);
begin
  if pgc_Select.ActivePage = TabSheet1 then
  BitBtn1.Enabled := not Qry_LXQL1.IsEmpty
  else
  BitBtn1.Enabled := not Qry_DW.IsEmpty
end;

procedure TFrmY_CKJHDZD_XD.Qry_LXQLXJGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
{增加，销价小数点后保留3位 by jhshao 2003.05.09}
  Text := FormatFloat('#,##0.000##', Sender.AsFloat / 100);
end;

end.