Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-11 09:41:07 +08:00
parent b164ebe819
commit 3d5adf8baa
11 changed files with 85 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
A05基础资料管理/BaseInfo.dproj.local
View File

@ -4,8 +4,8 @@
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
@ -19,14 +19,14 @@
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
</Transactions>
</BorlandProject>

BIN
B03基础物料仓库/ProductStk.identcache
View File

Binary file not shown.

1
B03基础物料仓库/U_BSPrtInEdit.dfm
View File

@ -21,7 +21,6 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Height = 512
Align = alClient
TabOrder = 0
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

36
B03基础物料仓库/U_BSPrtInEdit.pas
View File

@ -426,8 +426,11 @@ begin
end;
procedure TfrmBSPrtInEdit.TbAdd2Click(Sender: TObject);
//var
// i: Integer;
begin
inherited;
// i := CDS_Sub.RecordCount + 1;
try
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
@ -435,17 +438,30 @@ begin
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
with CDS_HZ do
begin
append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
FieldByName('IOType').Value := '采购入库';
FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
FieldByName('Style').Value := '钢筘';
First;
while not Eof do
begin
if CDS_HZ.FieldByName('SSel').AsBoolean then
begin
with CDS_Sub do
begin
append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
FieldByName('IOType').Value := '采购入库';
FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
// FieldByName('Qty').Value := frmGKManageSel.CDS_HZ.fieldbyname('kcqty').value;
FieldByName('Style').Value := '钢筘';
end;
end;
next;
end;
end;
end;
end;

28
B03基础物料仓库/U_GKManageSel.dfm
View File

@ -25,13 +25,13 @@ inherited frmGKManageSel: TfrmGKManageSel
ParentColor = False
ShowCaptions = True
TabOrder = 3
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
Visible = False
OnClick = TBRafreshClick
end
object TbFilter: TToolButton
@ -42,10 +42,18 @@ inherited frmGKManageSel: TfrmGKManageSel
ImageIndex = 0
Visible = False
end
object TBClose: TToolButton
object Select: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = SelectClick
end
object TBClose: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
@ -60,7 +68,6 @@ inherited frmGKManageSel: TfrmGKManageSel
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 76
ExplicitHeight = 442
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -95,9 +102,15 @@ inherited frmGKManageSel: TfrmGKManageSel
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object Tv2Column4: TcxGridDBColumn
Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'GKBH'
@ -111,6 +124,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'JZBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column3: TcxGridDBColumn
@ -118,6 +132,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'JZCH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column5: TcxGridDBColumn
@ -125,6 +140,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'GKKH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv2Column6: TcxGridDBColumn
@ -132,6 +148,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'GKLength'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column10: TcxGridDBColumn
@ -144,8 +161,10 @@ inherited frmGKManageSel: TfrmGKManageSel
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'kcqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
@ -164,6 +183,7 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitTop = 32
object Label1: TLabel
Left = 13
Top = 11

22
B03基础物料仓库/U_GKManageSel.pas
View File

@ -45,6 +45,8 @@ type
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2SSel: TcxGridDBColumn;
Select: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -56,6 +58,7 @@ type
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MCNOPropertiesChange(Sender: TObject);
procedure SelectClick(Sender: TObject);
private
{ Private declarations }
@ -85,7 +88,9 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select A.* from BS_GK A ');
sql.Add(' select A.* ');
sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname=''物料'')');
SQL.Add(' from BS_GK A');
// showmessage(Sql.text);
Open;
end;
@ -131,7 +136,7 @@ end;
procedure TfrmGKManageSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
// ReadCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
InitGrid();
end;
@ -140,8 +145,6 @@ begin
InitGrid();
end;
procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
@ -161,6 +164,17 @@ begin
SelOKNo(CDS_HZ, False);
end;
procedure TfrmGKManageSel.SelectClick(Sender: TObject);
begin
inherited;
if CDS_HZ.Locate('ssel', True, []) = False then
begin
Application.MessageBox('请选择数据！', '提示信息', MB_OK);
exit;
end;
ModalResult := 1;
end;
procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
begin
TbFilter.Click;

16
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -29,10 +29,10 @@
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
@ -42,20 +42,20 @@
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>2025/07/10 16:46:39.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>2025/07/10 16:46:39.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

4
B04采购计划管理/U_GKManageSel.dfm
View File

@ -25,7 +25,6 @@ inherited frmGKManageSel: TfrmGKManageSel
ParentColor = False
ShowCaptions = True
TabOrder = 3
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -67,7 +66,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 76
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
@ -159,6 +157,7 @@ inherited frmGKManageSel: TfrmGKManageSel
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'kcqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
@ -179,7 +178,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitTop = 23
object Label1: TLabel
Left = 13
Top = 11

4
B04采购计划管理/U_GKManageSel.pas
View File

@ -89,7 +89,9 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select A.* from BS_GK A ');
sql.Add(' select A.* ');
sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname=''ÎïÁÏ'')');
SQL.Add(' from BS_GK A');
// showmessage(Sql.text);
Open;
end;

1
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -10,6 +10,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -598
ExplicitWidth = 1540
ExplicitHeight = 690
PixelsPerInch = 96

1
B04采购计划管理/U_YarnPurchasePlanPut.pas
View File

@ -1053,7 +1053,6 @@ begin
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
// FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin