671 lines
20 KiB
ObjectPascal
671 lines
20 KiB
ObjectPascal
unit U_TradePlanProfitDetails;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
System.Math, Dialogs, StdCtrls, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
|
||
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||
cxGridCustomView, cxGrid, cxCheckBox, cxCalendar, ADODB, DBClient,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, Menus, cxTextEdit, cxButtonEdit,
|
||
ComCtrls, cxContainer, cxMaskEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||
cxNavigator, dxDateRanges,
|
||
dxBarBuiltInMenu, cxDropDownEdit, BtnEdit, Vcl.ToolWin,
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
dxScrollbarAnnotations,
|
||
dxCore, cxDateUtils;
|
||
|
||
type
|
||
TfrmTradePlanProfitDetails = class(TForm)
|
||
GroupBox1: TGroupBox;
|
||
CDS_1: TClientDataSet;
|
||
DS_1: TDataSource;
|
||
ADOQueryMain: TADOQuery;
|
||
CDS_2: TClientDataSet;
|
||
DS_2: TDataSource;
|
||
CDS_4: TClientDataSet;
|
||
DS_4: TDataSource;
|
||
GPM_2: TcxGridPopupMenu;
|
||
GPM_1: TcxGridPopupMenu;
|
||
GPM_4: TcxGridPopupMenu;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ScrollBox1: TScrollBox;
|
||
Label15: TLabel;
|
||
Label7: TLabel;
|
||
Label25: TLabel;
|
||
Label30: TLabel;
|
||
Label32: TLabel;
|
||
Label57: TLabel;
|
||
DS_3: TDataSource;
|
||
CDS_3: TClientDataSet;
|
||
GPM_3: TcxGridPopupMenu;
|
||
GPM_CKKC: TcxGridPopupMenu;
|
||
CDS_7: TClientDataSet;
|
||
DS_7: TDataSource;
|
||
Label3: TLabel;
|
||
Label9: TLabel;
|
||
Label10: TLabel;
|
||
ConNo: TcxTextEdit;
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
ToolButton3: TToolButton;
|
||
TBClose: TToolButton;
|
||
DS_5: TDataSource;
|
||
CDS_5: TClientDataSet;
|
||
GPM_5: TcxGridPopupMenu;
|
||
GPM_6: TcxGridPopupMenu;
|
||
CDS_6: TClientDataSet;
|
||
DS_6: TDataSource;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
YJLRAmount: TcxTextEdit;
|
||
YJLRRatio: TcxTextEdit;
|
||
Panel1: TPanel;
|
||
Panel2: TPanel;
|
||
GroupBox5: TGroupBox;
|
||
GroupBox2: TGroupBox;
|
||
GroupBox4: TGroupBox;
|
||
GroupBox6: TGroupBox;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
SJLRAmount: TcxTextEdit;
|
||
SJLRRatio: TcxTextEdit;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
Tv1Column22: TcxGridDBColumn;
|
||
v2CRTime: TcxGridDBColumn;
|
||
Tv1Column23: TcxGridDBColumn;
|
||
v2Column2: TcxGridDBColumn;
|
||
v2FactoryName: TcxGridDBColumn;
|
||
v2OrderNo: TcxGridDBColumn;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
Tv1Column19: TcxGridDBColumn;
|
||
Tv1Column24: TcxGridDBColumn;
|
||
Tv1Column20: TcxGridDBColumn;
|
||
Tv1Column21: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridDBColumn8: TcxGridDBColumn;
|
||
cxGridDBColumn9: TcxGridDBColumn;
|
||
cxGridDBColumn10: TcxGridDBColumn;
|
||
cxGridDBColumn11: TcxGridDBColumn;
|
||
cxGridDBColumn12: TcxGridDBColumn;
|
||
cxGridDBColumn13: TcxGridDBColumn;
|
||
cxGridDBColumn14: TcxGridDBColumn;
|
||
cxGridDBColumn15: TcxGridDBColumn;
|
||
cxGridDBColumn16: TcxGridDBColumn;
|
||
Tv1Column25: TcxGridDBColumn;
|
||
Tv1Column18: TcxGridDBColumn;
|
||
cxGridDBColumn17: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
cxGrid3: TcxGrid;
|
||
TV3: TcxGridDBTableView;
|
||
cxGridDBColumn18: TcxGridDBColumn;
|
||
cxGridDBColumn19: TcxGridDBColumn;
|
||
cxGridDBColumn20: TcxGridDBColumn;
|
||
cxGridDBColumn21: TcxGridDBColumn;
|
||
cxGridDBColumn22: TcxGridDBColumn;
|
||
cxGridDBColumn23: TcxGridDBColumn;
|
||
cxGridDBColumn24: TcxGridDBColumn;
|
||
cxGridDBColumn25: TcxGridDBColumn;
|
||
cxGridDBColumn26: TcxGridDBColumn;
|
||
cxGridDBColumn27: TcxGridDBColumn;
|
||
cxGridDBColumn28: TcxGridDBColumn;
|
||
cxGridDBColumn29: TcxGridDBColumn;
|
||
cxGridDBColumn30: TcxGridDBColumn;
|
||
cxGridDBColumn31: TcxGridDBColumn;
|
||
cxGridDBColumn32: TcxGridDBColumn;
|
||
cxGridDBColumn33: TcxGridDBColumn;
|
||
cxGridDBColumn34: TcxGridDBColumn;
|
||
cxGridDBColumn35: TcxGridDBColumn;
|
||
cxGridDBColumn36: TcxGridDBColumn;
|
||
cxGridDBColumn37: TcxGridDBColumn;
|
||
cxGridDBColumn38: TcxGridDBColumn;
|
||
cxGridDBColumn39: TcxGridDBColumn;
|
||
cxGridDBColumn40: TcxGridDBColumn;
|
||
cxGridDBColumn41: TcxGridDBColumn;
|
||
cxGridDBColumn42: TcxGridDBColumn;
|
||
cxGridDBColumn43: TcxGridDBColumn;
|
||
cxGridDBColumn44: TcxGridDBColumn;
|
||
cxGridDBColumn45: TcxGridDBColumn;
|
||
cxGridDBColumn46: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
cxGrid4: TcxGrid;
|
||
TV4: TcxGridDBTableView;
|
||
cxGridDBColumn47: TcxGridDBColumn;
|
||
cxGridDBColumn48: TcxGridDBColumn;
|
||
cxGridDBColumn49: TcxGridDBColumn;
|
||
cxGridDBColumn50: TcxGridDBColumn;
|
||
cxGridDBColumn51: TcxGridDBColumn;
|
||
cxGridDBColumn52: TcxGridDBColumn;
|
||
cxGridDBColumn53: TcxGridDBColumn;
|
||
cxGridDBColumn54: TcxGridDBColumn;
|
||
cxGridDBColumn55: TcxGridDBColumn;
|
||
cxGridDBColumn56: TcxGridDBColumn;
|
||
cxGridDBColumn57: TcxGridDBColumn;
|
||
cxGridDBColumn58: TcxGridDBColumn;
|
||
cxGridDBColumn59: TcxGridDBColumn;
|
||
cxGridDBColumn60: TcxGridDBColumn;
|
||
cxGridDBColumn61: TcxGridDBColumn;
|
||
cxGridDBColumn62: TcxGridDBColumn;
|
||
cxGridDBColumn63: TcxGridDBColumn;
|
||
cxGridDBColumn64: TcxGridDBColumn;
|
||
cxGridDBColumn65: TcxGridDBColumn;
|
||
cxGridDBColumn66: TcxGridDBColumn;
|
||
cxGridDBColumn67: TcxGridDBColumn;
|
||
cxGridDBColumn68: TcxGridDBColumn;
|
||
cxGridDBColumn69: TcxGridDBColumn;
|
||
cxGridDBColumn70: TcxGridDBColumn;
|
||
cxGridDBColumn71: TcxGridDBColumn;
|
||
cxGridDBColumn72: TcxGridDBColumn;
|
||
cxGridDBColumn73: TcxGridDBColumn;
|
||
cxGridDBColumn74: TcxGridDBColumn;
|
||
cxGridDBColumn75: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
cxGrid5: TcxGrid;
|
||
TV5: TcxGridDBTableView;
|
||
cxGridDBColumn76: TcxGridDBColumn;
|
||
cxGridDBColumn77: TcxGridDBColumn;
|
||
cxGridDBColumn78: TcxGridDBColumn;
|
||
cxGridDBColumn79: TcxGridDBColumn;
|
||
cxGridDBColumn80: TcxGridDBColumn;
|
||
cxGridDBColumn81: TcxGridDBColumn;
|
||
cxGridDBColumn82: TcxGridDBColumn;
|
||
cxGridDBColumn83: TcxGridDBColumn;
|
||
cxGridDBColumn84: TcxGridDBColumn;
|
||
cxGridDBColumn85: TcxGridDBColumn;
|
||
cxGridDBColumn86: TcxGridDBColumn;
|
||
cxGridDBColumn87: TcxGridDBColumn;
|
||
cxGridDBColumn88: TcxGridDBColumn;
|
||
cxGridDBColumn89: TcxGridDBColumn;
|
||
cxGridDBColumn90: TcxGridDBColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
cxGrid6: TcxGrid;
|
||
TV6: TcxGridDBTableView;
|
||
cxGridDBColumn91: TcxGridDBColumn;
|
||
cxGridDBColumn92: TcxGridDBColumn;
|
||
cxGridDBColumn93: TcxGridDBColumn;
|
||
cxGridDBColumn94: TcxGridDBColumn;
|
||
cxGridDBColumn95: TcxGridDBColumn;
|
||
cxGridDBColumn96: TcxGridDBColumn;
|
||
cxGridDBColumn97: TcxGridDBColumn;
|
||
cxGridDBColumn98: TcxGridDBColumn;
|
||
cxGridDBColumn99: TcxGridDBColumn;
|
||
cxGridDBColumn100: TcxGridDBColumn;
|
||
cxGridDBColumn101: TcxGridDBColumn;
|
||
cxGridDBColumn102: TcxGridDBColumn;
|
||
cxGridDBColumn103: TcxGridDBColumn;
|
||
cxGridDBColumn104: TcxGridDBColumn;
|
||
cxGridDBColumn105: TcxGridDBColumn;
|
||
cxGridDBColumn106: TcxGridDBColumn;
|
||
cxGridDBColumn107: TcxGridDBColumn;
|
||
cxGridDBColumn108: TcxGridDBColumn;
|
||
cxGridDBColumn109: TcxGridDBColumn;
|
||
cxGridDBColumn110: TcxGridDBColumn;
|
||
cxGridDBColumn111: TcxGridDBColumn;
|
||
cxGridDBColumn112: TcxGridDBColumn;
|
||
cxGridDBColumn113: TcxGridDBColumn;
|
||
cxGridDBColumn114: TcxGridDBColumn;
|
||
cxGridDBColumn115: TcxGridDBColumn;
|
||
cxGridDBColumn116: TcxGridDBColumn;
|
||
cxGridDBColumn117: TcxGridDBColumn;
|
||
cxGridDBColumn118: TcxGridDBColumn;
|
||
cxGridDBColumn119: TcxGridDBColumn;
|
||
cxGridLevel5: TcxGridLevel;
|
||
Saleser: TcxTextEdit;
|
||
Panel3: TPanel;
|
||
GroupBox3: TGroupBox;
|
||
GroupBox7: TGroupBox;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
Tv1Column7: TcxGridDBColumn;
|
||
Tv1Column13: TcxGridDBColumn;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column2: TcxGridDBColumn;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1Column14: TcxGridDBColumn;
|
||
Tv1Column11: TcxGridDBColumn;
|
||
cxGridDBColumn120: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
v1Column8: TcxGridDBColumn;
|
||
Tv1Column4: TcxGridDBColumn;
|
||
v1Column13: TcxGridDBColumn;
|
||
v1Column11: TcxGridDBColumn;
|
||
Tv1Column6: TcxGridDBColumn;
|
||
v1Column15: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column5: TcxGridDBColumn;
|
||
cxGridDBColumn121: TcxGridDBColumn;
|
||
v1Column19: TcxGridDBColumn;
|
||
v1Column12: TcxGridDBColumn;
|
||
v1Column20: TcxGridDBColumn;
|
||
Tv1Column26: TcxGridDBColumn;
|
||
Tv1Column3: TcxGridDBColumn;
|
||
Tv1Column5: TcxGridDBColumn;
|
||
Tv1Column1: TcxGridDBColumn;
|
||
cxGridDBColumn122: TcxGridDBColumn;
|
||
Tv1Column2: TcxGridDBColumn;
|
||
Tv1Column10: TcxGridDBColumn;
|
||
Tv1Column8: TcxGridDBColumn;
|
||
Tv1Column9: TcxGridDBColumn;
|
||
Tv1Column12: TcxGridDBColumn;
|
||
Tv1Column14: TcxGridDBColumn;
|
||
Tv1Column15: TcxGridDBColumn;
|
||
Tv1Column16: TcxGridDBColumn;
|
||
Tv1Column17: TcxGridDBColumn;
|
||
cxGridDBColumn123: TcxGridDBColumn;
|
||
cxGridDBColumn124: TcxGridDBColumn;
|
||
cxGridDBColumn125: TcxGridDBColumn;
|
||
Tv1Column27: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
cxGrid7: TcxGrid;
|
||
TV7: TcxGridDBTableView;
|
||
cxGridDBColumn128: TcxGridDBColumn;
|
||
cxGridDBColumn129: TcxGridDBColumn;
|
||
cxGridDBColumn130: TcxGridDBColumn;
|
||
cxGridDBColumn131: TcxGridDBColumn;
|
||
cxGridDBColumn132: TcxGridDBColumn;
|
||
cxGridDBColumn133: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
cxGridDBColumn134: TcxGridDBColumn;
|
||
cxGridDBColumn135: TcxGridDBColumn;
|
||
v1Column16: TcxGridDBColumn;
|
||
v1Column17: TcxGridDBColumn;
|
||
cxGridDBColumn136: TcxGridDBColumn;
|
||
cxGridDBColumn137: TcxGridDBColumn;
|
||
cxGridDBColumn138: TcxGridDBColumn;
|
||
v1Column10: TcxGridDBColumn;
|
||
cxGridDBColumn139: TcxGridDBColumn;
|
||
cxGridDBColumn140: TcxGridDBColumn;
|
||
cxGridDBColumn141: TcxGridDBColumn;
|
||
v1Column18: TcxGridDBColumn;
|
||
cxGridDBColumn142: TcxGridDBColumn;
|
||
cxGridDBColumn143: TcxGridDBColumn;
|
||
cxGridDBColumn144: TcxGridDBColumn;
|
||
cxGridDBColumn145: TcxGridDBColumn;
|
||
cxGridDBColumn146: TcxGridDBColumn;
|
||
cxGridDBColumn147: TcxGridDBColumn;
|
||
cxGridDBColumn148: TcxGridDBColumn;
|
||
cxGridDBColumn149: TcxGridDBColumn;
|
||
cxGridDBColumn150: TcxGridDBColumn;
|
||
cxGridDBColumn151: TcxGridDBColumn;
|
||
cxGridDBColumn152: TcxGridDBColumn;
|
||
cxGridDBColumn153: TcxGridDBColumn;
|
||
cxGridDBColumn154: TcxGridDBColumn;
|
||
cxGridDBColumn155: TcxGridDBColumn;
|
||
cxGridDBColumn156: TcxGridDBColumn;
|
||
cxGridDBColumn157: TcxGridDBColumn;
|
||
cxGridDBColumn158: TcxGridDBColumn;
|
||
cxGridDBColumn159: TcxGridDBColumn;
|
||
cxGridDBColumn160: TcxGridDBColumn;
|
||
cxGridDBColumn161: TcxGridDBColumn;
|
||
cxGridDBColumn162: TcxGridDBColumn;
|
||
cxGridDBColumn163: TcxGridDBColumn;
|
||
cxGridDBColumn164: TcxGridDBColumn;
|
||
cxGridLevel6: TcxGridLevel;
|
||
ConDate: TcxDateEdit;
|
||
Label4: TLabel;
|
||
BuyName: TcxTextEdit;
|
||
Tv1Column28: TcxGridDBColumn;
|
||
TV7Column1: TcxGridDBColumn;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure cxGridDBColumn46PropertiesEditValueChanged(Sender: TObject);
|
||
procedure cxGridDBColumn14PropertiesEditValueChanged(Sender: TObject);
|
||
procedure TV2Column14PropertiesEditValueChanged(Sender: TObject);
|
||
procedure FormResize(Sender: TObject);
|
||
private
|
||
procedure InitOrder();
|
||
{ Private declarations }
|
||
public
|
||
FConNo: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmTradePlanProfitDetails: TfrmTradePlanProfitDetails;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun;
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmTradePlanProfitDetails.InitOrder();
|
||
begin
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCSHData(ADOQueryTemp, ScrollBox1, 0);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_1);
|
||
SInitCDSData(ADOQueryTemp, CDS_1);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_7);
|
||
SInitCDSData(ADOQueryTemp, CDS_7);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27>ɹ<EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_2);
|
||
SInitCDSData(ADOQueryTemp, CDS_2);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27>ӹ<EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_3);
|
||
SInitCDSData(ADOQueryTemp, CDS_3);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27><><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_4);
|
||
SInitCDSData(ADOQueryTemp, CDS_4);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''<27><><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_5);
|
||
SInitCDSData(ADOQueryTemp, CDS_5);
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Trade_Profit_Con ');
|
||
sql.Add('@PFType=''Ӧ<><D3A6>'' ');
|
||
sql.Add(',@ConNo= ' + quotedstr(Trim(FConNo)));
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_6);
|
||
SInitCDSData(ADOQueryTemp, CDS_6);
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmTradePlanProfitDetails := nil;
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.FormResize(Sender: TObject);
|
||
begin
|
||
Panel1.Height := Ceil((Self.Height - ToolBar1.Height - ScrollBox1.Height) / 4);
|
||
Panel3.Height := Ceil((Self.Height - ToolBar1.Height - ScrollBox1.Height) / 4);
|
||
Panel2.Height := Ceil((Self.Height - ToolBar1.Height - ScrollBox1.Height) / 4);
|
||
GroupBox1.Height := Ceil((Self.Height - ToolBar1.Height - ScrollBox1.Height) / 4);
|
||
|
||
GroupBox5.Width := Ceil(Panel1.Width / 2);
|
||
GroupBox3.Width := Ceil(Panel3.Width / 2);
|
||
GroupBox4.Width := Ceil(Panel2.Width / 2);
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.cxGridDBColumn14PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
MExchangeRate, MPrice, MQty: Double;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(TV3.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
if FFieldName = 'ExchangeRate' then
|
||
begin
|
||
if (mvalue = '') or (mvalue = '0') then
|
||
mvalue := '1';
|
||
end
|
||
else
|
||
begin
|
||
if mvalue = '' then
|
||
mvalue := '0';
|
||
end;
|
||
|
||
with CDS_3 do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
if CDS_3.FieldByName('ExchangeRate').AsFloat = 0 then
|
||
MExchangeRate := 1
|
||
else
|
||
MExchangeRate := CDS_3.FieldByName('ExchangeRate').AsFloat;
|
||
|
||
MPrice := CDS_3.FieldByName('Price').AsFloat;
|
||
MQty := CDS_3.FieldByName('Qty').AsFloat;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('update Trade_Profit ');
|
||
sql.Add('set ExchangeRate=' + FloatToStr(MExchangeRate));
|
||
sql.Add(', Qty=' + FloatToStr(MQty));
|
||
sql.Add(', Price=' + FloatToStr(MPrice));
|
||
sql.Add(', Amount=' + FloatToStr(RoundFloat((MExchangeRate * MQty * MPrice), 2)));
|
||
sql.Add('where PFID=' + CDS_3.fieldbyname('PFIDStr').AsString);
|
||
ExecSQL;
|
||
end;
|
||
with CDS_3 do
|
||
begin
|
||
Edit;
|
||
FieldByName('Amount').Value := RoundFloat((MExchangeRate * MQty * MPrice), 2);
|
||
Post;
|
||
end;
|
||
TV3.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.cxGridDBColumn46PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
MExchangeRate, MPrice, MQty: Double;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(Tv5.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
if FFieldName = 'ExchangeRate' then
|
||
begin
|
||
if (mvalue = '') or (mvalue = '0') then
|
||
mvalue := '1';
|
||
end
|
||
else
|
||
begin
|
||
if mvalue = '' then
|
||
mvalue := '0';
|
||
end;
|
||
|
||
with CDS_5 do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
if CDS_5.FieldByName('ExchangeRate').AsFloat = 0 then
|
||
MExchangeRate := 1
|
||
else
|
||
MExchangeRate := CDS_5.FieldByName('ExchangeRate').AsFloat;
|
||
|
||
MPrice := CDS_5.FieldByName('Price').AsFloat;
|
||
MQty := CDS_5.FieldByName('Qty').AsFloat;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('update Trade_Profit ');
|
||
sql.Add('set ExchangeRate=' + FloatToStr(MExchangeRate));
|
||
sql.Add(', Qty=' + FloatToStr(MQty));
|
||
sql.Add(', Price=' + FloatToStr(MPrice));
|
||
sql.Add(', Amount=' + FloatToStr(RoundFloat((MExchangeRate * MQty * MPrice), 2)));
|
||
sql.Add('where PFID=' + CDS_5.fieldbyname('PFIDStr').AsString);
|
||
ExecSQL;
|
||
end;
|
||
with CDS_5 do
|
||
begin
|
||
Edit;
|
||
FieldByName('Amount').Value := RoundFloat((MExchangeRate * MQty * MPrice), 2);
|
||
Post;
|
||
end;
|
||
Tv5.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := cafree;
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
|
||
InitOrder();
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv1', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv2', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv3', Tv3, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv4', Tv4, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv5', Tv5, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv6', Tv6, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.TV2Column14PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
MExchangeRate, MPrice, MQty: Double;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
if FFieldName = 'ExchangeRate' then
|
||
begin
|
||
if (mvalue = '') or (mvalue = '0') then
|
||
mvalue := '1';
|
||
end
|
||
else
|
||
begin
|
||
if mvalue = '' then
|
||
mvalue := '0';
|
||
end;
|
||
|
||
with CDS_2 do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
if CDS_2.FieldByName('ExchangeRate').AsFloat = 0 then
|
||
MExchangeRate := 1
|
||
else
|
||
MExchangeRate := CDS_2.FieldByName('ExchangeRate').AsFloat;
|
||
|
||
MPrice := CDS_2.FieldByName('Price').AsFloat;
|
||
MQty := CDS_2.FieldByName('Qty').AsFloat;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('update Trade_Profit ');
|
||
sql.Add('set ExchangeRate=' + FloatToStr(MExchangeRate));
|
||
sql.Add(', Qty=' + FloatToStr(MQty));
|
||
sql.Add(', Price=' + FloatToStr(MPrice));
|
||
sql.Add(', Amount=' + FloatToStr(RoundFloat((MExchangeRate * MQty * MPrice), 2)));
|
||
sql.Add('where PFID=' + CDS_2.fieldbyname('PFIDStr').AsString);
|
||
ExecSQL;
|
||
end;
|
||
with CDS_2 do
|
||
begin
|
||
Edit;
|
||
FieldByName('Amount').Value := RoundFloat((MExchangeRate * MQty * MPrice), 2);
|
||
Post;
|
||
end;
|
||
TV2.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmTradePlanProfitDetails.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv1', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv2', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv3', Tv3, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv4', Tv4, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv5', Tv5, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Tv6', Tv6, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>ȹ<EFBFBD><C8B9><EFBFBD>');
|
||
InitOrder();
|
||
end;
|
||
|
||
end.
|
||
|