?? sy_ckjhdzd_xd.pas
字號(hào):
{*******************************************************}
{ }
{ 零星請(qǐng)領(lǐng)分配單制定--選擇分配計(jì)劃 }
{ }
{ 中軟金馬公司版權(quán)所有。2002.12前 }
{ }
{ 編制:中軟金馬項(xiàng)目開發(fā)組 }
{ }
{ }
{*******************************************************}
(*
本模塊在省級(jí)零枚票管理模塊 計(jì)劃管理部分的 零星請(qǐng)領(lǐng)分配單制定 模塊中調(diào)用。
修改記錄
增加,銷價(jià)小數(shù)點(diǎn)后保留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
{增加,銷價(jià)小數(shù)點(diǎn)后保留3位 by jhshao 2003.05.09}
Text := FormatFloat('#,##0.000##', Sender.AsFloat / 100);
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -