Group_DJD/D10DJjinglei
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
钟舒轶 2026-09-19 10:07:42 +08:00
parent 05e73665fc
commit f0066f2a85
18 changed files with 303 additions and 176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
项目代码/DJ/G01贸易生产计划/U_ItemTestList.dfm
View File

@ -16,10 +16,10 @@ inherited frmItemTestList: TfrmItemTestList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1290 Width = 1290
Height = 76 Height = 60
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 30
ButtonWidth = 105 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clBtnFace Color = clBtnFace
Images = DataLink_TradePlan.cxImageList_bar Images = DataLink_TradePlan.cxImageList_bar
@ -36,7 +36,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object Tfilter: TToolButton object Tfilter: TToolButton
Left = 71 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
@ -44,7 +44,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TfilterClick OnClick = TfilterClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 142 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -52,7 +52,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TBAddClick OnClick = TBAddClick
end end
object btnCopy: TToolButton object btnCopy: TToolButton
Left = 213 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
@ -60,7 +60,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = btnCopyClick OnClick = btnCopyClick
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 284 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -68,7 +68,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TBEditClick OnClick = TBEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 355 Left = 315
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -76,7 +76,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TBDelClick OnClick = TBDelClick
end end
object Tdjsz: TToolButton object Tdjsz: TToolButton
Left = 426 Left = 378
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -85,7 +85,7 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TdjszClick OnClick = TdjszClick
end end
object Tbqyl: TToolButton object Tbqyl: TToolButton
Left = 529 Left = 465
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26631#31614#39044#35272 Caption = #26631#31614#39044#35272
@ -95,7 +95,7 @@ inherited frmItemTestList: TfrmItemTestList
Visible = False Visible = False
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 655 Left = 569
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -105,7 +105,7 @@ inherited frmItemTestList: TfrmItemTestList
end end
object TBCK: TToolButton object TBCK: TToolButton
Left = 0 Left = 0
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 8 ImageIndex = 8
@ -113,8 +113,8 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TBCKClick OnClick = TBCKClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 71 Left = 63
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
ImageIndex = 22 ImageIndex = 22
@ -122,8 +122,8 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TWC: TToolButton object TWC: TToolButton
Left = 142 Left = 126
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #23436#25104 Caption = #23436#25104
ImageIndex = 12 ImageIndex = 12
@ -131,16 +131,16 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TWCClick OnClick = TWCClick
end end
object Ttoexcel: TToolButton object Ttoexcel: TToolButton
Left = 213 Left = 189
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 28 ImageIndex = 28
OnClick = TtoexcelClick OnClick = TtoexcelClick
end end
object TNowc: TToolButton object TNowc: TToolButton
Left = 284 Left = 252
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 11 ImageIndex = 11
@ -148,8 +148,8 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TNowcClick OnClick = TNowcClick
end end
object Tcdgl: TToolButton object Tcdgl: TToolButton
Left = 387 Left = 339
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 30 ImageIndex = 30
@ -157,8 +157,8 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TcdglClick OnClick = TcdglClick
end end
object Tupdateto: TToolButton object Tupdateto: TToolButton
Left = 490 Left = 426
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #25968#25454#21516#27493 Caption = #25968#25454#21516#27493
ImageIndex = 50 ImageIndex = 50
@ -166,16 +166,16 @@ inherited frmItemTestList: TfrmItemTestList
OnClick = TupdatetoClick OnClick = TupdatetoClick
end end
object Tbcgs: TToolButton object Tbcgs: TToolButton
Left = 593 Left = 513
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 37 ImageIndex = 37
OnClick = TbcgsClick OnClick = TbcgsClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 696 Left = 600
Top = 38 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
@ -184,7 +184,7 @@ inherited frmItemTestList: TfrmItemTestList
end end
object dxLayoutControl_query: TdxLayoutControl [1] object dxLayoutControl_query: TdxLayoutControl [1]
Left = 0 Left = 0
Top = 76 Top = 60
Width = 1290 Width = 1290
Height = 45 Height = 45
Align = alTop Align = alTop
@ -192,6 +192,7 @@ inherited frmItemTestList: TfrmItemTestList
LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1 LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1
OptionsItem.SizableHorz = True OptionsItem.SizableHorz = True
OptionsItem.SizableVert = True OptionsItem.SizableVert = True
ExplicitTop = 76
object ConNo: TcxTextEdit object ConNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 439 Left = 439
@ -523,7 +524,7 @@ inherited frmItemTestList: TfrmItemTestList
end end
object cxGrid5: TcxGrid object cxGrid5: TcxGrid
Left = 751 Left = 751
Top = 47 Top = 46
Width = 461 Width = 461
Height = 192 Height = 192
TabOrder = 1 TabOrder = 1
@ -1421,7 +1422,7 @@ inherited frmItemTestList: TfrmItemTestList
end end
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 121 Top = 105
Width = 1290 Width = 1290
Height = 26 Height = 26
Align = alTop Align = alTop
@ -1440,6 +1441,7 @@ inherited frmItemTestList: TfrmItemTestList
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = False LookAndFeel.NativeStyle = False
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 121
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

16
项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -43,7 +43,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -1162,6 +1161,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Height = 250 Height = 250
Align = alBottom Align = alBottom
TabOrder = 3 TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 399 ExplicitTop = 399
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
PopupMenu = PM_1 PopupMenu = PM_1
@ -1493,6 +1493,20 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1SalesNo: TcxGridDBColumn
Caption = #38144#21806#21592#21333#21495
DataBinding.FieldName = 'SalesNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1OrdType: TcxGridDBColumn
Caption = #35746#21333#31867#22411
DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

13
项目代码/DJ/G01贸易生产计划/U_TradePlanInPut.pas
View File

@ -172,6 +172,8 @@ type
dxLayoutItem_C_GramWeight: TdxLayoutItem; dxLayoutItem_C_GramWeight: TdxLayoutItem;
Tv1C_CustColorNo: TcxGridDBColumn; Tv1C_CustColorNo: TcxGridDBColumn;
Tv1CraftName: TcxGridDBColumn; Tv1CraftName: TcxGridDBColumn;
Tv1SalesNo: TcxGridDBColumn;
Tv1OrdType: 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);
@ -332,6 +334,7 @@ end;
procedure TfrmTradePlanInPut.InitData(); procedure TfrmTradePlanInPut.InitData();
var var
FDate: TDateTime; FDate: TDateTime;
maxno: string;
begin begin
FDate := SGetServerDateTime(ADOTemp); FDate := SGetServerDateTime(ADOTemp);
OrdDate.Date := FDate; OrdDate.Date := FDate;
@ -398,7 +401,10 @@ begin
end end
else else
begin begin
OrderNo.Text := ''; // OrderNo.Text := '';
if GetLSNo(ADOCmd, maxno, '', 'Trade_Plan_Main', 2, 1) = false then
raise Exception.Create('혤땐데뵀呵겨!');
OrderNo.Text := maxno;
OrderNo.Enabled := True; OrderNo.Enabled := True;
end; end;
end end
@ -416,7 +422,10 @@ begin
end end
else else
begin begin
OrderNo.Text := ''; // OrderNo.Text := '';
if GetLSNo(ADOCmd, maxno, '', 'Trade_Plan_Main', 2, 1) = false then
raise Exception.Create('혤땐데뵀呵겨!');
OrderNo.Text := maxno;
OrderNo.Enabled := True; OrderNo.Enabled := True;
end; end;

19
项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.dfm
View File

@ -7,6 +7,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitTop = -204
ExplicitWidth = 1306 ExplicitWidth = 1306
ExplicitHeight = 751 ExplicitHeight = 751
PixelsPerInch = 96 PixelsPerInch = 96
@ -853,6 +854,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
LookAndFeel.ScrollbarMode = sbmDefault LookAndFeel.ScrollbarMode = sbmDefault
ExplicitLeft = -1
ExplicitTop = 273
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1336,6 +1339,22 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object TV2SalesNo: TcxGridDBColumn
Caption = #38144#21806#21592#21333#21495
DataBinding.FieldName = 'SalesNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV2OrdType: TcxGridDBColumn
Caption = #35746#21333#31867#22411
DataBinding.FieldName = 'OrdType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2

2
项目代码/DJ/G01贸易生产计划/U_TradePlanMgeList.pas
View File

@ -214,6 +214,8 @@ type
Tv1PB_Width: TcxGridDBColumn; Tv1PB_Width: TcxGridDBColumn;
Tv1PB_GramWeight: TcxGridDBColumn; Tv1PB_GramWeight: TcxGridDBColumn;
Tv1JYNo: TcxGridDBColumn; Tv1JYNo: TcxGridDBColumn;
TV2SalesNo: TcxGridDBColumn;
TV2OrdType: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);

4
项目代码/DJ/G01贸易生产计划/djdPackPlan.dproj.local
View File

@ -72,12 +72,12 @@
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.721,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestInPut.pas=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.710,D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_ItemTestList.dfm=D:\rtgit\git_clone\D10DJjinglei\项目代码\DJ\G01贸易生产计划\U_TradePlanMgeList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>

16
项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.dproj.local
View File

@ -59,11 +59,11 @@
<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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.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.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction>
@ -90,11 +90,11 @@
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.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.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>

BIN
项目代码/DJ/G03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.

1
项目代码/DJ/G03贸易布匹检验/TradeInspFile.INI
View File

@ -29,3 +29,4 @@
疵点四分制= 疵点四分制=
自动选择长度= 自动选择长度=
码表提交后清零=1 码表提交后清零=1
输入负数=1

15
项目代码/DJ/G03贸易布匹检验/U_KeyBoard.dfm
View File

@ -18,7 +18,7 @@ object FrameKeyBoard: TFrameKeyBoard
Align = alClient Align = alClient
Frame.Visible = False Frame.Visible = False
TabOrder = 0 TabOrder = 0
ExplicitTop = 1 ExplicitLeft = -1
object SpeedButton1: TSpeedButton object SpeedButton1: TSpeedButton
Left = 1 Left = 1
Top = 2 Top = 2
@ -286,5 +286,18 @@ object FrameKeyBoard: TFrameKeyBoard
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object SpeedButton15: TSpeedButton
Left = 2
Top = 238
Width = 60
Height = 44
Caption = '+'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
end end
end end

1
项目代码/DJ/G03贸易布匹检验/U_KeyBoard.pas
View File

@ -32,6 +32,7 @@ type
SpeedButton12: TSpeedButton; SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton; SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton; SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
private private
{ Private declarations } { Private declarations }
public public

262
项目代码/DJ/G03贸易布匹检验/U_MachRollMain.dfm
View File

@ -8,6 +8,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitTop = -149
ExplicitWidth = 1128 ExplicitWidth = 1128
ExplicitHeight = 775 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
@ -72,11 +73,11 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object FtyPCId: TcxTextEdit object FtyPCId: TcxTextEdit
Left = 9994 Left = 9994
Top = 10000 Top = 9911
Properties.ReadOnly = False Properties.ReadOnly = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 74 TabOrder = 75
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 144 Width = 144
@ -92,7 +93,7 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object ColorNo: TcxTextEdit object ColorNo: TcxTextEdit
Left = 9994 Left = 9994
Top = 10000 Top = 9911
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -120,11 +121,11 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object BCIOID: TcxTextEdit object BCIOID: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 68 TabOrder = 69
Visible = False Visible = False
Width = 144 Width = 144
end end
@ -144,7 +145,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 38 TabOrder = 39
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 38 Height = 38
@ -153,7 +154,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object BTPrint: TButton object BTPrint: TButton
Left = 258 Left = 258
Top = 661 Top = 661
Width = 207 Width = 276
Height = 59 Height = 59
Caption = #25552' '#20132 Caption = #25552' '#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -162,7 +163,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 42 TabOrder = 43
OnClick = BTPrintClick OnClick = BTPrintClick
end end
object Button_bad: TButton object Button_bad: TButton
@ -250,7 +251,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 41 TabOrder = 42
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 59 Height = 59
@ -271,7 +272,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 43 TabOrder = 44
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 37 Height = 37
@ -292,7 +293,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 40 TabOrder = 41
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 59 Height = 59
@ -328,7 +329,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object OutPutWeight: TcxTextEdit object OutPutWeight: TcxTextEdit
Tag = 999 Tag = 999
Left = 9988 Left = 9988
Top = 9751 Top = 9662
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
Style.Font.Charset = ANSI_CHARSET Style.Font.Charset = ANSI_CHARSET
@ -339,7 +340,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 49 TabOrder = 50
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
@ -379,13 +380,13 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 47 TabOrder = 48
Height = 238 Height = 238
Width = 181 Width = 181
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Hint = 'FileName' Hint = 'FileName'
DataBinding.DataField = 'FilesOther' DataBinding.DataField = 'FilesOther'
DataBinding.DataSource = DS_IMAGE DataBinding.DataSource = DS_IMAGE
@ -395,7 +396,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 50 TabOrder = 51
Visible = False Visible = False
Height = 122 Height = 122
Width = 280 Width = 280
@ -417,7 +418,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 39 TabOrder = 40
Text = #27491#21697 Text = #27491#21697
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 38 Height = 38
@ -478,7 +479,7 @@ inherited frmMachRollMain: TfrmMachRollMain
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 44 TabOrder = 45
Text = #26080#38656#36716#25442 Text = #26080#38656#36716#25442
Height = 37 Height = 37
Width = 84 Width = 84
@ -498,7 +499,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 48 TabOrder = 49
Height = 241 Height = 241
Width = 199 Width = 199
end end
@ -532,17 +533,17 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object C_Pattern: TcxTextEdit object C_Pattern: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 51 TabOrder = 52
Visible = False Visible = False
Width = 124 Width = 124
end end
object RuleYardstick: TcxTextEdit object RuleYardstick: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
@ -554,7 +555,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 52 TabOrder = 53
Text = '100' Text = '100'
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
@ -564,19 +565,19 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object C_StyleNo: TcxTextEdit object C_StyleNo: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 53 TabOrder = 54
Visible = False Visible = False
Width = 168 Width = 168
end end
object packPostBtn: TButton object packPostBtn: TButton
Left = 356 Left = 356
Top = 729 Top = 729
Width = 109 Width = 178
Height = 37 Height = 37
Caption = #25171#21253#25552#20132 Caption = #25171#21253#25552#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -585,25 +586,25 @@ inherited frmMachRollMain: TfrmMachRollMain
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 46 TabOrder = 47
OnClick = packPostBtnClick OnClick = packPostBtnClick
end end
object customStrField1: TcxTextEdit object customStrField1: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 54 TabOrder = 55
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object customStrField2: TcxTextEdit object customStrField2: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 55 TabOrder = 56
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -628,27 +629,27 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object addLen: TcxTextEdit object addLen: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 56 TabOrder = 57
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object addWet: TcxTextEdit object addWet: TcxTextEdit
Left = 9994 Left = 9994
Top = 10000 Top = 9911
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 75 TabOrder = 76
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object bt_printmd: TButton object bt_printmd: TButton
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Width = 48 Width = 48
Height = 33 Height = 33
Caption = #30721#21333 Caption = #30721#21333
@ -658,26 +659,26 @@ inherited frmMachRollMain: TfrmMachRollMain
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 57 TabOrder = 58
Visible = False Visible = False
OnClick = bt_printmdClick OnClick = bt_printmdClick
end end
object presentLen: TcxTextEdit object presentLen: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 58 TabOrder = 59
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
object presentWeight: TcxTextEdit object presentWeight: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 59 TabOrder = 60
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -687,33 +688,13 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 574 Top = 574
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 37 TabOrder = 38
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 76 Width = 76
end end
object custName: TcxTextEdit object custName: TcxTextEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 60
Visible = False
Width = 164
end
object customStrField3: TcxComboBox
Left = 9994
Top = 10000
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 69
Visible = False
OnClick = edtScanEnter
Width = 145
end
object c_ecolor: TcxTextEdit
Left = 9988
Top = 9751
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -721,10 +702,30 @@ inherited frmMachRollMain: TfrmMachRollMain
Visible = False Visible = False
Width = 164 Width = 164
end end
object customStrField3: TcxComboBox
Left = 9994
Top = 9911
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 70
Visible = False
OnClick = edtScanEnter
Width = 145
end
object c_ecolor: TcxTextEdit
Left = 9988
Top = 9662
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 62
Visible = False
Width = 164
end
object edit_roll_auto: TcxTextEdit object edit_roll_auto: TcxTextEdit
Tag = 999 Tag = 999
Left = 9988 Left = 9988
Top = 9751 Top = 9662
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
@ -736,7 +737,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 62 TabOrder = 63
Visible = False Visible = False
OnClick = edit_roll_autoClick OnClick = edit_roll_autoClick
Height = 31 Height = 31
@ -744,7 +745,7 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object customStrField4: TcxButtonEdit object customStrField4: TcxButtonEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Hint = 'customStrField4/'#33258#23450#20041'4' Hint = 'customStrField4/'#33258#23450#20041'4'
Properties.Buttons = < Properties.Buttons = <
item item
@ -753,16 +754,33 @@ inherited frmMachRollMain: TfrmMachRollMain
end> end>
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 67
Visible = False
OnClick = edtScanEnter
OnDblClick = customStrField5DblClick
Width = 121
end
object customStrField8: TcxButtonEdit
Left = 9988
Top = 9662
Hint = 'customStrField8/'#33258#23450#20041'8'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 66 TabOrder = 66
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
OnDblClick = customStrField5DblClick OnDblClick = customStrField5DblClick
Width = 121 Width = 121
end end
object customStrField8: TcxButtonEdit object customStrField7: TcxButtonEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Hint = 'customStrField8/'#33258#23450#20041'8' Hint = 'customStrField7/'#33258#23450#20041'7'
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -776,10 +794,10 @@ inherited frmMachRollMain: TfrmMachRollMain
OnDblClick = customStrField5DblClick OnDblClick = customStrField5DblClick
Width = 121 Width = 121
end end
object customStrField7: TcxButtonEdit object customStrField6: TcxButtonEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Hint = 'customStrField7/'#33258#23450#20041'7' Hint = 'customStrField6/'#33258#23450#20041'6'
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -793,26 +811,9 @@ inherited frmMachRollMain: TfrmMachRollMain
OnDblClick = customStrField5DblClick OnDblClick = customStrField5DblClick
Width = 121 Width = 121
end end
object customStrField6: TcxButtonEdit
Left = 9988
Top = 9751
Hint = 'customStrField6/'#33258#23450#20041'6'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 63
Visible = False
OnClick = edtScanEnter
OnDblClick = customStrField5DblClick
Width = 121
end
object customStrField5: TcxButtonEdit object customStrField5: TcxButtonEdit
Left = 9988 Left = 9988
Top = 9751 Top = 9662
Hint = 'customStrField5/'#33258#23450#20041'5' Hint = 'customStrField5/'#33258#23450#20041'5'
Properties.Buttons = < Properties.Buttons = <
item item
@ -822,7 +823,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnButtonClick = customStrField5PropertiesButtonClick Properties.OnButtonClick = customStrField5PropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 67 TabOrder = 68
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
OnDblClick = customStrField5DblClick OnDblClick = customStrField5DblClick
@ -885,7 +886,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AutoSize = False AutoSize = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 29 TabOrder = 30
OnClick = edtScanEnter OnClick = edtScanEnter
Height = 31 Height = 31
Width = 121 Width = 121
@ -896,7 +897,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AutoSize = False AutoSize = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 36 TabOrder = 37
OnClick = edtScanEnter OnClick = edtScanEnter
Height = 31 Height = 31
Width = 72 Width = 72
@ -907,7 +908,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AutoSize = False AutoSize = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 35 TabOrder = 36
OnClick = edtScanEnter OnClick = edtScanEnter
Height = 31 Height = 31
Width = 75 Width = 75
@ -924,7 +925,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnButtonClick = hand_feelPropertiesButtonClick Properties.OnButtonClick = hand_feelPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 31 TabOrder = 32
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
@ -941,7 +942,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnButtonClick = hand_feelPropertiesButtonClick Properties.OnButtonClick = hand_feelPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 32 TabOrder = 33
OnClick = edtScanEnter OnClick = edtScanEnter
Height = 31 Height = 31
Width = 121 Width = 121
@ -959,7 +960,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnButtonClick = hand_feelPropertiesButtonClick Properties.OnButtonClick = hand_feelPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 33 TabOrder = 34
OnClick = edtScanEnter OnClick = edtScanEnter
Height = 31 Height = 31
Width = 121 Width = 121
@ -976,7 +977,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnButtonClick = hand_feelPropertiesButtonClick Properties.OnButtonClick = hand_feelPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 30 TabOrder = 31
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
@ -992,7 +993,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnButtonClick = hand_feelPropertiesButtonClick Properties.OnButtonClick = hand_feelPropertiesButtonClick
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 34 TabOrder = 35
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
end end
@ -1005,7 +1006,7 @@ inherited frmMachRollMain: TfrmMachRollMain
#21542) #21542)
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 45 TabOrder = 46
Height = 37 Height = 37
Width = 45 Width = 45
end end
@ -1072,6 +1073,15 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 89 Height = 89
Width = 105 Width = 105
end end
object Org_Weight: TcxTextEdit
Left = 439
Top = 414
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 29
OnClick = edtScanEnter
Width = 95
end
object dxLayoutControl_packGroup_Root: TdxLayoutGroup object dxLayoutControl_packGroup_Root: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avTop AlignVert = avTop
@ -1082,7 +1092,7 @@ inherited frmMachRollMain: TfrmMachRollMain
SizeOptions.SizableVert = True SizeOptions.SizableVert = True
AllowRemove = False AllowRemove = False
Hidden = True Hidden = True
ItemIndex = 2 ItemIndex = 4
Padding.Left = -15 Padding.Left = -15
Padding.Top = -5 Padding.Top = -5
Padding.AssignedValues = [lpavLeft, lpavTop] Padding.AssignedValues = [lpavLeft, lpavTop]
@ -2119,6 +2129,15 @@ inherited frmMachRollMain: TfrmMachRollMain
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 5 Index = 5
end end
object dxLayoutItem_Org_Weight: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup7
CaptionOptions.Text = #21407#37325#37327
Control = Org_Weight
ControlOptions.OriginalHeight = 31
ControlOptions.OriginalWidth = 95
ControlOptions.ShowBorder = False
Index = 2
end
end end
object Panel_right: TPanel [1] object Panel_right: TPanel [1]
Left = 860 Left = 860
@ -2799,7 +2818,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 96 Top = 96
Width = 336 Width = 336
Height = 198 Height = 198
ExplicitTop = 96 ExplicitTop = 95
ExplicitWidth = 336 ExplicitWidth = 336
ExplicitHeight = 198 ExplicitHeight = 198
inherited cxButton1: TcxButton inherited cxButton1: TcxButton
@ -2816,14 +2835,13 @@ inherited frmMachRollMain: TfrmMachRollMain
ExplicitLeft = 117 ExplicitLeft = 117
ExplicitTop = 91 ExplicitTop = 91
end end
inherited CIFPoints: TcxButtonEdit inherited CIFPoints111: TcxButtonEdit
Left = 115 Left = 208
Top = 6 Top = 110
Properties.OnButtonClick = hand_feelPropertiesButtonClick Properties.OnButtonClick = hand_feelPropertiesButtonClick
OnEnter = edtScanEnter OnEnter = edtScanEnter
ExplicitLeft = 115 ExplicitLeft = 208
ExplicitTop = 6 ExplicitTop = 110
ExplicitHeight = 34
end end
inherited cxLabel2: TcxLabel inherited cxLabel2: TcxLabel
Top = 46 Top = 46
@ -2836,7 +2854,12 @@ inherited frmMachRollMain: TfrmMachRollMain
OnEnter = edtScanEnter OnEnter = edtScanEnter
ExplicitLeft = 115 ExplicitLeft = 115
ExplicitTop = 44 ExplicitTop = 44
ExplicitHeight = 34 end
inherited CIFPoints: TcxComboBox
Left = 115
Top = 4
ExplicitLeft = 115
ExplicitTop = 4
end end
end end
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -2892,13 +2915,13 @@ inherited frmMachRollMain: TfrmMachRollMain
TabOrder = 2 TabOrder = 2
Transparent = True Transparent = True
Visible = False Visible = False
Height = 287 Height = 330
Width = 319 Width = 319
inline FrameKeyBoard1: TFrameKeyBoard inline FrameKeyBoard1: TFrameKeyBoard
Left = 4 Left = 4
Top = 21 Top = 21
Width = 311 Width = 311
Height = 250 Height = 293
Align = alClient Align = alClient
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -2910,13 +2933,13 @@ inherited frmMachRollMain: TfrmMachRollMain
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 21 ExplicitTop = 21
ExplicitWidth = 311 ExplicitWidth = 311
ExplicitHeight = 250 ExplicitHeight = 293
inherited dxPanel1: TdxPanel inherited dxPanel1: TdxPanel
Width = 311 Width = 311
Height = 250 Height = 293
ExplicitTop = 0 ExplicitLeft = 0
ExplicitWidth = 311 ExplicitWidth = 311
ExplicitHeight = 250 ExplicitHeight = 293
inherited SpeedButton1: TSpeedButton inherited SpeedButton1: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click OnClick = FrameKeyBoard1SpeedButton1Click
end end
@ -2967,7 +2990,11 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = FrameKeyBoard1SpeedButton1Click OnClick = FrameKeyBoard1SpeedButton1Click
end end
inherited SpeedButton10: TSpeedButton inherited SpeedButton10: TSpeedButton
Left = 0
Top = 191
OnClick = FrameKeyBoard1SpeedButton1Click OnClick = FrameKeyBoard1SpeedButton1Click
ExplicitLeft = 0
ExplicitTop = 191
end end
inherited SpeedButton11: TSpeedButton inherited SpeedButton11: TSpeedButton
Top = 185 Top = 185
@ -2989,6 +3016,11 @@ inherited frmMachRollMain: TfrmMachRollMain
ExplicitLeft = 64 ExplicitLeft = 64
ExplicitTop = 188 ExplicitTop = 188
end end
inherited SpeedButton15: TSpeedButton
Left = 1
OnClick = FrameKeyBoard1SpeedButton1Click
ExplicitLeft = 1
end
end end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel

14
项目代码/DJ/G03贸易布匹检验/U_MachRollMain.pas
View File

@ -308,6 +308,8 @@ type
dxLayoutItem_note: TdxLayoutItem; dxLayoutItem_note: TdxLayoutItem;
JYNote: TcxMemo; JYNote: TcxMemo;
dxLayoutItem_JYNote: TdxLayoutItem; dxLayoutItem_JYNote: TdxLayoutItem;
Org_Weight: TcxTextEdit;
dxLayoutItem_Org_Weight: TdxLayoutItem;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure Button_badClick(Sender: TObject); procedure Button_badClick(Sender: TObject);
@ -793,6 +795,7 @@ begin
WeiMi.text := ''; WeiMi.text := '';
LYFlag.text := ''; LYFlag.text := '';
unitPieces.text := ''; unitPieces.text := '';
Org_Weight.text := '';
end; end;
procedure TfrmMachRollMain.btnRKClick(Sender: TObject); procedure TfrmMachRollMain.btnRKClick(Sender: TObject);
@ -1401,8 +1404,8 @@ begin
FC_Color := trim(fieldbyName('C_CustColorNo').AsString); FC_Color := trim(fieldbyName('C_CustColorNo').AsString);
FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString); FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString);
FC_EColor := trim(fieldbyName('C_EColor').AsString); FC_EColor := trim(fieldbyName('C_EColor').AsString);
FC_Width := trim(fieldbyName('PB_Width').AsString); FC_Width := trim(fieldbyName('C_Width').AsString);
FC_GramWeight := trim(fieldbyName('PB_GramWeight').AsString); FC_GramWeight := trim(fieldbyName('C_GramWeight').AsString); //PB_GramWeight
C_width.Text := FC_Width; C_width.Text := FC_Width;
C_GramWeight.Text := FC_GramWeight; C_GramWeight.Text := FC_GramWeight;
FC_Pattern := trim(fieldbyName('C_Pattern').AsString); FC_Pattern := trim(fieldbyName('C_Pattern').AsString);
@ -1503,8 +1506,8 @@ begin
BCIOID.Text := FBCIOID; BCIOID.Text := FBCIOID;
PB_Code.Text := FPB_Code; PB_Code.Text := FPB_Code;
PB_Spec.Text := FPB_Spec; PB_Spec.Text := FPB_Spec;
Piece.Text := trim(fieldbyName('ordPiece').AsString); Piece.Text := trim(fieldbyName('CraftName').AsString); //ordPiece
BatchNoQty.text := trim(fieldbyName('ShippingSample').AsString); BatchNoQty.text := trim(fieldbyName('BatchNoQty').AsString);
Qty.Text := trim(fieldbyName('ordQty').AsString) + trim(fieldbyName('ordUnit').AsString); Qty.Text := trim(fieldbyName('ordQty').AsString) + trim(fieldbyName('ordUnit').AsString);
// ƤÖØ // ƤÖØ
Tare.Text := trim(fieldbyName('RuleLaterTare').AsString); Tare.Text := trim(fieldbyName('RuleLaterTare').AsString);
@ -1525,7 +1528,7 @@ begin
packnote.Lines.Add(trim(fieldbyName('ordnote').AsString)); packnote.Lines.Add(trim(fieldbyName('ordnote').AsString));
JYNote.Lines.Clear; JYNote.Lines.Clear;
JYNote.Lines.Add(trim(fieldbyName('PackNote').AsString)); JYNote.Lines.Add(trim(fieldbyName('OrdSNote').AsString)); //PackNote
CINote.Lines.Clear; CINote.Lines.Clear;
CINote.Lines.Add(trim(fieldbyName('OrdNote').AsString)); CINote.Lines.Add(trim(fieldbyName('OrdNote').AsString));
@ -2843,6 +2846,7 @@ begin
fieldbyName('PB_Spec').value := FPB_Spec; fieldbyName('PB_Spec').value := FPB_Spec;
fieldbyName('JYNote').value := trim(JYNote.Text); fieldbyName('JYNote').value := trim(JYNote.Text);
fieldbyName('CINote').value := trim(CINote.Text); fieldbyName('CINote').value := trim(CINote.Text);
fieldbyName('Org_Weight').value := trim(Org_Weight.Text);
/// мӵÄÒ»¶Ñ /// /// мӵÄÒ»¶Ñ ///
//Æ´Æ¥ //Æ´Æ¥

23
项目代码/DJ/G03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -8,7 +8,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Font.Height = -16 Font.Height = -16
Position = poDefault Position = poDefault
ExplicitLeft = -154 ExplicitLeft = -154
ExplicitTop = -30
ExplicitWidth = 1312 ExplicitWidth = 1312
ExplicitHeight = 648 ExplicitHeight = 648
PixelsPerInch = 96 PixelsPerInch = 96
@ -57,7 +56,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Caption = #19978#19968#39029 Caption = #19978#19968#39029
TabOrder = 0 TabOrder = 0
OnClick = BTLPClick OnClick = BTLPClick
ExplicitTop = 10 ExplicitTop = 11
end end
object BTNP: TButton object BTNP: TButton
Left = 525 Left = 525
@ -68,7 +67,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Caption = #19979#19968#39029 Caption = #19979#19968#39029
TabOrder = 1 TabOrder = 1
OnClick = BTNPClick OnClick = BTNPClick
ExplicitTop = 10 ExplicitTop = 11
end end
object TCBNOR: TcxComboBox object TCBNOR: TcxComboBox
Tag = 2 Tag = 2
@ -104,7 +103,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
end end
end end
object cxGrid1: TcxGrid [1] object cxGrid1: TcxGrid [1]
Left = -38 Left = -37
Top = 193 Top = 193
Width = 1296 Width = 1296
Height = 390 Height = 390
@ -400,6 +399,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Org_Weight: TcxGridDBColumn
Caption = #21407#37325#37327
DataBinding.FieldName = 'Org_Weight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
@ -671,6 +678,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
end end
object Tv1CINote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CINote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

2
项目代码/DJ/G03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -185,6 +185,8 @@ type
Tv1color_light: TcxGridDBColumn; Tv1color_light: TcxGridDBColumn;
Tv1JingMi: TcxGridDBColumn; Tv1JingMi: TcxGridDBColumn;
Tv1WeiMi: TcxGridDBColumn; Tv1WeiMi: TcxGridDBColumn;
Tv1CINote: TcxGridDBColumn;
Tv1Org_Weight: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

22
项目代码/DJ/G03贸易布匹检验/U_frameBads.dfm
View File

@ -53,7 +53,6 @@ object frameBads: TframeBads
Align = alBottom Align = alBottom
Frame.Borders = [bLeft, bRight, bBottom] Frame.Borders = [bLeft, bRight, bBottom]
TabOrder = 1 TabOrder = 1
ExplicitTop = 98
object cxButton1: TcxButton object cxButton1: TcxButton
Left = 4 Left = 4
Top = 85 Top = 85
@ -90,9 +89,9 @@ object frameBads: TframeBads
Top = 8 Top = 8
Caption = #25187#20998 Caption = #25187#20998
end end
object CIFPoints: TcxButtonEdit object CIFPoints111: TcxButtonEdit
Left = 117 Left = 192
Top = 4 Top = 86
Hint = 'CIFPoints/'#25187#20998 Hint = 'CIFPoints/'#25187#20998
Properties.Buttons = < Properties.Buttons = <
item item
@ -102,6 +101,7 @@ object frameBads: TframeBads
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 3 TabOrder = 3
Visible = False
Width = 121 Width = 121
end end
object cxLabel2: TcxLabel object cxLabel2: TcxLabel
@ -123,6 +123,19 @@ object frameBads: TframeBads
TabOrder = 5 TabOrder = 5
Width = 200 Width = 200
end end
object CIFPoints: TcxComboBox
Left = 116
Top = 2
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'1'
'2'
'3'
'4')
Properties.ReadOnly = False
TabOrder = 6
Width = 121
end
end end
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
@ -138,7 +151,6 @@ object frameBads: TframeBads
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1 LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
ExplicitTop = 9
object CIFBeg: TcxTextEdit object CIFBeg: TcxTextEdit
Left = 53 Left = 53
Top = 54 Top = 54

5
项目代码/DJ/G03贸易布匹检验/U_frameBads.pas
View File

@ -9,7 +9,7 @@ uses
Vcl.StdCtrls, Vcl.ExtCtrls, cxTextEdit, MovePanel, Vcl.Buttons, cxGeometry, Vcl.StdCtrls, Vcl.ExtCtrls, cxTextEdit, MovePanel, Vcl.Buttons, cxGeometry,
dxFramedControl, Vcl.Menus, cxButtons, dxPanel, cxScrollBox, dxFramedControl, Vcl.Menus, cxButtons, dxPanel, cxScrollBox,
dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl, Data.DB, dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl, Data.DB,
Data.Win.ADODB, cxCheckBox, cxLabel, cxMaskEdit, cxButtonEdit; Data.Win.ADODB, cxCheckBox, cxLabel, cxMaskEdit, cxButtonEdit, cxDropDownEdit;
type type
TframeBads = class(TFrame) TframeBads = class(TFrame)
@ -44,9 +44,10 @@ type
cxCheck_len: TcxCheckBox; cxCheck_len: TcxCheckBox;
dxLayoutItem_checkLen: TdxLayoutItem; dxLayoutItem_checkLen: TdxLayoutItem;
cxLabel1: TcxLabel; cxLabel1: TcxLabel;
CIFPoints: TcxButtonEdit; CIFPoints111: TcxButtonEdit;
cxLabel2: TcxLabel; cxLabel2: TcxLabel;
CIFnote: TcxButtonEdit; CIFnote: TcxButtonEdit;
CIFPoints: TcxComboBox;
procedure cxButton2Click(Sender: TObject); procedure cxButton2Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject); procedure cxButton1Click(Sender: TObject);
procedure CIFBegPropertiesEditValueChanged(Sender: TObject); procedure CIFBegPropertiesEditValueChanged(Sender: TObject);

BIN
项目代码/DJ/G03贸易布匹检验/testDll.identcache
View File

Binary file not shown.