542 lines
16 KiB
ObjectPascal
542 lines
16 KiB
ObjectPascal
unit U_TradePlanFtyInPut;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
U_FormLayOutDesign, Winapi.ShellAPI, ComObj, Dialogs, cxStyles, cxCustomData,
|
||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls,
|
||
cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient,
|
||
ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxCurrencyEdit,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, RM_Common, RM_Preview,
|
||
RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus, cxSplitter,
|
||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
|
||
dxDateRanges, dxBarBuiltInMenu, cxPC, System.ImageList,
|
||
Vcl.ImgList, U_BaseInput, dxCore, cxDateUtils,
|
||
dxScrollbarAnnotations, IdBaseComponent, IdComponent, IdTCPConnection,
|
||
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, cxImage, cxDBEdit,
|
||
cxGroupBox,
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
cxCheckComboBox, cxImageList, cxButtons,
|
||
dxSkinWXI, dxSkinsCore, dxSkinsDefaultPainters;
|
||
|
||
type
|
||
TfrmTradePlanFtyInPut = class(TfrmBaseInput)
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
DS_1: TDataSource;
|
||
CDS_1: TClientDataSet;
|
||
GPM_1: TcxGridPopupMenu;
|
||
ADOQueryLabel: TADOQuery;
|
||
IdFTP1: TIdFTP;
|
||
OpenDialog1: TOpenDialog;
|
||
PM_1: TPopupMenu;
|
||
N5: TMenuItem;
|
||
N6: TMenuItem;
|
||
GPM_2: TcxGridPopupMenu;
|
||
ADO_1: TADOQuery;
|
||
ADO_2: TADOQuery;
|
||
DS_2: TDataSource;
|
||
CDS_2: TClientDataSet;
|
||
ToolBar1: TToolBar;
|
||
ToolButton3: TToolButton;
|
||
TBClose: TToolButton;
|
||
cxGrid1: TcxGrid;
|
||
TV1: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
TV1Column2: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
TV1Column8: TcxGridDBColumn;
|
||
v1Column11: TcxGridDBColumn;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1PRTColor: TcxGridDBColumn;
|
||
v1Column5: TcxGridDBColumn;
|
||
TV1Column3: TcxGridDBColumn;
|
||
VC_PRTPs: TcxGridDBColumn;
|
||
v1PRTOrderQty: TcxGridDBColumn;
|
||
TV1Column7: TcxGridDBColumn;
|
||
TV1Column16: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
TV1Column6: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
TV2Column1: TcxGridDBColumn;
|
||
TV2Column2: TcxGridDBColumn;
|
||
TV2Column3: TcxGridDBColumn;
|
||
TV2Column4: TcxGridDBColumn;
|
||
Panel1: TPanel;
|
||
Label52: TLabel;
|
||
FtyName: TcxButtonEdit;
|
||
FtyQty: TcxTextEdit;
|
||
Label2: TLabel;
|
||
cxButton1: TcxButton;
|
||
TV2Column5: TcxGridDBColumn;
|
||
SerialFtyNo: TcxComboBox;
|
||
Label1: TLabel;
|
||
Label3: TLabel;
|
||
Follower: TcxButtonEdit;
|
||
TV2Column6: TcxGridDBColumn;
|
||
TV2Column7: TcxGridDBColumn;
|
||
TV2Column8: TcxGridDBColumn;
|
||
Panel2: TPanel;
|
||
scnote: TMemo;
|
||
Label4: TLabel;
|
||
scnote1: TMemo;
|
||
Panel3: TPanel;
|
||
Panel4: TPanel;
|
||
scnote2: TMemo;
|
||
ToolButton1: TToolButton;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure N5Click(Sender: TObject);
|
||
procedure N6Click(Sender: TObject);
|
||
procedure FtyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure cxButton1Click(Sender: TObject);
|
||
procedure FtyNameDblClick(Sender: TObject);
|
||
procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
private
|
||
FSCXDH: string;
|
||
procedure InitData();
|
||
procedure InitGrid2();
|
||
function SaveData(): Boolean;
|
||
|
||
{ Private declarations }
|
||
public
|
||
PState, CopyInt, PriceFlag: Integer;
|
||
FMainId, FFMainId, FOrderNo: string;
|
||
FXS: Integer;
|
||
canshu1: string;
|
||
fFlileFlag: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmTradePlanFtyInPut: TfrmTradePlanFtyInPut;
|
||
newh: hwnd;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel;
|
||
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmTradePlanFtyInPut.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.InitGrid2();
|
||
begin
|
||
with ADO_2 do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select A.* ');
|
||
sql.Add(',Technics=(select Technics from Trade_Plan_FtyFlow X where X.MainId=A.MainId and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',FtyName1=(select FtyName from Trade_Plan_Fty X where X.subid=A.subid and x.SerialFtyNo=1 and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',Follower1=(select Follower from Trade_Plan_Fty X where X.subid=A.subid and x.SerialFtyNo=1 and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',FtyQty1=(select FtyQty from Trade_Plan_Fty X where X.subid=A.subid and x.SerialFtyNo=1 and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',FtyName2=(select FtyName from Trade_Plan_Fty X where X.subid=A.subid and x.SerialFtyNo=2 and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',Follower2=(select Follower from Trade_Plan_Fty X where X.subid=A.subid and x.SerialFtyNo=2 and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',FtyQty2=(select FtyQty from Trade_Plan_Fty X where X.subid=A.subid and x.SerialFtyNo=2 and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ');
|
||
sql.Add(',FtyQtydfp=OrdQty-isnull((select sum(FtyQty) from Trade_Plan_Fty X where X.subid=A.subid and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ,0) ');
|
||
|
||
sql.Add(' from Trade_Plan_Sub A ');
|
||
sql.Add(' where MainId=''' + Trim(FMainId) + '''');
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADO_2, CDS_2);
|
||
SInitCDSData(ADO_2, CDS_2);
|
||
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.InitData();
|
||
begin
|
||
|
||
with ADO_1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Plan_FtyFlow where MainId=''' + Trim(FMainId) + '''');
|
||
Open;
|
||
end;
|
||
|
||
if ADO_1.IsEmpty then
|
||
begin
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('insert into Trade_Plan_FtyFlow( MainId,SerialNo) values');
|
||
sql.Add(' (' + Quotedstr(Trim(FMainId)) + ',1 ) ');
|
||
sql.Add(',(' + Quotedstr(Trim(FMainId)) + ',2 ) ');
|
||
sql.Add(',(' + Quotedstr(Trim(FMainId)) + ',3 ) ');
|
||
sql.Add(',(' + Quotedstr(Trim(FMainId)) + ',4 ) ');
|
||
sql.Add(',(' + Quotedstr(Trim(FMainId)) + ',5 ) ');
|
||
sql.Add(',(' + Quotedstr(Trim(FMainId)) + ',6 ) ');
|
||
ExecSQL;
|
||
end;
|
||
with ADO_1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Plan_FtyFlow where MainId=''' + Trim(FMainId) + '''');
|
||
Open;
|
||
end;
|
||
|
||
end;
|
||
SCreateCDS(ADO_1, CDS_1);
|
||
SInitCDSData(ADO_1, CDS_1);
|
||
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'Follower';
|
||
flagname := '<27><><EFBFBD><EFBFBD>Ա';
|
||
if ShowModal = 1 then
|
||
begin
|
||
Follower.text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
begin
|
||
|
||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'Technics';
|
||
flagname := '<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.CDS_1.Edit;
|
||
Self.CDS_1.FieldByName('Technics').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
Self.CDS_1.post;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('update Trade_Plan_FtyFlow set Technics=' + quotedstr(Trim(Self.CDS_1.fieldbyname('Technics').AsString)));
|
||
sql.Add('where MainId=' + quotedstr(Trim(FMainId)));
|
||
sql.Add('AND SerialNo=' + quotedstr(Trim(Self.CDS_1.fieldbyname('SerialNo').AsString)));
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
|
||
Tv2.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
Action := cafree;
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmTradePlanFtyInPut := nil;
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.FormShow(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
inherited;
|
||
|
||
readCxGrid(TRIM(SELF.Caption) + 'Tv1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
readCxGrid(TRIM(SELF.Caption) + 'Tv2', Tv2, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
|
||
fFlileFlag := UserDataFlag + 'HX';
|
||
InitData();
|
||
InitGrid2();
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.FtyNameDblClick(Sender: TObject);
|
||
begin
|
||
TcxButtonEdit(Sender).Text := '';
|
||
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.FtyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmCompanySel := TfrmCompanySel.Create(Application);
|
||
with frmCompanySel do
|
||
begin
|
||
FCoType := '<27><>Ӧ<EFBFBD><D3A6>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
self.FtyName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
|
||
self.FtyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmCompanySel.Free;
|
||
end;
|
||
end;
|
||
|
||
function TfrmTradePlanFtyInPut.SaveData(): Boolean;
|
||
var
|
||
MaxTPFId: string;
|
||
MFtyQty: Double;
|
||
begin
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD> ///////////////////////////
|
||
with CDS_2 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if CDS_2.fieldbyname('ssel').AsBoolean then
|
||
begin
|
||
|
||
MaxTPFId := Trim(CDS_2.fieldbyname('Subid').AsString) + Trim(CDS_1.FieldByName('SerialNo').AsString) + trim(SerialFtyNo.Text);
|
||
|
||
if StrToFloatDef(FtyQty.Text, 0) = 0 then
|
||
begin
|
||
MFtyQty := CDS_2.fieldbyname('FtyQtydfp').AsFloat + CDS_2.fieldbyname('FtyQty' + trim(SerialFtyNo.Text)).AsFloat;
|
||
end
|
||
else
|
||
begin
|
||
MFtyQty := StrToFloatDef(FtyQty.Text, 0);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('delete Trade_Plan_Fty where MainId=''' + Trim(FMainId) + '''');
|
||
sql.Add(' and TPFId=''' + Trim(MaxTPFId) + '''');
|
||
execsql;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from Trade_Plan_Fty where 1=2');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Append;
|
||
FieldByName('MainId').Value := Trim(FMainId);
|
||
FieldByName('TPFId').Value := Trim(MaxTPFId);
|
||
FieldByName('SerialFtyNo').Value := Trim(SerialFtyNo.Text);
|
||
FieldByName('SerialNo').Value := CDS_1.fieldbyname('SerialNo').Value;
|
||
FieldByName('Technics').Value := CDS_1.fieldbyname('Technics').Value;
|
||
FieldByName('FtyNo').Value := Trim(self.FtyName.Properties.LookupItems.Text);
|
||
FieldByName('FtyName').Value := Trim(self.FtyName.Text);
|
||
FieldByName('Followid').Value := Trim(self.Follower.Properties.LookupItems.Text);
|
||
FieldByName('Follower').Value := Trim(self.Follower.Text);
|
||
|
||
FieldByName('subid').Value := CDS_2.fieldbyname('subid').Value;
|
||
|
||
FieldByName('FtyQty').Value := MFtyQty;
|
||
FieldByName('SCNOTE').Value := scnote.Text;
|
||
Post;
|
||
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select ');
|
||
|
||
sql.Add(' FtyQtydfp=OrdQty-isnull((select sum(FtyQty) from Trade_Plan_Fty X where X.subid=A.subid and x.SerialNo=' + CDS_1.FieldByName('SerialNo').asstring + ' ) ,0) ');
|
||
|
||
sql.Add(' from Trade_Plan_Sub A ');
|
||
sql.Add(' where SUBID=''' + Trim(CDS_2.fieldbyname('subid').Value) + '''');
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
if ADOTemp.FieldByName('FtyQtydfp').AsFloat < 0 then
|
||
begin
|
||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
|
||
end;
|
||
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
|
||
|
||
|
||
///////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9><EFBFBD> ///////////////////////////
|
||
|
||
ADOCmd.Connection.CommitTrans;
|
||
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
if CDS_1.FieldByName('Technics').AsString = '' then
|
||
begin
|
||
Exit;
|
||
end;
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := CDS_1.FieldByName('Technics').AsString;
|
||
flagname := CDS_1.FieldByName('Technics').AsString;
|
||
if ShowModal = 1 then
|
||
begin
|
||
// TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid(TRIM(SELF.Caption) + 'Tv1', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxGrid(TRIM(SELF.Caption) + 'Tv2', Tv2, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
InitGrid2();
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
|
||
begin
|
||
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select scnote ');
|
||
|
||
sql.Add(' from Trade_Plan_Fty A ');
|
||
sql.Add(' where subid=''' + Trim(CDS_2.fieldbyname('SubId').AsString) + '''');
|
||
sql.Add('and SerialNo=1');
|
||
|
||
Open;
|
||
end;
|
||
scnote1.Text := ADOTemp.FieldByName('scnote').AsString;
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select scnote ');
|
||
|
||
sql.Add(' from Trade_Plan_Fty A ');
|
||
sql.Add(' where subid=''' + Trim(CDS_2.fieldbyname('SubId').AsString) + '''');
|
||
sql.Add('and SerialNo=2');
|
||
|
||
Open;
|
||
end;
|
||
scnote2.Text := ADOTemp.FieldByName('scnote').AsString;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.cxButton1Click(Sender: TObject);
|
||
begin
|
||
|
||
// with ADOTemp do
|
||
// begin
|
||
// Close;
|
||
// sql.Clear;
|
||
// sql.Add('select * from Trade_Plan_Fty_Technical where isnull(SubId,'''')<>'''' and SubId=''' + Trim(CDS_3.fieldbyname('SubId').AsString) + '''');
|
||
// Open;
|
||
// end;
|
||
// if ADOTemp.IsEmpty = False then
|
||
// begin
|
||
// Application.MessageBox('<27>Ѽ<EFBFBD><D1BC>鲻<EFBFBD><E9B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
|
||
// Exit;
|
||
// end;
|
||
// if Trim(CDS_3.fieldbyname('TPFTID').AsString) <> '' then
|
||
// begin
|
||
// with ADOCmd do
|
||
// begin
|
||
// Close;
|
||
// sql.Clear;
|
||
//
|
||
//// sql.Add('insert into Trade_Plan_Sub_Del select * from Trade_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
|
||
//
|
||
// sql.Add('delete Trade_Plan_Fty_Technical where TPFTID=''' + Trim(CDS_3.fieldbyname('TPFTID').AsString) + '''');
|
||
//
|
||
// ExecSQL;
|
||
// end;
|
||
// end;
|
||
|
||
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
|
||
InitGrid2();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.N5Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_2, True);
|
||
end;
|
||
|
||
procedure TfrmTradePlanFtyInPut.N6Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_2, False);
|
||
end;
|
||
|
||
end.
|
||
|