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: //测试用
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
fFormID := FormID;
FormStyle := mstyle;

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

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

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

@ -13,9 +13,8 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, U_BaseHelp,
dxBarBuiltInMenu, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
cxNavigator, dxDateRanges, U_BaseHelp, dxBarBuiltInMenu, System.ImageList,
Vcl.ImgList, dxScrollbarAnnotations, cxImageList, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters;
type
@ -126,8 +125,7 @@ begin
sql.Add('from BS_Company A ');
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;
end;

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

@ -127,7 +127,7 @@ begin
100: //提示窗口
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
fFormID := FormID;
WindowState := mstate;
@ -137,7 +137,7 @@ begin
111: //客户管理
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
fFormID := FormID;
WindowState := mstate;
@ -147,7 +147,7 @@ begin
121: //供应商管理
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
fFormID := FormID;
WindowState := mstate;
@ -157,7 +157,7 @@ begin
131: //公司管理
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
fFormID := FormID;
WindowState := mstate;
@ -167,7 +167,7 @@ begin
141: //公司账户管理
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
fFormID := FormID;
WindowState := mstate;
@ -177,7 +177,7 @@ begin
211: //组织机构
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
fFormID := FormID;
WindowState := mstate;
@ -187,7 +187,7 @@ begin
212: //员工档案管理
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
fFormID := FormID;
WindowState := mstate;

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

@ -133,7 +133,7 @@ begin
191: //工序管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -145,7 +145,7 @@ begin
192: //工艺管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -157,7 +157,7 @@ begin
111: // 产品类别
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
fFormID := FormID;
FormStyle := mstyle;
@ -169,7 +169,7 @@ begin
112: // 成品信息管理
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
fFormID := FormID;
WindowState := mstate;
@ -179,7 +179,7 @@ begin
122: // 坯布信息管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -191,7 +191,7 @@ begin
132: // 针织产品信息管理
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
fFormID := FormID;
FormStyle := mstyle;

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

@ -119,7 +119,7 @@ begin
111: //库位管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -131,7 +131,7 @@ begin
112: //车辆管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -145,7 +145,7 @@ begin
{
141: //经轴管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -157,7 +157,7 @@ begin
151: //托盘管理
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
fFormID := FormID;
FormStyle := mstyle;

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

@ -135,7 +135,7 @@ begin
111: //应收款登记
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
fFormID := FormID;
FormStyle := mstyle;
@ -147,7 +147,7 @@ begin
121: //收款登记
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
fFormID := FormID;
FormStyle := mstyle;
@ -159,7 +159,7 @@ begin
130: //销项发票申请
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
fFormID := FormID;
FormStyle := mstyle;
@ -171,7 +171,7 @@ begin
131: //销项发票管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -183,7 +183,7 @@ begin
141: //客户对账单
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
fFormID := FormID;
FormStyle := mstyle;
@ -195,7 +195,7 @@ begin
142: //客户年度对账单
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
fFormID := FormID;
FormStyle := mstyle;
@ -207,7 +207,7 @@ begin
211: //应付款登记
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
fFormID := FormID;
FormStyle := mstyle;
@ -219,7 +219,7 @@ begin
221: //付款登记
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
fFormID := FormID;
FormStyle := mstyle;
@ -231,7 +231,7 @@ begin
231: //进项发票管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -243,7 +243,7 @@ begin
241: //供应商对账单
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
fFormID := FormID;
FormStyle := mstyle;
@ -255,7 +255,7 @@ begin
311: //费用登记
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
fFormID := FormID;
FormStyle := mstyle;
@ -267,7 +267,7 @@ begin
711: //排行榜
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
fFormID := FormID;
FormStyle := mstyle;
@ -279,7 +279,7 @@ begin
811: //账户流水管理
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
fFormID := FormID;
FormStyle := mstyle;
@ -291,7 +291,7 @@ begin
821: //账户余额统计
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
fFormID := FormID;
FormStyle := mstyle;

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

@ -132,7 +132,7 @@ begin
111: //销售合同管理
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
fFormID := FormID;
WindowState := mstate;

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

@ -127,7 +127,7 @@ begin
111: //É´Ï߲ɹº¼Æ»®
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
FormStyle := mstyle;
WindowState := mstate;
@ -137,7 +137,7 @@ begin
211: //ÃæÁϲɹº¼Æ»®
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
fFormID := FormID;
WindowState := mstate;

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

@ -131,7 +131,7 @@ begin
111: //大货生产计划单
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
fFormID := FormID;
WindowState := mstate;
@ -141,7 +141,7 @@ begin
131: //打色生产计划单
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
fFormID := FormID;
WindowState := mstate;
@ -151,7 +151,7 @@ begin
221: //贸易大货标签
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
fFormID := FormID;
WindowState := mstate;
@ -161,7 +161,7 @@ begin
211: //生产计划进度
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
fFormID := FormID;
WindowState := mstate;
@ -171,7 +171,7 @@ begin
311: //订单利润查询
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
fFormID := FormID;
WindowState := mstate;
@ -181,7 +181,7 @@ begin
312: //订单利润生产进度查询
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
fFormID := FormID;
WindowState := mstate;
@ -190,7 +190,7 @@ begin
end;
// 121: //生产计划单多加工厂(不用）
// 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
// fFormID := FormID;
//
@ -201,7 +201,7 @@ begin
// end;
// 121: //开发打样单
// 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
// fFormID := FormID;
//

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

@ -139,7 +139,7 @@ begin
911: //采购回仓
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
fFormID := FormID;
WindowState := mstate;
@ -149,7 +149,7 @@ begin
912: //面料生产安排
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
fFormID := FormID;
WindowState := mstate;
@ -159,7 +159,7 @@ begin
920: //码单登记
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
fFormID := FormID;
WindowState := mstate;
@ -169,7 +169,7 @@ begin
921: //贸易布匹入库
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
fFormID := FormID;
WindowState := mstate;
@ -179,7 +179,7 @@ begin
221: //退货申请
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
fFormID := FormID;
WindowState := mstate;
@ -189,7 +189,7 @@ begin
211: //发货申请
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
fFormID := FormID;
WindowState := mstate;
@ -199,7 +199,7 @@ begin
922: //贸易布匹出库
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
fFormID := FormID;
WindowState := mstate;
@ -209,7 +209,7 @@ begin
923: //贸易布匹库存
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
fFormID := FormID;
WindowState := mstate;
@ -219,7 +219,7 @@ begin
924: //新余库存
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
fFormID := FormID;
WindowState := mstate;
@ -229,7 +229,7 @@ begin
925: //新余出库
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
fFormID := FormID;
WindowState := mstate;
@ -239,7 +239,7 @@ begin
511: //样布入库
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
FSTKName := '贸易样布';
fFormID := FormID;
@ -250,7 +250,7 @@ begin
521: //样布出库
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
FSTKName := '贸易样布';
fFormID := FormID;
@ -261,7 +261,7 @@ begin
531: //样布库存
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
FSTKName := '贸易样布';
fFormID := FormID;

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

@ -133,7 +133,7 @@ begin
2: //测试
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
fFormID := FormID;
FormStyle := mstyle;
@ -145,7 +145,7 @@ begin
// 111: //机台检验
// 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
// fFormID := FormID;
// // FormStyle := mstyle;
@ -157,7 +157,7 @@ begin
1: //机台检验
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
fFormID := FormID;
// FormStyle := mstyle;

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

@ -129,7 +129,7 @@ begin
111: //댕새데
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
fFormID := FormID;
FOrdType := '攣끽데';
@ -142,7 +142,7 @@ begin
// 112: //숏湳데
// 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
// fFormID := FormID;
// FOrdType := '숏湳데';
@ -155,7 +155,7 @@ begin
//
// 121: //토새데
// 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
// fFormID := FormID;
// FormStyle := mstyle;

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

@ -458,7 +458,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OptionsView.IndicatorWidth = 33
object cxGridDBColumn8: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Meter'
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
@ -688,6 +688,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Properties.ImmediatePost = True
Properties.ReadOnly = False
Properties.OnButtonClick = StkPositionPropertiesButtonClick
Properties.OnChange = CustNamePropertiesChange
TabOrder = 9
Width = 200
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 FormCreate(Sender: TObject);
procedure StkPositionPropertiesButtonClick(Sender: TObject);
procedure CustNamePropertiesChange(Sender: TObject);
private
FSCXDH: string;
procedure InitData();
@ -852,6 +853,13 @@ begin
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);
begin
if TcxDBImage(Sender).Picture.Height = 0 then
@ -1062,7 +1070,7 @@ begin
frmComContactSel := TfrmComContactSel.Create(Application);
with frmComContactSel do
begin
FCoCode := Trim(self.CustName.Properties.LookupItems.Text);
FCoCode := Trim(self.CustName.Hint);
if ShowModal = 1 then
begin
self.ShippingAddress.Text := Trim(frmComContactSel.CDS_1.fieldbyname('mxaddress').AsString);
@ -1159,7 +1167,7 @@ begin
begin
Close;
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(',' + quotedstr(Trim(MTMSId)));
sql.Add(',' + QtyMX.Text);
@ -1173,7 +1181,7 @@ begin
Append;
FieldByName('TMSQID').Value := MaxNo;
FieldByName('TMSId').Value := MTMSId;
FieldByName('Meter').Value := QtyMX.Text;
FieldByName('Qty').Value := QtyMX.Text;
post;
end;
except
@ -1371,8 +1379,7 @@ begin
begin
Close;
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(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
sql.Add(' EXEC P_Cloth_GetCICUnit @C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
Open;
end;
end;
@ -1383,12 +1390,12 @@ begin
begin
Close;
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(' where A.C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
sql.Add(' EXEC P_Cloth_GetCICUnit @C_Code= ' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
Open;
end;
end;
// Bs_Cloth_Info_Coefficient
end;

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

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