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

20260430

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-04-30 19:07:39 +08:00
parent a4613cecad
commit c9e206dded
9 changed files with 193 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\丁迪峰开发代码\项目代码\满峰\染整计划(DyeingFinishingPlan.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7fhManfeng\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

50
染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkRoom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringTime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinsDefaultPainters=1
dxSkinValentine=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinXmas2008Blue=1

6
染整计划(DyeingFinishingPlan.dll)/U_GetDllForm.pas
View File

@ -75,11 +75,11 @@ begin
SetLength(pswd, 255); SetLength(pswd, 255);
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '121.40.233.100,7781'; server := '121.37.171.80,7781';
// server := '.'; // server := '.';
dtbase := 'manfengdata'; dtbase := 'manfengdata';
user := 'sa'; user := 'manfengsa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@8811';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;

111
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
View File

@ -486,7 +486,7 @@ object frmMarkingInspection: TfrmMarkingInspection
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
Left = 164 Left = 164
Top = 192 Top = 215
Width = 15 Width = 15
Height = 22 Height = 22
Caption = 'M' Caption = 'M'
@ -500,7 +500,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label4: TLabel object Label4: TLabel
Left = 164 Left = 164
Top = 101 Top = 91
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -513,7 +513,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label5: TLabel object Label5: TLabel
Left = 13 Left = 13
Top = 191 Top = 267
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #38271#24230 Caption = #38271#24230
@ -526,7 +526,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label11: TLabel object Label11: TLabel
Left = 13 Left = 13
Top = 101 Top = 91
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #27611#37325 Caption = #27611#37325
@ -539,7 +539,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label10: TLabel object Label10: TLabel
Left = 43 Left = 43
Top = 381 Top = 407
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #27491#21697 Caption = #27491#21697
@ -552,7 +552,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label12: TLabel object Label12: TLabel
Left = 202 Left = 202
Top = 381 Top = 407
Width = 40 Width = 40
Height = 22 Height = 22
Caption = #27425#21697 Caption = #27425#21697
@ -565,7 +565,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label26: TLabel object Label26: TLabel
Left = 43 Left = 43
Top = 425 Top = 451
Width = 40 Width = 40
Height = 22 Height = 22
Caption = #20986#32440 Caption = #20986#32440
@ -577,8 +577,8 @@ object frmMarkingInspection: TfrmMarkingInspection
ParentFont = False ParentFont = False
end end
object Label30: TLabel object Label30: TLabel
Left = 41 Left = 12
Top = 629 Top = 134
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #30382#37325 Caption = #30382#37325
@ -588,11 +588,10 @@ object frmMarkingInspection: TfrmMarkingInspection
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label31: TLabel object Label31: TLabel
Left = 192 Left = 163
Top = 676 Top = 176
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -602,11 +601,10 @@ object frmMarkingInspection: TfrmMarkingInspection
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label32: TLabel object Label32: TLabel
Left = 41 Left = 12
Top = 676 Top = 176
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #20928#37325 Caption = #20928#37325
@ -616,11 +614,10 @@ object frmMarkingInspection: TfrmMarkingInspection
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label33: TLabel object Label33: TLabel
Left = 192 Left = 163
Top = 629 Top = 134
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -630,11 +627,10 @@ object frmMarkingInspection: TfrmMarkingInspection
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
end end
object Label34: TLabel object Label34: TLabel
Left = 43 Left = 43
Top = 467 Top = 493
Width = 40 Width = 40
Height = 22 Height = 22
Caption = #20221#25968 Caption = #20221#25968
@ -647,7 +643,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label36: TLabel object Label36: TLabel
Left = 13 Left = 13
Top = 55 Top = 49
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #21367#21495 Caption = #21367#21495
@ -674,7 +670,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label38: TLabel object Label38: TLabel
Left = 11 Left = 11
Top = 146 Top = 220
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #31995#25968 Caption = #31995#25968
@ -687,7 +683,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label3: TLabel object Label3: TLabel
Left = 205 Left = 205
Top = 146 Top = 132
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #29677#21035 Caption = #29677#21035
@ -700,7 +696,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label6: TLabel object Label6: TLabel
Left = 205 Left = 205
Top = 237 Top = 221
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #26694#21495 Caption = #26694#21495
@ -713,7 +709,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label13: TLabel object Label13: TLabel
Left = 205 Left = 205
Top = 100 Top = 90
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #20811#37325 Caption = #20811#37325
@ -726,7 +722,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label15: TLabel object Label15: TLabel
Left = 205 Left = 205
Top = 55 Top = 49
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #38376#24133 Caption = #38376#24133
@ -739,7 +735,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label14: TLabel object Label14: TLabel
Left = 47 Left = 47
Top = 318 Top = 349
Width = 40 Width = 40
Height = 46 Height = 46
Caption = #20462#25913#13#10#21367#21495 Caption = #20462#25913#13#10#21367#21495
@ -765,7 +761,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object BTPrint: TSpeedButton object BTPrint: TSpeedButton
Left = 92 Left = 92
Top = 504 Top = 530
Width = 137 Width = 137
Height = 69 Height = 69
Caption = #25552#20132 Caption = #25552#20132
@ -778,8 +774,8 @@ object frmMarkingInspection: TfrmMarkingInspection
OnClick = SpeedButton19Click OnClick = SpeedButton19Click
end end
object Label22: TLabel object Label22: TLabel
Left = 13 Left = 202
Top = 238 Top = 269
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #32568#21495 Caption = #32568#21495
@ -792,7 +788,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Label24: TLabel object Label24: TLabel
Left = 49 Left = 49
Top = 283 Top = 314
Width = 40 Width = 40
Height = 23 Height = 23
Caption = #20943#38271 Caption = #20943#38271
@ -805,7 +801,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object MJLen: TEdit object MJLen: TEdit
Left = 57 Left = 57
Top = 182 Top = 258
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -820,7 +816,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 57 Left = 57
Top = 92 Top = 82
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -836,7 +832,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Button5: TButton object Button5: TButton
Left = 253 Left = 253
Top = 527 Top = 553
Width = 80 Width = 80
Height = 45 Height = 45
Caption = #37325#25171 Caption = #37325#25171
@ -852,7 +848,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Edit3: TEdit object Edit3: TEdit
Left = 87 Left = 87
Top = 371 Top = 397
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -869,7 +865,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Edit4: TEdit object Edit4: TEdit
Left = 249 Left = 249
Top = 371 Top = 397
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -885,7 +881,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Edit6: TEdit object Edit6: TEdit
Left = 249 Left = 249
Top = 415 Top = 441
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -901,8 +897,8 @@ object frmMarkingInspection: TfrmMarkingInspection
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJQty3: TEdit object MJQty3: TEdit
Left = 85 Left = 56
Top = 620 Top = 125
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -912,13 +908,13 @@ object frmMarkingInspection: TfrmMarkingInspection
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
Visible = False OnChange = MJQty3Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 85 Left = 56
Top = 667 Top = 167
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -928,14 +924,13 @@ object frmMarkingInspection: TfrmMarkingInspection
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
Visible = False
OnClick = Edit1Click OnClick = Edit1Click
OnExit = MJQty4Exit OnExit = MJQty4Exit
OnKeyPress = MJQty4KeyPress OnKeyPress = MJQty4KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 249 Left = 249
Top = 458 Top = 484
Width = 40 Width = 40
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -973,7 +968,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object mjxh: TEdit object mjxh: TEdit
Left = 57 Left = 57
Top = 46 Top = 40
Width = 101 Width = 101
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -988,7 +983,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object MJBanZu: TComboBox object MJBanZu: TComboBox
Left = 249 Left = 249
Top = 137 Top = 123
Width = 102 Width = 102
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1009,7 +1004,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object KuangHao: TEdit object KuangHao: TEdit
Left = 249 Left = 249
Top = 228 Top = 212
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1024,7 +1019,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object KuWei: TEdit object KuWei: TEdit
Left = 249 Left = 249
Top = 182 Top = 168
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1039,7 +1034,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Button3: TButton object Button3: TButton
Left = 199 Left = 199
Top = 182 Top = 168
Width = 46 Width = 46
Height = 41 Height = 41
Caption = #24211#20301 Caption = #24211#20301
@ -1054,7 +1049,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object MJKZ: TEdit object MJKZ: TEdit
Left = 249 Left = 249
Top = 91 Top = 81
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1070,7 +1065,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object MJMF: TEdit object MJMF: TEdit
Left = 249 Left = 249
Top = 46 Top = 40
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1087,7 +1082,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Edit5: TEdit object Edit5: TEdit
Left = 103 Left = 103
Top = 320 Top = 351
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1102,7 +1097,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Button6: TButton object Button6: TButton
Left = 231 Left = 231
Top = 318 Top = 349
Width = 80 Width = 80
Height = 45 Height = 45
Caption = #30830#35748 Caption = #30830#35748
@ -1116,8 +1111,8 @@ object frmMarkingInspection: TfrmMarkingInspection
OnClick = Button6Click OnClick = Button6Click
end end
object JYXH: TComboBox object JYXH: TComboBox
Left = 57 Left = 246
Top = 229 Top = 260
Width = 102 Width = 102
Height = 40 Height = 40
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1133,7 +1128,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object MKXS: TEdit object MKXS: TEdit
Left = 57 Left = 57
Top = 137 Top = 211
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1148,7 +1143,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Ekjlen: TEdit object Ekjlen: TEdit
Left = 103 Left = 103
Top = 274 Top = 305
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1163,7 +1158,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object Button9: TButton object Button9: TButton
Left = 231 Left = 231
Top = 270 Top = 301
Width = 80 Width = 80
Height = 45 Height = 45
Caption = #25442#22823#21367 Caption = #25442#22823#21367

32
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas
View File

@ -278,6 +278,7 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure Button8Click(Sender: TObject); procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject); procedure Button7Click(Sender: TObject);
procedure MJQty3Change(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FColumn, FAPID, FMainId, FSubId, FFFMJID, FOperationStatus: string; FColumn, FAPID, FMainId, FSubId, FFFMJID, FOperationStatus: string;
@ -1123,7 +1124,7 @@ begin
// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(Trim(Ekjlen.Text),0); // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(Trim(Ekjlen.Text),0);
// end; // end;
//皮重 //皮重
// FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// 毛重 // 毛重
if FOperationStatus = '重新扫描' then if FOperationStatus = '重新扫描' then
begin begin
@ -1141,7 +1142,7 @@ begin
end; end;
FieldByName('KongJiaWei').Value := FKongJiaWei; FieldByName('KongJiaWei').Value := FKongJiaWei;
//净重 //净重
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) - StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty4').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) - StrToFloatdef(trim(MJQty3.Text), 0);
//系数 //系数
FieldByName('MKXS').Value := StrToFloatdef(trim(MKXS.Text), 0); FieldByName('MKXS').Value := StrToFloatdef(trim(MKXS.Text), 0);
@ -2467,5 +2468,32 @@ begin
end; end;
end; end;
procedure TfrmMarkingInspection.MJQty3Change(Sender: TObject);
var
FReal: Double;
begin
if Trim(MJMaoZ.Text) = '' then
begin
MJQty4.Text := '';
Exit;
end;
if TryStrToFloat(MJMaoZ.Text, FReal) = False then
Exit;
if Trim(MJQty3.Text) <> '' then
begin
if TryStrToFloat(MJQty3.Text, FReal) = False then
Exit;
MJQty4.Text := FloatToStr(StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text));
end
else
begin
MJQty4.Text := MJMaoZ.Text;
end;
if strtofloatdef(trim(MKXS.Text), 0) <> 0 then
begin
MJLen.Text := format('%.1f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(MKXS.Text), 0)]);
end;
end;
end. end.

22
染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm
View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 323 Left = 234
Top = 69 Top = 373
Width = 1117 Width = 1117
Height = 743 Height = 743
Caption = #25351#31034#21333#24405#20837 Caption = #25351#31034#21333#24405#20837
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1101 Width = 1109
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1101 Width = 1109
Height = 288 Height = 288
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -954,15 +954,15 @@ object frmOrderInPut: TfrmOrderInPut
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 317 Top = 317
Width = 1101 Width = 1109
Height = 387 Height = 395
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet3 Properties.ActivePage = cxTabSheet3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 8 Properties.Style = 8
ClientRectBottom = 387 ClientRectBottom = 395
ClientRectRight = 1101 ClientRectRight = 1109
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #20135#21697#20449#24687 Caption = #20135#21697#20449#24687
@ -970,7 +970,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar3: TToolBar object ToolBar3: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1101 Width = 1109
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -1026,8 +1026,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1101 Width = 1109
Height = 332 Height = 340
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView

16
染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas
View File

@ -11,7 +11,21 @@ uses
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, cxPC, Menus, RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, cxPC, Menus,
cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator; cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmOrderInPut = class(TForm) TfrmOrderInPut = class(TForm)

30
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm
View File

@ -19,7 +19,7 @@ object frmProductOrderList: TfrmProductOrderList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1240 Width = 1248
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -162,16 +162,16 @@ object frmProductOrderList: TfrmProductOrderList
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 0 Left = 0
Top = 162 Top = 162
Width = 1240 Width = 1248
Height = 510 Height = 518
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
Properties.ActivePage = cxTabSheet4 Properties.ActivePage = cxTabSheet4
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 8 Properties.Style = 8
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 510 ClientRectBottom = 518
ClientRectRight = 1240 ClientRectRight = 1248
ClientRectTop = 23 ClientRectTop = 23
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #22383#24067#24211#21015#34920 Caption = #22383#24067#24211#21015#34920
@ -179,7 +179,7 @@ object frmProductOrderList: TfrmProductOrderList
object cxTabControl2: TcxTabControl object cxTabControl2: TcxTabControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1240 Width = 1248
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
@ -192,14 +192,14 @@ object frmProductOrderList: TfrmProductOrderList
#20840#37096) #20840#37096)
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1240 ClientRectRight = 1248
ClientRectTop = 22 ClientRectTop = 22
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 22 Top = 22
Width = 1240 Width = 1248
Height = 465 Height = 473
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBtnShadow Font.Color = clBtnShadow
@ -432,7 +432,7 @@ object frmProductOrderList: TfrmProductOrderList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1240 Width = 1248
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
@ -446,14 +446,14 @@ object frmProductOrderList: TfrmProductOrderList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1240 ClientRectRight = 1248
ClientRectTop = 22 ClientRectTop = 22
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 22 Top = 22
Width = 1240 Width = 1248
Height = 465 Height = 473
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
@ -663,7 +663,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1240 Width = 1248
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -838,7 +838,7 @@ object frmProductOrderList: TfrmProductOrderList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 97 Top = 97
Width = 1240 Width = 1248
Height = 65 Height = 65
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

16
染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas
View File

@ -13,7 +13,21 @@ uses
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxCheckBox, cxDropDownEdit, cxLookAndFeels, IdFTP, ShellAPI, cxCheckBox, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator; cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmProductOrderList = class(TForm) TfrmProductOrderList = class(TForm)