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, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxContainer, cxMaskEdit, cxMemo, cxImageList, dxSkinsCore, cxContainer, cxMaskEdit, cxMemo, cxImageList, dxSkinsCore,
dxSkinsDefaultPainters, dxCore, cxDateUtils, dxSkinsDefaultPainters, dxCore, cxDateUtils, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmYarnInfoInPut = class(TfrmBaseInput) TfrmYarnInfoInPut = class(TfrmBaseInput)

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

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

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

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

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

@ -11,23 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations, System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, cxPC;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
cxPC;
type type
TfrmTatPlanSel2 = class(TfrmBaseHelp) TfrmTatPlanSel2 = class(TfrmBaseHelp)
@ -88,6 +73,7 @@ type
{ Private declarations } { Private declarations }
public public
FCoType, FAuthority: string; FCoType, FAuthority: string;
FISSJ: string;
{ Public declarations } { Public declarations }
end; end;
@ -146,9 +132,16 @@ begin
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); 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(',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(',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(' 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 isnull(A.status,''0'')=''9'' ');
sql.add('where 1=1'); 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 case cxTabControl1.TabIndex of
0: 0:
begin begin

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

@ -1,76 +1,76 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.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.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.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.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</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.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.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.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.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.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.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.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.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.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</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.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.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.422,=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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</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.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.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.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <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 Height = 349
Width = 482 Width = 482
inherited cxEditStyleController1: TcxEditStyleController inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
PixelsPerInch = 96 PixelsPerInch = 96
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList

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

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

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

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

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

@ -20,23 +20,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmTatGYInPut = class(TfrmBaseInput) TfrmTatGYInPut = class(TfrmBaseInput)
@ -1742,14 +1727,11 @@ begin
self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString); self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString);
self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString); self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString);
self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString); self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').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_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').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); 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, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations, dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations,
cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore, cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmTatPlanCard1 = class(TfrmBaseList) TfrmTatPlanCard1 = class(TfrmBaseList)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -202,7 +202,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 29 Height = 29
Date = 40675.000000000000000000 Date = 40675.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 0.464761099538009100 Time = 0.464761099538009200
TabOrder = 1 TabOrder = 1
end end
object CustName: TEdit object CustName: TEdit
@ -715,6 +715,10 @@ inherited frmTatWBPlan: TfrmTatWBPlan
end end
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 280
Top = 224
ExplicitLeft = 280
ExplicitTop = 224
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery 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, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer, cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmTatWBPlan = class(TfrmBaseList) TfrmTatWBPlan = class(TfrmBaseList)

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

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

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

@ -13,23 +13,8 @@ uses
BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, cxContainer, dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, cxContainer,
dxScrollbarAnnotations, cxMemo, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxMemo, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmTatWBPlanCard = class(TfrmBaseList) TfrmTatWBPlanCard = class(TfrmBaseList)
@ -167,6 +152,7 @@ type
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
ToolButton4: TToolButton; ToolButton4: TToolButton;
TV1Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(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, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinsDefaultPainters,
dxSkinWXI, ;
type type
TfrmTatWBPlanCardInPut = class(TfrmBaseInput) TfrmTatWBPlanCardInPut = class(TfrmBaseInput)

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

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

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

@ -12,23 +12,8 @@ uses
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges,
U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations,
cxImageList, dxSkinsCore, cxImageList, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinsDefaultPainters, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinsDefaultPainters,
dxSkinWXI, ;
type type
TfrmTatWBPlanInPut = class(TfrmBaseInput) TfrmTatWBPlanInPut = class(TfrmBaseInput)
@ -59,34 +44,42 @@ type
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label3: TLabel; Label3: TLabel;
Label14: TLabel; Label14: TLabel;
Label5: TLabel;
Label16: TLabel; Label16: TLabel;
Label47: TLabel; Label47: TLabel;
Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel; Label9: TLabel;
Label10: TLabel; Label10: TLabel;
Label11: TLabel; Label11: TLabel;
Label12: TLabel;
DlyDate: TDateTimePicker;
OrdNote: TRichEdit; OrdNote: TRichEdit;
WB_Spec: TEdit; WB_Spec: TEdit;
CustName: TBtnEditC; CustName: TBtnEditC;
OurCoName: TBtnEditC; WB_Code: TBtnEditC;
WB_YarnQty: TEdit;
WB_YarnTotalLen: TEdit; WB_YarnTotalLen: TEdit;
WB_Qty: TEdit; WB_Qty: TEdit;
WB_YarnLen: TEdit; WB_YarnLen: TEdit;
SizingAgentCost: TEdit;
WB_Qty_JSPDMS: TEdit;
WB_Qty_YJJZZS: TEdit; WB_Qty_YJJZZS: TEdit;
WB_Qty_YJMJZGS: TEdit; WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: 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 TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -95,7 +88,7 @@ type
procedure MCTypeBtnUpClick(Sender: TObject); procedure MCTypeBtnUpClick(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject); procedure CustNameBtnUpClick(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject); procedure CustNameBtnDnClick(Sender: TObject);
procedure OurCoNameBtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
private private
@ -341,27 +334,6 @@ begin
CDS_1.Delete; CDS_1.Delete;
end; 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); procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then

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

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

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

@ -12,23 +12,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore, cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxImageList, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, cxMaskEdit;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
cxMaskEdit;
type type
TfrmWBSpecInPut = class(TfrmBaseInput) TfrmWBSpecInPut = class(TfrmBaseInput)
@ -104,6 +89,7 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Label19: TLabel; Label19: TLabel;
GKBH: TcxButtonEdit; GKBH: TcxButtonEdit;
Tv1Column9: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -115,9 +101,12 @@ type
procedure btn1Click(Sender: TObject); procedure btn1Click(Sender: TObject);
procedure GYNoDblClick(Sender: TObject); procedure GYNoDblClick(Sender: TObject);
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
procedure JSJS(); //计算经丝
public public
{ Public declarations } { Public declarations }
FWBSID, FSTKName: string; FWBSID, FSTKName: string;
@ -133,6 +122,70 @@ uses
U_CompanySel, U_GKManageSel; U_CompanySel, U_GKManageSel;
{$R *.dfm} {$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); procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin begin
@ -584,5 +637,74 @@ begin
end; end;
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. end.

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

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

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

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

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

@ -125,19 +125,19 @@
<File Path="U_WBTypeSel.dfm"/> <File Path="U_WBTypeSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <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.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.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</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\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</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.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.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.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.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.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_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</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.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.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.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </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, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxPC, Vcl.Menus, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxPC,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmTradeSalesContractSel = class(TfrmBaseHelp) TfrmTradeSalesContractSel = class(TfrmBaseHelp)