Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-08 14:50:01 +08:00
parent 06e3c20cb0
commit 6c3b105e07
16 changed files with 85 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A00通用模板/U_GetDllForm.pas
View File

@ -126,7 +126,7 @@ begin
1: //测试用 1: //测试用
begin begin
with TForm1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TForm1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;

6
A00通用窗体/U_ComContactSel.dfm
View File

@ -10,8 +10,8 @@ inherited frmComContactSel: TfrmComContactSel
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1030 ExplicitWidth = 1038
ExplicitHeight = 553 ExplicitHeight = 561
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -30,7 +30,6 @@ inherited frmComContactSel: TfrmComContactSel
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 604
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -112,7 +111,6 @@ inherited frmComContactSel: TfrmComContactSel
Height = 441 Height = 441
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 87
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

6
A00通用窗体/U_ComContactSel.pas
View File

@ -13,9 +13,8 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, U_BaseHelp, cxNavigator, dxDateRanges, U_BaseHelp, dxBarBuiltInMenu, System.ImageList,
dxBarBuiltInMenu, System.ImageList, Vcl.ImgList, Vcl.ImgList, dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters;
type type
@ -126,7 +125,6 @@ begin
sql.Add('from BS_Company A '); sql.Add('from BS_Company A ');
sql.Add('left join BS_Company_contact B ON A.COID=B.COID '); sql.Add('left join BS_Company_contact B ON A.COID=B.COID ');
sql.Add('where A.CoCode=' + QuotedStr(Trim(FCoCode))); sql.Add('where A.CoCode=' + QuotedStr(Trim(FCoCode)));
Open; Open;

14
A01基础公司管理/U_GetDllForm.pas
View File

@ -127,7 +127,7 @@ begin
100: //提示窗口 100: //提示窗口
begin begin
with TfrmModulePromptList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmModulePromptList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -137,7 +137,7 @@ begin
111: //客户管理 111: //客户管理
begin begin
with TfrmCustomer.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmCustomer.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -147,7 +147,7 @@ begin
121: //供应商管理 121: //供应商管理
begin begin
with TfrmFactory.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmFactory.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -157,7 +157,7 @@ begin
131: //公司管理 131: //公司管理
begin begin
with TfrmCompany.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmCompany.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -167,7 +167,7 @@ begin
141: //公司账户管理 141: //公司账户管理
begin begin
with TfrmBankList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmBankList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -177,7 +177,7 @@ begin
211: //组织机构 211: //组织机构
begin begin
with TfrmSYDept.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmSYDept.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -187,7 +187,7 @@ begin
212: //员工档案管理 212: //员工档案管理
begin begin
with TfrmEmployeeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmEmployeeList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;

12
A02基础产品管理/U_GetDllForm.pas
View File

@ -133,7 +133,7 @@ begin
191: //工序管理 191: //工序管理
begin begin
with TfrmClothInfoProcessList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothInfoProcessList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -145,7 +145,7 @@ begin
192: //工艺管理 192: //工艺管理
begin begin
with TfrmClothInfoTechnicsList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothInfoTechnicsList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -157,7 +157,7 @@ begin
111: // 产品类别 111: // 产品类别
begin begin
with TfrmClothType.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothType.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -169,7 +169,7 @@ begin
112: // 成品信息管理 112: // 成品信息管理
begin begin
with TfrmClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -179,7 +179,7 @@ begin
122: // 坯布信息管理 122: // 坯布信息管理
begin begin
with TfrmTatClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTatClothInfo.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -191,7 +191,7 @@ begin
132: // 针织产品信息管理 132: // 针织产品信息管理
begin begin
with TfrmKnitClothInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmKnitClothInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;

8
A05基础资料管理/U_GetDllForm.pas
View File

@ -119,7 +119,7 @@ begin
111: //库位管理 111: //库位管理
begin begin
with TfrmPositionList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do with TfrmPositionList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -131,7 +131,7 @@ begin
112: //车辆管理 112: //车辆管理
begin begin
with TfrmMachineManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do with TfrmMachineManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -145,7 +145,7 @@ begin
{ {
141: //经轴管理 141: //经轴管理
begin begin
with TfrmWarpBeamManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do with TfrmWarpBeamManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -157,7 +157,7 @@ begin
151: //托盘管理 151: //托盘管理
begin begin
with TfrmTrayManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do with TfrmTrayManage.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;

28
A09财务通用管理/U_GetDllForm.pas
View File

@ -135,7 +135,7 @@ begin
111: //应收款登记 111: //应收款登记
begin begin
with TfrmReceivableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmReceivableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -147,7 +147,7 @@ begin
121: //收款登记 121: //收款登记
begin begin
with TfrmCollectList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmCollectList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -159,7 +159,7 @@ begin
130: //销项发票申请 130: //销项发票申请
begin begin
with TfrmInvoiceOutSQList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmInvoiceOutSQList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -171,7 +171,7 @@ begin
131: //销项发票管理 131: //销项发票管理
begin begin
with TfrmInvoiceOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmInvoiceOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -183,7 +183,7 @@ begin
141: //客户对账单 141: //客户对账单
begin begin
with TfrmCustStatement.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmCustStatement.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -195,7 +195,7 @@ begin
142: //客户年度对账单 142: //客户年度对账单
begin begin
with TfrmCustStatementWriteOff.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmCustStatementWriteOff.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -207,7 +207,7 @@ begin
211: //应付款登记 211: //应付款登记
begin begin
with TfrmPayableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmPayableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -219,7 +219,7 @@ begin
221: //付款登记 221: //付款登记
begin begin
with TfrmPayList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmPayList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -231,7 +231,7 @@ begin
231: //进项发票管理 231: //进项发票管理
begin begin
with TfrmInvoiceInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmInvoiceInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -243,7 +243,7 @@ begin
241: //供应商对账单 241: //供应商对账单
begin begin
with TfrmFtyStatement.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmFtyStatement.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -255,7 +255,7 @@ begin
311: //费用登记 311: //费用登记
begin begin
with TfrmExpenseList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmExpenseList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -267,7 +267,7 @@ begin
711: //排行榜 711: //排行榜
begin begin
with TfrmRankingList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmRankingList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -279,7 +279,7 @@ begin
811: //账户流水管理 811: //账户流水管理
begin begin
with TfrmBankFlowList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmBankFlowList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -291,7 +291,7 @@ begin
821: //账户余额统计 821: //账户余额统计
begin begin
with TfrmBankFlowTotalList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmBankFlowTotalList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;

2
B01基础合同管理/U_GetDllForm.pas
View File

@ -132,7 +132,7 @@ begin
111: //销售合同管理 111: //销售合同管理
begin begin
with TfrmSalesContractList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmSalesContractList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;

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

@ -127,7 +127,7 @@ begin
111: //É´Ï߲ɹº¼Æ»® 111: //É´Ï߲ɹº¼Æ»®
begin begin
with TfrmYarnPurchasePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmYarnPurchasePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
FormStyle := mstyle; FormStyle := mstyle;
WindowState := mstate; WindowState := mstate;
@ -137,7 +137,7 @@ begin
211: //ÃæÁϲɹº¼Æ»® 211: //ÃæÁϲɹº¼Æ»®
begin begin
with TfrmClothPurchasePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothPurchasePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;

16
T01贸易生产计划/U_GetDllForm.pas
View File

@ -131,7 +131,7 @@ begin
111: //大货生产计划单 111: //大货生产计划单
begin begin
with TfrmTradePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradePlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -141,7 +141,7 @@ begin
131: //打色生产计划单 131: //打色生产计划单
begin begin
with TfrmTradePlanColorList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradePlanColorList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -151,7 +151,7 @@ begin
221: //贸易大货标签 221: //贸易大货标签
begin begin
with TfrmTradePlanCard.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do with TfrmTradePlanCard.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -161,7 +161,7 @@ begin
211: //生产计划进度 211: //生产计划进度
begin begin
with TfrmTradePlanSchedule.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradePlanSchedule.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -171,7 +171,7 @@ begin
311: //订单利润查询 311: //订单利润查询
begin begin
with TfrmTradePlanProfit1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradePlanProfit1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -181,7 +181,7 @@ begin
312: //订单利润生产进度查询 312: //订单利润生产进度查询
begin begin
with TfrmTradePlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradePlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -190,7 +190,7 @@ begin
end; end;
// 121: //生产计划单多加工厂(不用） // 121: //生产计划单多加工厂(不用）
// begin // begin
// with TfrmTradePlanMulFtyList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // // with TfrmTradePlanMulFtyList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
// begin // begin
// fFormID := FormID; // fFormID := FormID;
// //
@ -201,7 +201,7 @@ begin
// end; // end;
// 121: //开发打样单 // 121: //开发打样单
// begin // begin
// with TfrmTradePlanProofList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // // with TfrmTradePlanProofList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
// begin // begin
// fFormID := FormID; // fFormID := FormID;
// //

26
T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -139,7 +139,7 @@ begin
911: //采购回仓 911: //采购回仓
begin begin
with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -149,7 +149,7 @@ begin
912: //面料生产安排 912: //面料生产安排
begin begin
with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -159,7 +159,7 @@ begin
920: //码单登记 920: //码单登记
begin begin
with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -169,7 +169,7 @@ begin
921: //贸易布匹入库 921: //贸易布匹入库
begin begin
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -179,7 +179,7 @@ begin
221: //退货申请 221: //退货申请
begin begin
with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeRRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -189,7 +189,7 @@ begin
211: //发货申请 211: //发货申请
begin begin
with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeDeliveryRequest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -199,7 +199,7 @@ begin
922: //贸易布匹出库 922: //贸易布匹出库
begin begin
with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeClothTotalOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -209,7 +209,7 @@ begin
923: //贸易布匹库存 923: //贸易布匹库存
begin begin
with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeClothTotalStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -219,7 +219,7 @@ begin
924: //新余库存 924: //新余库存
begin begin
with TfrmTradeXinYuStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeXinYuStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -229,7 +229,7 @@ begin
925: //新余出库 925: //新余出库
begin begin
with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeXinYuOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
WindowState := mstate; WindowState := mstate;
@ -239,7 +239,7 @@ begin
511: //样布入库 511: //样布入库
begin begin
with TfrmTradeSampleClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeSampleClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
FSTKName := '贸易样布'; FSTKName := '贸易样布';
fFormID := FormID; fFormID := FormID;
@ -250,7 +250,7 @@ begin
521: //样布出库 521: //样布出库
begin begin
with TfrmTradeSampleClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeSampleClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
FSTKName := '贸易样布'; FSTKName := '贸易样布';
fFormID := FormID; fFormID := FormID;
@ -261,7 +261,7 @@ begin
531: //样布库存 531: //样布库存
begin begin
with TfrmTradeSampleClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeSampleClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
FSTKName := '贸易样布'; FSTKName := '贸易样布';
fFormID := FormID; fFormID := FormID;

6
T03贸易布匹检验/U_GetDllForm.pas
View File

@ -133,7 +133,7 @@ begin
2: //测试 2: //测试
begin begin
with TfrmDeviceJkTest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmDeviceJkTest.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -145,7 +145,7 @@ begin
// 111: //机台检验 // 111: //机台检验
// begin // begin
// with TfrmTradeMachInsp.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // // with TfrmTradeMachInsp.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
// begin // begin
// fFormID := FormID; // fFormID := FormID;
// // FormStyle := mstyle; // // FormStyle := mstyle;
@ -157,7 +157,7 @@ begin
1: //机台检验 1: //机台检验
begin begin
with TfrmMachRollMain.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmMachRollMain.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
// FormStyle := mstyle; // FormStyle := mstyle;

6
T05贸易门市管理/U_GetDllForm.pas
View File

@ -129,7 +129,7 @@ begin
111: //댕새데 111: //댕새데
begin begin
with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
begin begin
fFormID := FormID; fFormID := FormID;
FOrdType := '攣끽데'; FOrdType := '攣끽데';
@ -142,7 +142,7 @@ begin
// 112: //숏湳데 // 112: //숏湳데
// begin // begin
// with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // // with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
// begin // begin
// fFormID := FormID; // fFormID := FormID;
// FOrdType := '숏湳데'; // FOrdType := '숏湳데';
@ -155,7 +155,7 @@ begin
// //
// 121: //토새데 // 121: //토새데
// begin // begin
// with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // // with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
// begin // begin
// fFormID := FormID; // fFormID := FormID;
// FormStyle := mstyle; // FormStyle := mstyle;

3
T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -458,7 +458,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OptionsView.IndicatorWidth = 33 OptionsView.IndicatorWidth = 33
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
@ -688,6 +688,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = StkPositionPropertiesButtonClick Properties.OnButtonClick = StkPositionPropertiesButtonClick
Properties.OnChange = CustNamePropertiesChange
TabOrder = 9 TabOrder = 9
Width = 200 Width = 200
end end

21
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -140,6 +140,7 @@ type
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure StkPositionPropertiesButtonClick(Sender: TObject); procedure StkPositionPropertiesButtonClick(Sender: TObject);
procedure CustNamePropertiesChange(Sender: TObject);
private private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -852,6 +853,13 @@ begin
end; end;
procedure TfrmTradeMarketInPut.CustNamePropertiesChange(Sender: TObject);
begin
inherited;
if CDS_KH.Locate('CoAbbrName', Trim(self.CustName.Text), []) then
self.CustName.Hint := Trim(CDS_KH.fieldbyname('CoCode').AsString);
end;
procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject); procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject);
begin begin
if TcxDBImage(Sender).Picture.Height = 0 then if TcxDBImage(Sender).Picture.Height = 0 then
@ -1062,7 +1070,7 @@ begin
frmComContactSel := TfrmComContactSel.Create(Application); frmComContactSel := TfrmComContactSel.Create(Application);
with frmComContactSel do with frmComContactSel do
begin begin
FCoCode := Trim(self.CustName.Properties.LookupItems.Text); FCoCode := Trim(self.CustName.Hint);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
self.ShippingAddress.Text := Trim(frmComContactSel.CDS_1.fieldbyname('mxaddress').AsString); self.ShippingAddress.Text := Trim(frmComContactSel.CDS_1.fieldbyname('mxaddress').AsString);
@ -1159,7 +1167,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('insert into Trade_Market_Sub_Qty (TMSQID,TMSId,Meter)'); sql.Add('insert into Trade_Market_Sub_Qty (TMSQID,TMSId,Qty)');
sql.Add('values(' + quotedstr(Trim(MaxNo))); sql.Add('values(' + quotedstr(Trim(MaxNo)));
sql.Add(',' + quotedstr(Trim(MTMSId))); sql.Add(',' + quotedstr(Trim(MTMSId)));
sql.Add(',' + QtyMX.Text); sql.Add(',' + QtyMX.Text);
@ -1173,7 +1181,7 @@ begin
Append; Append;
FieldByName('TMSQID').Value := MaxNo; FieldByName('TMSQID').Value := MaxNo;
FieldByName('TMSId').Value := MTMSId; FieldByName('TMSId').Value := MTMSId;
FieldByName('Meter').Value := QtyMX.Text; FieldByName('Qty').Value := QtyMX.Text;
post; post;
end; end;
except except
@ -1371,8 +1379,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' SELECT A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID '); sql.Add(' EXEC P_Cloth_GetCICUnit @C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
Open; Open;
end; end;
end; end;
@ -1383,12 +1390,12 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' SELECT A.C_Code,B.CICUnit FROM Bs_Cloth_Info A inner join Bs_Cloth_Info_Coefficient B on A.BCIID=B.BCIID '); sql.Add(' EXEC P_Cloth_GetCICUnit @C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
sql.Add(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
Open; Open;
end; end;
end; end;
// Bs_Cloth_Info_Coefficient // Bs_Cloth_Info_Coefficient
end; end;

2
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -606,6 +606,8 @@ begin
ScrollBox1.Enabled := True; ScrollBox1.Enabled := True;
N2.Visible := False; N2.Visible := False;
frmTradeMarketInPut.fordtype := self.fordtype; frmTradeMarketInPut.fordtype := self.fordtype;
TvMX.OnCellDblClick := nil;
Panel5.Visible := False;
if ShowModal = 1 then if ShowModal = 1 then
begin begin