diff --git a/染整计划(DyeingFinishingPlan.dll)/U_DataLink.pas b/染整计划(DyeingFinishingPlan.dll)/U_DataLink.pas index 42b440d..1c5961e 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_DataLink.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {È«¾ÖÁ¬½Ó×Ö·û´®} server, dtbase, user, pswd: String; {Êý¾Ý¿âÁ¬½Ó²ÎÊý} diff --git a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm index d5ac175..7b9cea4 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm @@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1101 + Width = 1109 Height = 29 ButtonHeight = 30 ButtonWidth = 59 @@ -58,8 +58,8 @@ object frmOrderInPut: TfrmOrderInPut object ScrollBox1: TScrollBox Left = 0 Top = 29 - Width = 1101 - Height = 312 + Width = 1109 + Height = 316 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -122,7 +122,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label12: TLabel Left = 29 - Top = 126 + Top = 124 Width = 67 Height = 12 Caption = #38376' '#24133#65306 @@ -135,7 +135,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label13: TLabel Left = 224 - Top = 126 + Top = 124 Width = 67 Height = 12 Caption = #20811' '#37325#65306 @@ -148,7 +148,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label2: TLabel Left = 31 - Top = 102 + Top = 99 Width = 65 Height = 12 Caption = #20135#21697#21517#31216#65306 @@ -161,7 +161,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label6: TLabel Left = 224 - Top = 102 + Top = 99 Width = 67 Height = 12 Caption = #32568' '#21495#65306 @@ -174,7 +174,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label19: TLabel Left = 31 - Top = 200 + Top = 193 Width = 65 Height = 12 Caption = #21253#35013#35201#27714#65306 @@ -213,7 +213,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label23: TLabel Left = 29 - Top = 258 + Top = 251 Width = 67 Height = 12 Caption = #22791' '#27880#65306 @@ -252,7 +252,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label5: TLabel Left = 29 - Top = 151 + Top = 148 Width = 67 Height = 12 Caption = #39068' '#33394#65306 @@ -265,7 +265,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label9: TLabel Left = 29 - Top = 177 + Top = 170 Width = 67 Height = 12 Caption = #21305' '#25968#65306 @@ -278,7 +278,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label15: TLabel Left = 231 - Top = 177 + Top = 170 Width = 60 Height = 12 Caption = #25968' '#37327#65306 @@ -291,7 +291,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label16: TLabel Left = 225 - Top = 151 + Top = 148 Width = 65 Height = 12 Caption = #25968#37327#21333#20301#65306 @@ -304,7 +304,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label7: TLabel Left = 402 - Top = 104 + Top = 99 Width = 78 Height = 12 Caption = #23458#25143#21512#21516#21495#65306 @@ -317,7 +317,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label4: TLabel Left = 408 - Top = 129 + Top = 124 Width = 66 Height = 12 Caption = #33394' '#21345' '#21495#65306 @@ -330,7 +330,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label17: TLabel Left = 404 - Top = 155 + Top = 148 Width = 67 Height = 12 Caption = #24037' '#33402#65306 @@ -343,7 +343,7 @@ object frmOrderInPut: TfrmOrderInPut end object Label18: TLabel Left = 405 - Top = 179 + Top = 172 Width = 67 Height = 12 Caption = #31354' '#21152#65306 @@ -354,6 +354,32 @@ object frmOrderInPut: TfrmOrderInPut Font.Style = [fsBold] ParentFont = False end + object Label20: TLabel + Left = 602 + Top = 99 + Width = 39 + Height = 12 + Caption = #25104#20998#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 602 + Top = 124 + Width = 39 + Height = 12 + Caption = #27454#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object OrderNo: TEdit Tag = 1 Left = 97 @@ -410,7 +436,7 @@ object frmOrderInPut: TfrmOrderInPut object MPRTBZNote: TMemo Tag = 1 Left = 97 - Top = 198 + Top = 191 Width = 633 Height = 50 Hint = 'MPRTBZNote/'#21253#35013#35201#27714 @@ -421,7 +447,7 @@ object frmOrderInPut: TfrmOrderInPut object Note: TMemo Tag = 1 Left = 97 - Top = 254 + Top = 247 Width = 633 Height = 50 Hint = 'OrdNote/'#22791#27880 @@ -432,7 +458,7 @@ object frmOrderInPut: TfrmOrderInPut object MPRTMF: TEdit Tag = 1 Left = 97 - Top = 123 + Top = 121 Width = 100 Height = 18 TabOrder = 7 @@ -440,7 +466,7 @@ object frmOrderInPut: TfrmOrderInPut object MPRTSpec: TEdit Tag = 1 Left = 288 - Top = 99 + Top = 96 Width = 100 Height = 18 TabOrder = 6 @@ -448,7 +474,7 @@ object frmOrderInPut: TfrmOrderInPut object MPRTKZ: TEdit Tag = 1 Left = 288 - Top = 123 + Top = 121 Width = 100 Height = 18 TabOrder = 8 @@ -482,7 +508,7 @@ object frmOrderInPut: TfrmOrderInPut object PRTColor: TEdit Tag = 2 Left = 97 - Top = 148 + Top = 145 Width = 100 Height = 18 TabOrder = 9 @@ -491,7 +517,7 @@ object frmOrderInPut: TfrmOrderInPut object MPRTCodeName: TBtnEditC Tag = 1 Left = 97 - Top = 98 + Top = 95 Width = 100 Height = 20 Hint = 'MPRTCode/'#20135#21697#32534#21495 @@ -502,7 +528,7 @@ object frmOrderInPut: TfrmOrderInPut object PRTPs: TEdit Tag = 2 Left = 97 - Top = 174 + Top = 167 Width = 100 Height = 18 TabOrder = 14 @@ -511,7 +537,7 @@ object frmOrderInPut: TfrmOrderInPut object PRTOrderQty: TEdit Tag = 2 Left = 288 - Top = 174 + Top = 167 Width = 100 Height = 18 TabOrder = 15 @@ -520,7 +546,7 @@ object frmOrderInPut: TfrmOrderInPut object OrderUnit: TEdit Tag = 2 Left = 287 - Top = 148 + Top = 145 Width = 100 Height = 18 TabOrder = 16 @@ -537,7 +563,7 @@ object frmOrderInPut: TfrmOrderInPut object KHConno: TEdit Tag = 1 Left = 474 - Top = 101 + Top = 96 Width = 100 Height = 18 TabOrder = 18 @@ -545,7 +571,7 @@ object frmOrderInPut: TfrmOrderInPut object PRTColorNo: TEdit Tag = 2 Left = 474 - Top = 126 + Top = 121 Width = 100 Height = 18 TabOrder = 19 @@ -554,7 +580,7 @@ object frmOrderInPut: TfrmOrderInPut object gongyi: TBtnEditC Tag = 1 Left = 474 - Top = 151 + Top = 144 Width = 100 Height = 20 Hint = 'gongyi/'#24037#33402 @@ -565,25 +591,42 @@ object frmOrderInPut: TfrmOrderInPut object KJIA: TEdit Tag = 2 Left = 474 - Top = 178 + Top = 171 Width = 100 Height = 18 TabOrder = 21 OnChange = PRTColorChange end + object MPRTCF: TEdit + Tag = 1 + Left = 646 + Top = 96 + Width = 100 + Height = 18 + TabOrder = 22 + end + object PRTKuanNO: TEdit + Tag = 2 + Left = 645 + Top = 121 + Width = 100 + Height = 18 + TabOrder = 23 + OnChange = PRTColorChange + end end object cxPageControl1: TcxPageControl Left = 0 - Top = 341 - Width = 1101 - Height = 363 + Top = 345 + Width = 1109 + Height = 367 Align = alClient TabOrder = 2 Properties.ActivePage = cxTabSheet4 Properties.CustomButtons.Buttons = <> Properties.Style = 8 - ClientRectBottom = 363 - ClientRectRight = 1101 + ClientRectBottom = 367 + ClientRectRight = 1109 ClientRectTop = 23 object cxTabSheet3: TcxTabSheet Caption = #24037#24207#23450#20041 @@ -592,6 +635,7 @@ object frmOrderInPut: TfrmOrderInPut Left = 0 Top = 0 Width = 1101 + Height = 29 AutoSize = True ButtonHeight = 30 ButtonWidth = 107 @@ -691,7 +735,7 @@ object frmOrderInPut: TfrmOrderInPut object ToolBar2: TToolBar Left = 0 Top = 0 - Width = 1101 + Width = 1109 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 @@ -720,8 +764,8 @@ object frmOrderInPut: TfrmOrderInPut object cxGrid1: TcxGrid Left = 0 Top = 32 - Width = 1101 - Height = 308 + Width = 1109 + Height = 312 Align = alClient TabOrder = 1 object TV1: TcxGridDBTableView @@ -850,8 +894,8 @@ object frmOrderInPut: TfrmOrderInPut object CDS_PBCK: TClientDataSet Aggregates = <> Params = <> - Left = 537 - Top = 521 + Left = 657 + Top = 553 end object DS_PBKC: TDataSource DataSet = CDS_PBCK diff --git a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas index 9e31fae..5aa7517 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas @@ -11,7 +11,21 @@ uses StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit, 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 TfrmOrderInPut = class(TForm) @@ -101,6 +115,10 @@ type gongyi: TBtnEditC; KJIA: TEdit; Label18: TLabel; + Label20: TLabel; + MPRTCF: TEdit; + Label21: TLabel; + PRTKuanNO: TEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm index db7a85c..10c5803 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.dfm @@ -19,7 +19,7 @@ object frmProductOrderList: TfrmProductOrderList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1240 + Width = 1248 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -162,16 +162,16 @@ object frmProductOrderList: TfrmProductOrderList object cxPageControl1: TcxPageControl Left = 0 Top = 162 - Width = 1240 - Height = 553 + Width = 1248 + Height = 561 Align = alClient TabOrder = 1 Properties.ActivePage = cxTabSheet4 Properties.CustomButtons.Buttons = <> Properties.Style = 8 OnChange = cxPageControl1Change - ClientRectBottom = 553 - ClientRectRight = 1240 + ClientRectBottom = 561 + ClientRectRight = 1248 ClientRectTop = 23 object cxTabSheet3: TcxTabSheet Caption = #22383#24067#24211#21015#34920 @@ -412,7 +412,7 @@ object frmProductOrderList: TfrmProductOrderList object cxTabControl1: TcxTabControl Left = 0 Top = 0 - Width = 1240 + Width = 1248 Height = 22 Align = alTop TabOrder = 0 @@ -426,14 +426,14 @@ object frmProductOrderList: TfrmProductOrderList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 - ClientRectRight = 1240 + ClientRectRight = 1248 ClientRectTop = 22 end object cxGrid1: TcxGrid Left = 0 Top = 22 - Width = 1240 - Height = 508 + Width = 1248 + Height = 516 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 @@ -642,7 +642,7 @@ object frmProductOrderList: TfrmProductOrderList object Panel2: TPanel Left = 0 Top = 32 - Width = 1240 + Width = 1248 Height = 65 Align = alTop BevelInner = bvRaised @@ -817,7 +817,7 @@ object frmProductOrderList: TfrmProductOrderList object Panel1: TPanel Left = 0 Top = 97 - Width = 1240 + Width = 1248 Height = 65 Align = alTop BevelInner = bvRaised diff --git a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas index 1382b47..7260667 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_ProductOrderList.pas @@ -13,7 +13,21 @@ uses RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, 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 TfrmProductOrderList = class(TForm)