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

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-01 13:51:41 +08:00
parent ee19d91d14
commit ba25bf1423
36 changed files with 203 additions and 138 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\淃커덜쯤\냈료\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe HostApplication=D:\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

4
坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm
View File

@ -1,8 +1,8 @@
object DataLink_PBMDDJ: TDataLink_PBMDDJ object DataLink_PBMDDJ: TDataLink_PBMDDJ
OldCreateOrder = False OldCreateOrder = False
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Left = 343 Left = 459
Top = 231 Top = 278
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

12
坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm
View File

@ -1,6 +1,6 @@
object frmPBCKKCList: TfrmPBCKKCList object frmPBCKKCList: TfrmPBCKKCList
Left = 276 Left = 463
Top = 165 Top = 374
Width = 1181 Width = 1181
Height = 511 Height = 511
Caption = #22383#24067#24211#23384#21015#34920 Caption = #22383#24067#24211#23384#21015#34920
@ -20,7 +20,7 @@ object frmPBCKKCList: TfrmPBCKKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1165 Width = 1173
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -91,7 +91,7 @@ object frmPBCKKCList: TfrmPBCKKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1165 Width = 1173
Height = 60 Height = 60
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -166,8 +166,8 @@ object frmPBCKKCList: TfrmPBCKKCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1165 Width = 1173
Height = 379 Height = 387
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2

4
坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderListSel: TfrmProductOrderListSel object frmProductOrderListSel: TfrmProductOrderListSel
Left = 242 Left = 597
Top = 66 Top = 578
Width = 1209 Width = 1209
Height = 674 Height = 674
Caption = #29983#20135#25351#31034#21333#36873#25321 Caption = #29983#20135#25351#31034#21333#36873#25321

17
坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKInPut: TfrmSXCKInPut object frmSXCKInPut: TfrmSXCKInPut
Left = 229 Left = 641
Top = 209 Top = 608
Width = 1283 Width = 1283
Height = 502 Height = 502
Align = alClient Align = alClient
@ -20,8 +20,8 @@ object frmSXCKInPut: TfrmSXCKInPut
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1267 Width = 1275
Height = 430 Height = 438
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -238,6 +238,13 @@ object frmSXCKInPut: TfrmSXCKInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object Tv1Column2: TcxGridDBColumn
Tag = 2
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -246,7 +253,7 @@ object frmSXCKInPut: TfrmSXCKInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1267 Width = 1275
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59

4
坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas
View File

@ -56,6 +56,7 @@ type
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: 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);
@ -722,6 +723,9 @@ begin
FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('P_MF').AsString); FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('P_MF').AsString);
FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('P_KZ').AsString); FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('P_KZ').AsString);
FieldByName('BatchNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('BatchNo').AsString);
end; end;
end; end;
end; end;

19
坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKKCSelList: TfrmSXCKKCSelList object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 198 Left = 649
Top = 125 Top = 589
Width = 1181 Width = 1181
Height = 511 Height = 511
Align = alClient Align = alClient
@ -21,7 +21,7 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1165 Width = 1173
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -76,7 +76,7 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1165 Width = 1173
Height = 60 Height = 60
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -239,8 +239,8 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1165 Width = 1173
Height = 379 Height = 387
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
@ -475,9 +475,16 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object Tv1Column2: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

1
坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas
View File

@ -92,6 +92,7 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
CustomerNoName: TEdit; CustomerNoName: TEdit;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

18
坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKNewList: TfrmSXCKNewList object frmSXCKNewList: TfrmSXCKNewList
Left = 247 Left = 585
Top = 159 Top = 665
Width = 1335 Width = 1335
Height = 511 Height = 511
Caption = #22383#24067#20837#24211#21015#34920 Caption = #22383#24067#20837#24211#21015#34920
@ -21,7 +21,7 @@ object frmSXCKNewList: TfrmSXCKNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1319 Width = 1327
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -107,7 +107,7 @@ object frmSXCKNewList: TfrmSXCKNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1319 Width = 1327
Height = 72 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -198,8 +198,8 @@ object frmSXCKNewList: TfrmSXCKNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1319 Width = 1327
Height = 367 Height = 375
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -384,6 +384,12 @@ object frmSXCKNewList: TfrmSXCKNewList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object Tv1Column2: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

1
坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas
View File

@ -83,6 +83,7 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
CustomerNoName: TEdit; CustomerNoName: TEdit;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

24
坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKOutList: TfrmSXCKOutList object frmSXCKOutList: TfrmSXCKOutList
Left = 147 Left = 612
Top = 136 Top = 524
Width = 1314 Width = 1314
Height = 572 Height = 572
Caption = #22383#24067#20986#24211#21015#34920 Caption = #22383#24067#20986#24211#21015#34920
@ -21,7 +21,7 @@ object frmSXCKOutList: TfrmSXCKOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1298 Width = 1306
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -151,7 +151,7 @@ object frmSXCKOutList: TfrmSXCKOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1298 Width = 1306
Height = 72 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -334,8 +334,8 @@ object frmSXCKOutList: TfrmSXCKOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1081 Width = 1089
Height = 428 Height = 436
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -612,16 +612,22 @@ object frmSXCKOutList: TfrmSXCKOutList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object Tv1Column8: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 1081 Left = 1089
Top = 105 Top = 105
Width = 217 Width = 217
Height = 428 Height = 436
Align = alRight Align = alRight
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 3 TabOrder = 3
@ -629,7 +635,7 @@ object frmSXCKOutList: TfrmSXCKOutList
Left = 1 Left = 1
Top = 1 Top = 1
Width = 215 Width = 215
Height = 426 Height = 434
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView

1
坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas
View File

@ -121,6 +121,7 @@ type
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

19
坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm
View File

@ -1,8 +1,8 @@
object frmSXCKOutPut: TfrmSXCKOutPut object frmSXCKOutPut: TfrmSXCKOutPut
Left = 167 Left = 657
Top = 162 Top = 566
Width = 1215 Width = 1215
Height = 502 Height = 489
Align = alClient Align = alClient
Caption = #22383#24067#20986#24211 Caption = #22383#24067#20986#24211
Color = clBtnFace Color = clBtnFace
@ -20,7 +20,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1199 Width = 1207
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -82,8 +82,8 @@ object frmSXCKOutPut: TfrmSXCKOutPut
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1199 Width = 1207
Height = 430 Height = 425
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -337,6 +337,13 @@ object frmSXCKOutPut: TfrmSXCKOutPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object Tv1Column4: TcxGridDBColumn
Tag = 2
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

3
坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas
View File

@ -72,6 +72,7 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: 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);
@ -278,6 +279,8 @@ begin
FieldByName('PiQty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; FieldByName('PiQty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
FieldByName('Qty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; FieldByName('Qty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('FZSPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value; FieldByName('FZSPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value;
FieldByName('note').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('note').Value;
FieldByName('BatchNo').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('BatchNo').Value;
end; end;
frmSXCKKCSelList.CDS_Main.Delete; frmSXCKKCSelList.CDS_Main.Delete;
end; end;

4
布匹检验(FabricInspection.dll)/ProjectGroup1.bpg
View File

@ -14,10 +14,10 @@ PROJECTS = TradeManage.dll testDll.exe
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
TradeManage.dll: ..\..\..\Dp7Repo\项目代码\D7DJpingfeng\打卷检验管理\TradeManage.dpr TradeManage.dll: ..\..\..\Dp7Repo\项目代码\D7DJqianjing\检验管理\TradeManage.dpr
$(DCC) $(DCC)
testDll.exe: ..\..\..\Dp7Repo\项目代码\D7DJpingfeng\打卷检验管理\testDll.dpr testDll.exe: ..\..\..\Dp7Repo\项目代码\D7DJqianjing\检验管理\testDll.dpr
$(DCC) $(DCC)

4
布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.dfm
View File

@ -1,6 +1,6 @@
object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
Left = 474 Left = 447
Top = 293 Top = 334
Width = 1413 Width = 1413
Height = 719 Height = 719
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360

4
布匹检验(FabricInspection.dll)/U_DataLink.dfm
View File

@ -2,8 +2,8 @@ object DataLink_FabricInspection: TDataLink_FabricInspection
OldCreateOrder = False OldCreateOrder = False
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Left = 343 Left = 344
Top = 231 Top = 232
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

6
布匹检验(FabricInspection.dll)/U_GreyInspection.dfm
View File

@ -1,6 +1,6 @@
object frmGreyInspection: TfrmGreyInspection object frmGreyInspection: TfrmGreyInspection
Left = 450 Left = 658
Top = 348 Top = 388
Width = 1316 Width = 1316
Height = 755 Height = 755
Caption = #26797#32455#22383#24067#26816#39564 Caption = #26797#32455#22383#24067#26816#39564
@ -1242,7 +1242,7 @@ object frmGreyInspection: TfrmGreyInspection
end end
object Tv3Column6: TcxGridDBColumn object Tv3Column6: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'edZDFNo' DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end

8
布匹检验(FabricInspection.dll)/U_GreyInspection.pas
View File

@ -207,7 +207,7 @@ type
private private
{ Private declarations } { Private declarations }
FColumn, FFFMJID, FOperationStatus: string; FColumn, FFFMJID, FOperationStatus: string;
FAPID, FSPID, FMainId, FSubId, FMJCode, FPCID, FMJName, FMJSpec, FMJMF, FMJKZ, FMJColor, FAPBatchNo, FCarNo, FISJSKZ: string; // 产品信息 FAPID, FSPID, FMainId, FSubId, FMJCode, FPCID, FMJName, FMJSpec, FMJMF, FMJKZ, FMJColor, FAPBatchNo, FCarNo, FISJSKZ,FBatchNo: string; // 产品信息
FMF_Wai, FJSKZ, FKONGJIA, fkongjiawei: Double; FMF_Wai, FJSKZ, FKONGJIA, fkongjiawei: Double;
FCDName: string; //疵点名称 FCDName: string; //疵点名称
isCommopen, IsJsMessage: boolean; isCommopen, IsJsMessage: boolean;
@ -725,7 +725,7 @@ end;
procedure TfrmGreyInspection.ScanAnPai(); procedure TfrmGreyInspection.ScanAnPai();
var var
FAPXH, FCAPXH: string; FAPXH, FCAPXH, FBatchNO: string;
begin begin
with ADOTmp do with ADOTmp do
@ -739,7 +739,7 @@ begin
if not ADOTmp.IsEmpty then if not ADOTmp.IsEmpty then
begin begin
// FAPID := Trim(ADOTmp.fieldbyname('apid').AsString); // FAPID := Trim(ADOTmp.fieldbyname('apid').AsString);
FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString); FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString);
@ -1177,7 +1177,6 @@ begin
// SQL.Add(',p_name=(select P_CodeName from pd_plan_sub B WHERE B.SUBID=A.SUBID)'); // SQL.Add(',p_name=(select P_CodeName from pd_plan_sub B WHERE B.SUBID=A.SUBID)');
sql.Add(',JTH=(SELECT MACHNO FROM BS_Machine k where k.machid= (SELECT top 1 e.CarNo FROM CK_YgCl E where a.PCID =E.MJID and E.ClType'); sql.Add(',JTH=(SELECT MACHNO FROM BS_Machine k where k.machid= (SELECT top 1 e.CarNo FROM CK_YgCl E where a.PCID =E.MJID and E.ClType');
sql.Add('IN (''上轴'',''接头'') and isnull(CarNo,'''')<>'''' order by e.Filltime desc))'); sql.Add('IN (''上轴'',''接头'') and isnull(CarNo,'''')<>'''' order by e.Filltime desc))');
SQL.Add(',APXH=(SELECT APXH FROM PD_Plan_AnPai E WHERE E.APID=A.APID)'); SQL.Add(',APXH=(SELECT APXH FROM PD_Plan_AnPai E WHERE E.APID=A.APID)');
sql.Add('from JY_Cloth A where A.JYCRType in (''已入库'',''未入库'') '); sql.Add('from JY_Cloth A where A.JYCRType in (''已入库'',''未入库'') ');
@ -1297,6 +1296,7 @@ begin
FieldByName('pcid').value := Trim(FPCID); FieldByName('pcid').value := Trim(FPCID);
FieldByName('BatchNO').value := Trim(FBatchNO);
FieldByName('P_Code').value := Trim(FMJCode); FieldByName('P_Code').value := Trim(FMJCode);
FieldByName('P_CodeName').value := Trim(FMJName); FieldByName('P_CodeName').value := Trim(FMJName);
FieldByName('P_Spec').value := Trim(FMJSpec); FieldByName('P_Spec').value := Trim(FMJSpec);

10
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm
View File

@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1112 Width = 1120
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -128,7 +128,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1112 Width = 1120
Height = 93 Height = 93
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -338,8 +338,8 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 147 Top = 147
Width = 1112 Width = 1120
Height = 330 Height = 338
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -731,7 +731,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 125 Top = 125
Width = 1112 Width = 1120
Height = 22 Height = 22
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET

2
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas
View File

@ -875,7 +875,6 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_CPCK_Print_CKMD2 ' + quotedstr(Trim(CDS_Main.fieldbyname('FHMainID').AsString))); sql.add('exec P_CPCK_Print_CKMD2 ' + quotedstr(Trim(CDS_Main.fieldbyname('FHMainID').AsString)));
sql.add(', ' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString))); sql.add(', ' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
Open; Open;
@ -888,7 +887,6 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_CPCK_Print_CKMD2_2 ' + quotedstr(Trim(CDS_Main.fieldbyname('FHMainID').AsString))); sql.add('exec P_CPCK_Print_CKMD2_2 ' + quotedstr(Trim(CDS_Main.fieldbyname('FHMainID').AsString)));
sql.add(', ' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString))); sql.add(', ' + quotedstr(Trim(CDS_Main.fieldbyname('P_Code').AsString)));
Open; Open;

20
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQInPut.dfm
View File

@ -1,6 +1,6 @@
object frmPBFHSQInPut: TfrmPBFHSQInPut object frmPBFHSQInPut: TfrmPBFHSQInPut
Left = 230 Left = 897
Top = 140 Top = 427
Width = 1075 Width = 1075
Height = 664 Height = 664
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
@ -18,7 +18,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1059 Width = 1067
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -58,7 +58,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1059 Width = 1067
Height = 104 Height = 104
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -349,7 +349,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 133 Top = 133
Width = 1059 Width = 1067
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -389,8 +389,8 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 162 Top = 162
Width = 1059 Width = 1067
Height = 463 Height = 471
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -466,6 +466,12 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

2
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQInPut.pas
View File

@ -70,6 +70,7 @@ type
driver: TBtnEditC; driver: TBtnEditC;
Label9: TLabel; Label9: TLabel;
cktype: TEdit; cktype: TEdit;
Tv1Column1: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -415,6 +416,7 @@ begin
// FieldByName('FromKHName').Value := Trim(frmSQKCHZSelList2.CDS_Main.fieldbyname('KHName').AsString); // FieldByName('FromKHName').Value := Trim(frmSQKCHZSelList2.CDS_Main.fieldbyname('KHName').AsString);
// FieldByName('FromConNo').Value := Trim(frmSQKCHZSelList2.CDS_Main.fieldbyname('ConNO').AsString); // FieldByName('FromConNo').Value := Trim(frmSQKCHZSelList2.CDS_Main.fieldbyname('ConNO').AsString);
FieldByName('SQPiQty').Value := frmSQKCHZSelList2.CDS_Main.fieldbyname('PiQty').Value; FieldByName('SQPiQty').Value := frmSQKCHZSelList2.CDS_Main.fieldbyname('PiQty').Value;
FieldByName('BatchNo').Value := frmSQKCHZSelList2.CDS_Main.fieldbyname('BatchNo').Value;
Post; Post;
end; end;

31
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.dfm
View File

@ -1,6 +1,6 @@
object frmCPFHSQList: TfrmCPFHSQList object frmCPFHSQList: TfrmCPFHSQList
Left = 125 Left = 613
Top = 61 Top = 386
Width = 1308 Width = 1308
Height = 679 Height = 679
Caption = #25104#21697#21457#36135#30003#35831 Caption = #25104#21697#21457#36135#30003#35831
@ -19,7 +19,7 @@ object frmCPFHSQList: TfrmCPFHSQList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1292 Width = 1300
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -146,8 +146,8 @@ object frmCPFHSQList: TfrmCPFHSQList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1292 Width = 1300
Height = 285 Height = 293
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -410,6 +410,7 @@ object frmCPFHSQList: TfrmCPFHSQList
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
@ -421,7 +422,7 @@ object frmCPFHSQList: TfrmCPFHSQList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1292 Width = 1300
Height = 43 Height = 43
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -653,7 +654,7 @@ object frmCPFHSQList: TfrmCPFHSQList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 75 Top = 75
Width = 1292 Width = 1300
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -667,13 +668,13 @@ object frmCPFHSQList: TfrmCPFHSQList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1292 ClientRectRight = 1300
ClientRectTop = 19 ClientRectTop = 19
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 382 Top = 390
Width = 1292 Width = 1300
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -681,8 +682,8 @@ object frmCPFHSQList: TfrmCPFHSQList
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 390 Top = 398
Width = 1292 Width = 1300
Height = 250 Height = 250
Align = alBottom Align = alBottom
TabOrder = 5 TabOrder = 5
@ -779,6 +780,12 @@ object frmCPFHSQList: TfrmCPFHSQList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object Tv2Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'APBatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv2 GridView = Tv2

1
成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.pas
View File

@ -119,6 +119,7 @@ type
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
cktype: TComboBox; cktype: TComboBox;
Label6: TLabel; Label6: TLabel;
Tv2Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);

4
成品仓库(FinishedClothWarehouse.dll)/U_DataLink.dfm
View File

@ -1,8 +1,8 @@
object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse
OldCreateOrder = False OldCreateOrder = False
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Left = 343 Left = 459
Top = 231 Top = 278
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

18
成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCList.dfm
View File

@ -1,6 +1,6 @@
object frmFinishedClothKCList: TfrmFinishedClothKCList object frmFinishedClothKCList: TfrmFinishedClothKCList
Left = 263 Left = 391
Top = 140 Top = 296
Width = 1247 Width = 1247
Height = 531 Height = 531
Caption = #25104#21697#24211#23384#21015#34920 Caption = #25104#21697#24211#23384#21015#34920
@ -18,7 +18,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1231 Width = 1239
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -98,7 +98,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1231 Width = 1239
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -283,7 +283,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1231 Width = 1239
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -324,7 +324,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object Panel6: TPanel object Panel6: TPanel
Left = 205 Left = 205
Top = 0 Top = 0
Width = 1026 Width = 1034
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -332,7 +332,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
1022 1030
26) 26)
object Label1: TLabel object Label1: TLabel
Left = 64 Left = 64
@ -424,8 +424,8 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 125 Top = 125
Width = 1231 Width = 1239
Height = 367 Height = 375
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4

25
成品仓库(FinishedClothWarehouse.dll)/U_SQKCHZSelList2.dfm
View File

@ -1,6 +1,6 @@
object frmSQKCHZSelList2: TfrmSQKCHZSelList2 object frmSQKCHZSelList2: TfrmSQKCHZSelList2
Left = 193 Left = 692
Top = 141 Top = 374
Width = 1171 Width = 1171
Height = 576 Height = 576
Caption = #22383#24067#24211#23384#27719#24635'2' Caption = #22383#24067#24211#23384#27719#24635'2'
@ -20,7 +20,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1155 Width = 1163
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -73,8 +73,8 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1155 Width = 1163
Height = 442 Height = 450
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -140,24 +140,31 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
Caption = #27491#21697#21305#25968 Caption = #27491#21697#21305#25968
DataBinding.FieldName = 'zpps' DataBinding.FieldName = 'zpps'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 106
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #27491#21697#31859#25968 Caption = #27491#21697#31859#25968
DataBinding.FieldName = 'ZPQTY' DataBinding.FieldName = 'ZPQTY'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 104
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #27425#21697#21305#25968 Caption = #27425#21697#21305#25968
DataBinding.FieldName = 'Cpps' DataBinding.FieldName = 'Cpps'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 97
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #27425#21697#31859#25968 Caption = #27425#21697#31859#25968
DataBinding.FieldName = 'CPQTY' DataBinding.FieldName = 'CPQTY'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 89
end
object Tv1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 70
end end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
@ -184,7 +191,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1155 Width = 1163
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

5
成品仓库(FinishedClothWarehouse.dll)/U_SQKCHZSelList2.pas
View File

@ -57,6 +57,7 @@ type
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -115,7 +116,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
//khname,orderno,CONNO //khname,orderno,CONNO
SQL.Add(' select a.p_code,a.p_codename'); SQL.Add(' select a.p_code,a.p_codename,A.BatchNo');
SQL.Add(' ,COUNT(A.JYID) PiQty ,SUM(A.JYGW) JYGW,SUM(A.JYNW) JYNW,SUM(A.JYTare) JYTare,SUM(A.JSLen) JYLen'); SQL.Add(' ,COUNT(A.JYID) PiQty ,SUM(A.JYGW) JYGW,SUM(A.JYNW) JYNW,SUM(A.JYTare) JYTare,SUM(A.JSLen) JYLen');
SQL.Add(',sum(case when JYType=''´ÎÆ·'' then 1 else 0 end )cpps'); SQL.Add(',sum(case when JYType=''´ÎÆ·'' then 1 else 0 end )cpps');
SQL.Add(' ,sum(case when JYType=''ÕýÆ·'' then 1 else 0 end )Zpps'); SQL.Add(' ,sum(case when JYType=''ÕýÆ·'' then 1 else 0 end )Zpps');
@ -131,7 +132,7 @@ begin
sql.Add('and p_code in(select p_code from Contract_sub E INNER JOIN Contract_MAIN F ON E.CONMAINID=F.CONMAINID WHERE CONNO=' + QuotedStr(Trim(fconno))); sql.Add('and p_code in(select p_code from Contract_sub E INNER JOIN Contract_MAIN F ON E.CONMAINID=F.CONMAINID WHERE CONNO=' + QuotedStr(Trim(fconno)));
SQL.Add(') '); SQL.Add(') ');
SQL.Add(' group by p_code,p_codename'); SQL.Add(' group by a.p_code, a.p_codename, a.pcid ,A.BatchNo');
//,khname,orderno,CONNO //,khname,orderno,CONNO
sql.Add(' ORDER BY a.p_code'); sql.Add(' ORDER BY a.p_code');

14
成品仓库(FinishedClothWarehouse.dll)/U_SXCKKCSelList.dfm
View File

@ -1,8 +1,8 @@
object frmSXCKKCSelList: TfrmSXCKKCSelList object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 198 Left = 386
Top = 125 Top = 408
Width = 1181 Width = 1181
Height = 511 Height = 515
Align = alClient Align = alClient
Caption = #22383#24067#24211#23384#36873#25321#21015#34920 Caption = #22383#24067#24211#23384#36873#25321#21015#34920
Color = clBtnFace Color = clBtnFace
@ -21,7 +21,7 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1165 Width = 1173
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -76,7 +76,7 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1165 Width = 1173
Height = 60 Height = 60
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -239,8 +239,8 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1165 Width = 1173
Height = 379 Height = 391
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2

4
梭织计划单(ShuttleSchedule.dll)/U_DataLink.dfm
View File

@ -2,8 +2,8 @@ object DataLink_ShuttleSchedule: TDataLink_ShuttleSchedule
OldCreateOrder = False OldCreateOrder = False
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Left = 382 Left = 511
Top = 233 Top = 281
Height = 349 Height = 349
Width = 482 Width = 482
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery

4
梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.dfm
View File

@ -1,6 +1,6 @@
object frmPlanCardList: TfrmPlanCardList object frmPlanCardList: TfrmPlanCardList
Left = 280 Left = 375
Top = 296 Top = 358
Width = 1540 Width = 1540
Height = 764 Height = 764
Caption = #32463#36724#35745#21010 Caption = #32463#36724#35745#21010

32
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm
View File

@ -1,6 +1,6 @@
object frmClothSCInPut: TfrmClothSCInPut object frmClothSCInPut: TfrmClothSCInPut
Left = 246 Left = 329
Top = 71 Top = 86
Width = 1474 Width = 1474
Height = 760 Height = 760
Align = alClient Align = alClient
@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1458 Width = 1466
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -65,7 +65,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1458 Width = 1466
Height = 416 Height = 416
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -1273,8 +1273,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 474 Top = 474
Width = 1458 Width = 1466
Height = 247 Height = 255
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1287,8 +1287,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 247 ClientRectBottom = 255
ClientRectRight = 1458 ClientRectRight = 1466
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
@ -1296,8 +1296,8 @@ object frmClothSCInPut: TfrmClothSCInPut
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 980 Left = 980
Top = 0 Top = 0
Width = 478 Width = 486
Height = 224 Height = 232
Align = alClient Align = alClient
Caption = #32463#25490#21015 Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1311,8 +1311,8 @@ object frmClothSCInPut: TfrmClothSCInPut
Tag = 2 Tag = 2
Left = 2 Left = 2
Top = 31 Top = 31
Width = 474 Width = 482
Height = 191 Height = 199
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1327,7 +1327,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 980 Width = 980
Height = 224 Height = 232
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -2674,7 +2674,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 0 TabOrder = 0
Height = 203 Height = 211
Width = 481 Width = 481
end end
object YWBian: TMemo object YWBian: TMemo
@ -2682,7 +2682,7 @@ object frmClothSCInPut: TfrmClothSCInPut
Left = 701 Left = 701
Top = 0 Top = 0
Width = 794 Width = 794
Height = 203 Height = 211
Align = alRight Align = alRight
TabOrder = 1 TabOrder = 1
end end
@ -2692,7 +2692,7 @@ object frmClothSCInPut: TfrmClothSCInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 445 Top = 445
Width = 1458 Width = 1466
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59

4
梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm
View File

@ -1,6 +1,6 @@
object frmShuttleClothSCList: TfrmShuttleClothSCList object frmShuttleClothSCList: TfrmShuttleClothSCList
Left = 367 Left = 491
Top = 493 Top = 593
Width = 1377 Width = 1377
Height = 579 Height = 579
Caption = #26797#32455#32455#36896#21333 Caption = #26797#32455#32455#36896#21333

6
经轴仓库(Warehouse.dll)/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = PBMDDJ.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr PBMDDJ.dll: ..\툰꼈쯤데덤쇱(PBMDDJ.dll)\PBMDDJ.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.dpr
$(DCC) $(DCC)