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

经轴仓库

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-18 15:42:53 +08:00
parent a7e73ca542
commit bc0b8f7aef
35 changed files with 712 additions and 731 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
B02基础纱线仓库/U_YarnInfoInPut.pas
View File

@ -12,23 +12,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxContainer, cxMaskEdit, cxMemo, cxImageList, dxSkinsCore,
dxSkinsDefaultPainters, dxCore, cxDateUtils,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsDefaultPainters, dxCore, cxDateUtils, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnInfoInPut = class(TfrmBaseInput)

19
E00梭织通用窗体/U_TatGYSel.pas
View File

@ -11,23 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmTatGYSel = class(TfrmBaseHelp)

2
E00梭织通用窗体/U_TatPlanSel2.dfm
View File

@ -170,7 +170,6 @@ inherited frmTatPlanSel2: TfrmTatPlanSel2
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectBottom = 545
ClientRectLeft = 1
ClientRectRight = 1636
@ -182,7 +181,6 @@ inherited frmTatPlanSel2: TfrmTatPlanSel2
Height = 521
Align = alClient
TabOrder = 0
ExplicitLeft = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

27
E00梭织通用窗体/U_TatPlanSel2.pas
View File

@ -11,23 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
cxPC;
dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, cxPC;
type
TfrmTatPlanSel2 = class(TfrmBaseHelp)
@ -88,6 +73,7 @@ type
{ Private declarations }
public
FCoType, FAuthority: string;
FISSJ: string;
{ Public declarations }
end;
@ -146,9 +132,16 @@ begin
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) ');
sql.Add(',ISSizing=(select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code) ');
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');
//SQL.Add(' where isnull(A.status,''0'')=''9'' ');
sql.add('where 1=1');
if FISSJ = '·ñ' then
begin
sql.add('AND (select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code)=''·ñ''');
end;
case cxTabControl1.TabIndex of
0:
begin

140
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,76 +1,76 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

4
E01梭织生产计划/U_DataLink.dfm
View File

@ -4,6 +4,10 @@ inherited DataLink_TatPlan: TDataLink_TatPlan
Height = 349
Width = 482
inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
PixelsPerInch = 96
end
inherited cxImageList_bar: TcxImageList

39
E01梭织生产计划/U_DataLink.pas
View File

@ -5,41 +5,10 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink,
dxCore, cxLocalization, cxImageList, cxGraphics, cxEdit,
cxContainer, dxSkinsForm,
dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList,
cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TMyThread = class(TThread)

15
E01梭织生产计划/U_TatGYInPut.dfm
View File

@ -591,6 +591,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 931
Top = 0
@ -820,6 +823,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox2: TGroupBox
Left = 863
Top = 0
@ -1042,6 +1048,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid4: TcxGrid
Left = 0
Top = 344
@ -1148,6 +1157,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CZF: TMemo
Tag = 2
Left = 0
@ -1168,6 +1180,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0

22
E01梭织生产计划/U_TatGYInPut.pas
View File

@ -20,23 +20,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatGYInPut = class(TfrmBaseInput)
@ -1742,14 +1727,11 @@ begin
self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString);
self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString);
self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString);
self.C_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString);
self.C_Color.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString);

19
E01梭织生产计划/U_TatPlanCard1.pas
View File

@ -13,23 +13,8 @@ uses
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmTatPlanCard1 = class(TfrmBaseList)

15
E01梭织生产计划/U_TatPlanInPut.dfm
View File

@ -697,6 +697,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 931
Top = 0
@ -958,6 +961,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox2: TGroupBox
Left = 863
Top = 0
@ -1215,6 +1221,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid4: TcxGrid
Left = 0
Top = 303
@ -1321,6 +1330,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CZF: TMemo
Tag = 2
Left = 0
@ -1341,6 +1353,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0

19
E01梭织生产计划/U_TatPlanInPut.pas
View File

@ -20,23 +20,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatPlanInPut = class(TfrmBaseInput)

17
E01梭织生产计划/U_TatPlanMachInput.pas
View File

@ -11,22 +11,7 @@ uses
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxContainer, cxMaskEdit, dxDateRanges,
dxScrollbarAnnotations, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatPlanMachInput = class(TForm)

17
E01梭织生产计划/U_TatPlanMachList.pas
View File

@ -14,22 +14,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations, dxCore, cxDateUtils, cxMaskEdit, cxCalendar,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxImage, cxDBEdit, IdFTP,
ShellAPI,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
ShellAPI, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatPlanMachList = class(TfrmBaseList)

39
E02梭织经轴仓库/U_DataLink.pas
View File

@ -5,41 +5,10 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList,
U_BaseDataLink, dxCore,
cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm,
dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI,
dxSkinOffice2013White,
dxSkinSharpPlus,
;
System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList,
cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinOffice2013White,
dxSkinSharpPlus;
type
TMyThread = class(TThread)

130
E02梭织经轴仓库/U_TatWBCardInPut.dfm
View File

@ -702,8 +702,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -4
object Label15: TLabel
Left = 277
Left = 237
Top = 18
Width = 64
Height = 21
@ -733,7 +734,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentColor = False
end
object Label5: TLabel
Left = 277
Left = 237
Top = 57
Width = 96
Height = 21
@ -782,42 +783,35 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Caption = #22987#21514#20301#32622
end
object Label18: TLabel
Left = 277
Top = 137
Left = 237
Top = 136
Width = 64
Height = 21
Caption = #19978#25490#39063#25968
end
object Label19: TLabel
Left = 277
Top = 176
Left = 237
Top = 175
Width = 32
Height = 21
Caption = #38646#22836
end
object Label20: TLabel
Left = 277
Top = 215
Width = 64
Height = 21
Caption = #29301#32463#31576#21495
end
object Label22: TLabel
Left = 277
Top = 254
Left = 237
Top = 253
Width = 64
Height = 21
Caption = #22369#26012#24230#25968
end
object Label23: TLabel
Left = 277
Top = 292
Left = 237
Top = 293
Width = 96
Height = 21
Caption = #29301#32463#24352#21147#21442#25968
end
object Label37: TLabel
Left = 277
Left = 237
Top = 332
Width = 32
Height = 21
@ -831,12 +825,26 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Caption = #32455#36896#21333#21495
end
object Label47: TLabel
Left = 277
Top = 95
Left = 237
Top = 97
Width = 32
Height = 21
Caption = #23458#25143
end
object Label20: TLabel
Left = 403
Top = 209
Width = 64
Height = 21
Caption = #29301#32463#31576#21495
end
object Label39: TLabel
Left = 237
Top = 214
Width = 64
Height = 21
Caption = #38050#31576#32534#21495
end
object WBCNO: TcxTextEdit
Tag = 1
Left = 106
@ -844,11 +852,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentColor = True
Properties.ReadOnly = True
TabOrder = 0
Width = 150
Width = 120
end
object WB_Type: TcxComboBox
Tag = 1
Left = 379
Left = 338
Top = 12
Properties.Items.Strings = (
#22823#36135
@ -870,11 +878,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
Width = 150
Width = 120
end
object WB_Name: TcxTextEdit
Tag = 1
Left = 379
Left = 338
Top = 51
ParentColor = True
TabOrder = 3
@ -886,7 +894,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 131
ParentColor = True
TabOrder = 4
Width = 150
Width = 120
end
object WB_Move: TcxTextEdit
Tag = 1
@ -894,7 +902,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 326
ParentColor = True
TabOrder = 5
Width = 150
Width = 120
end
object WB_ReedNote: TcxTextEdit
Tag = 1
@ -902,7 +910,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 248
ParentColor = True
TabOrder = 6
Width = 150
Width = 120
end
object WB_YarnStripQty: TcxTextEdit
Tag = 1
@ -910,7 +918,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 170
ParentColor = True
TabOrder = 7
Width = 150
Width = 120
end
object WB_Width: TcxTextEdit
Tag = 1
@ -918,7 +926,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 209
ParentColor = True
TabOrder = 8
Width = 150
Width = 120
end
object WB_Arg_SDWZ: TcxTextEdit
Tag = 1
@ -926,11 +934,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 287
ParentColor = True
TabOrder = 9
Width = 150
Width = 120
end
object WB_YarnArr: TcxTextEdit
Tag = 1
Left = 379
Left = 338
Top = 131
ParentColor = True
TabOrder = 10
@ -938,41 +946,33 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end
object WB_YarnStripRemainder: TcxTextEdit
Tag = 1
Left = 379
Left = 338
Top = 170
ParentColor = True
TabOrder = 11
Width = 150
end
object WB_ReedNo: TcxTextEdit
object WB_Arg_PXDS: TcxTextEdit
Tag = 1
Left = 379
Top = 209
Left = 337
Top = 248
ParentColor = True
TabOrder = 12
Width = 150
end
object WB_Arg_PXDS: TcxTextEdit
Tag = 1
Left = 379
Top = 248
ParentColor = True
TabOrder = 13
Width = 150
end
object WB_Arg_QJZL: TcxTextEdit
Tag = 1
Left = 379
Left = 337
Top = 287
ParentColor = True
TabOrder = 14
TabOrder = 13
Width = 150
end
object WB_YarnArrNote: TcxMemo
Tag = 1
Left = 106
Top = 363
TabOrder = 15
TabOrder = 14
Height = 111
Width = 423
end
@ -982,7 +982,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Width = 542
Height = 240
Align = alBottom
TabOrder = 16
TabOrder = 15
ExplicitLeft = -1
ExplicitTop = 529
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1170,10 +1172,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end
object WB_YarnDensity: TcxTextEdit
Tag = 1
Left = 379
Left = 337
Top = 326
ParentColor = True
TabOrder = 17
TabOrder = 16
Width = 150
end
object GYNo: TcxButtonEdit
@ -1188,13 +1190,13 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = GYNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 18
TabOrder = 17
OnDblClick = GYNoDblClick
Width = 150
Width = 120
end
object CustName: TcxButtonEdit
Tag = 1
Left = 379
Left = 338
Top = 92
Properties.Buttons = <
item
@ -1204,10 +1206,32 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 19
TabOrder = 18
OnDblClick = GYNoDblClick
Width = 150
end
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 473
Top = 206
ParentColor = True
Properties.ReadOnly = True
TabOrder = 19
Width = 65
end
object GKBH: TcxButtonEdit
Tag = 2
Left = 308
Top = 206
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = GKBHPropertiesButtonClick
TabOrder = 20
Width = 89
end
end
end
inherited ADOQueryBaseCmd: TADOQuery

60
E02梭织经轴仓库/U_TatWBCardInPut.pas
View File

@ -13,23 +13,8 @@ uses
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatWBCardInPut = class(TfrmBaseInput)
@ -87,12 +72,10 @@ type
WB_Arg_SDWZ: TcxTextEdit;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label22: TLabel;
Label23: TLabel;
WB_YarnArr: TcxTextEdit;
WB_YarnStripRemainder: TcxTextEdit;
WB_ReedNo: TcxTextEdit;
WB_Arg_PXDS: TcxTextEdit;
WB_Arg_QJZL: TcxTextEdit;
WB_YarnArrNote: TcxMemo;
@ -174,6 +157,10 @@ type
GYNo: TcxButtonEdit;
Label47: TLabel;
CustName: TcxButtonEdit;
Label20: TLabel;
Label39: TLabel;
WB_ReedNo: TcxTextEdit;
GKBH: TcxButtonEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -195,6 +182,7 @@ type
procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure GYNoDblClick(Sender: TObject);
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
function TestData(): Boolean;
procedure PrtDate(MWBCID: string);
@ -205,6 +193,7 @@ type
{ Private declarations }
public
FWBCNO: string;
{ Public declarations }
end;
@ -215,7 +204,8 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel,
U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_TatPlanSel2;
U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_GKManageSel,
U_TatPlanSel2;
{$R *.dfm} procedure TfrmTatWBCardInPut.InitCard3();
begin
@ -263,7 +253,7 @@ begin
if Trim(WB_ProcessType.Text) = '本厂整经' then
begin
if Trim(WB_Macher.Text) = '' then
raise Exception.Create('扦经工位不能为空！');
raise Exception.Create('扦经工位不能为空！');
end;
if trim(WB_Code.Text) = '' then
raise Exception.Create('经编号不能为空！');
@ -285,7 +275,7 @@ begin
if Trim(WB_ProcessType.Text) = '本厂整经' then
begin
if Trim(WB_MachNo.Text) = '' then
raise Exception.Create('迁经机不能为空！');
raise Exception.Create('迁经机不能为空！');
end;
if Trim(WB_YarnDensity.Text) = '' then
raise Exception.Create('经密不能为空！');
@ -410,6 +400,7 @@ begin
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
@ -428,6 +419,8 @@ begin
Self.WB_YarnArrNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.InitCard3();
end;
end;
@ -515,6 +508,24 @@ begin
InitCard3();
end;
procedure TfrmTatWBCardInPut.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmGKManageSel := tfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
if ShowModal = 1 then
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
end;
end;
finally
frmGKManageSel.Free;
end;
end;
procedure TfrmTatWBCardInPut.GYNoDblClick(Sender: TObject);
begin
inherited;
@ -529,6 +540,7 @@ begin
frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
with frmTatPlanSel2 do
begin
FISSJ := '否';
if ShowModal = 1 then
begin
Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
@ -618,7 +630,7 @@ begin
////////////////// 插入轴卡 //////////////////////
sql.Add(' insert into Tat_WB_Card(WBCNO,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YarnArr,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler,WB_YarnDensity');
sql.Add(' ,WB_YarnStripQty,WB_YarnStripRemainder,WB_Width,WB_ReedNo,WB_ReedNote,WB_Arg_PXDS,WB_Arg_SDWZ,WB_Arg_QJZL,WB_Move,WB_YarnArrNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName ');
sql.Add(' ,GYSubid,GYNo,CustNo,CustName');
sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH');
sql.Add(' ) values');
for i := 1 to MCardQty do
begin
@ -667,7 +679,7 @@ begin
sql.Add(',' + Quotedstr(Trim(GYNo.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Text)));
sql.Add(',' + Quotedstr(Trim(GKBH.Text)));
sql.Add(' )');
end;
////////////////// 插入轴卡 //////////////////////

18
E02梭织经轴仓库/U_TatWBOutputList.pas
View File

@ -14,23 +14,7 @@ uses
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations, FrameDateTimeSel, cxContainer, cxTextEdit, U_SLTGDTP,
cxMemo, Vcl.Imaging.jpeg, cxPC, dxSkinsCore, dxSkinsDefaultPainters,
cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatWBOutputList = class(TfrmBaseList)

18
E02梭织经轴仓库/U_TatWBOutputList_CZ.pas
View File

@ -14,23 +14,7 @@ uses
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus,
dxScrollbarAnnotations, FrameDateTimeSel, cxContainer, cxTextEdit, U_SLTGDTP,
cxMemo, Vcl.Imaging.jpeg, cxPC, dxSkinsCore, dxSkinsDefaultPainters,
cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatWBOutputList_CZ = class(TfrmBaseList)

6
E02梭织经轴仓库/U_TatWBPlan.dfm
View File

@ -202,7 +202,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 29
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
Time = 0.464761099538009200
TabOrder = 1
end
object CustName: TEdit
@ -715,6 +715,10 @@ inherited frmTatWBPlan: TfrmTatWBPlan
end
end
inherited cxProgressBar2: TcxProgressBar
Left = 280
Top = 224
ExplicitLeft = 280
ExplicitTop = 224
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

19
E02梭织经轴仓库/U_TatWBPlan.pas
View File

@ -12,23 +12,8 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatWBPlan = class(TfrmBaseList)

10
E02梭织经轴仓库/U_TatWBPlanCard.dfm
View File

@ -6,7 +6,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
ClientWidth = 1382
Font.Height = -16
Position = poScreenCenter
ExplicitTop = -114
ExplicitWidth = 1398
ExplicitHeight = 739
PixelsPerInch = 96
@ -196,6 +195,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alLeft
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 119
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -390,6 +391,13 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
HeaderAlignmentHorz = taCenter
Width = 150
end
object TV1Column3: TcxGridDBColumn
Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'gkbh'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1

20
E02梭织经轴仓库/U_TatWBPlanCard.pas
View File

@ -13,23 +13,8 @@ uses
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, cxContainer,
dxScrollbarAnnotations, cxMemo, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmTatWBPlanCard = class(TfrmBaseList)
@ -167,6 +152,7 @@ type
TV1Column2: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
ToolButton4: TToolButton;
TV1Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

19
E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
View File

@ -12,23 +12,8 @@ uses
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, dxSkinsCore,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinsDefaultPainters,
dxSkinWXI, ;
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmTatWBPlanCardInPut = class(TfrmBaseInput)

403
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
View File

@ -2,14 +2,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 212
Top = 14
Caption = #27974#32433#35745#21010#24405#20837
ClientHeight = 541
ClientHeight = 616
ClientWidth = 952
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitWidth = 968
ExplicitHeight = 580
ExplicitHeight = 655
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -61,16 +61,18 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object Panel2: TPanel [1]
Left = 0
Top = 192
Top = 353
Width = 952
Height = 349
Height = 263
Align = alClient
TabOrder = 1
ExplicitTop = 192
ExplicitHeight = 349
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
Width = 950
Height = 306
Height = 220
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -85,7 +87,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 306
ExplicitHeight = 306
ClientRectBottom = 220
ClientRectRight = 950
ClientRectTop = 0
end
@ -93,7 +96,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 1
Top = 42
Width = 950
Height = 306
Height = 220
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -102,6 +105,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitHeight = 306
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -269,7 +273,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 0
Top = 38
Width = 952
Height = 154
Height = 315
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -282,12 +286,13 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 2
ExplicitTop = 41
object Label3: TLabel
Left = 12
Top = 29
Width = 67
Left = 639
Top = 7
Width = 39
Height = 12
Caption = #21697' '#21517#65306
Caption = #21697#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -296,24 +301,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label14: TLabel
Left = 14
Top = 6
Width = 65
Left = 1
Top = 83
Width = 91
Height = 12
Caption = #20844#21496#25260#22836#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 470
Top = 6
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Caption = #25972#32463#24037#33402#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -322,11 +314,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label16: TLabel
Left = 12
Top = 72
Width = 67
Left = 1
Top = 232
Width = 39
Height = 12
Caption = #22791' '#27880#65306
Caption = #22791#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -335,24 +327,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label47: TLabel
Left = 238
Top = 6
Width = 67
Left = 435
Top = 9
Width = 39
Height = 12
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 240
Top = 29
Width = 65
Height = 12
Caption = #24635#32463#26681#25968#65306
Caption = #23458#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -361,11 +340,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label2: TLabel
Left = 431
Top = 29
Width = 104
Left = 1
Top = 46
Width = 78
Height = 12
Caption = #23458#25143#19979#21333#24635#31859#25968#65306
Caption = #35746#21333#24635#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -374,11 +353,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label4: TLabel
Left = 1
Top = 53
Width = 78
Left = 219
Top = 162
Width = 65
Height = 12
Caption = #39044#35745#32463#36724#25968#65306
Caption = #35745#21010#36724#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -387,37 +366,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label6: TLabel
Left = 201
Top = 53
Width = 104
Height = 12
Caption = #39044#35745#27599#32463#36724#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 444
Top = 53
Left = 1
Top = 158
Width = 91
Height = 12
Caption = #39044#35745#29992#27974#25104#26412#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 683
Top = 6
Width = 91
Height = 12
Caption = #27974#32433#25490#21333#31859#25968#65306
Caption = #35745#21010#32463#36724#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -426,11 +379,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label9: TLabel
Left = 696
Top = 29
Left = 435
Top = 195
Width = 78
Height = 12
Caption = #39044#35745#27974#36724#25968#65306
Caption = #35745#21010#27974#36724#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -439,11 +392,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label10: TLabel
Left = 696
Top = 53
Left = 1
Top = 196
Width = 78
Height = 12
Caption = #27599#27974#36724#26681#25968#65306
Caption = #27974#36724#32433#26681#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -452,11 +405,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label11: TLabel
Left = 696
Top = 76
Width = 78
Left = 219
Top = 196
Width = 91
Height = 12
Caption = #27599#27974#36724#31859#25968#65306
Caption = #35745#21010#27974#36724#31859#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -464,12 +417,90 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 735
Top = 99
object Label13: TLabel
Left = 1
Top = 8
Width = 65
Height = 12
Caption = #27974#32433#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 219
Top = 8
Width = 65
Height = 12
Caption = #32455#36896#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 219
Top = 85
Width = 91
Height = 12
Caption = #25972#32463#24037#33402#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 435
Top = 85
Width = 52
Height = 12
Caption = #24635#22836#20221#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 639
Top = 85
Width = 65
Height = 12
Caption = #19978#26426#38376#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 1
Top = 121
Width = 65
Height = 12
Caption = #38050#31576#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 219
Top = 125
Width = 39
Height = 12
Caption = #36724#38271#65306
Caption = #31576#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
@ -477,21 +508,35 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object DlyDate: TDateTimePicker
Left = 532
Top = 2
Width = 120
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 2
object Label23: TLabel
Left = 435
Top = 125
Width = 65
Height = 12
Caption = #31359#31576#20837#27861#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 639
Top = 125
Width = 39
Height = 12
Caption = #32463#23494#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrdNote: TRichEdit
Left = 81
Top = 72
Left = 90
Top = 230
Width = 571
Height = 66
Font.Charset = GB2312_CHARSET
@ -505,113 +550,154 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress
end
object WB_Spec: TEdit
Left = 81
Top = 26
Left = 712
Top = 5
Width = 120
Height = 18
TabOrder = 0
OnKeyPress = ConNoKeyPress
end
object CustName: TBtnEditC
Left = 301
Top = 2
Left = 508
Top = 3
Width = 120
Height = 20
ReadOnly = True
TabOrder = 2
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object WB_Code: TBtnEditC
Left = 90
Top = 79
Width = 120
Height = 20
ReadOnly = True
TabOrder = 3
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object OurCoName: TBtnEditC
Left = 81
Top = 2
object WB_YarnTotalLen: TEdit
Left = 90
Top = 42
Width = 120
Height = 20
ReadOnly = True
Height = 18
TabOrder = 4
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
OnKeyPress = ConNoKeyPress
end
object WB_YarnQty: TEdit
Left = 301
Top = 25
object WB_Qty: TEdit
Left = 305
Top = 156
Width = 120
Height = 18
TabOrder = 5
OnKeyPress = ConNoKeyPress
end
object WB_YarnTotalLen: TEdit
Left = 532
Top = 26
object WB_YarnLen: TEdit
Left = 90
Top = 156
Width = 120
Height = 18
TabOrder = 6
OnKeyPress = ConNoKeyPress
end
object WB_Qty: TEdit
Left = 81
Top = 50
object WB_Qty_YJJZZS: TEdit
Left = 508
Top = 191
Width = 120
Height = 18
TabOrder = 7
OnKeyPress = ConNoKeyPress
end
object WB_YarnLen: TEdit
Left = 301
Top = 50
object WB_Qty_YJMJZGS: TEdit
Left = 90
Top = 193
Width = 120
Height = 18
TabOrder = 8
OnKeyPress = ConNoKeyPress
end
object SizingAgentCost: TEdit
Left = 532
Top = 50
object WB_Qty_YJMJZMS: TEdit
Left = 305
Top = 193
Width = 120
Height = 18
TabOrder = 9
OnKeyPress = ConNoKeyPress
end
object WB_Qty_JSPDMS: TEdit
Left = 771
Top = 3
object TWPNo: TEdit
Left = 90
Top = 5
Width = 120
Height = 18
TabOrder = 10
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJJZZS: TEdit
Left = 770
Top = 26
object WB_Name: TEdit
Left = 305
Top = 82
Width = 120
Height = 18
TabOrder = 11
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZGS: TEdit
Left = 771
Top = 50
object WB_YarnQty: TEdit
Left = 508
Top = 82
Width = 120
Height = 18
TabOrder = 12
OnKeyPress = ConNoKeyPress
end
object WB_Qty_YJMJZMS: TEdit
Left = 771
Top = 73
object WB_Width: TEdit
Left = 712
Top = 82
Width = 120
Height = 18
TabOrder = 13
OnKeyPress = ConNoKeyPress
end
object WB_Len: TEdit
Left = 771
Top = 96
object gkbh: TBtnEditC
Left = 90
Top = 117
Width = 120
Height = 20
ReadOnly = True
TabOrder = 14
OnBtnDnClick = CustNameBtnDnClick
end
object WB_ReedNo: TEdit
Left = 305
Top = 119
Width = 120
Height = 18
TabOrder = 14
TabOrder = 15
OnKeyPress = ConNoKeyPress
end
object WB_ReedNote: TEdit
Left = 508
Top = 119
Width = 120
Height = 18
TabOrder = 16
OnKeyPress = ConNoKeyPress
end
object WB_YarnDensity: TEdit
Left = 712
Top = 122
Width = 120
Height = 18
TabOrder = 17
OnKeyPress = ConNoKeyPress
end
object gyno: TBtnEditC
Left = 305
Top = 3
Width = 120
Height = 20
ReadOnly = True
TabOrder = 18
OnBtnDnClick = CustNameBtnDnClick
end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 1185
@ -627,6 +713,9 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 760
Top = 249
DesignInfo = 16319224
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink

72
E02梭织经轴仓库/U_TatWBPlanInPut.pas
View File

@ -12,23 +12,8 @@ uses
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges,
U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations,
cxImageList, dxSkinsCore,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinsDefaultPainters,
dxSkinWXI, ;
cxImageList, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmTatWBPlanInPut = class(TfrmBaseInput)
@ -59,34 +44,42 @@ type
ScrollBox1: TScrollBox;
Label3: TLabel;
Label14: TLabel;
Label5: TLabel;
Label16: TLabel;
Label47: TLabel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DlyDate: TDateTimePicker;
OrdNote: TRichEdit;
WB_Spec: TEdit;
CustName: TBtnEditC;
OurCoName: TBtnEditC;
WB_YarnQty: TEdit;
WB_Code: TBtnEditC;
WB_YarnTotalLen: TEdit;
WB_Qty: TEdit;
WB_YarnLen: TEdit;
SizingAgentCost: TEdit;
WB_Qty_JSPDMS: TEdit;
WB_Qty_YJJZZS: TEdit;
WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit;
WB_Len: TEdit;
Label13: TLabel;
TWPNo: TEdit;
Label15: TLabel;
Label17: TLabel;
WB_Name: TEdit;
Label18: TLabel;
WB_YarnQty: TEdit;
Label19: TLabel;
WB_Width: TEdit;
Label20: TLabel;
gkbh: TBtnEditC;
Label22: TLabel;
WB_ReedNo: TEdit;
Label23: TLabel;
WB_ReedNote: TEdit;
Label24: TLabel;
WB_YarnDensity: TEdit;
gyno: TBtnEditC;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -95,7 +88,7 @@ type
procedure MCTypeBtnUpClick(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
@ -341,27 +334,6 @@ begin
CDS_1.Delete;
end;
procedure TfrmTatWBPlanInPut.OurCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := 'ÎÒ˾';
if ShowModal = 1 then
begin
OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
// FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then

16
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -7,6 +7,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Color = clWhite
Font.Height = -16
Position = poMainFormCenter
ExplicitTop = -5
ExplicitWidth = 1131
ExplicitHeight = 902
PixelsPerInch = 96
@ -18,6 +19,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 408
Align = alClient
TabOrder = 0
ExplicitTop = 461
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -149,6 +151,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 100
end
@ -163,6 +167,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 72
end
@ -170,10 +176,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 102
end
object Tv1Column9: TcxGridDBColumn
Caption = #31859#29992#37327
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
@ -408,6 +423,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 113
Top = 44
ParentColor = True
Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged
TabOrder = 1
Width = 200
end

156
E02梭织经轴仓库/U_WBSpecInPut.pas
View File

@ -12,23 +12,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
cxMaskEdit;
dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, cxMaskEdit;
type
TfrmWBSpecInPut = class(TfrmBaseInput)
@ -104,6 +89,7 @@ type
Tv1Column8: TcxGridDBColumn;
Label19: TLabel;
GKBH: TcxButtonEdit;
Tv1Column9: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -115,9 +101,12 @@ type
procedure btn1Click(Sender: TObject);
procedure GYNoDblClick(Sender: TObject);
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
procedure JSJS(); //计算经丝
public
{ Public declarations }
FWBSID, FSTKName: string;
@ -133,6 +122,70 @@ uses
U_CompanySel, U_GKManageSel;
{$R *.dfm}
procedure TfrmWBSpecInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
begin
if CDS_SUB.IsEmpty then
exit;
with CDS_SUB do
begin
DisableControls;
first;
while not eof do
begin
with CDS_SUB do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(WB_Width.text, 0); //筘幅
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
if FieldByName('TestDenier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
end;
WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
with CDS_SUB do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin
@ -584,5 +637,74 @@ begin
end;
end;
procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_SUB do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
// if FieldByName('SH').Value = null then
// begin
// SUNHAO := 0; //损耗
// end
// else
// begin
// SUNHAO := FieldByName('SH').Value; //损耗
// end;
if FieldByName('Denier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('Denier').Value; //D数
end;
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
end;
if ZGS <> 0 then
begin
with CDS_SUB do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
end;
procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
begin
JSJS();
end;
end.

19
E02梭织经轴仓库/U_WBSpecList.pas
View File

@ -13,23 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMemo,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmWBSpecList = class(TfrmBaseList)

19
E02梭织经轴仓库/U_WarpBeamInfoList.pas
View File

@ -13,23 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
TfrmWarpBeamInfoList = class(TfrmBaseList)

28
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -125,19 +125,19 @@
<File Path="U_WBTypeSel.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
</Transactions>
</BorlandProject>

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.identcache
View File

Binary file not shown.

17
T00贸易通用窗体/U_TradeSalesContractSel.pas
View File

@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxPC,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTradeSalesContractSel = class(TfrmBaseHelp)