diff --git a/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.dfm b/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.dfm index 634b813..613fd7f 100644 --- a/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.dfm +++ b/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.dfm @@ -1,6 +1,6 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM - Left = 193 - Top = 58 + Left = 534 + Top = 240 Width = 1157 Height = 712 Caption = #26825#21697#21517#24405#20837 @@ -22,7 +22,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1141 + Width = 1149 Height = 31 ButtonHeight = 30 ButtonWidth = 59 @@ -104,16 +104,16 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM object Panel4: TPanel Left = 0 Top = 31 - Width = 1141 - Height = 642 + Width = 1149 + Height = 650 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Panel5: TPanel Left = 2 - Top = 519 - Width = 1137 + Top = 527 + Width = 1145 Height = 121 Align = alBottom BevelInner = bvRaised @@ -430,8 +430,8 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM object Panel6: TPanel Left = 204 Top = 2 - Width = 935 - Height = 517 + Width = 943 + Height = 525 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -439,8 +439,8 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM object cxGrid1: TcxGrid Left = 2 Top = 33 - Width = 931 - Height = 482 + Width = 939 + Height = 490 Align = alClient TabOrder = 0 object TV1: TcxGridDBTableView @@ -562,7 +562,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM object ToolBar2: TToolBar Left = 2 Top = 2 - Width = 931 + Width = 939 Height = 31 ButtonHeight = 30 ButtonWidth = 83 @@ -627,7 +627,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM Left = 2 Top = 2 Width = 202 - Height = 517 + Height = 525 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -636,7 +636,7 @@ object frmBPZDY_LRM: TfrmBPZDY_LRM Left = 2 Top = 33 Width = 198 - Height = 482 + Height = 490 Align = alClient Bands = < item diff --git a/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.pas b/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.pas index 7d0307d..e64add9 100644 --- a/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.pas +++ b/云翔生产管理(MYSC.dll)/U_BPZdy_LRM.pas @@ -11,7 +11,20 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, cxTLdxBarBuiltInMenu; + cxNavigator, cxTLdxBarBuiltInMenu, 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 TfrmBPZDY_LRM = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.dfm b/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.dfm index af1d59a..49d7a5e 100644 --- a/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.dfm +++ b/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.dfm @@ -7,7 +7,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -17,12 +17,12 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1141 + Width = 1149 Height = 31 ButtonHeight = 30 ButtonWidth = 59 @@ -104,123 +104,123 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX object Panel4: TPanel Left = 0 Top = 31 - Width = 1141 - Height = 641 + Width = 1149 + Height = 650 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Panel5: TPanel Left = 2 - Top = 508 - Width = 1137 - Height = 131 + Top = 527 + Width = 1145 + Height = 121 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 Visible = False object Label6: TLabel - Left = 356 - Top = 150 - Width = 52 - Height = 13 + Left = 329 + Top = 138 + Width = 47 + Height = 12 Caption = #21697' '#21517' ' Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label7: TLabel - Left = 269 - Top = 145 - Width = 38 - Height = 18 + Left = 248 + Top = 134 + Width = 36 + Height = 17 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label8: TLabel - Left = 467 - Top = 13 - Width = 38 - Height = 18 + Left = 431 + Top = 12 + Width = 36 + Height = 17 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel - Left = 347 - Top = 13 - Width = 38 - Height = 18 + Left = 320 + Top = 12 + Width = 36 + Height = 17 Caption = #32447#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel - Left = 347 - Top = 48 - Width = 38 - Height = 18 + Left = 320 + Top = 44 + Width = 36 + Height = 17 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel - Left = 593 - Top = 13 - Width = 38 - Height = 18 + Left = 547 + Top = 12 + Width = 36 + Height = 17 Caption = #21333#20215 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label16: TLabel - Left = 51 - Top = 22 - Width = 32 - Height = 61 + Left = 47 + Top = 20 + Width = 29 + Height = 56 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -61 + Font.Height = -56 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button1: TButton - Left = 496 - Top = 79 - Width = 96 - Height = 40 + Left = 458 + Top = 73 + Width = 88 + Height = 37 Caption = #20445#23384 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -230,14 +230,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object BPColNo: TEdit Tag = 2 - Left = 392 - Top = 9 - Width = 49 + Left = 362 + Top = 8 + Width = 45 Height = 26 CharCase = ecUpperCase Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -246,14 +246,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object BPColor: TEdit Tag = 2 - Left = 511 - Top = 9 - Width = 55 + Left = 472 + Top = 8 + Width = 50 Height = 26 CharCase = ecUpperCase Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -262,14 +262,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object BPName: TEdit Tag = 2 - Left = 315 - Top = 141 - Width = 132 + Left = 291 + Top = 130 + Width = 122 Height = 26 CharCase = ecUpperCase Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -279,14 +279,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object BPNote: TEdit Tag = 2 - Left = 392 - Top = 44 - Width = 298 + Left = 362 + Top = 41 + Width = 275 Height = 26 CharCase = ecUpperCase Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -295,14 +295,14 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object BPPrice: TEdit Tag = 2 - Left = 639 - Top = 9 - Width = 50 + Left = 590 + Top = 8 + Width = 46 Height = 26 CharCase = ecUpperCase Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -311,10 +311,10 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end end object Panel6: TPanel - Left = 221 + Left = 204 Top = 2 - Width = 918 - Height = 506 + Width = 943 + Height = 525 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -322,12 +322,12 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX object cxGrid1: TcxGrid Left = 2 Top = 33 - Width = 914 - Height = 471 + Width = 939 + Height = 490 Align = alClient TabOrder = 0 object TV1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellDblClick = TV1CellDblClick OnFocusedRecordChanged = TV1FocusedRecordChanged DataController.DataSource = DataSource1 @@ -384,7 +384,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX object ToolBar2: TToolBar Left = 2 Top = 2 - Width = 914 + Width = 939 Height = 31 ButtonHeight = 30 ButtonWidth = 59 @@ -432,8 +432,8 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX object Panel7: TPanel Left = 2 Top = 2 - Width = 219 - Height = 506 + Width = 202 + Height = 525 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -441,21 +441,21 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX object cxDBTreeList1: TcxDBTreeList Left = 2 Top = 33 - Width = 215 - Height = 471 + Width = 198 + Height = 490 Align = alClient Bands = < item end> - BufferedPaint = False DataController.DataSource = DataSource4 DataController.ParentField = 'CPParent' DataController.KeyField = 'CPID' Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] + Navigator.Buttons.CustomButtons = <> OptionsBehavior.ExpandOnDblClick = False OptionsSelection.CellSelect = False OptionsView.CellAutoHeight = True @@ -470,15 +470,17 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn DataBinding.FieldName = 'CP' Width = 210 - Position.ColIndex = 1 + Position.ColIndex = 0 Position.RowIndex = 0 Position.BandIndex = 0 + Summary.FooterSummaryItems = <> + Summary.GroupFooterSummaryItems = <> end end object ToolBar3: TToolBar Left = 2 Top = 2 - Width = 215 + Width = 198 Height = 31 ButtonHeight = 30 ButtonWidth = 71 @@ -18445,6 +18447,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object cxStyleRepository1: TcxStyleRepository Left = 728 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clSkyBlue @@ -18458,6 +18461,7 @@ object frmBPZDY_LRX: TfrmBPZDY_LRX end object cxStyleRepository2: TcxStyleRepository Left = 641 + PixelsPerInch = 96 object cxStyle2: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET diff --git a/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.pas b/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.pas index c2969a7..55b28f6 100644 --- a/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.pas +++ b/云翔生产管理(MYSC.dll)/U_BPZdy_LRX.pas @@ -10,7 +10,22 @@ uses cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, - cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter; + cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter, + cxLookAndFeels, cxLookAndFeelPainters, 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, + cxNavigator, cxTLdxBarBuiltInMenu; type TfrmBPZDY_LRX = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_CGCX.dfm b/云翔生产管理(MYSC.dll)/U_CGCX.dfm index 81d5fa9..f9283f2 100644 --- a/云翔生产管理(MYSC.dll)/U_CGCX.dfm +++ b/云翔生产管理(MYSC.dll)/U_CGCX.dfm @@ -21,7 +21,7 @@ object frmCGCX: TfrmCGCX object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1076 + Width = 1084 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -100,8 +100,8 @@ object frmCGCX: TfrmCGCX object cxGrid1: TcxGrid Left = 0 Top = 109 - Width = 1076 - Height = 296 + Width = 1084 + Height = 304 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView @@ -166,7 +166,7 @@ object frmCGCX: TfrmCGCX object Panel1: TPanel Left = 0 Top = 32 - Width = 1076 + Width = 1084 Height = 77 Align = alTop BevelInner = bvRaised @@ -280,8 +280,8 @@ object frmCGCX: TfrmCGCX end object cxGrid2: TcxGrid Left = 0 - Top = 405 - Width = 1076 + Top = 413 + Width = 1084 Height = 242 Align = alBottom TabOrder = 3 diff --git a/云翔生产管理(MYSC.dll)/U_CGCX.pas b/云翔生产管理(MYSC.dll)/U_CGCX.pas index 32b3b97..d63fc14 100644 --- a/云翔生产管理(MYSC.dll)/U_CGCX.pas +++ b/云翔生产管理(MYSC.dll)/U_CGCX.pas @@ -10,7 +10,21 @@ uses cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, - cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmCGCX = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.dfm b/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.dfm index 15bc682..2c7399b 100644 --- a/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.dfm +++ b/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.dfm @@ -7,22 +7,22 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 17 + PixelsPerInch = 96 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1367 + Width = 1375 Height = 31 ButtonHeight = 30 - ButtonWidth = 69 + ButtonWidth = 65 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -40,7 +40,7 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF OnClick = TBRafreshClick end object ToolButton2: TToolButton - Left = 73 + Left = 69 Top = 0 AutoSize = True Caption = #36807#28388 @@ -48,7 +48,7 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 146 + Left = 138 Top = 0 AutoSize = True Caption = #23548#20986 @@ -56,7 +56,7 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 219 + Left = 207 Top = 0 AutoSize = True Caption = #20851#38381 @@ -67,82 +67,82 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF object Panel1: TPanel Left = 0 Top = 31 - Width = 1367 - Height = 79 + Width = 1375 + Height = 70 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 1 object Label3: TLabel - Left = 38 - Top = 15 - Width = 64 - Height = 16 + Left = 34 + Top = 13 + Width = 61 + Height = 15 Caption = #20379' '#24212' '#21830 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label4: TLabel - Left = 233 - Top = 46 - Width = 32 - Height = 16 + Left = 206 + Top = 41 + Width = 30 + Height = 15 Caption = #21697#21517 end object Label12: TLabel - Left = 417 - Top = 15 - Width = 64 - Height = 16 + Left = 368 + Top = 13 + Width = 60 + Height = 15 Caption = #21333#20215#23457#26680 end object Label5: TLabel - Left = 38 - Top = 46 - Width = 64 - Height = 16 + Left = 34 + Top = 41 + Width = 60 + Height = 15 Caption = #26159#21542#21547#31246 end object Label1: TLabel - Left = 619 - Top = 14 - Width = 64 - Height = 16 + Left = 546 + Top = 12 + Width = 60 + Height = 15 Caption = #26597#35810#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label2: TLabel - Left = 417 - Top = 46 - Width = 64 - Height = 16 + Left = 368 + Top = 41 + Width = 62 + Height = 15 Caption = #39068' '#33394 end object GYSJCName: TEdit Tag = 2 - Left = 111 - Top = 11 - Width = 193 + Left = 98 + Top = 10 + Width = 170 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -151,20 +151,20 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF OnKeyPress = GYSJCNameKeyPress end object begdate: TDateTimePicker - Left = 685 - Top = 10 - Width = 120 - Height = 24 + Left = 604 + Top = 9 + Width = 106 + Height = 23 Date = 41256.918237847230000000 Time = 41256.918237847230000000 TabOrder = 1 Visible = False end object Enddate: TDateTimePicker - Left = 685 - Top = 41 - Width = 120 - Height = 24 + Left = 604 + Top = 36 + Width = 106 + Height = 23 Date = 41256.918237847230000000 Time = 41256.918237847230000000 TabOrder = 2 @@ -172,30 +172,30 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end object P_CodeName: TEdit Tag = 2 - Left = 268 - Top = 42 - Width = 128 + Left = 236 + Top = 37 + Width = 113 Height = 24 TabOrder = 3 OnChange = GYSJCNameChange end object CheckBox1: TCheckBox - Left = 614 - Top = 44 - Width = 69 - Height = 19 + Left = 542 + Top = 39 + Width = 61 + Height = 17 Caption = #25353#26085#26399 TabOrder = 4 OnClick = CheckBox1Click end object ChkStatusP: TComboBox Tag = 2 - Left = 486 - Top = 11 - Width = 105 - Height = 24 + Left = 429 + Top = 10 + Width = 92 + Height = 23 Style = csDropDownList - ItemHeight = 16 + ItemHeight = 15 TabOrder = 5 OnChange = GYSJCNameChange Items.Strings = ( @@ -205,12 +205,12 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end object HanShui: TComboBox Tag = 2 - Left = 111 - Top = 42 - Width = 94 - Height = 24 + Left = 98 + Top = 37 + Width = 83 + Height = 23 Style = csDropDownList - ItemHeight = 16 + ItemHeight = 15 TabOrder = 6 OnChange = GYSJCNameChange Items.Strings = ( @@ -220,22 +220,22 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end object P_Color: TEdit Tag = 2 - Left = 486 - Top = 43 - Width = 105 + Left = 429 + Top = 38 + Width = 92 Height = 24 TabOrder = 7 OnChange = GYSJCNameChange end object FactoryNo: TEdit Tag = 2 - Left = 305 - Top = 11 - Width = 91 + Left = 269 + Top = 10 + Width = 80 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -244,67 +244,67 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF OnKeyPress = FactoryNoKeyPress end object Panel3: TPanel - Left = 1182 + Left = 1212 Top = 2 - Width = 183 - Height = 75 + Width = 161 + Height = 66 Align = alRight BevelOuter = bvNone TabOrder = 9 object Label13: TLabel - Left = 15 - Top = 5 - Width = 81 - Height = 30 + Left = 13 + Top = 4 + Width = 72 + Height = 27 AutoSize = False Caption = ' ' Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -30 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label14: TLabel - Left = 97 - Top = 11 - Width = 68 - Height = 16 + Left = 86 + Top = 10 + Width = 64 + Height = 15 Caption = #65306#26410#23457#26680 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel - Left = 15 - Top = 41 - Width = 81 - Height = 30 + Left = 13 + Top = 36 + Width = 72 + Height = 27 AutoSize = False Caption = ' ' Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -30 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label16: TLabel - Left = 97 - Top = 48 - Width = 68 - Height = 16 + Left = 86 + Top = 42 + Width = 64 + Height = 15 Caption = #65306#24050#23457#26680 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -313,17 +313,17 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end object cxGrid2: TcxGrid Left = 0 - Top = 110 - Width = 479 - Height = 515 + Top = 101 + Width = 423 + Height = 533 Align = alLeft PopupMenu = PopupMenu1 TabOrder = 2 object Tv2: TcxGridDBTableView OnMouseDown = Tv2MouseDown - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_HZ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -369,9 +369,9 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF Properties.ReadOnly = True Properties.OnButtonClick = v2P_SpecPropertiesButtonClick HeaderAlignmentHorz = taCenter - Hidden = True Options.Editing = False Options.Focusing = False + VisibleForCustomization = False Width = 147 end object v2Column1: TcxGridDBColumn @@ -385,14 +385,14 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end end object cxGridPB: TcxGrid - Left = 513 - Top = 385 - Width = 667 - Height = 236 + Left = 453 + Top = 340 + Width = 588 + Height = 208 PopupMenu = PopupMenu1 TabOrder = 3 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSourcePB DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -518,14 +518,14 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end end object cxGridM: TcxGrid - Left = 483 - Top = 114 - Width = 365 - Height = 259 + Left = 426 + Top = 101 + Width = 322 + Height = 228 PopupMenu = PopupMenu1 TabOrder = 4 object TV3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSourceM DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -650,14 +650,14 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end end object cxGridX: TcxGrid - Left = 994 - Top = 107 - Width = 297 - Height = 264 + Left = 877 + Top = 94 + Width = 262 + Height = 233 PopupMenu = PopupMenu1 TabOrder = 5 object TV4: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSourceX DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -804,17 +804,17 @@ object frmCGPriceChk_BF: TfrmCGPriceChk_BF end end object Panel2: TPanel - Left = 652 - Top = 324 - Width = 337 - Height = 47 + Left = 575 + Top = 286 + Width = 298 + Height = 41 BevelInner = bvRaised BevelOuter = bvLowered Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.pas b/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.pas index ee1d5d3..683e8ab 100644 --- a/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.pas +++ b/云翔生产管理(MYSC.dll)/U_CGPriceChk_BF.pas @@ -12,7 +12,22 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, - cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus; + cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmCGPriceChk_BF = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_CGRKList.dfm b/云翔生产管理(MYSC.dll)/U_CGRKList.dfm index d354b95..ab52631 100644 --- a/云翔生产管理(MYSC.dll)/U_CGRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_CGRKList.dfm @@ -1,6 +1,6 @@ object frmCGRKList: TfrmCGRKList - Left = 189 - Top = 135 + Left = 480 + Top = 284 Width = 1217 Height = 669 Caption = #37319#36141#20837#24211#30331#35760 @@ -20,7 +20,7 @@ object frmCGRKList: TfrmCGRKList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1201 + Width = 1209 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -77,7 +77,6 @@ object frmCGRKList: TfrmCGRKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -114,8 +113,8 @@ object frmCGRKList: TfrmCGRKList object cxGrid1: TcxGrid Left = 0 Top = 99 - Width = 1201 - Height = 531 + Width = 1209 + Height = 539 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 @@ -233,7 +232,7 @@ object frmCGRKList: TfrmCGRKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1201 + Width = 1209 Height = 67 Align = alTop BevelInner = bvRaised @@ -310,7 +309,7 @@ object frmCGRKList: TfrmCGRKList Left = 286 Top = 9 Width = 118 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -355,7 +354,7 @@ object frmCGRKList: TfrmCGRKList Left = 70 Top = 9 Width = 106 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -370,7 +369,7 @@ object frmCGRKList: TfrmCGRKList Left = 286 Top = 35 Width = 144 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -385,7 +384,7 @@ object frmCGRKList: TfrmCGRKList Left = 70 Top = 35 Width = 106 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -400,7 +399,7 @@ object frmCGRKList: TfrmCGRKList Left = 485 Top = 9 Width = 75 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 diff --git a/云翔生产管理(MYSC.dll)/U_CGRKList.pas b/云翔生产管理(MYSC.dll)/U_CGRKList.pas index 6aa9a6b..ff20abd 100644 --- a/云翔生产管理(MYSC.dll)/U_CGRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_CGRKList.pas @@ -11,7 +11,20 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, 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 TfrmCGRKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_CPListDML.dfm b/云翔生产管理(MYSC.dll)/U_CPListDML.dfm index 2a44109..8fd4220 100644 --- a/云翔生产管理(MYSC.dll)/U_CPListDML.dfm +++ b/云翔生产管理(MYSC.dll)/U_CPListDML.dfm @@ -7,7 +7,7 @@ object frmCPListDML: TfrmCPListDML Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmCPListDML: TfrmCPListDML OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1263 + Width = 1271 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -109,7 +109,6 @@ object frmCPListDML: TfrmCPListDML AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -123,16 +122,16 @@ object frmCPListDML: TfrmCPListDML end object cxGrid1: TcxGrid Left = 0 - Top = 104 - Width = 1263 - Height = 449 + Top = 98 + Width = 1271 + Height = 467 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick OnMouseDown = Tv1MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -218,8 +217,8 @@ object frmCPListDML: TfrmCPListDML Caption = #23454#29289#22270#29255 DataBinding.FieldName = 'ImageFileTP' PropertiesClassName = 'TcxImageProperties' + Properties.FitMode = ifmProportionalStretch Properties.GraphicClassName = 'TJPEGImage' - Properties.Stretch = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 96 @@ -281,8 +280,8 @@ object frmCPListDML: TfrmCPListDML object Panel11: TPanel Left = 0 Top = 32 - Width = 1263 - Height = 45 + Width = 1271 + Height = 41 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -291,64 +290,64 @@ object frmCPListDML: TfrmCPListDML object Panel5: TPanel Left = 2 Top = 2 - Width = 373 - Height = 41 + Width = 344 + Height = 37 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 0 object Label3: TLabel - Left = 14 - Top = 13 - Width = 68 - Height = 16 + Left = 13 + Top = 12 + Width = 64 + Height = 15 Caption = #26597#35810#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 218 - Top = 13 - Width = 17 - Height = 16 + Left = 201 + Top = 12 + Width = 16 + Height = 15 Caption = #33267 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object BegDate: TDateTimePicker - Left = 83 - Top = 9 - Width = 133 - Height = 24 + Left = 77 + Top = 8 + Width = 122 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object EndDate: TDateTimePicker - Left = 239 - Top = 9 - Width = 133 - Height = 24 + Left = 221 + Top = 8 + Width = 122 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -356,115 +355,115 @@ object frmCPListDML: TfrmCPListDML end end object Panel1: TPanel - Left = 375 + Left = 346 Top = 2 - Width = 886 - Height = 41 + Width = 923 + Height = 37 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel - Left = 17 - Top = 13 - Width = 34 - Height = 16 + Left = 16 + Top = 12 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 145 - Top = 13 - Width = 34 - Height = 16 + Left = 134 + Top = 12 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel - Left = 270 - Top = 13 - Width = 34 - Height = 16 + Left = 249 + Top = 12 + Width = 32 + Height = 15 Caption = #24037#33402 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 545 - Top = 13 - Width = 51 - Height = 16 + Left = 503 + Top = 12 + Width = 48 + Height = 15 Caption = #20462#25913#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 399 - Top = 13 - Width = 51 - Height = 16 + Left = 368 + Top = 12 + Width = 48 + Height = 15 Caption = #30331#35760#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 826 - Top = 13 - Width = 34 - Height = 16 + Left = 762 + Top = 12 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label13: TLabel - Left = 694 - Top = 13 - Width = 34 - Height = 16 + Left = 641 + Top = 12 + Width = 32 + Height = 15 Caption = #23458#25143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object ZIID: TEdit Tag = 2 - Left = 54 - Top = 9 - Width = 78 + Left = 50 + Top = 8 + Width = 72 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -473,13 +472,13 @@ object frmCPListDML: TfrmCPListDML end object ZIName: TEdit Tag = 2 - Left = 182 - Top = 9 - Width = 75 + Left = 168 + Top = 8 + Width = 69 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -488,13 +487,13 @@ object frmCPListDML: TfrmCPListDML end object ZIGY: TEdit Tag = 2 - Left = 307 - Top = 9 - Width = 80 + Left = 283 + Top = 8 + Width = 74 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -503,13 +502,13 @@ object frmCPListDML: TfrmCPListDML end object Editer: TEdit Tag = 2 - Left = 598 - Top = 9 - Width = 80 + Left = 552 + Top = 8 + Width = 74 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -518,13 +517,13 @@ object frmCPListDML: TfrmCPListDML end object Filler: TEdit Tag = 2 - Left = 453 - Top = 9 - Width = 80 + Left = 418 + Top = 8 + Width = 74 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -533,13 +532,13 @@ object frmCPListDML: TfrmCPListDML end object Note: TEdit Tag = 2 - Left = 863 - Top = 9 - Width = 81 + Left = 797 + Top = 8 + Width = 74 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -548,13 +547,13 @@ object frmCPListDML: TfrmCPListDML end object KHNameHZ: TEdit Tag = 2 - Left = 732 - Top = 9 - Width = 81 + Left = 676 + Top = 8 + Width = 74 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -564,16 +563,16 @@ object frmCPListDML: TfrmCPListDML end end object Panel2: TPanel - Left = 468 - Top = 234 - Width = 270 - Height = 44 + Left = 432 + Top = 216 + Width = 249 + Height = 41 BevelOuter = bvNone Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -582,95 +581,96 @@ object frmCPListDML: TfrmCPListDML end object cxTabControl2: TcxTabControl Left = 0 - Top = 77 - Width = 1263 - Height = 27 + Top = 73 + Width = 1271 + Height = 25 Align = alTop Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - Style = 8 TabOrder = 4 + Properties.CustomButtons.Buttons = <> + Properties.Style = 8 OnChange = cxTabControl2Change - ClientRectBottom = 27 - ClientRectRight = 1263 + ClientRectBottom = 25 + ClientRectRight = 1271 ClientRectTop = 0 end object Panel4: TPanel Left = 0 - Top = 553 - Width = 1263 - Height = 44 + Top = 565 + Width = 1271 + Height = 41 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 5 object Label9: TLabel - Left = 15 - Top = 13 - Width = 51 - Height = 16 + Left = 14 + Top = 12 + Width = 48 + Height = 15 Caption = #21512#35745#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel - Left = 147 - Top = 13 - Width = 17 - Height = 16 + Left = 136 + Top = 12 + Width = 16 + Height = 15 Caption = #39029 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel - Left = 296 - Top = 13 - Width = 69 - Height = 16 + Left = 273 + Top = 12 + Width = 66 + Height = 15 Caption = '('#20135#21697#25968')' Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel - Left = 505 - Top = 13 - Width = 103 - Height = 16 + Left = 466 + Top = 12 + Width = 98 + Height = 15 Caption = '('#25346#38057#24211#23384#25968')' Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object YeHZ: TEdit Tag = 2 - Left = 64 - Top = 9 - Width = 78 + Left = 59 + Top = 8 + Width = 72 Height = 24 Color = clMenu Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -680,14 +680,14 @@ object frmCPListDML: TfrmCPListDML end object CPHZ: TEdit Tag = 2 - Left = 218 - Top = 9 - Width = 78 + Left = 201 + Top = 8 + Width = 72 Height = 24 Color = clMenu Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -697,14 +697,14 @@ object frmCPListDML: TfrmCPListDML end object GGHZ: TEdit Tag = 2 - Left = 428 - Top = 9 - Width = 78 + Left = 395 + Top = 8 + Width = 72 Height = 24 Color = clMenu Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_CPListDML.pas b/云翔生产管理(MYSC.dll)/U_CPListDML.pas index f0d5d85..b8d8990 100644 --- a/云翔生产管理(MYSC.dll)/U_CPListDML.pas +++ b/云翔生产管理(MYSC.dll)/U_CPListDML.pas @@ -10,7 +10,22 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage,StrUtils; + Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage,StrUtils, + cxLookAndFeels, cxLookAndFeelPainters, 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, + cxNavigator, dxBarBuiltInMenu; type TfrmCPListDML = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm b/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm index 1623e0d..830f078 100644 --- a/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm +++ b/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm @@ -102,7 +102,6 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton diff --git a/云翔生产管理(MYSC.dll)/U_GYSList.dfm b/云翔生产管理(MYSC.dll)/U_GYSList.dfm index 92e986c..b2065ca 100644 --- a/云翔生产管理(MYSC.dll)/U_GYSList.dfm +++ b/云翔生产管理(MYSC.dll)/U_GYSList.dfm @@ -7,7 +7,7 @@ object frmGYSList: TfrmGYSList Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -16,12 +16,12 @@ object frmGYSList: TfrmGYSList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 120 - TextHeight = 15 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1107 + Width = 1117 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -82,9 +82,9 @@ object frmGYSList: TfrmGYSList end object cxGrid1: TcxGrid Left = 0 - Top = 82 - Width = 1107 - Height = 557 + Top = 72 + Width = 1117 + Height = 583 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView @@ -129,6 +129,12 @@ object frmGYSList: TfrmGYSList HeaderAlignmentHorz = taCenter Width = 114 end + object Tv1Column1: TcxGridDBColumn + Caption = #20379#24212#21830#20840#31216 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Width = 138 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -137,75 +143,75 @@ object frmGYSList: TfrmGYSList object Panel1: TPanel Left = 0 Top = 32 - Width = 1107 - Height = 50 + Width = 1117 + Height = 40 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label9: TLabel - Left = 284 - Top = 19 - Width = 80 - Height = 15 + Left = 227 + Top = 15 + Width = 65 + Height = 12 Caption = #20379#24212#21830#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 24 - Top = 19 - Width = 80 - Height = 15 + Left = 19 + Top = 15 + Width = 65 + Height = 12 Caption = #20379#24212#21830#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label34: TLabel - Left = 546 - Top = 19 - Width = 96 - Height = 15 + Left = 437 + Top = 15 + Width = 78 + Height = 12 Caption = #20379#24212#21830#31867#22411#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHNameJC: TEdit Tag = 2 - Left = 368 - Top = 14 - Width = 156 - Height = 20 + Left = 294 + Top = 11 + Width = 125 + Height = 23 TabOrder = 0 OnChange = CustomerNoNameChange end object KHNo: TEdit Tag = 2 - Left = 108 - Top = 14 - Width = 156 - Height = 20 + Left = 86 + Top = 11 + Width = 125 + Height = 23 TabOrder = 1 OnChange = CustomerNoNameChange end object KHType: TBtnEditC Tag = 1 - Left = 638 - Top = 14 - Width = 151 + Left = 510 + Top = 11 + Width = 121 Height = 23 ReadOnly = True TabOrder = 2 @@ -283,7 +289,7 @@ object frmGYSList: TfrmGYSList Top = 160 end object cxStyleRepository1: TcxStyleRepository - PixelsPerInch = 120 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = 4707838 diff --git a/云翔生产管理(MYSC.dll)/U_GYSList.pas b/云翔生产管理(MYSC.dll)/U_GYSList.pas index 7d0930b..511381b 100644 --- a/云翔生产管理(MYSC.dll)/U_GYSList.pas +++ b/云翔生产管理(MYSC.dll)/U_GYSList.pas @@ -11,7 +11,20 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, 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 TfrmGYSList = class(TForm) @@ -45,6 +58,7 @@ type v1KHLXR: TcxGridDBColumn; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; + Tv1Column1: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); diff --git a/云翔生产管理(MYSC.dll)/U_JGCKList.dfm b/云翔生产管理(MYSC.dll)/U_JGCKList.dfm index f65c247..1c1645e 100644 --- a/云翔生产管理(MYSC.dll)/U_JGCKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_JGCKList.dfm @@ -7,7 +7,7 @@ object frmJGCKList: TfrmJGCKList Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmJGCKList: TfrmJGCKList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 120 - TextHeight = 15 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1644 + Width = 1654 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -69,7 +69,6 @@ object frmJGCKList: TfrmJGCKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object ToolButton1: TToolButton @@ -105,9 +104,9 @@ object frmJGCKList: TfrmJGCKList end object cxGrid1: TcxGrid Left = 0 - Top = 115 - Width = 1644 - Height = 663 + Top = 98 + Width = 1654 + Height = 696 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -315,152 +314,152 @@ object frmJGCKList: TfrmJGCKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1644 - Height = 83 + Width = 1654 + Height = 66 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label34: TLabel - Left = 259 - Top = 16 - Width = 77 - Height = 18 + Left = 207 + Top = 13 + Width = 66 + Height = 15 Caption = #21152' '#24037' '#21378 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 19 - Top = 16 - Width = 38 - Height = 18 + Left = 15 + Top = 13 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 19 - Top = 50 - Width = 38 - Height = 18 + Left = 15 + Top = 40 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 259 - Top = 50 - Width = 76 - Height = 18 + Left = 207 + Top = 40 + Width = 64 + Height = 15 Caption = #25910#36135#21333#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 564 - Top = 16 - Width = 57 - Height = 18 + Left = 451 + Top = 13 + Width = 48 + Height = 15 Caption = #21046#20316#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 564 - Top = 50 - Width = 58 - Height = 18 + Left = 451 + Top = 40 + Width = 50 + Height = 15 Caption = #31867' '#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 783 - Top = 16 - Width = 76 - Height = 18 + Left = 626 + Top = 13 + Width = 64 + Height = 15 Caption = #25351#31034#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel - Left = 783 - Top = 50 - Width = 78 - Height = 18 + Left = 626 + Top = 40 + Width = 68 + Height = 15 Caption = #23458' '#25143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 1007 - Top = 50 - Width = 95 - Height = 18 + Left = 806 + Top = 40 + Width = 80 + Height = 15 Caption = #22383#24067#32852#31995#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel - Left = 1007 - Top = 14 - Width = 88 - Height = 18 + Left = 806 + Top = 11 + Width = 77 + Height = 15 Caption = #39068' '#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHNameHZ: TEdit Tag = 2 - Left = 344 - Top = 11 - Width = 197 + Left = 275 + Top = 9 + Width = 158 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -468,30 +467,30 @@ object frmJGCKList: TfrmJGCKList OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 1356 - Top = 11 - Width = 159 - Height = 26 + Left = 1085 + Top = 9 + Width = 127 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object EndDate: TDateTimePicker - Left = 1356 - Top = 45 - Width = 159 - Height = 26 + Left = 1085 + Top = 36 + Width = 127 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -499,13 +498,13 @@ object frmJGCKList: TfrmJGCKList end object MYName: TEdit Tag = 2 - Left = 61 - Top = 11 - Width = 177 + Left = 49 + Top = 9 + Width = 141 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -514,13 +513,13 @@ object frmJGCKList: TfrmJGCKList end object Note: TEdit Tag = 2 - Left = 61 - Top = 45 - Width = 177 + Left = 49 + Top = 36 + Width = 141 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -528,15 +527,15 @@ object frmJGCKList: TfrmJGCKList OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 1249 - Top = 15 - Width = 102 - Height = 20 + Left = 999 + Top = 12 + Width = 82 + Height = 16 Caption = #26597#35810#26085#26399 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -546,13 +545,13 @@ object frmJGCKList: TfrmJGCKList end object JCDanWeiJC: TEdit Tag = 2 - Left = 344 - Top = 45 - Width = 197 + Left = 275 + Top = 36 + Width = 158 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -561,13 +560,13 @@ object frmJGCKList: TfrmJGCKList end object filler: TEdit Tag = 2 - Left = 629 - Top = 11 - Width = 129 + Left = 503 + Top = 9 + Width = 103 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -576,31 +575,31 @@ object frmJGCKList: TfrmJGCKList end object MYTypeFlag: TComboBox Tag = 1 - Left = 630 - Top = 45 - Width = 130 - Height = 26 + Left = 504 + Top = 36 + Width = 104 + Height = 23 Style = csDropDownList DropDownCount = 20 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemHeight = 18 + ItemHeight = 15 ParentFont = False TabOrder = 8 OnChange = CustomerNoNameChange end object MLOrderNo: TEdit Tag = 2 - Left = 864 - Top = 10 - Width = 119 + Left = 691 + Top = 8 + Width = 95 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -609,13 +608,13 @@ object frmJGCKList: TfrmJGCKList end object KHNameHZZ: TEdit Tag = 2 - Left = 864 - Top = 45 - Width = 119 + Left = 691 + Top = 36 + Width = 95 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -624,13 +623,13 @@ object frmJGCKList: TfrmJGCKList end object PBBatchNo: TEdit Tag = 2 - Left = 1104 - Top = 45 - Width = 137 + Left = 883 + Top = 36 + Width = 110 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -639,13 +638,13 @@ object frmJGCKList: TfrmJGCKList end object MYColor: TEdit Tag = 2 - Left = 1104 - Top = 9 - Width = 136 + Left = 883 + Top = 7 + Width = 109 Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_JGCKList.pas b/云翔生产管理(MYSC.dll)/U_JGCKList.pas index 25f64f1..e0f5ede 100644 --- a/云翔生产管理(MYSC.dll)/U_JGCKList.pas +++ b/云翔生产管理(MYSC.dll)/U_JGCKList.pas @@ -11,7 +11,21 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmJGCKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm index d569fb1..ec89615 100644 --- a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm +++ b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm @@ -20,7 +20,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -118,7 +118,6 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object ToolButton1: TToolButton @@ -165,8 +164,8 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ object cxGrid1: TcxGrid Left = 0 Top = 121 - Width = 1540 - Height = 621 + Width = 1548 + Height = 629 Align = alClient PopupMenu = PopupMenu2 TabOrder = 2 @@ -369,7 +368,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ object Panel1: TPanel Left = 0 Top = 32 - Width = 1540 + Width = 1548 Height = 66 Align = alTop BevelInner = bvRaised @@ -1199,7 +1198,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ object cxTabControl1: TcxTabControl Left = 0 Top = 98 - Width = 1540 + Width = 1548 Height = 23 Align = alTop TabOrder = 6 @@ -1211,7 +1210,7 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ #20986#24211) OnChange = cxTabControl1Change ClientRectBottom = 23 - ClientRectRight = 1540 + ClientRectRight = 1548 ClientRectTop = 19 end object Panel5: TPanel diff --git a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas index 3f36313..2d5436d 100644 --- a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas +++ b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas @@ -272,7 +272,7 @@ begin sql.Add('select AA.* '); sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); sql.Add('from('); - sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); + sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); @@ -312,7 +312,7 @@ begin // sql.add(' and A.filler='''+trim(DName)+''''); // end; sql.Add(')AA'); -// ShowMessage(SQL.text); + // ShowMessage(SQL.text); Open; end; SCreateCDS20(ADOQueryMain, Order_Main); @@ -1035,7 +1035,7 @@ begin Close; sql.Clear; sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' '); -// sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); // sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); diff --git a/云翔生产管理(MYSC.dll)/U_LLCKList.dfm b/云翔生产管理(MYSC.dll)/U_LLCKList.dfm index de4132a..0acff69 100644 --- a/云翔生产管理(MYSC.dll)/U_LLCKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLCKList.dfm @@ -69,7 +69,6 @@ object frmLLCKList: TfrmLLCKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object ToolButton1: TToolButton diff --git a/云翔生产管理(MYSC.dll)/U_LLKCList.dfm b/云翔生产管理(MYSC.dll)/U_LLKCList.dfm index 114b899..b2c6e0c 100644 --- a/云翔生产管理(MYSC.dll)/U_LLKCList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLKCList.dfm @@ -1,6 +1,6 @@ object frmLLKCList: TfrmLLKCList - Left = 291 - Top = 163 + Left = 311 + Top = 283 Width = 1556 Height = 781 Caption = #24211#23384 @@ -118,7 +118,6 @@ object frmLLKCList: TfrmLLKCList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object ToolButton1: TToolButton @@ -233,7 +232,7 @@ object frmLLKCList: TfrmLLKCList end object v1Column13: TcxGridDBColumn Caption = #23458#25143#32534#21495 - DataBinding.FieldName = 'KHNOKH' + DataBinding.FieldName = 'KHCode' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter @@ -241,7 +240,7 @@ object frmLLKCList: TfrmLLKCList end object v1Column12: TcxGridDBColumn Caption = #23458#25143 - DataBinding.FieldName = 'KHNameJCZ' + DataBinding.FieldName = 'KHName' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter @@ -709,7 +708,7 @@ object frmLLKCList: TfrmLLKCList end object Panel2: TPanel Left = 276 - Top = 126 + Top = 158 Width = 509 Height = 379 Color = clSkyBlue diff --git a/云翔生产管理(MYSC.dll)/U_LLKCList.pas b/云翔生产管理(MYSC.dll)/U_LLKCList.pas index 0da2e9e..60a3640 100644 --- a/云翔生产管理(MYSC.dll)/U_LLKCList.pas +++ b/云翔生产管理(MYSC.dll)/U_LLKCList.pas @@ -272,7 +272,7 @@ begin sql.Add('select AA.* '); sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); sql.Add('from('); - sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); + sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); @@ -1035,7 +1035,7 @@ begin Close; sql.Clear; sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' '); -// sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); // sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); // sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm index f6a5f12..3287737 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm @@ -20,7 +20,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1316 + Width = 1324 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -99,8 +99,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel3: TPanel Left = 0 Top = 30 - Width = 1316 - Height = 572 + Width = 1324 + Height = 580 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -108,7 +108,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel4: TPanel Left = 2 Top = 2 - Width = 1312 + Width = 1320 Height = 64 Align = alTop BevelInner = bvRaised @@ -172,7 +172,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel15: TPanel Left = 2 Top = 30 - Width = 1308 + Width = 1316 Height = 32 Align = alBottom BevelInner = bvRaised @@ -222,7 +222,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 456 Top = 6 Width = 77 - Height = 28 + Height = 24 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -238,7 +238,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 111 Top = 5 Width = 345 - Height = 29 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 @@ -267,7 +267,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 853 Top = 6 Width = 104 - Height = 28 + Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 @@ -282,7 +282,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 854 Top = 5 Width = 104 - Height = 28 + Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 @@ -296,7 +296,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 112 Top = 3 Width = 345 - Height = 29 + Height = 25 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -313,7 +313,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 458 Top = 5 Width = 77 - Height = 28 + Height = 24 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -328,8 +328,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel5: TPanel Left = 2 Top = 66 - Width = 1312 - Height = 504 + Width = 1320 + Height = 512 Align = alClient TabOrder = 1 object Label12: TLabel @@ -729,7 +729,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 332 Top = 7 Width = 37 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -743,7 +743,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 220 Top = 7 Width = 33 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -757,7 +757,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 492 Top = 8 Width = 51 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -772,7 +772,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 577 Top = 7 Width = 74 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -787,7 +787,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 682 Top = 8 Width = 72 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -802,7 +802,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 492 Top = 41 Width = 51 - Height = 25 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -817,7 +817,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 577 Top = 41 Width = 75 - Height = 25 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -833,7 +833,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 682 Top = 41 Width = 72 - Height = 25 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -849,7 +849,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 492 Top = 74 Width = 51 - Height = 25 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -865,7 +865,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 577 Top = 74 Width = 75 - Height = 25 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -881,7 +881,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 682 Top = 74 Width = 72 - Height = 25 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -930,7 +930,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 1300 Top = 260 Width = 73 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -946,7 +946,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 65 Top = 40 Width = 100 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -960,7 +960,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 65 Top = 73 Width = 268 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -974,7 +974,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 242 Top = 40 Width = 92 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -988,7 +988,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 268 Top = 378 Width = 41 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -1003,7 +1003,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 838 Top = 7 Width = 75 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -1017,7 +1017,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 838 Top = 41 Width = 75 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -1070,7 +1070,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 253 Top = 5 Width = 83 - Height = 28 + Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -16 @@ -1150,7 +1150,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 838 Top = 74 Width = 75 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -1165,7 +1165,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 111 Top = 155 Width = 768 - Height = 33 + Height = 28 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 @@ -1179,7 +1179,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 355 Top = 189 Width = 420 - Height = 34 + Height = 29 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1196,7 +1196,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 775 Top = 190 Width = 104 - Height = 33 + Height = 28 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1244,7 +1244,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 504 Top = 118 Width = 252 - Height = 26 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -15 @@ -1258,7 +1258,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 838 Top = 116 Width = 62 - Height = 26 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -15 @@ -1272,7 +1272,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 66 Top = 7 Width = 100 - Height = 25 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -1422,7 +1422,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 61 Top = 28 Width = 134 - Height = 23 + Height = 20 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -1450,7 +1450,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Left = 83 Top = 185 Width = 285 - Height = 33 + Height = 28 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas index ff07fd8..989df06 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas @@ -13,7 +13,21 @@ uses IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView, - cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters; + cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, + 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; type TfrmLLRKInPutMH_PBCG = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas index 50b53cc..eabe3b8 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas @@ -1014,7 +1014,7 @@ begin ClientDataSet1.Delete; Exit; end; - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then begin with ADOCmd do begin diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList.dfm b/云翔生产管理(MYSC.dll)/U_LLRKList.dfm index e882f2c..9e5ee9c 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKList.dfm @@ -60,7 +60,6 @@ object frmLLRKList: TfrmLLRKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -1219,7 +1218,7 @@ object frmLLRKList: TfrmLLRKList Top = 8 end object PopupMenu1: TPopupMenu - Left = 190 + Left = 110 Top = 241 object N1: TMenuItem Caption = #20462#25913 @@ -1302,14 +1301,14 @@ object frmLLRKList: TfrmLLRKList Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 196 - Top = 271 + Left = 156 + Top = 255 end object ADOQuery2: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 232 - Top = 267 + Left = 200 + Top = 259 end end diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList_CP.dfm b/云翔生产管理(MYSC.dll)/U_LLRKList_CP.dfm index 415c917..c6b6b31 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList_CP.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKList_CP.dfm @@ -7,7 +7,7 @@ object frmLLRKList_CP: TfrmLLRKList_CP Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmLLRKList_CP: TfrmLLRKList_CP OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1345 + Width = 1353 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -60,7 +60,6 @@ object frmLLRKList_CP: TfrmLLRKList_CP AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -105,15 +104,15 @@ object frmLLRKList_CP: TfrmLLRKList_CP end object cxGrid1: TcxGrid Left = 0 - Top = 110 - Width = 1345 - Height = 548 + Top = 104 + Width = 1353 + Height = 563 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -312,87 +311,87 @@ object frmLLRKList_CP: TfrmLLRKList_CP object Panel1: TPanel Left = 0 Top = 32 - Width = 1345 - Height = 78 + Width = 1353 + Height = 72 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label34: TLabel - Left = 214 - Top = 16 - Width = 51 - Height = 16 + Left = 198 + Top = 15 + Width = 48 + Height = 15 Caption = #20379#24212#21830 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 427 - Top = 16 - Width = 34 - Height = 16 + Left = 394 + Top = 15 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 427 - Top = 47 - Width = 34 - Height = 16 + Left = 394 + Top = 43 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 42 - Top = 16 - Width = 34 - Height = 16 + Left = 39 + Top = 15 + Width = 32 + Height = 15 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 214 - Top = 47 - Width = 68 - Height = 16 + Left = 198 + Top = 43 + Width = 64 + Height = 15 Caption = #26469#36135#21333#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHName: TEdit Tag = 2 - Left = 270 - Top = 12 - Width = 100 + Left = 249 + Top = 11 + Width = 93 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -400,30 +399,30 @@ object frmLLRKList_CP: TfrmLLRKList_CP OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 699 - Top = 12 - Width = 124 - Height = 24 + Left = 645 + Top = 11 + Width = 115 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object EndDate: TDateTimePicker - Left = 699 - Top = 43 - Width = 124 - Height = 24 + Left = 645 + Top = 40 + Width = 115 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -431,13 +430,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP end object MYName: TEdit Tag = 2 - Left = 464 - Top = 12 - Width = 84 + Left = 428 + Top = 11 + Width = 78 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -446,13 +445,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP end object Note: TEdit Tag = 2 - Left = 464 - Top = 43 - Width = 114 + Left = 428 + Top = 40 + Width = 106 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -461,13 +460,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP end object MYColor: TEdit Tag = 2 - Left = 79 - Top = 12 - Width = 84 + Left = 73 + Top = 11 + Width = 77 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -475,15 +474,15 @@ object frmLLRKList_CP: TfrmLLRKList_CP OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 606 - Top = 15 - Width = 89 - Height = 17 + Left = 559 + Top = 14 + Width = 83 + Height = 16 Caption = #26597#35810#26085#26399 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -493,13 +492,13 @@ object frmLLRKList_CP: TfrmLLRKList_CP end object JCDanWei: TEdit Tag = 2 - Left = 288 - Top = 43 - Width = 82 + Left = 266 + Top = 40 + Width = 76 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -507,64 +506,64 @@ object frmLLRKList_CP: TfrmLLRKList_CP OnChange = CustomerNoNameChange end object Button2: TButton - Left = 371 - Top = 11 - Width = 31 - Height = 26 + Left = 342 + Top = 10 + Width = 29 + Height = 24 Caption = '...' TabOrder = 8 OnClick = Button2Click end object Button3: TButton - Left = 371 - Top = 42 - Width = 31 - Height = 26 + Left = 342 + Top = 39 + Width = 29 + Height = 24 Caption = '...' TabOrder = 9 OnClick = Button3Click end object Button5: TButton - Left = 549 - Top = 11 - Width = 31 - Height = 26 + Left = 507 + Top = 10 + Width = 28 + Height = 24 Caption = '...' TabOrder = 10 OnClick = Button5Click end object Button6: TButton - Left = 164 - Top = 11 - Width = 31 - Height = 26 + Left = 151 + Top = 10 + Width = 29 + Height = 24 Caption = '...' TabOrder = 11 OnClick = Button6Click end end object cxGroupBox2: TcxGroupBox - Left = 952 - Top = 137 + Left = 879 + Top = 126 Caption = #30721#21333'('#25991#20214')'#19978#20256 ParentColor = False ParentFont = False Style.Color = clBtnFace Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clBlue - Style.Font.Height = -16 + Style.Font.Height = -15 Style.Font.Name = #24494#36719#38597#40657 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 3 Visible = False - Height = 218 - Width = 354 + Height = 202 + Width = 327 object Image3: TImage - Left = 327 + Left = 302 Top = 2 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -610,14 +609,14 @@ object frmLLRKList_CP: TfrmLLRKList_CP end object ListView1: TListView Left = 2 - Top = 25 - Width = 350 - Height = 191 + Top = 24 + Width = 323 + Height = 176 Align = alClient Columns = <> Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] LargeImages = ImageList1 @@ -627,34 +626,34 @@ object frmLLRKList_CP: TfrmLLRKList_CP OnDblClick = ListView1DblClick end object Panel12: TPanel - Left = 15 - Top = 66 - Width = 323 - Height = 106 + Left = 14 + Top = 61 + Width = 298 + Height = 98 TabOrder = 1 Visible = False object Label8: TLabel - Left = 11 - Top = 35 - Width = 64 - Height = 15 + Left = 10 + Top = 32 + Width = 56 + Height = 13 Caption = #25991#20214#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button4: TButton - Left = 15 - Top = 65 - Width = 83 - Height = 27 + Left = 14 + Top = 60 + Width = 76 + Height = 25 Caption = #26159 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -664,8 +663,8 @@ object frmLLRKList_CP: TfrmLLRKList_CP object Panel13: TPanel Left = 1 Top = 1 - Width = 321 - Height = 23 + Width = 296 + Height = 21 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone @@ -673,16 +672,16 @@ object frmLLRKList_CP: TfrmLLRKList_CP Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Image4: TImage - Left = 297 + Left = 274 Top = 2 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -728,27 +727,27 @@ object frmLLRKList_CP: TfrmLLRKList_CP end end object WJName: TEdit - Left = 80 - Top = 30 - Width = 232 + Left = 74 + Top = 28 + Width = 214 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Button7: TButton - Left = 228 - Top = 65 - Width = 81 - Height = 27 + Left = 210 + Top = 60 + Width = 75 + Height = 25 Caption = #21542 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -756,27 +755,27 @@ object frmLLRKList_CP: TfrmLLRKList_CP OnClick = Button7Click end object WJPach: TEdit - Left = 94 - Top = 208 - Width = 323 + Left = 87 + Top = 192 + Width = 298 Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object Button8: TButton - Left = 119 - Top = 65 - Width = 83 - Height = 27 + Left = 110 + Top = 60 + Width = 76 + Height = 25 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -785,16 +784,16 @@ object frmLLRKList_CP: TfrmLLRKList_CP end end object Panel4: TPanel - Left = 37 - Top = 110 - Width = 283 - Height = 34 + Left = 34 + Top = 102 + Width = 261 + Height = 31 BevelOuter = bvNone Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList_CP.pas b/云翔生产管理(MYSC.dll)/U_LLRKList_CP.pas index 628bd88..1345835 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList_CP.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKList_CP.pas @@ -12,7 +12,22 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP,ShellAPI, ImgList,StrUtils; + IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, + 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, + cxNavigator; type TfrmLLRKList_CP = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.dfm b/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.dfm index edc845b..aad903a 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.dfm @@ -20,7 +20,7 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1370 + Width = 1378 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -60,7 +60,6 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -107,13 +106,13 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG Left = 0 Top = 104 Width = 1069 - Height = 556 + Height = 563 Align = alLeft PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -312,7 +311,7 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG object Panel1: TPanel Left = 0 Top = 32 - Width = 1370 + Width = 1378 Height = 72 Align = alTop BevelInner = bvRaised @@ -732,9 +731,9 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG end object ListView1: TListView Left = 2 - Top = 22 + Top = 24 Width = 323 - Height = 177 + Height = 175 Align = alClient Columns = <> Font.Charset = GB2312_CHARSET @@ -927,14 +926,14 @@ object frmLLRKList_WJG: TfrmLLRKList_WJG object cxGrid2: TcxGrid Left = 1069 Top = 104 - Width = 301 - Height = 556 + Width = 309 + Height = 563 Align = alClient PopupMenu = PopupMenu1 TabOrder = 5 object TV2: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.pas b/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.pas index e31c366..0b234b8 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKList_WJG.pas @@ -12,7 +12,22 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP,ShellAPI, ImgList,StrUtils; + IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, + 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, + cxNavigator; type TfrmLLRKList_WJG = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas index 2fc4bc9..df2cdb6 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas @@ -4,30 +4,28 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxClasses, cxControls, - cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, - cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, - ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg, - IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus, - cxLookAndFeels, cxLookAndFeelPainters, 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, - cxNavigator; + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, + cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus, + cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator; type TfrmLLRKMXInPut = class(TForm) @@ -118,21 +116,17 @@ type procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); procedure ShuiXiSuoLvClick(Sender: TObject); - procedure ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); + procedure ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure UnitMClick(Sender: TObject); procedure UnitKgClick(Sender: TObject); procedure QtyLRMKeyPress(Sender: TObject; var Key: Char); procedure QtyLRKgKeyPress(Sender: TObject; var Key: Char); procedure BtnQXClick(Sender: TObject); procedure MYNameKeyPress(Sender: TObject; var Key: Char); - procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Button6Click(Sender: TObject); procedure BtnDelClick(Sender: TObject); - procedure v1Column7PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure BtnPrtClick(Sender: TObject); procedure Button1Click(Sender: TObject); @@ -144,23 +138,25 @@ type private procedure InitData(); procedure InitMXData(); - function SaveData():Boolean; + function SaveData(): Boolean; procedure GetHZData(); { Private declarations } public - canshu1:String; - PState,CopyInt:Integer; - FMainId:String; - FRead:String; - FSaveFlag:string; + canshu1: string; + PState, CopyInt: Integer; + FMainId: string; + FRead: string; + FSaveFlag: string; { Public declarations } end; var frmLLRKMXInPut: TfrmLLRKMXInPut; + implementation + uses - U_DataLink,U_ZDYHelp,U_RTFun, U_QCRKJLList; + U_DataLink, U_ZDYHelp, U_RTFun, U_QCRKJLList; {$R *.dfm} @@ -173,74 +169,79 @@ procedure TfrmLLRKMXInPut.InitData(); begin InitMXData(); GetHZData(); - if TBSave.Visible=False then + if TBSave.Visible = False then begin - BtnDel.Visible:=False; - Panel3.Visible:=False; + BtnDel.Visible := False; + Panel3.Visible := False; end; end; + procedure TfrmLLRKMXInPut.InitMXData(); begin with ADOTemp do begin Close; sql.Clear; - sql.Add('select A.*,Laster=isnull(Editer,Filler) from CK_MYSC_CR_MX A where isnull(MYID,'''')='''+Trim(FMainId)+''''); + sql.Add('select A.*,Laster=isnull(Editer,Filler) from CK_MYSC_CR_MX A where isnull(MYID,'''')=''' + Trim(FMainId) + ''''); Open; end; - SCreateCDS20(ADOTemp,ClientDataSet1); - SInitCDSData20(ADOTemp,ClientDataSet1); + SCreateCDS20(ADOTemp, ClientDataSet1); + SInitCDSData20(ADOTemp, ClientDataSet1); end; + procedure TfrmLLRKMXInPut.GetHZData(); var - FKG,FM,FPS:String; + FKG, FM, FPS: string; begin - FKG:=Tv1.DataController.Summary.FooterSummaryTexts[0]; - FM:=Tv1.DataController.Summary.FooterSummaryTexts[1]; - FPS:=Tv1.DataController.Summary.FooterSummaryTexts[2]; - MXHZPS.Text:=FPS; - MXHZKGQty.Text:=FKG; - MXHZQty.Text:=FM; - if (Trim(FPS)='') or (Trim(FPS)='0') then + FKG := Tv1.DataController.Summary.FooterSummaryTexts[0]; + FM := Tv1.DataController.Summary.FooterSummaryTexts[1]; + FPS := Tv1.DataController.Summary.FooterSummaryTexts[2]; + MXHZPS.Text := FPS; + MXHZKGQty.Text := FKG; + MXHZQty.Text := FM; + if (Trim(FPS) = '') or (Trim(FPS) = '0') then begin - SClearData(Panel2,2); - SClearData(Panel2,99); - end else + SClearData(Panel2, 2); + SClearData(Panel2, 99); + end + else begin with ADOTemp do begin close; sql.Clear; sql.Add('exec P_Avg_JS :KgQty,:MQty,:PS'); - if Trim(FKG)<>'' then + if Trim(FKG) <> '' then begin - Parameters.ParamByName('KGQty').Value:=FKG; - end else + Parameters.ParamByName('KGQty').Value := FKG; + end + else begin - Parameters.ParamByName('KGQty').Value:=Null; + Parameters.ParamByName('KGQty').Value := Null; end; - if Trim(FM)<>'' then + if Trim(FM) <> '' then begin - Parameters.ParamByName('MQty').Value:=FM; - end else + Parameters.ParamByName('MQty').Value := FM; + end + else begin - Parameters.ParamByName('MQty').Value:=Null; + Parameters.ParamByName('MQty').Value := Null; end; - Parameters.ParamByName('PS').Value:=FPS; + Parameters.ParamByName('PS').Value := FPS; Open; end; - KgQtyAvg.Text:=ADOTemp.fieldbyname('KgQtyAvg').Value; - QtyAvg.Text:=ADOTemp.fieldbyname('QtyAvg').Value; + KgQtyAvg.Text := ADOTemp.fieldbyname('KgQtyAvg').Value; + QtyAvg.Text := ADOTemp.fieldbyname('QtyAvg').Value; end; with ADOTemp do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR where MYID='''+Trim(FMainId)+''''); + sql.Add('select * from CK_MYSC_CR where MYID=''' + Trim(FMainId) + ''''); Open; end; - GangQty.Text:=ADOTemp.fieldbyname('GangQty').AsString; + GangQty.Text := ADOTemp.fieldbyname('GangQty').AsString; end; procedure TfrmLLRKMXInPut.FormShow(Sender: TObject); @@ -248,11 +249,11 @@ begin InitData(); end; -function TfrmLLRKMXInPut.SaveData():Boolean; +function TfrmLLRKMXInPut.SaveData(): Boolean; var - maxmxno,maxnoflag,fsj,FMXID:String; + maxmxno, maxnoflag, fsj, FMXID: string; begin - Result:=False; + Result := False; try ADOCmd.Connection.BeginTrans; ClientDataSet1.DisableControls; @@ -265,37 +266,38 @@ begin begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); Open; end; - FMXID:=Trim(ADOCmd.fieldbyname('MXID').AsString); - if Trim(FMXID)='' then + FMXID := Trim(ADOCmd.fieldbyname('MXID').AsString); + if Trim(FMXID) = '' then begin - if GetLSNo(ADOCmd,maxmxno,'LM','CK_MYSC_CR_MX',4,1)=False then + if GetLSNo(ADOCmd, maxmxno, 'LM', 'CK_MYSC_CR_MX', 4, 1) = False then begin ClientDataSet1.EnableControls; ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧ','ʾ',0); + Application.MessageBox('ȡʧ', 'ʾ', 0); Exit; end; - maxmxno:=maxmxno+'LML'; + maxmxno := maxmxno + 'LML'; with ADOCmd do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(maxmxno)+''''); + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(maxmxno) + ''''); Open; end; with ADOCmd do begin Append; - FieldByName('MYID').Value:=Trim(FMainId); - FieldByName('MXID').Value:=Trim(maxmxno); - FieldByName('RCGangNo').Value:=ClientDataSet1.fieldbyname('RCGangNo').Value; - FieldByName('KgQty').Value:=ClientDataSet1.fieldbyname('KgQty').Value; - FieldByName('MQty').Value:=ClientDataSet1.fieldbyname('MQty').Value; - FieldByName('Filler').Value:=Trim(DName); - FieldByName('FillerCode').Value:=Trim(DCode); + FieldByName('MYID').Value := Trim(FMainId); + FieldByName('MXID').Value := Trim(maxmxno); + FieldByName('RCGangNo').Value := ClientDataSet1.fieldbyname('RCGangNo').Value; + FieldByName('KgQty').Value := ClientDataSet1.fieldbyname('KgQty').Value; + FieldByName('MQty').Value := ClientDataSet1.fieldbyname('MQty').Value; + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillerCode').Value := Trim(DCode); + FieldByName('ZKZT').Value := 'ڿ'; Post; end; with ADOCmd do @@ -303,7 +305,7 @@ begin Close; sql.Clear; sql.Add(' exec P_Update_QCRK_GangNo :MYID'); - Parameters.ParamByName('MYID').Value:=Trim(FMainId); + Parameters.ParamByName('MYID').Value := Trim(FMainId); ExecSQL; end; with ADOCmd do @@ -311,14 +313,14 @@ begin Close; sql.Clear; sql.Add('Update CK_MYSC_CR_MX Set JH=isnull((select isnull(max(JH),0) from CK_MYSC_CR_MX A '); - sql.Add(' where A.MYID='''+Trim(FMainId)+''' and isnull(A.RCGangNO,'''')=isnull(CK_MYSC_CR_MX.RCGangNO,'''')'); + sql.Add(' where A.MYID=''' + Trim(FMainId) + ''' and isnull(A.RCGangNO,'''')=isnull(CK_MYSC_CR_MX.RCGangNO,'''')'); sql.Add(' and isnull(A.GangNO,'''')=isnull(CK_MYSC_CR_MX.GangNO,'''')),0)+1 '); - sql.Add(' where MXID='''+Trim(maxmxno)+''''); + sql.Add(' where MXID=''' + Trim(maxmxno) + ''''); ExecSQL; end; Edit; - FieldByName('MYID').Value:=Trim(FMainId); - FieldByName('MXID').Value:=Trim(maxmxno); + FieldByName('MYID').Value := Trim(FMainId); + FieldByName('MXID').Value := Trim(maxmxno); Post; end; Next; @@ -330,113 +332,117 @@ begin Close; sql.Clear; sql.Add(' exec P_Update_LLRK_Qty :MYID'); - Parameters.ParamByName('MYID').Value:=Trim(FMainId); + Parameters.ParamByName('MYID').Value := Trim(FMainId); ExecSQL; end; ADOCmd.Connection.CommitTrans; InitData(); - Result:=True; + Result := True; except - Result:=False; + Result := False; ClientDataSet1.EnableControls; ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ʧܣ','ʾ',0); + Application.MessageBox('ʧܣ', 'ʾ', 0); end; end; procedure TfrmLLRKMXInPut.TBSaveClick(Sender: TObject); var - FReal:Double; + FReal: Double; begin ToolBar1.SetFocus; - Panel16.Visible:=True; + Panel16.Visible := True; Panel16.Refresh; if SaveData() then begin GetHZData(); - if Trim(FSaveFlag)<>'99' then + if Trim(FSaveFlag) <> '99' then begin - Application.MessageBox('ɹ','ʾ',0); + Application.MessageBox('ɹ', 'ʾ', 0); end; end; - Panel16.Visible:=False; + Panel16.Visible := False; end; procedure TfrmLLRKMXInPut.ShuiXiSuoLvClick(Sender: TObject); begin - if Trim(TEdit(Sender).Text)='' then + if Trim(TEdit(Sender).Text) = '' then begin - TEdit(Sender).Text:=''; - end else + TEdit(Sender).Text := ''; + end + else begin - TEdit(Sender).Text:=''; + TEdit(Sender).Text := ''; end; end; -procedure TfrmLLRKMXInPut.ShuiXiSuoLvJGMouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TfrmLLRKMXInPut.ShuiXiSuoLvJGMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin - if Trim(FRead)='' then + if Trim(FRead) = '' then begin - TEdit(Sender).ReadOnly:=True; - end else + TEdit(Sender).ReadOnly := True; + end + else begin - TEdit(Sender).ReadOnly:=False; + TEdit(Sender).ReadOnly := False; end; end; procedure TfrmLLRKMXInPut.UnitMClick(Sender: TObject); begin - if Trim(UnitM.Text)='' then + if Trim(UnitM.Text) = '' then begin - UnitM.Text:=''; - QtyLRM.Visible:=True; - BtnM.Visible:=True; - if Trim(UnitKg.Text)<>'' then + UnitM.Text := ''; + QtyLRM.Visible := True; + BtnM.Visible := True; + if Trim(UnitKg.Text) <> '' then begin - BtnM.Visible:=False; + BtnM.Visible := False; end; - end else + end + else begin - UnitM.Text:=''; - QtyLRM.Visible:=False; - BtnM.Visible:=False; + UnitM.Text := ''; + QtyLRM.Visible := False; + BtnM.Visible := False; end; end; procedure TfrmLLRKMXInPut.UnitKgClick(Sender: TObject); begin - if Trim(UnitKg.Text)='' then + if Trim(UnitKg.Text) = '' then begin - UnitKg.Text:=''; - QtyLRKg.Visible:=True; - BtnKg.Visible:=True; - if Trim(UnitM.Text)<>'' then + UnitKg.Text := ''; + QtyLRKg.Visible := True; + BtnKg.Visible := True; + if Trim(UnitM.Text) <> '' then begin - BtnM.Visible:=False; + BtnM.Visible := False; end; - end else + end + else begin - UnitKg.Text:=''; - QtyLRKg.Visible:=False; - BtnKg.Visible:=False; + UnitKg.Text := ''; + QtyLRKg.Visible := False; + BtnKg.Visible := False; end; end; procedure TfrmLLRKMXInPut.QtyLRMKeyPress(Sender: TObject; var Key: Char); var - FReal:Double; + FReal: Double; begin - if Key=#13 then + if Key = #13 then begin - if Trim(QtyLRM.Text)='' then Exit; - if TryStrToFloat(QtyLRM.Text,FReal)=False then + if Trim(QtyLRM.Text) = '' then + Exit; + if TryStrToFloat(QtyLRM.Text, FReal) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - if Trim(UnitKg.Text)<>'' then + if Trim(UnitKg.Text) <> '' then begin QtyLRKg.SetFocus; Exit; @@ -444,151 +450,155 @@ begin with ClientDataSet1 do begin Append; - FieldByName('RCGangNo').Value:=Trim(RCGangNo.Text); - FieldByName('MQty').Value:=Trim(QtyLRM.Text); + FieldByName('RCGangNo').Value := Trim(RCGangNo.Text); + FieldByName('MQty').Value := Trim(QtyLRM.Text); Post; end; - QtyLRM.Text:=''; + QtyLRM.Text := ''; GetHZData(); end; end; procedure TfrmLLRKMXInPut.QtyLRKgKeyPress(Sender: TObject; var Key: Char); var - FReal:Double; + FReal: Double; begin - if Key=#13 then + if Key = #13 then begin - if Trim(QtyLRKg.Text)='' then Exit; - if Trim(UnitM.Text)<>'' then + if Trim(QtyLRKg.Text) = '' then + Exit; + if Trim(UnitM.Text) <> '' then begin - if Trim(QtyLRM.Text)='' then + if Trim(QtyLRM.Text) = '' then begin - Application.MessageBox('Ϊ!','ʾ',0); + Application.MessageBox('Ϊ!', 'ʾ', 0); Exit; end; end; - if TryStrToFloat(QtyLRKg.Text,FReal)=False then + if TryStrToFloat(QtyLRKg.Text, FReal) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; with ClientDataSet1 do begin Append; - FieldByName('RCGangNo').Value:=Trim(RCGangNo.Text); - FieldByName('KgQty').Value:=Trim(QtyLRKg.Text); - if Trim(UnitM.Text)<>'' then + FieldByName('RCGangNo').Value := Trim(RCGangNo.Text); + FieldByName('KgQty').Value := Trim(QtyLRKg.Text); + if Trim(UnitM.Text) <> '' then begin - FieldByName('MQty').Value:=Trim(QtyLRM.Text); + FieldByName('MQty').Value := Trim(QtyLRM.Text); end; Post; end; - QtyLRM.Text:=''; - QtyLRKg.Text:=''; - if Trim(UnitM.Text)<>'' then QtyLRM.SetFocus; + QtyLRM.Text := ''; + QtyLRKg.Text := ''; + if Trim(UnitM.Text) <> '' then + QtyLRM.SetFocus; GetHZData(); end; end; procedure TfrmLLRKMXInPut.BtnQXClick(Sender: TObject); begin - Panel5.Visible:=False; + Panel5.Visible := False; end; procedure TfrmLLRKMXInPut.MYNameKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin - if Trim(MYType.Text)='' then + if Trim(MYType.Text) = '' then begin - Application.MessageBox('ûѡƷ!','ʾ',0); + Application.MessageBox('ûѡƷ!', 'ʾ', 0); Exit; end; end; end; -procedure TfrmLLRKMXInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmLLRKMXInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - if ClientDataSet1.IsEmpty then Exit; - if BtnDel.Visible=False then Exit; - if TBSave.Visible=False then Exit; - Panel4.Visible:=True; - RCGangNO1.Text:=ClientDataSet1.fieldbyname('RCGangNO').Value; - if Trim(ClientDataSet1.fieldbyname('KgQty').AsString)<>'' then - KgQty1.Text:=ClientDataSet1.fieldbyname('KgQty').Value + if ClientDataSet1.IsEmpty then + Exit; + if BtnDel.Visible = False then + Exit; + if TBSave.Visible = False then + Exit; + Panel4.Visible := True; + RCGangNO1.Text := ClientDataSet1.fieldbyname('RCGangNO').Value; + if Trim(ClientDataSet1.fieldbyname('KgQty').AsString) <> '' then + KgQty1.Text := ClientDataSet1.fieldbyname('KgQty').Value else - KgQty1.Text:=''; - if Trim(ClientDataSet1.fieldbyname('MQty').AsString)<>'' then - MQty1.Text:=ClientDataSet1.fieldbyname('MQty').Value + KgQty1.Text := ''; + if Trim(ClientDataSet1.fieldbyname('MQty').AsString) <> '' then + MQty1.Text := ClientDataSet1.fieldbyname('MQty').Value else - MQty1.Text:=''; + MQty1.Text := ''; end; procedure TfrmLLRKMXInPut.Button6Click(Sender: TObject); var - FReal:Double; + FReal: Double; begin - if Trim(KgQty1.Text)<>'' then + if Trim(KgQty1.Text) <> '' then begin - if TryStrToFloat(KgQty1.Text,FReal)=False then + if TryStrToFloat(KgQty1.Text, FReal) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; end; - if Trim(MQty1.Text)<>'' then + if Trim(MQty1.Text) <> '' then begin - if TryStrToFloat(MQty1.Text,FReal)=False then + if TryStrToFloat(MQty1.Text, FReal) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; end; with ClientDataSet1 do begin Edit; - FieldByName('RCGangNo').Value:=Trim(RCGangNo1.Text); - if Trim(MQty1.Text)<>'' then - FieldByName('MQty').Value:=Trim(MQty1.Text) + FieldByName('RCGangNo').Value := Trim(RCGangNo1.Text); + if Trim(MQty1.Text) <> '' then + FieldByName('MQty').Value := Trim(MQty1.Text) else - FieldByName('MQty').Value:=Null; - if Trim(KgQty1.Text)<>'' then - FieldByName('KgQty').Value:=Trim(KgQty1.Text) + FieldByName('MQty').Value := Null; + if Trim(KgQty1.Text) <> '' then + FieldByName('KgQty').Value := Trim(KgQty1.Text) else - FieldByName('KgQty').Value:=Null; - FieldByName('Laster').Value:=Trim(DName); + FieldByName('KgQty').Value := Null; + FieldByName('Laster').Value := Trim(DName); Post; end; - Panel4.Visible:=False; + Panel4.Visible := False; with ADOTemp do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); Open; end; - if ADOTemp.IsEmpty then exit; + if ADOTemp.IsEmpty then + exit; try ADOCmd.Connection.BeginTrans; with ADOCmd do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); Open; end; with ADOCmd do begin Edit; - FieldByName('RCGangNo').Value:=ClientDataSet1.fieldbyname('RCGangNo').Value; - FieldByName('KgQty').Value:=ClientDataSet1.fieldbyname('KgQty').Value; - FieldByName('MQty').Value:=ClientDataSet1.fieldbyname('MQty').Value; - FieldByName('Editer').Value:=Trim(DName); - FieldByName('EditerCode').Value:=Trim(DCode); - FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp); + FieldByName('RCGangNo').Value := ClientDataSet1.fieldbyname('RCGangNo').Value; + FieldByName('KgQty').Value := ClientDataSet1.fieldbyname('KgQty').Value; + FieldByName('MQty').Value := ClientDataSet1.fieldbyname('MQty').Value; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditerCode').Value := Trim(DCode); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); Post; end; with ADOCmd do @@ -596,7 +606,7 @@ begin Close; sql.Clear; sql.Add(' exec P_Update_LLRK_Qty :MYID'); - Parameters.ParamByName('MYID').Value:=Trim(ClientDataSet1.fieldbyname('MYID').AsString); + Parameters.ParamByName('MYID').Value := Trim(ClientDataSet1.fieldbyname('MYID').AsString); ExecSQL; end; ADOCmd.Connection.CommitTrans; @@ -604,14 +614,14 @@ begin begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR where MYID='''+Trim(ClientDataSet1.fieldbyname('MYID').AsString)+''''); + sql.Add('select * from CK_MYSC_CR where MYID=''' + Trim(ClientDataSet1.fieldbyname('MYID').AsString) + ''''); Open; end; - SCSHDataNew(ADOTemp,Panel2,2); + SCSHDataNew(ADOTemp, Panel2, 2); GetHZData(); except ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ݸʧ!','ʾ',0); + Application.MessageBox('ݸʧ!', 'ʾ', 0); Exit; end; @@ -619,41 +629,42 @@ end; procedure TfrmLLRKMXInPut.BtnDelClick(Sender: TObject); var - FFMXID:string; + FFMXID: string; begin - if ClientDataSet1.Locate('SSel',True,[])=False then + if ClientDataSet1.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; try ADOCmd.Connection.BeginTrans; ClientDataSet1.DisableControls; with ClientDataSet1 do begin first; - while ClientDataSet1.Locate('SSel',True,[]) do + while ClientDataSet1.Locate('SSel', True, []) do begin with ADOTemp do begin Close; sql.Clear; - SQL.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + SQL.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); Open; end; - FFMXID:=Trim(ADOTemp.fieldbyname('MXID').AsString); - if Trim(FFMXID)<>'' then + FFMXID := Trim(ADOTemp.fieldbyname('MXID').AsString); + if Trim(FFMXID) <> '' then begin with ADOCmd do begin Close; sql.Clear; sql.Add(' insert into CK_MYSC_CR_MX_Log '); - sql.Add(' select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); - sql.Add(' UPdate CK_MYSC_CR_MX_Log Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+''''); - sql.Add(' where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); - sql.Add(' Delete CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + sql.Add(' select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); + sql.Add(' UPdate CK_MYSC_CR_MX_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + ''''); + sql.Add(' where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); + sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); ExecSQL; end; end; @@ -662,43 +673,42 @@ begin end; end; ClientDataSet1.EnableControls; - if Trim(FMainId)<>'' then + if Trim(FMainId) <> '' then begin with ADOCmd do begin Close; sql.Clear; sql.Add(' exec P_Update_LLRK_Qty :MYID'); - Parameters.ParamByName('MYID').Value:=Trim(FMainId); + Parameters.ParamByName('MYID').Value := Trim(FMainId); ExecSQL; end; with ADOTemp do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR where MYID='''+Trim(FMainId)+''''); + sql.Add('select * from CK_MYSC_CR where MYID=''' + Trim(FMainId) + ''''); Open; end; - SCSHDataNew(ADOTemp,Panel2,2); + SCSHDataNew(ADOTemp, Panel2, 2); GetHZData(); end; ADOCmd.Connection.CommitTrans; except ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ɾ쳣','ʾ',0); + Application.MessageBox('ɾ쳣', 'ʾ', 0); Exit; end; end; -procedure TfrmLLRKMXInPut.v1Column7PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmLLRKMXInPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmQCRKJLList:=TfrmQCRKJLList.Create(Application); + frmQCRKJLList := TfrmQCRKJLList.Create(Application); with frmQCRKJLList do begin - FMXID:=Trim(Self.ClientDataSet1.fieldbyname('MXID').AsString); - if ShowModal=1 then + FMXID := Trim(Self.ClientDataSet1.fieldbyname('MXID').AsString); + if ShowModal = 1 then begin end; @@ -708,110 +718,110 @@ begin end; end; -procedure TfrmLLRKMXInPut.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmLLRKMXInPut.FormClose(Sender: TObject; var Action: TCloseAction); begin - ModalResult:=1; + ModalResult := 1; end; procedure TfrmLLRKMXInPut.BtnPrtClick(Sender: TObject); var - fPrintFile,Txt,fImagePath:string; - i,j:Integer; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; + fPrintFile, Txt, fImagePath: string; + i, j: Integer; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; begin - if ClientDataSet1.Locate('GangNo',null,[])=true then + if ClientDataSet1.Locate('GangNo', null, []) = true then begin - Application.MessageBox('ûб, ȵ棬ٴӡǩ','ʾ',0); + Application.MessageBox('ûб, ȵ棬ٴӡǩ', 'ʾ', 0); Exit; end; - if ClientDataSet1.Locate('SSel',True,[])=false then + if ClientDataSet1.Locate('SSel', True, []) = false then begin - Application.MessageBox('ûѡ, ѡݣٴӡǩ','ʾ',0); + Application.MessageBox('ûѡ, ѡݣٴӡǩ', 'ʾ', 0); Exit; end; - if ComboBox2.Text='' then + if ComboBox2.Text = '' then begin - Application.MessageBox('ѡ!','ʾ',0); + Application.MessageBox('ѡ!', 'ʾ', 0); Exit; end; - if ComboBox1.Text='' then + if ComboBox1.Text = '' then begin - Application.MessageBox('ѡߴ!','ʾ',0); + Application.MessageBox('ѡߴ!', 'ʾ', 0); Exit; end; - if ComboBox1.Text='9*7' then + if ComboBox1.Text = '9*7' then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ϱǩ97.rmf'; - end else - if ComboBox1.Text='8*5' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ϱǩ97.rmf'; + end + else if ComboBox1.Text = '8*5' then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ϱǩ85.rmf'; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ϱǩ85.rmf'; end; - if FileExists(fPrintFile)=False then + if FileExists(fPrintFile) = False then begin - if ComboBox1.Text='9*7' then - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ϱǩ97.rmf'),'ʾ',0); - if ComboBox1.Text='8*5' then - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ϱǩ85.rmf'),'ʾ',0); + if ComboBox1.Text = '9*7' then + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ϱǩ97.rmf'), 'ʾ', 0); + if ComboBox1.Text = '8*5' then + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ϱǩ85.rmf'), 'ʾ', 0); exit; end; ClientDataSet1.DisableControls; with ClientDataSet1 do begin First; - while Locate('SSel',True,[]) do + while Locate('SSel', True, []) do begin with ADOTemp do begin Close; SQL.Clear; sql.Add(' Exec P_PRT_LLRK_ML :MXID'); - Parameters.ParamByName('MXID').Value:=Trim(ClientDataSet1.fieldbyname('MXID').AsString); + Parameters.ParamByName('MXID').Value := Trim(ClientDataSet1.fieldbyname('MXID').AsString); Open; end; - SCreateCDS20(ADOTemp,CDS_Print); - SInitCDSData20(ADOTemp,CDS_Print); + SCreateCDS20(ADOTemp, CDS_Print); + SInitCDSData20(ADOTemp, CDS_Print); try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(ClientDataSet1.fieldbyname('MXID').AsString); - fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp'; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath) then DeleteFile(fImagePath); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ClientDataSet1.fieldbyname('MXID').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); except - application.MessageBox('άʧܣ','ʾϢ',MB_ICONERROR); + application.MessageBox('άʧܣ', 'ʾϢ', MB_ICONERROR); exit; end; Edit; - FieldByName('SSel').Value:=False; - RMVariables['QRBARCODE']:=fImagePath; + FieldByName('SSel').Value := False; + RMVariables['QRBARCODE'] := fImagePath; RM1.LoadFromFile(fPrintFile); //RM1.ShowReport; - for i:=1 to StrToInt(ComboBox2.Text) do + for i := 1 to StrToInt(ComboBox2.Text) do begin RM1.PrintReport; end; end; end; ClientDataSet1.EnableControls; - ComboBox2.ItemIndex:=0; - ComboBox1.ItemIndex:=-1; - Panel5.Visible:=False; + ComboBox2.ItemIndex := 0; + ComboBox1.ItemIndex := -1; + Panel5.Visible := False; end; procedure TfrmLLRKMXInPut.Button1Click(Sender: TObject); var - FFMXID:string; + FFMXID: string; begin - if ClientDataSet1.Locate('SSel',True,[])=False then + if ClientDataSet1.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; try @@ -820,72 +830,73 @@ begin with ClientDataSet1 do begin first; - while ClientDataSet1.Locate('SSel',True,[]) do + while ClientDataSet1.Locate('SSel', True, []) do begin with ADOTemp do begin Close; sql.Clear; - SQL.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + SQL.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); Open; end; - FFMXID:=Trim(ADOTemp.fieldbyname('MXID').AsString); - if Trim(FFMXID)<>'' then + FFMXID := Trim(ADOTemp.fieldbyname('MXID').AsString); + if Trim(FFMXID) <> '' then begin with ADOCmd do begin Close; sql.Clear; - sql.Add(' UPdate CK_MYSC_CR_MX Set RCGangNo='''+Trim(RCGangNO1.Text)+''''); - sql.Add(' where MXID='''+Trim(ClientDataSet1.fieldbyname('MXID').AsString)+''''); + sql.Add(' UPdate CK_MYSC_CR_MX Set RCGangNo=''' + Trim(RCGangNO1.Text) + ''''); + sql.Add(' where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); ExecSQL; end; end; Edit; - FieldByName('SSel').Value:=false; - FieldByName('RCGangNo').Value:=Trim(RCGangNO1.Text); + FieldByName('SSel').Value := false; + FieldByName('RCGangNo').Value := Trim(RCGangNO1.Text); end; end; ClientDataSet1.EnableControls; ADOCmd.Connection.CommitTrans; - FSaveFlag:='99'; + FSaveFlag := '99'; TBSave.Click; - FSaveFlag:=''; + FSaveFlag := ''; with ADOCmd do begin Close; sql.Clear; sql.Add(' exec P_Update_LLRK_Qty :MYID'); - Parameters.ParamByName('MYID').Value:=Trim(FMainId); + Parameters.ParamByName('MYID').Value := Trim(FMainId); ExecSQL; end; with ADOTemp do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR where MYID='''+Trim(FMainId)+''''); + sql.Add('select * from CK_MYSC_CR where MYID=''' + Trim(FMainId) + ''''); Open; end; - SCSHDataNew(ADOTemp,Panel2,2); + SCSHDataNew(ADOTemp, Panel2, 2); GetHZData(); except ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ɾ쳣','ʾ',0); + Application.MessageBox('ɾ쳣', 'ʾ', 0); Exit; end; end; procedure TfrmLLRKMXInPut.BtnMClick(Sender: TObject); var - FReal:Double; + FReal: Double; begin - if Trim(QtyLRM.Text)='' then Exit; - if TryStrToFloat(QtyLRM.Text,FReal)=False then + if Trim(QtyLRM.Text) = '' then + Exit; + if TryStrToFloat(QtyLRM.Text, FReal) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - if Trim(UnitKg.Text)<>'' then + if Trim(UnitKg.Text) <> '' then begin QtyLRKg.SetFocus; Exit; @@ -893,62 +904,65 @@ begin with ClientDataSet1 do begin Append; - FieldByName('RCGangNo').Value:=Trim(RCGangNo.Text); - FieldByName('MQty').Value:=Trim(QtyLRM.Text); + FieldByName('RCGangNo').Value := Trim(RCGangNo.Text); + FieldByName('MQty').Value := Trim(QtyLRM.Text); Post; end; - QtyLRM.Text:=''; + QtyLRM.Text := ''; GetHZData(); end; procedure TfrmLLRKMXInPut.BtnKgClick(Sender: TObject); var - FReal:Double; + FReal: Double; begin - if Trim(QtyLRKg.Text)='' then Exit; - if Trim(UnitM.Text)<>'' then + if Trim(QtyLRKg.Text) = '' then + Exit; + if Trim(UnitM.Text) <> '' then begin - if Trim(QtyLRM.Text)='' then + if Trim(QtyLRM.Text) = '' then begin - Application.MessageBox('Ϊ!','ʾ',0); + Application.MessageBox('Ϊ!', 'ʾ', 0); Exit; end; end; - if TryStrToFloat(QtyLRKg.Text,FReal)=False then + if TryStrToFloat(QtyLRKg.Text, FReal) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; with ClientDataSet1 do begin Append; - FieldByName('RCGangNo').Value:=Trim(RCGangNo.Text); - FieldByName('KgQty').Value:=Trim(QtyLRKg.Text); - if Trim(UnitM.Text)<>'' then + FieldByName('RCGangNo').Value := Trim(RCGangNo.Text); + FieldByName('KgQty').Value := Trim(QtyLRKg.Text); + if Trim(UnitM.Text) <> '' then begin - FieldByName('MQty').Value:=Trim(QtyLRM.Text); + FieldByName('MQty').Value := Trim(QtyLRM.Text); end; Post; end; - QtyLRM.Text:=''; - QtyLRKg.Text:=''; - if Trim(UnitM.Text)<>'' then QtyLRM.SetFocus; + QtyLRM.Text := ''; + QtyLRKg.Text := ''; + if Trim(UnitM.Text) <> '' then + QtyLRM.SetFocus; GetHZData(); end; procedure TfrmLLRKMXInPut.Button3Click(Sender: TObject); begin - Panel5.Visible:=True; + Panel5.Visible := True; end; procedure TfrmLLRKMXInPut.N1Click(Sender: TObject); begin - SelOKNo(ClientDataSet1,True); + SelOKNo(ClientDataSet1, True); end; procedure TfrmLLRKMXInPut.N2Click(Sender: TObject); begin - SelOKNo(ClientDataSet1,False); + SelOKNo(ClientDataSet1, False); end; end. + diff --git a/云翔生产管理(MYSC.dll)/U_MCGCKList.dfm b/云翔生产管理(MYSC.dll)/U_MCGCKList.dfm index a6d37aa..c926b6c 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGCKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGCKList.dfm @@ -93,7 +93,6 @@ object frmMCGCKList: TfrmMCGCKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton diff --git a/云翔生产管理(MYSC.dll)/U_MCGCKList.pas b/云翔生产管理(MYSC.dll)/U_MCGCKList.pas index 074d29e..22d0309 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGCKList.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGCKList.pas @@ -13,7 +13,20 @@ uses cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, - cxTextEdit; + cxTextEdit, 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 TfrmMCGCKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MCGKCList.dfm b/云翔生产管理(MYSC.dll)/U_MCGKCList.dfm index d5e0d7d..ab73ff9 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGKCList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGKCList.dfm @@ -1,6 +1,6 @@ object frmMCGKCList: TfrmMCGKCList - Left = 30 - Top = 11 + Left = 237 + Top = 83 Width = 1556 Height = 819 Caption = #26825#24211#23384#27719#24635 @@ -20,7 +20,7 @@ object frmMCGKCList: TfrmMCGKCList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -96,7 +96,6 @@ object frmMCGKCList: TfrmMCGKCList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -134,8 +133,8 @@ object frmMCGKCList: TfrmMCGKCList object cxGrid1: TcxGrid Left = 0 Top = 105 - Width = 952 - Height = 675 + Width = 960 + Height = 683 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -240,7 +239,7 @@ object frmMCGKCList: TfrmMCGKCList object Panel1: TPanel Left = 0 Top = 32 - Width = 1540 + Width = 1548 Height = 73 Align = alTop BevelInner = bvRaised @@ -531,10 +530,10 @@ object frmMCGKCList: TfrmMCGKCList end end object Panel2: TPanel - Left = 952 + Left = 960 Top = 105 Width = 588 - Height = 675 + Height = 683 Align = alRight Caption = 'Panel2' TabOrder = 3 @@ -542,7 +541,7 @@ object frmMCGKCList: TfrmMCGKCList Left = 1 Top = 336 Width = 586 - Height = 338 + Height = 346 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 diff --git a/云翔生产管理(MYSC.dll)/U_MCGKCList.pas b/云翔生产管理(MYSC.dll)/U_MCGKCList.pas index 9955946..aa9c289 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGKCList.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGKCList.pas @@ -12,7 +12,21 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmMCGKCList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm b/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm index b1e2949..69ae544 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm @@ -20,7 +20,8 @@ object frmMCGRKList: TfrmMCGRKList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1133 + Width = 1141 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -86,37 +87,12 @@ object frmMCGRKList: TfrmMCGRKList AutoSize = True Caption = #21367#25968#31995#25968 ImageIndex = 25 + Wrap = True OnClick = ToolButton3Click end - object ToolButton4: TToolButton - Left = 474 - Top = 0 - AutoSize = True - Caption = #25171#21360 - ImageIndex = 4 - Visible = False - OnClick = ToolButton4Click - end - object TBExport: TToolButton - Left = 543 - Top = 0 - AutoSize = True - Caption = #23548#20986 - ImageIndex = 97 - Visible = False - OnClick = TBExportClick - end - object TBClose: TToolButton - Left = 612 - Top = 0 - AutoSize = True - Caption = #20851#38381 - ImageIndex = 21 - OnClick = TBCloseClick - end object labMYType: TLabel - Left = 681 - Top = 0 + Left = 0 + Top = 30 Width = 292 Height = 30 Caption = ' '#36741#26009#37319#36141#20837#24211' ' @@ -127,12 +103,37 @@ object frmMCGRKList: TfrmMCGRKList Font.Style = [fsBold] ParentFont = False end + object ToolButton4: TToolButton + Left = 292 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton4Click + end + object TBExport: TToolButton + Left = 361 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 430 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end end object cxGrid1: TcxGrid Left = 0 - Top = 109 - Width = 1133 - Height = 501 + Top = 139 + Width = 1141 + Height = 479 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -317,8 +318,8 @@ object frmMCGRKList: TfrmMCGRKList end object Panel1: TPanel Left = 0 - Top = 32 - Width = 1133 + Top = 62 + Width = 1141 Height = 77 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList.pas b/云翔生产管理(MYSC.dll)/U_MCGRKList.pas index cebf40b..c407ca7 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList.pas @@ -12,7 +12,21 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmMCGRKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.dfm b/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.dfm index 7a5a7f6..5f7845e 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.dfm @@ -1,13 +1,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC - Left = 190 - Top = 136 + Left = 470 + Top = 204 Width = 1214 Height = 686 Caption = #20179#24211#24211#23384#27719#24635#26597#35810 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1198 + Width = 1206 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -69,7 +69,6 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -106,75 +105,75 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC object Panel1: TPanel Left = 0 Top = 32 - Width = 1198 - Height = 45 + Width = 1206 + Height = 41 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel - Left = 187 - Top = 14 - Width = 34 - Height = 16 + Left = 173 + Top = 13 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 36 - Top = 14 - Width = 34 - Height = 16 + Left = 33 + Top = 13 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 720 - Top = 14 - Width = 68 - Height = 16 + Left = 665 + Top = 13 + Width = 64 + Height = 15 Caption = #20179#24211#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label3: TLabel - Left = 480 - Top = 14 - Width = 34 - Height = 16 + Left = 443 + Top = 13 + Width = 32 + Height = 15 Caption = #24211#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MYName: TEdit Tag = 2 - Left = 225 - Top = 10 - Width = 239 + Left = 208 + Top = 9 + Width = 220 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -183,13 +182,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end object MYCode: TEdit Tag = 2 - Left = 74 - Top = 10 - Width = 77 + Left = 68 + Top = 9 + Width = 71 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -198,13 +197,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end object MYType: TEdit Tag = 2 - Left = 792 - Top = 10 - Width = 77 + Left = 731 + Top = 9 + Width = 71 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -213,10 +212,10 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC OnChange = MYCodeChange end object Button2: TButton - Left = 871 - Top = 9 - Width = 29 - Height = 26 + Left = 804 + Top = 8 + Width = 27 + Height = 24 Caption = '...' TabOrder = 3 Visible = False @@ -224,13 +223,13 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end object KUwei: TEdit Tag = 2 - Left = 518 - Top = 10 - Width = 181 + Left = 478 + Top = 9 + Width = 167 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -240,14 +239,14 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end object cxGrid2: TcxGrid Left = 0 - Top = 104 - Width = 1198 - Height = 542 + Top = 98 + Width = 1206 + Height = 557 Align = alClient TabOrder = 2 object TV2: TcxGridDBTableView OnDblClick = TV2DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -352,32 +351,32 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end end object Panel2: TPanel - Left = 400 - Top = 143 - Width = 299 - Height = 254 + Left = 369 + Top = 132 + Width = 276 + Height = 234 Color = clSkyBlue TabOrder = 3 Visible = False object SpeedButton1: TSpeedButton - Left = 33 - Top = 25 - Width = 102 - Height = 60 + Left = 30 + Top = 23 + Width = 95 + Height = 55 Caption = #22383#24067 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object Image2: TImage - Left = 273 + Left = 252 Top = 3 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -422,56 +421,56 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC OnClick = Image2Click end object SpeedButton2: TSpeedButton - Left = 168 - Top = 25 - Width = 102 - Height = 60 + Left = 155 + Top = 23 + Width = 94 + Height = 55 Caption = #38754#26009 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton - Left = 168 - Top = 103 - Width = 102 - Height = 60 + Left = 155 + Top = 95 + Width = 94 + Height = 55 Caption = #26825 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton - Left = 33 - Top = 101 - Width = 102 - Height = 60 + Left = 30 + Top = 93 + Width = 95 + Height = 56 Caption = #32447 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton - Left = 73 - Top = 177 - Width = 159 - Height = 63 + Left = 67 + Top = 163 + Width = 147 + Height = 59 Caption = #26080#32442#24067 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -480,22 +479,23 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end object cxTabControl1: TcxTabControl Left = 0 - Top = 77 - Width = 1198 - Height = 27 + Top = 73 + Width = 1206 + Height = 25 Align = alTop Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentColor = False ParentFont = False - Style = 8 - TabIndex = 0 TabOrder = 4 - Tabs.Strings = ( + Properties.CustomButtons.Buttons = <> + Properties.Style = 8 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( ' '#38754#26009' ' #32452#21512#38754#26009 ' '#22383#24067' ' @@ -504,9 +504,9 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC ' '#26080#32442#24067' ' ' '#20840#37096' ') OnChange = cxTabControl1Change - ClientRectBottom = 27 - ClientRectRight = 1198 - ClientRectTop = 27 + ClientRectBottom = 26 + ClientRectRight = 1206 + ClientRectTop = 26 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid2 @@ -616,6 +616,7 @@ object frmMCGRKList_HBKC: TfrmMCGRKList_HBKC end end object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clScrollBar diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.pas b/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.pas index 03dd59c..b3c4a80 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_HBKC.pas @@ -6,11 +6,24 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, + cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxLookAndFeelPainters, + 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, cxNavigator, dxBarBuiltInMenu; type TfrmMCGRKList_HBKC = class(TForm) @@ -97,14 +110,14 @@ type procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); private - canshu1:string; - DQdate:TDateTime; + canshu1: string; + DQdate: TDateTime; procedure InitGrid(); procedure InitForm(); - function DelData():Boolean; + function DelData(): Boolean; { Private declarations } public - FFInt,FCloth:Integer; + FFInt, FCloth: Integer; { Public declarations } end; @@ -113,33 +126,33 @@ var frmMCGRKList_HBKC: TfrmMCGRKList_HBKC; implementation + uses - U_DataLink,U_RTFun, U_QCRKInPut,U_ZDYHelp,U_LLRKInPut,U_GYSList,U_RCCKInPut, - U_LLRKInPutMH,U_LLRKInPutX,U_LLRKInPut_CG,U_LLRKInPutMH_CG,U_LLRKInPutMH_PBCG, - U_LLRKInPutMH_PBKCCG,U_BPZdy_LRPB,U_LLRKInPutMH_MCG,U_BPZdy_LRM,U_MCGRKList_MKC_CX, - U_MCGRKList_HBKC_CX; + U_DataLink, U_RTFun, U_QCRKInPut, U_ZDYHelp, U_LLRKInPut, U_GYSList, + U_RCCKInPut, U_LLRKInPutMH, U_LLRKInPutX, U_LLRKInPut_CG, U_LLRKInPutMH_CG, + U_LLRKInPutMH_PBCG, U_LLRKInPutMH_PBKCCG, U_BPZdy_LRPB, U_LLRKInPutMH_MCG, + U_BPZdy_LRM, U_MCGRKList_MKC_CX, U_MCGRKList_HBKC_CX; {$R *.dfm} procedure TfrmMCGRKList_HBKC.FormDestroy(Sender: TObject); begin - frmMCGRKList_HBKC:=nil; + frmMCGRKList_HBKC := nil; end; -procedure TfrmMCGRKList_HBKC.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmMCGRKList_HBKC.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmMCGRKList_HBKC.FormCreate(Sender: TObject); begin - canshu1:=Trim(DParameters1); + canshu1 := Trim(DParameters1); end; procedure TfrmMCGRKList_HBKC.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ֿܿ1',Tv2,'ó'); + WriteCxGrid('ֿܿ1', Tv2, 'ó'); Close; end; @@ -149,7 +162,7 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('select AA.*'); @@ -163,37 +176,37 @@ begin sql.Add(' group by A.MYCode,B.KUwei,A.MYType '); SQL.Add(' ) AA '); sql.Add(' where (AA.PS>0 or Qty>0 or KgQty>0)'); - if cxTabControl1.TabIndex=0 then + if cxTabControl1.TabIndex = 0 then begin sql.Add(' and CKType='''''); - V2PS.Caption:='ƥ'; - V2Qty.Caption:=''; + V2PS.Caption := 'ƥ'; + V2Qty.Caption := ''; end; - if cxTabControl1.TabIndex=1 then + if cxTabControl1.TabIndex = 1 then begin sql.Add(' and CKType='''''); - V2PS.Caption:='ƥ'; - V2Qty.Caption:=''; + V2PS.Caption := 'ƥ'; + V2Qty.Caption := ''; end; - if cxTabControl1.TabIndex=2 then + if cxTabControl1.TabIndex = 2 then begin sql.Add(' and CKType='''''); - V2PS.Caption:='ƥ'; - V2Qty.Caption:=''; + V2PS.Caption := 'ƥ'; + V2Qty.Caption := ''; end; - if cxTabControl1.TabIndex=3 then + if cxTabControl1.TabIndex = 3 then begin sql.Add(' and CKType='''''); - V2PS.Caption:=''; - V2Qty.Caption:='ֻ'; + V2PS.Caption := ''; + V2Qty.Caption := 'ֻ'; end; - if cxTabControl1.TabIndex=4 then + if cxTabControl1.TabIndex = 4 then begin sql.Add(' and CKType='''''); - V2PS.Caption:='ƥ'; - V2Qty.Caption:=''; + V2PS.Caption := 'ƥ'; + V2Qty.Caption := ''; end; - if cxTabControl1.TabIndex=5 then + if cxTabControl1.TabIndex = 5 then begin sql.Add(' and CKType=''޷IJ'''); end; @@ -201,37 +214,38 @@ begin //ShowMessage(sql.Text); Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; - procedure TfrmMCGRKList_HBKC.InitForm(); begin - ReadCxGrid('ֿܿ1',Tv2,'ó'); + ReadCxGrid('ֿܿ1', Tv2, 'ó'); InitGrid(); end; procedure TfrmMCGRKList_HBKC.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; -function TfrmMCGRKList_HBKC.DelData():Boolean; +function TfrmMCGRKList_HBKC.DelData(): Boolean; begin - + end; procedure TfrmMCGRKList_HBKC.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(Self.Caption,cxGrid2); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(Self.Caption, cxGrid2); end; procedure TfrmMCGRKList_HBKC.TBRafreshClick(Sender: TObject); @@ -256,42 +270,43 @@ end; procedure TfrmMCGRKList_HBKC.ToolButton1Click(Sender: TObject); begin - if Order_Main.IsEmpty then exit; + if Order_Main.IsEmpty then + exit; try - frmMCGRKList_HBKC_CX:=TfrmMCGRKList_HBKC_CX.Create(Application); + frmMCGRKList_HBKC_CX := TfrmMCGRKList_HBKC_CX.Create(Application); with frmMCGRKList_HBKC_CX do begin - FMYCode:=Trim(Self.Order_Main.fieldbyname('MYCode').AsString); - FMYName:=Trim(Self.Order_Main.fieldbyname('MYName').AsString); - FKUWei:=Trim(Self.Order_Main.fieldbyname('KUWei').AsString); - if cxTabControl1.TabIndex=0 then + FMYCode := Trim(Self.Order_Main.fieldbyname('MYCode').AsString); + FMYName := Trim(Self.Order_Main.fieldbyname('MYName').AsString); + FKUWei := Trim(Self.Order_Main.fieldbyname('KUWei').AsString); + if cxTabControl1.TabIndex = 0 then begin - labMYType.Caption:=' Ͽ'; + labMYType.Caption := ' Ͽ'; end; - if cxTabControl1.TabIndex=1 then + if cxTabControl1.TabIndex = 1 then begin - labMYType.Caption:=' Ͽ'; + labMYType.Caption := ' Ͽ'; end; - if cxTabControl1.TabIndex=2 then + if cxTabControl1.TabIndex = 2 then begin - labMYType.Caption:=' '; - cxGrid2.PopupMenu:=PopupMenu1; + labMYType.Caption := ' '; + cxGrid2.PopupMenu := PopupMenu1; end; - if cxTabControl1.TabIndex=3 then + if cxTabControl1.TabIndex = 3 then begin - labMYType.Caption:=' ߿'; + labMYType.Caption := ' ߿'; end; - if cxTabControl1.TabIndex=4 then + if cxTabControl1.TabIndex = 4 then begin - labMYType.Caption:=' ޿'; + labMYType.Caption := ' ޿'; end; - if cxTabControl1.TabIndex=5 then + if cxTabControl1.TabIndex = 5 then begin - labMYType.Caption:=' ޷IJ'; + labMYType.Caption := ' ޷IJ'; end; - if ShowModal=1 then + if ShowModal = 1 then begin - + end; end; finally @@ -301,28 +316,31 @@ end; procedure TfrmMCGRKList_HBKC.CustomerNoNameChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmMCGRKList_HBKC.N2Click(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_MYSC_CR_MX where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); + sql.Add('select * from CK_MYSC_CR_MX where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('Ѳϸݣɾ!','ʾ',0); + Application.MessageBox('Ѳϸݣɾ!', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; if DelData() then begin //Order_Main.Delete; @@ -341,29 +359,32 @@ end; procedure TfrmMCGRKList_HBKC.ToolButton4Click(Sender: TObject); var - fPrintFile:string; + fPrintFile: string; begin - if Order_Main.IsEmpty then Exit; - if Trim(Order_Main.fieldbyname('Chker').AsString)='' then exit; - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ⱨ.rmf'; - RMXLSExport2:= TRMXLSExport.Create(RMXLSExport2); + if Order_Main.IsEmpty then + Exit; + if Trim(Order_Main.fieldbyname('Chker').AsString) = '' then + exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ⱨ.rmf'; + RMXLSExport2 := TRMXLSExport.Create(RMXLSExport2); with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from Test_Report where TRId='''+Trim(Order_Main.fieldbyname('TRId').AsString)+''''); + sql.Add('select * from Test_Report where TRId=''' + Trim(Order_Main.fieldbyname('TRId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); if FileExists(fPrintFile) then begin //RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; RM1.LoadFromFile(fPrintFile); RM1.ShowReport; - end else + end + else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ⱨ.rmf'),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ⱨ.rmf'), 'ʾ', 0); end; end; @@ -374,17 +395,17 @@ end; procedure TfrmMCGRKList_HBKC.KHNameChange(Sender: TObject); begin - SDofilter(ADOQueryCmd,SGetFilters(Panel1,3,4)); - SCreateCDS20(ADOQueryCmd,PB_MX); - SInitCDSData20(ADOQueryCmd,PB_MX); + SDofilter(ADOQueryCmd, SGetFilters(Panel1, 3, 4)); + SCreateCDS20(ADOQueryCmd, PB_MX); + SInitCDSData20(ADOQueryCmd, PB_MX); end; procedure TfrmMCGRKList_HBKC.N1Click(Sender: TObject); begin - frmRCCKInPut:=TfrmRCCKInPut.Create(self); + frmRCCKInPut := TfrmRCCKInPut.Create(self); with frmRCCKInPut do begin - if ShowModal=1 then + if ShowModal = 1 then begin end; @@ -394,10 +415,11 @@ end; procedure TfrmMCGRKList_HBKC.MYCodeChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmMCGRKList_HBKC.TV2DblClick(Sender: TObject); @@ -407,42 +429,43 @@ end; procedure TfrmMCGRKList_HBKC.Button2Click(Sender: TObject); begin - panel2.Visible:=true; + panel2.Visible := true; end; procedure TfrmMCGRKList_HBKC.Image2Click(Sender: TObject); begin - Panel2.Visible:=false; + Panel2.Visible := false; end; procedure TfrmMCGRKList_HBKC.SpeedButton1Click(Sender: TObject); begin - MYType.Text:=''; - Panel2.Visible:=false; + MYType.Text := ''; + Panel2.Visible := false; end; procedure TfrmMCGRKList_HBKC.SpeedButton2Click(Sender: TObject); begin - MYType.Text:='Ⱦɫ'; - Panel2.Visible:=false; + MYType.Text := 'Ⱦɫ'; + Panel2.Visible := false; end; procedure TfrmMCGRKList_HBKC.SpeedButton4Click(Sender: TObject); begin - MYType.Text:=''; - Panel2.Visible:=false; + MYType.Text := ''; + Panel2.Visible := false; end; procedure TfrmMCGRKList_HBKC.SpeedButton3Click(Sender: TObject); begin - MYType.Text:=''; - Panel2.Visible:=false; + MYType.Text := ''; + Panel2.Visible := false; end; procedure TfrmMCGRKList_HBKC.SpeedButton5Click(Sender: TObject); begin - MYType.Text:='޷IJ'; - Panel2.Visible:=false; + MYType.Text := '޷IJ'; + Panel2.Visible := false; end; end. + diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.dfm b/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.dfm index bd1af31..dde65e2 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.dfm @@ -1,6 +1,6 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL - Left = 42 - Top = 104 + Left = 490 + Top = 300 Width = 1472 Height = 765 Caption = #26222#36890#26448#26009#20837#24211#30331#35760 @@ -20,7 +20,7 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1456 + Width = 1464 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -114,8 +114,8 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL object cxGrid1: TcxGrid Left = 0 Top = 100 - Width = 1456 - Height = 626 + Width = 1464 + Height = 634 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -279,7 +279,7 @@ object frmMCGRKList_PTCL: TfrmMCGRKList_PTCL object Panel1: TPanel Left = 0 Top = 32 - Width = 1456 + Width = 1464 Height = 68 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.pas b/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.pas index be4880a..26f72be 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_PTCL.pas @@ -13,7 +13,20 @@ uses Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator; + 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 TfrmMCGRKList_PTCL = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.dfm b/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.dfm index c2a6eba..61f33ea 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.dfm @@ -1,6 +1,6 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK - Left = 189 - Top = 134 + Left = 491 + Top = 255 Width = 1293 Height = 687 Caption = #26825#36864#36135#20986#24211#30331#35760 @@ -20,7 +20,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1277 + Width = 1285 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -76,7 +76,6 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -113,14 +112,14 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK object cxGrid1: TcxGrid Left = 0 Top = 99 - Width = 1277 - Height = 550 + Width = 1285 + Height = 557 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -260,7 +259,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK object Panel1: TPanel Left = 0 Top = 32 - Width = 1277 + Width = 1285 Height = 67 Align = alTop BevelInner = bvRaised @@ -339,7 +338,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 139 Top = 9 Width = 119 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -408,7 +407,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 139 Top = 36 Width = 119 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -432,7 +431,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 450 Top = 9 Width = 93 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -447,7 +446,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 79 Top = 68 Width = 112 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -463,7 +462,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 79 Top = 95 Width = 140 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -489,7 +488,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 286 Top = 9 Width = 82 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -504,7 +503,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 286 Top = 36 Width = 82 - Height = 24 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -653,9 +652,9 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK end object ListView1: TListView Left = 2 - Top = 22 + Top = 24 Width = 354 - Height = 230 + Height = 228 Align = alClient Columns = <> Font.Charset = GB2312_CHARSET @@ -774,7 +773,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 74 Top = 30 Width = 214 - Height = 23 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -13 @@ -802,7 +801,7 @@ object frmMCGRKList_THCK: TfrmMCGRKList_THCK Left = 87 Top = 192 Width = 298 - Height = 29 + Height = 28 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.pas b/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.pas index 7903ea3..40ad3fb 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_THCK.pas @@ -12,7 +12,22 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP,ShellAPI, ImgList,StrUtils; + IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, + 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, + cxNavigator; type TfrmMCGRKList_THCK = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.dfm b/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.dfm index f700097..52a32b9 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.dfm @@ -1,13 +1,13 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC - Left = 193 - Top = 135 + Left = 465 + Top = 229 Width = 1308 Height = 679 Caption = #32447#24211#23384 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1292 + Width = 1300 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -69,7 +69,6 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -106,48 +105,48 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC object Panel1: TPanel Left = 0 Top = 32 - Width = 1292 - Height = 45 + Width = 1300 + Height = 41 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel - Left = 187 - Top = 14 - Width = 34 - Height = 16 + Left = 173 + Top = 13 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 36 - Top = 14 - Width = 34 - Height = 16 + Left = 33 + Top = 13 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MYName: TEdit Tag = 2 - Left = 225 - Top = 10 - Width = 239 + Left = 208 + Top = 9 + Width = 220 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -156,13 +155,13 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC end object MYCode: TEdit Tag = 2 - Left = 74 - Top = 10 - Width = 77 + Left = 68 + Top = 9 + Width = 71 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -172,14 +171,14 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC end object cxGrid2: TcxGrid Left = 0 - Top = 77 - Width = 1292 - Height = 562 + Top = 73 + Width = 1300 + Height = 575 Align = alClient TabOrder = 2 object TV2: TcxGridDBTableView OnDblClick = TV2DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -389,6 +388,7 @@ object frmMCGRKList_XKC: TfrmMCGRKList_XKC end end object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clScrollBar diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.pas b/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.pas index b30ea3d..7e8bfc9 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList_XKC.pas @@ -10,7 +10,22 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; + Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmMCGRKList_XKC = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MPDCKListNew.dfm b/云翔生产管理(MYSC.dll)/U_MPDCKListNew.dfm index 839c38a..fd5e704 100644 --- a/云翔生产管理(MYSC.dll)/U_MPDCKListNew.dfm +++ b/云翔生产管理(MYSC.dll)/U_MPDCKListNew.dfm @@ -1,6 +1,6 @@ object frmMPDCKListNew: TfrmMPDCKListNew - Left = 159 - Top = 89 + Left = 616 + Top = 331 Width = 1352 Height = 714 Caption = #26825#30424#28857#20986#24211#65288#26032#65289 @@ -20,7 +20,7 @@ object frmMPDCKListNew: TfrmMPDCKListNew object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1336 + Width = 1344 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -76,7 +76,6 @@ object frmMPDCKListNew: TfrmMPDCKListNew AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -104,8 +103,8 @@ object frmMPDCKListNew: TfrmMPDCKListNew object cxGrid1: TcxGrid Left = 0 Top = 98 - Width = 1336 - Height = 577 + Width = 1344 + Height = 585 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -257,7 +256,7 @@ object frmMPDCKListNew: TfrmMPDCKListNew object Panel1: TPanel Left = 0 Top = 32 - Width = 1336 + Width = 1344 Height = 66 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_MPDCKListNew.pas b/云翔生产管理(MYSC.dll)/U_MPDCKListNew.pas index 9607f63..e5557d1 100644 --- a/云翔生产管理(MYSC.dll)/U_MPDCKListNew.pas +++ b/云翔生产管理(MYSC.dll)/U_MPDCKListNew.pas @@ -12,7 +12,21 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmMPDCKListNew = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MPDRKList.dfm b/云翔生产管理(MYSC.dll)/U_MPDRKList.dfm index ba7ae3c..e83612a 100644 --- a/云翔生产管理(MYSC.dll)/U_MPDRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MPDRKList.dfm @@ -1,6 +1,6 @@ object frmMPDRKList: TfrmMPDRKList - Left = 159 - Top = 89 + Left = 455 + Top = 231 Width = 1352 Height = 714 Caption = #26825#37319#36141#20837#24211#30331#35760 @@ -20,7 +20,7 @@ object frmMPDRKList: TfrmMPDRKList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1336 + Width = 1344 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -76,7 +76,6 @@ object frmMPDRKList: TfrmMPDRKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -104,13 +103,13 @@ object frmMPDRKList: TfrmMPDRKList object cxGrid1: TcxGrid Left = 0 Top = 98 - Width = 1336 - Height = 578 + Width = 1344 + Height = 585 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -257,7 +256,7 @@ object frmMPDRKList: TfrmMPDRKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1336 + Width = 1344 Height = 66 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_MPDRKList.pas b/云翔生产管理(MYSC.dll)/U_MPDRKList.pas index 1e4ade9..cb850e1 100644 --- a/云翔生产管理(MYSC.dll)/U_MPDRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_MPDRKList.pas @@ -12,7 +12,22 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP,ShellAPI, ImgList,StrUtils; + IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, + 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, + cxNavigator; type TfrmMPDRKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MPDRKListNew.dfm b/云翔生产管理(MYSC.dll)/U_MPDRKListNew.dfm index 2726090..59ed3db 100644 --- a/云翔生产管理(MYSC.dll)/U_MPDRKListNew.dfm +++ b/云翔生产管理(MYSC.dll)/U_MPDRKListNew.dfm @@ -1,6 +1,6 @@ object frmMPDRKListNew: TfrmMPDRKListNew - Left = 159 - Top = 89 + Left = 643 + Top = 385 Width = 1352 Height = 714 Caption = #26825#30424#28857#20837#24211#65288#26032#65289 @@ -20,7 +20,7 @@ object frmMPDRKListNew: TfrmMPDRKListNew object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1336 + Width = 1344 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -76,7 +76,6 @@ object frmMPDRKListNew: TfrmMPDRKListNew AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -104,8 +103,8 @@ object frmMPDRKListNew: TfrmMPDRKListNew object cxGrid1: TcxGrid Left = 0 Top = 98 - Width = 1336 - Height = 577 + Width = 1344 + Height = 585 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -257,7 +256,7 @@ object frmMPDRKListNew: TfrmMPDRKListNew object Panel1: TPanel Left = 0 Top = 32 - Width = 1336 + Width = 1344 Height = 66 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_MPDRKListNew.pas b/云翔生产管理(MYSC.dll)/U_MPDRKListNew.pas index 6b69e21..c6e6064 100644 --- a/云翔生产管理(MYSC.dll)/U_MPDRKListNew.pas +++ b/云翔生产管理(MYSC.dll)/U_MPDRKListNew.pas @@ -12,7 +12,20 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmMPDRKListNew = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MPZKCListNew.dfm b/云翔生产管理(MYSC.dll)/U_MPZKCListNew.dfm index 4f08383..652be25 100644 --- a/云翔生产管理(MYSC.dll)/U_MPZKCListNew.dfm +++ b/云翔生产管理(MYSC.dll)/U_MPZKCListNew.dfm @@ -1,6 +1,6 @@ object frmMPZKCListNew: TfrmMPZKCListNew - Left = 138 - Top = 45 + Left = 691 + Top = 373 Width = 1145 Height = 734 Caption = #26825#24211#23384#27719#24635'('#26032')' @@ -20,7 +20,7 @@ object frmMPZKCListNew: TfrmMPZKCListNew object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1129 + Width = 1137 AutoSize = True ButtonHeight = 30 ButtonWidth = 125 @@ -69,7 +69,6 @@ object frmMPZKCListNew: TfrmMPZKCListNew AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -84,8 +83,8 @@ object frmMPZKCListNew: TfrmMPZKCListNew object cxGrid1: TcxGrid Left = 0 Top = 105 - Width = 1129 - Height = 590 + Width = 1137 + Height = 598 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -152,7 +151,7 @@ object frmMPZKCListNew: TfrmMPZKCListNew object Panel1: TPanel Left = 0 Top = 32 - Width = 1129 + Width = 1137 Height = 73 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_MPZKCListNew.pas b/云翔生产管理(MYSC.dll)/U_MPZKCListNew.pas index d365199..b4bd4aa 100644 --- a/云翔生产管理(MYSC.dll)/U_MPZKCListNew.pas +++ b/云翔生产管理(MYSC.dll)/U_MPZKCListNew.pas @@ -12,7 +12,21 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, 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 TfrmMPZKCListNew = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MainWFBCKList.dfm b/云翔生产管理(MYSC.dll)/U_MainWFBCKList.dfm index 6aa4567..4d93fdd 100644 --- a/云翔生产管理(MYSC.dll)/U_MainWFBCKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MainWFBCKList.dfm @@ -1,13 +1,13 @@ object frmMainWFBCKList: TfrmMainWFBCKList - Left = 201 - Top = 81 + Left = 517 + Top = 275 Width = 1489 Height = 755 Caption = #26825'&'#26080#32442#24067#20986#24211#26597#35810 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmMainWFBCKList: TfrmMainWFBCKList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 120 - TextHeight = 15 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1471 + Width = 1481 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -60,7 +60,6 @@ object frmMainWFBCKList: TfrmMainWFBCKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -75,61 +74,61 @@ object frmMainWFBCKList: TfrmMainWFBCKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1471 - Height = 51 + Width = 1481 + Height = 40 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel - Left = 737 - Top = 16 - Width = 76 - Height = 18 + Left = 590 + Top = 13 + Width = 64 + Height = 15 Caption = #36741#26009#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 36 - Top = 16 - Width = 38 - Height = 18 + Left = 29 + Top = 13 + Width = 32 + Height = 15 Caption = #26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 414 - Top = 16 - Width = 76 - Height = 18 + Left = 331 + Top = 13 + Width = 64 + Height = 15 Caption = #20135#21697#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MLName: TEdit Tag = 2 - Left = 820 - Top = 13 - Width = 133 - Height = 23 + Left = 656 + Top = 10 + Width = 106 + Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -137,15 +136,15 @@ object frmMainWFBCKList: TfrmMainWFBCKList OnChange = MYCodeChange end object BegDate: TDateTimePicker - Left = 85 - Top = 12 - Width = 154 - Height = 26 + Left = 68 + Top = 10 + Width = 123 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -153,15 +152,15 @@ object frmMainWFBCKList: TfrmMainWFBCKList TabOrder = 1 end object EndDate: TDateTimePicker - Left = 241 - Top = 12 - Width = 150 - Height = 26 + Left = 193 + Top = 10 + Width = 120 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -170,13 +169,13 @@ object frmMainWFBCKList: TfrmMainWFBCKList end object MLCodeName: TEdit Tag = 2 - Left = 495 - Top = 13 - Width = 204 - Height = 23 + Left = 396 + Top = 10 + Width = 163 + Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -186,9 +185,9 @@ object frmMainWFBCKList: TfrmMainWFBCKList end object cxGrid2: TcxGrid Left = 0 - Top = 83 - Width = 1471 - Height = 627 + Top = 72 + Width = 1481 + Height = 652 Align = alClient TabOrder = 2 object TV2: TcxGridDBTableView @@ -370,7 +369,7 @@ object frmMainWFBCKList: TfrmMainWFBCKList end object cxStyleRepository1: TcxStyleRepository Left = 552 - PixelsPerInch = 120 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clScrollBar diff --git a/云翔生产管理(MYSC.dll)/U_MainWFBCKList.pas b/云翔生产管理(MYSC.dll)/U_MainWFBCKList.pas index e868ed5..c340333 100644 --- a/云翔生产管理(MYSC.dll)/U_MainWFBCKList.pas +++ b/云翔生产管理(MYSC.dll)/U_MainWFBCKList.pas @@ -11,7 +11,20 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, 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 TfrmMainWFBCKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_MianWFBKCList.dfm b/云翔生产管理(MYSC.dll)/U_MianWFBKCList.dfm index a89b8be..d40dc11 100644 --- a/云翔生产管理(MYSC.dll)/U_MianWFBKCList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MianWFBKCList.dfm @@ -1,13 +1,13 @@ object frmMianWFBKCList: TfrmMianWFBKCList - Left = 109 - Top = 71 + Left = 518 + Top = 270 Width = 1516 Height = 739 Caption = #26825#24211#23384 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmMianWFBKCList: TfrmMianWFBKCList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 120 - TextHeight = 15 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1498 + Width = 1508 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -60,7 +60,6 @@ object frmMianWFBKCList: TfrmMianWFBKCList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -75,61 +74,61 @@ object frmMianWFBKCList: TfrmMianWFBKCList object Panel1: TPanel Left = 0 Top = 32 - Width = 1498 - Height = 51 + Width = 1508 + Height = 40 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel - Left = 326 - Top = 16 - Width = 38 - Height = 18 + Left = 261 + Top = 13 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 181 - Top = 16 - Width = 38 - Height = 18 + Left = 145 + Top = 13 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 24 - Top = 16 - Width = 38 - Height = 18 + Left = 19 + Top = 13 + Width = 32 + Height = 15 Caption = #31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MYName: TEdit Tag = 2 - Left = 370 - Top = 11 - Width = 275 - Height = 23 + Left = 296 + Top = 9 + Width = 220 + Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -138,13 +137,13 @@ object frmMianWFBKCList: TfrmMianWFBKCList end object MYCode: TEdit Tag = 2 - Left = 225 - Top = 11 - Width = 89 - Height = 23 + Left = 180 + Top = 9 + Width = 71 + Height = 26 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -153,17 +152,17 @@ object frmMianWFBKCList: TfrmMianWFBKCList end object DataType: TComboBox Tag = 1 - Left = 68 - Top = 11 - Width = 103 - Height = 26 + Left = 54 + Top = 9 + Width = 83 + Height = 23 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemHeight = 18 + ItemHeight = 15 ParentFont = False TabOrder = 2 OnChange = DataTypeChange @@ -175,9 +174,9 @@ object frmMianWFBKCList: TfrmMianWFBKCList end object cxGrid2: TcxGrid Left = 0 - Top = 83 - Width = 1498 - Height = 611 + Top = 72 + Width = 1508 + Height = 636 Align = alClient TabOrder = 2 object TV2: TcxGridDBTableView @@ -398,7 +397,7 @@ object frmMianWFBKCList: TfrmMianWFBKCList object cxStyleRepository1: TcxStyleRepository Left = 272 Top = 8 - PixelsPerInch = 120 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clScrollBar diff --git a/云翔生产管理(MYSC.dll)/U_MianWFBKCList.pas b/云翔生产管理(MYSC.dll)/U_MianWFBKCList.pas index 17b3f15..ce97548 100644 --- a/云翔生产管理(MYSC.dll)/U_MianWFBKCList.pas +++ b/云翔生产管理(MYSC.dll)/U_MianWFBKCList.pas @@ -11,7 +11,20 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + cxLookAndFeelPainters, 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 TfrmMianWFBKCList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm index 44f4099..7373804 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm @@ -1,6 +1,6 @@ object frmPBCGRKList: TfrmPBCGRKList - Left = 142 - Top = 18 + Left = 364 + Top = 154 Width = 1556 Height = 765 Caption = #22383#24067#37319#36141#20837#24211#30331#35760 @@ -78,7 +78,6 @@ object frmPBCGRKList: TfrmPBCGRKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.dfm index f95685c..2b2d99d 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.dfm @@ -7,7 +7,7 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1278 + Width = 1286 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -77,7 +77,6 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -113,15 +112,15 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK end object cxGrid1: TcxGrid Left = 0 - Top = 105 - Width = 1278 - Height = 524 + Top = 99 + Width = 1286 + Height = 539 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -244,87 +243,87 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK object Panel1: TPanel Left = 0 Top = 32 - Width = 1278 - Height = 73 + Width = 1286 + Height = 67 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label34: TLabel - Left = 269 - Top = 14 - Width = 85 - Height = 16 + Left = 248 + Top = 13 + Width = 80 + Height = 15 Caption = #20379#24212#21830#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 39 - Top = 14 - Width = 34 - Height = 16 + Left = 36 + Top = 13 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 39 - Top = 43 - Width = 34 - Height = 16 + Left = 36 + Top = 40 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 269 - Top = 43 - Width = 102 - Height = 16 + Left = 248 + Top = 40 + Width = 96 + Height = 15 Caption = #36827#20179#21333#20301#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 571 - Top = 14 - Width = 51 - Height = 16 + Left = 527 + Top = 13 + Width = 48 + Height = 15 Caption = #25805#20316#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHNameJC: TEdit Tag = 2 - Left = 377 - Top = 10 - Width = 128 + Left = 348 + Top = 9 + Width = 118 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -332,30 +331,30 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 909 - Top = 10 - Width = 122 - Height = 24 + Left = 839 + Top = 9 + Width = 113 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object EndDate: TDateTimePicker - Left = 909 - Top = 39 - Width = 122 - Height = 24 + Left = 839 + Top = 36 + Width = 113 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -363,13 +362,13 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK end object MYName: TEdit Tag = 2 - Left = 76 - Top = 10 - Width = 121 + Left = 70 + Top = 9 + Width = 112 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -378,13 +377,13 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK end object Note: TEdit Tag = 2 - Left = 76 - Top = 39 - Width = 153 + Left = 70 + Top = 36 + Width = 141 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -392,14 +391,14 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 815 - Top = 14 - Width = 89 - Height = 17 + Left = 752 + Top = 13 + Width = 82 + Height = 16 Caption = #26597#35810#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -407,23 +406,23 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK OnClick = CheckBox1Click end object Button2: TButton - Left = 506 - Top = 9 - Width = 29 - Height = 26 + Left = 467 + Top = 8 + Width = 27 + Height = 24 Caption = '...' TabOrder = 6 OnClick = Button2Click end object JCDanWeiJC: TEdit Tag = 2 - Left = 377 - Top = 39 - Width = 128 + Left = 348 + Top = 36 + Width = 118 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -431,32 +430,32 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK OnChange = CustomerNoNameChange end object Button1: TButton - Left = 506 - Top = 38 - Width = 29 - Height = 26 + Left = 467 + Top = 35 + Width = 27 + Height = 24 Caption = '...' TabOrder = 8 OnClick = Button1Click end object Button3: TButton - Left = 199 - Top = 9 - Width = 29 - Height = 26 + Left = 184 + Top = 8 + Width = 26 + Height = 24 Caption = '...' TabOrder = 9 OnClick = Button3Click end object filler: TEdit Tag = 2 - Left = 628 - Top = 10 - Width = 153 + Left = 580 + Top = 9 + Width = 141 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -465,32 +464,32 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK end end object Panel2: TPanel - Left = 409 - Top = 195 - Width = 232 - Height = 134 + Left = 378 + Top = 180 + Width = 214 + Height = 124 Color = clSkyBlue TabOrder = 3 Visible = False object SpeedButton1: TSpeedButton - Left = 35 - Top = 37 - Width = 70 - Height = 58 + Left = 32 + Top = 34 + Width = 65 + Height = 54 Caption = #21152#24037 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object Image2: TImage - Left = 205 + Left = 189 Top = 3 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -535,14 +534,14 @@ object frmPBCGRKList_PBCK: TfrmPBCGRKList_PBCK OnClick = Image2Click end object SpeedButton2: TSpeedButton - Left = 126 - Top = 37 - Width = 70 - Height = 58 + Left = 116 + Top = 34 + Width = 65 + Height = 54 Caption = #38144#21806 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.pas b/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.pas index 6dc026b..95fd2f3 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.pas +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_PBCK.pas @@ -10,7 +10,22 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; + Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmPBCGRKList_PBCK = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.dfm index 1a6f226..69d028f 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.dfm @@ -7,7 +7,7 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1063 + Width = 1071 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -69,7 +69,6 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -106,48 +105,48 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC object Panel1: TPanel Left = 0 Top = 32 - Width = 1063 - Height = 44 + Width = 1071 + Height = 40 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel - Left = 148 - Top = 14 - Width = 34 - Height = 16 + Left = 137 + Top = 13 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 14 - Top = 14 - Width = 34 - Height = 16 + Left = 13 + Top = 13 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MYName: TEdit Tag = 2 - Left = 186 - Top = 10 - Width = 239 + Left = 172 + Top = 9 + Width = 220 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -155,23 +154,23 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC OnChange = MYCodeChange end object Button3: TButton - Left = 426 - Top = 9 - Width = 29 - Height = 26 + Left = 393 + Top = 8 + Width = 27 + Height = 24 Caption = '...' TabOrder = 1 OnClick = Button3Click end object MYCode: TEdit Tag = 2 - Left = 53 - Top = 10 - Width = 77 + Left = 49 + Top = 9 + Width = 71 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -181,13 +180,13 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC end object cxGrid2: TcxGrid Left = 0 - Top = 76 - Width = 1063 - Height = 585 + Top = 72 + Width = 1071 + Height = 598 Align = alClient TabOrder = 2 object TV2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellDblClick = TV2CellDblClick DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -406,6 +405,7 @@ object frmPBCGRKList_QCKC: TfrmPBCGRKList_QCKC end object cxStyleRepository1: TcxStyleRepository Left = 6 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clScrollBar diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.pas b/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.pas index 305ab8d..c6f3e5a 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.pas +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_QCKC.pas @@ -10,7 +10,22 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; + Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmPBCGRKList_QCKC = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm index a2ab3c6..f885f9b 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm @@ -69,7 +69,6 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object ToolButton1: TToolButton diff --git a/云翔生产管理(MYSC.dll)/U_PBKCList.dfm b/云翔生产管理(MYSC.dll)/U_PBKCList.dfm index 0de99a0..e3e78bb 100644 --- a/云翔生产管理(MYSC.dll)/U_PBKCList.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBKCList.dfm @@ -1,6 +1,6 @@ object frmPBKCList: TfrmPBKCList - Left = 29 - Top = 63 + Left = 384 + Top = 163 Width = 1556 Height = 765 Caption = #22383#24067#24211#23384#26597#35810 @@ -20,7 +20,7 @@ object frmPBKCList: TfrmPBKCList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -61,7 +61,6 @@ object frmPBKCList: TfrmPBKCList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -76,8 +75,8 @@ object frmPBKCList: TfrmPBKCList object cxGrid1: TcxGrid Left = 0 Top = 71 - Width = 1540 - Height = 655 + Width = 1548 + Height = 663 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -338,7 +337,7 @@ object frmPBKCList: TfrmPBKCList object Panel1: TPanel Left = 0 Top = 32 - Width = 1540 + Width = 1548 Height = 39 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_PBKCList.pas b/云翔生产管理(MYSC.dll)/U_PBKCList.pas index ce7899c..22b34dd 100644 --- a/云翔生产管理(MYSC.dll)/U_PBKCList.pas +++ b/云翔生产管理(MYSC.dll)/U_PBKCList.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, cxTextEdit; + cxNavigator, cxTextEdit, 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 TfrmPBKCList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.dfm b/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.dfm index db4463a..14dc8c2 100644 --- a/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.dfm +++ b/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.dfm @@ -1,13 +1,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH - Left = 189 - Top = 133 + Left = 734 + Top = 305 Width = 1293 Height = 687 Caption = #27873#32501#36864#36135#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1277 + Width = 1285 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -78,7 +78,6 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -114,15 +113,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end object cxGrid1: TcxGrid Left = 0 - Top = 105 - Width = 1277 - Height = 542 + Top = 99 + Width = 1285 + Height = 557 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -283,128 +282,128 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH object Panel1: TPanel Left = 0 Top = 32 - Width = 1277 - Height = 73 + Width = 1285 + Height = 67 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label34: TLabel - Left = 25 - Top = 14 - Width = 85 - Height = 16 + Left = 23 + Top = 13 + Width = 80 + Height = 15 Caption = #20379#24212#21830#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 25 - Top = 43 - Width = 102 - Height = 16 + Left = 23 + Top = 40 + Width = 96 + Height = 15 Caption = #36827#20179#21333#20301#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 402 - Top = 14 - Width = 51 - Height = 16 + Left = 371 + Top = 13 + Width = 48 + Height = 15 Caption = #25805#20316#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 48 - Top = 114 - Width = 34 - Height = 16 + Left = 44 + Top = 105 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label1: TLabel - Left = 48 - Top = 143 - Width = 34 - Height = 16 + Left = 44 + Top = 132 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label5: TLabel - Left = 402 - Top = 43 - Width = 51 - Height = 16 + Left = 371 + Top = 40 + Width = 48 + Height = 15 Caption = #37319#36141#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 580 - Top = 14 - Width = 34 - Height = 16 + Left = 535 + Top = 13 + Width = 32 + Height = 15 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel - Left = 580 - Top = 43 - Width = 34 - Height = 16 + Left = 535 + Top = 40 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHNameJC: TEdit Tag = 2 - Left = 133 - Top = 10 - Width = 129 + Left = 123 + Top = 9 + Width = 119 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -413,15 +412,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 845 - Top = 10 - Width = 122 - Height = 24 + Left = 780 + Top = 9 + Width = 113 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -429,15 +428,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH TabOrder = 3 end object EndDate: TDateTimePicker - Left = 845 - Top = 39 - Width = 122 - Height = 24 + Left = 780 + Top = 36 + Width = 113 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -445,15 +444,15 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH TabOrder = 8 end object CheckBox1: TCheckBox - Left = 751 - Top = 13 - Width = 89 - Height = 17 + Left = 693 + Top = 12 + Width = 82 + Height = 16 Caption = #26597#35810#26085#26399 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -462,23 +461,23 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnClick = CheckBox1Click end object Button2: TButton - Left = 262 - Top = 9 - Width = 29 - Height = 26 + Left = 242 + Top = 8 + Width = 27 + Height = 24 Caption = '...' TabOrder = 0 OnClick = Button2Click end object JCDanWeiJC: TEdit Tag = 2 - Left = 133 - Top = 39 - Width = 129 + Left = 123 + Top = 36 + Width = 119 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -487,23 +486,23 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnChange = CustomerNoNameChange end object Button1: TButton - Left = 262 - Top = 38 - Width = 29 - Height = 26 + Left = 242 + Top = 35 + Width = 27 + Height = 24 Caption = '...' TabOrder = 5 OnClick = Button1Click end object MYName: TEdit Tag = 2 - Left = 617 - Top = 39 - Width = 100 + Left = 570 + Top = 36 + Width = 92 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -512,13 +511,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end object Note: TEdit Tag = 2 - Left = 86 - Top = 139 - Width = 151 + Left = 79 + Top = 128 + Width = 140 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -528,23 +527,23 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnChange = CustomerNoNameChange end object Button3: TButton - Left = 718 - Top = 38 - Width = 29 - Height = 26 + Left = 663 + Top = 35 + Width = 27 + Height = 24 Caption = '...' TabOrder = 9 OnClick = Button3Click end object KHNo: TEdit Tag = 2 - Left = 292 - Top = 10 - Width = 89 + Left = 270 + Top = 9 + Width = 82 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -554,13 +553,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end object JCKHNo: TEdit Tag = 2 - Left = 292 - Top = 39 - Width = 89 + Left = 270 + Top = 36 + Width = 82 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -569,13 +568,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end object MYColor: TEdit Tag = 2 - Left = 617 - Top = 10 - Width = 100 + Left = 570 + Top = 9 + Width = 92 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -583,65 +582,65 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnChange = CustomerNoNameChange end object filler: TComboBox - Left = 457 - Top = 10 - Width = 99 - Height = 24 + Left = 422 + Top = 9 + Width = 91 + Height = 23 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] - ItemHeight = 16 + ItemHeight = 15 ParentFont = False TabOrder = 13 OnChange = CustomerNoNameChange end object CGName: TComboBox - Left = 457 - Top = 39 - Width = 99 - Height = 24 + Left = 422 + Top = 36 + Width = 91 + Height = 23 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] - ItemHeight = 16 + ItemHeight = 15 ParentFont = False TabOrder = 14 OnChange = CustomerNoNameChange end end object Panel2: TPanel - Left = 403 - Top = 156 - Width = 232 - Height = 146 + Left = 372 + Top = 144 + Width = 214 + Height = 135 Color = clSkyBlue TabOrder = 4 Visible = False object SpeedButton1: TSpeedButton - Left = 81 - Top = 43 - Width = 62 - Height = 54 + Left = 75 + Top = 40 + Width = 57 + Height = 50 Caption = #27873#32501 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object Image2: TImage - Left = 205 + Left = 189 Top = 3 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -687,27 +686,27 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end end object cxGroupBox2: TcxGroupBox - Left = 650 - Top = 133 + Left = 600 + Top = 123 Caption = #30721#21333'('#25991#20214')'#19978#20256 ParentColor = False ParentFont = False Style.Color = clBtnFace Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clBlue - Style.Font.Height = -16 + Style.Font.Height = -15 Style.Font.Name = #24494#36719#38597#40657 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 3 Visible = False - Height = 275 - Width = 388 + Height = 254 + Width = 358 object Image3: TImage - Left = 361 + Left = 333 Top = 3 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -753,14 +752,14 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end object ListView1: TListView Left = 2 - Top = 25 - Width = 384 - Height = 248 + Top = 24 + Width = 354 + Height = 228 Align = alClient Columns = <> Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] LargeImages = ImageList1 @@ -770,34 +769,34 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnDblClick = ListView1DblClick end object Panel12: TPanel - Left = 35 - Top = 88 - Width = 324 - Height = 106 + Left = 32 + Top = 81 + Width = 299 + Height = 98 TabOrder = 1 Visible = False object Label8: TLabel - Left = 11 - Top = 35 - Width = 64 - Height = 15 + Left = 10 + Top = 32 + Width = 56 + Height = 13 Caption = #25991#20214#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button4: TButton - Left = 15 - Top = 65 - Width = 83 - Height = 27 + Left = 14 + Top = 60 + Width = 76 + Height = 25 Caption = #26159 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -807,8 +806,8 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH object Panel13: TPanel Left = 1 Top = 1 - Width = 322 - Height = 23 + Width = 297 + Height = 21 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone @@ -816,16 +815,16 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Image1: TImage - Left = 297 + Left = 274 Top = 2 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -871,13 +870,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end end object WJName: TEdit - Left = 80 - Top = 33 - Width = 232 + Left = 74 + Top = 30 + Width = 214 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -885,14 +884,14 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH TabOrder = 1 end object Button7: TButton - Left = 228 - Top = 65 - Width = 81 - Height = 27 + Left = 210 + Top = 60 + Width = 75 + Height = 25 Caption = #21542 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -900,13 +899,13 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH OnClick = Button7Click end object WJPach: TEdit - Left = 94 - Top = 208 - Width = 323 + Left = 87 + Top = 192 + Width = 298 Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -914,14 +913,14 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH TabOrder = 5 end object Button8: TButton - Left = 119 - Top = 65 - Width = 83 - Height = 27 + Left = 110 + Top = 60 + Width = 76 + Height = 25 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -930,16 +929,16 @@ object frmPMCGRKList_TH: TfrmPMCGRKList_TH end end object Panel3: TPanel - Left = 67 - Top = 133 - Width = 282 - Height = 34 + Left = 62 + Top = 123 + Width = 260 + Height = 31 BevelOuter = bvNone Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.pas b/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.pas index eef1b99..0b3d8e3 100644 --- a/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.pas +++ b/云翔生产管理(MYSC.dll)/U_PMCGRKList_TH.pas @@ -12,7 +12,22 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP,ShellAPI, ImgList,StrUtils; + IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, + 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, + cxNavigator; type TfrmPMCGRKList_TH = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_QCCKList_CK.dfm b/云翔生产管理(MYSC.dll)/U_QCCKList_CK.dfm index c4a5b0e..feb07ab 100644 --- a/云翔生产管理(MYSC.dll)/U_QCCKList_CK.dfm +++ b/云翔生产管理(MYSC.dll)/U_QCCKList_CK.dfm @@ -7,7 +7,7 @@ object frmQCCKList_CK: TfrmQCCKList_CK Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmQCCKList_CK: TfrmQCCKList_CK OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1365 + Width = 1373 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -86,7 +86,6 @@ object frmQCCKList_CK: TfrmQCCKList_CK AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -113,15 +112,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK end object cxGrid1: TcxGrid Left = 0 - Top = 111 - Width = 811 - Height = 557 + Top = 104 + Width = 749 + Height = 573 Align = alLeft PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -217,87 +216,87 @@ object frmQCCKList_CK: TfrmQCCKList_CK object Panel1: TPanel Left = 0 Top = 32 - Width = 1365 - Height = 79 + Width = 1373 + Height = 72 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label34: TLabel - Left = 258 - Top = 17 - Width = 34 - Height = 16 + Left = 238 + Top = 16 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 26 - Top = 17 - Width = 70 - Height = 16 + Left = 24 + Top = 16 + Width = 68 + Height = 15 Caption = #21697' '#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 258 - Top = 49 - Width = 34 - Height = 16 + Left = 238 + Top = 45 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 28 - Top = 49 - Width = 68 - Height = 16 + Left = 26 + Top = 45 + Width = 64 + Height = 15 Caption = #24037#33402#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 451 - Top = 17 - Width = 34 - Height = 16 + Left = 416 + Top = 16 + Width = 32 + Height = 15 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MYCode: TEdit Tag = 2 - Left = 295 - Top = 13 - Width = 135 + Left = 272 + Top = 12 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -305,15 +304,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 759 - Top = 13 - Width = 133 - Height = 24 + Left = 701 + Top = 12 + Width = 122 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -321,15 +320,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK Visible = False end object EndDate: TDateTimePicker - Left = 759 - Top = 45 - Width = 133 - Height = 24 + Left = 701 + Top = 42 + Width = 122 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -338,13 +337,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK end object MYName: TEdit Tag = 2 - Left = 99 - Top = 13 - Width = 135 + Left = 91 + Top = 12 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -353,13 +352,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK end object Note: TEdit Tag = 2 - Left = 295 - Top = 45 - Width = 135 + Left = 272 + Top = 42 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -368,13 +367,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK end object GYLXName: TEdit Tag = 2 - Left = 99 - Top = 45 - Width = 135 + Left = 91 + Top = 42 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -382,14 +381,14 @@ object frmQCCKList_CK: TfrmQCCKList_CK OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 661 - Top = 16 - Width = 98 - Height = 19 + Left = 610 + Top = 15 + Width = 91 + Height = 17 Caption = #26597#35810#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -398,13 +397,13 @@ object frmQCCKList_CK: TfrmQCCKList_CK end object MYColor: TEdit Tag = 2 - Left = 488 - Top = 13 - Width = 135 + Left = 450 + Top = 12 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -413,15 +412,15 @@ object frmQCCKList_CK: TfrmQCCKList_CK end end object cxGrid2: TcxGrid - Left = 811 - Top = 111 - Width = 554 - Height = 557 + Left = 749 + Top = 104 + Width = 624 + Height = 573 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 object TV2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellDblClick = TV2CellDblClick DataController.DataSource = DataSource2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] diff --git a/云翔生产管理(MYSC.dll)/U_QCCKList_CK.pas b/云翔生产管理(MYSC.dll)/U_QCCKList_CK.pas index 9739e35..17b5f53 100644 --- a/云翔生产管理(MYSC.dll)/U_QCCKList_CK.pas +++ b/云翔生产管理(MYSC.dll)/U_QCCKList_CK.pas @@ -10,7 +10,22 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC; + Menus, cxButtonEdit, cxDropDownEdit, cxPC, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmQCCKList_CK = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_QCRKList.dfm b/云翔生产管理(MYSC.dll)/U_QCRKList.dfm index 4e3f8ec..cc5fe78 100644 --- a/云翔生产管理(MYSC.dll)/U_QCRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_QCRKList.dfm @@ -7,7 +7,7 @@ object frmQCRKList: TfrmQCRKList Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmQCRKList: TfrmQCRKList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1342 + Width = 1350 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -77,7 +77,6 @@ object frmQCRKList: TfrmQCRKList AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -113,14 +112,14 @@ object frmQCRKList: TfrmQCRKList end object cxGrid1: TcxGrid Left = 0 - Top = 110 - Width = 1342 - Height = 560 + Top = 104 + Width = 1350 + Height = 575 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -213,48 +212,48 @@ object frmQCRKList: TfrmQCRKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1342 - Height = 78 + Width = 1350 + Height = 72 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label34: TLabel - Left = 28 - Top = 46 - Width = 34 - Height = 16 + Left = 26 + Top = 42 + Width = 32 + Height = 15 Caption = #32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 28 - Top = 15 - Width = 34 - Height = 16 + Left = 26 + Top = 14 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MYCode: TEdit Tag = 2 - Left = 67 - Top = 42 - Width = 136 + Left = 62 + Top = 39 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -262,15 +261,15 @@ object frmQCRKList: TfrmQCRKList OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 381 - Top = 11 - Width = 133 - Height = 24 + Left = 352 + Top = 10 + Width = 122 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -278,15 +277,15 @@ object frmQCRKList: TfrmQCRKList Visible = False end object EndDate: TDateTimePicker - Left = 381 - Top = 42 - Width = 133 - Height = 24 + Left = 352 + Top = 39 + Width = 122 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -295,13 +294,13 @@ object frmQCRKList: TfrmQCRKList end object MYName: TEdit Tag = 2 - Left = 67 - Top = 11 - Width = 136 + Left = 62 + Top = 10 + Width = 125 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -309,14 +308,14 @@ object frmQCRKList: TfrmQCRKList OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 280 - Top = 13 - Width = 98 - Height = 19 + Left = 258 + Top = 12 + Width = 91 + Height = 18 Caption = #26597#35810#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -324,30 +323,30 @@ object frmQCRKList: TfrmQCRKList OnClick = CheckBox1Click end object Button1: TButton - Left = 204 - Top = 8 - Width = 34 - Height = 30 + Left = 188 + Top = 7 + Width = 32 + Height = 28 Caption = '...' TabOrder = 5 OnClick = Button1Click end end object Panel2: TPanel - Left = 698 - Top = 116 - Width = 207 - Height = 405 + Left = 644 + Top = 107 + Width = 191 + Height = 374 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 3 Visible = False object Image2: TImage - Left = 179 + Left = 165 Top = 4 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -392,70 +391,70 @@ object frmQCRKList: TfrmQCRKList OnClick = Image2Click end object SpeedButton1: TSpeedButton - Left = 27 - Top = 23 - Width = 149 - Height = 64 + Left = 25 + Top = 21 + Width = 137 + Height = 59 Caption = #26377#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton - Left = 27 - Top = 176 - Width = 149 - Height = 64 + Left = 25 + Top = 162 + Width = 137 + Height = 60 Caption = #26080#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton - Left = 27 - Top = 99 - Width = 149 - Height = 64 + Left = 25 + Top = 91 + Width = 137 + Height = 59 Caption = 'Y'#23383#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton - Left = 27 - Top = 252 - Width = 149 - Height = 64 + Left = 25 + Top = 233 + Width = 137 + Height = 59 Caption = #28907#37329#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton - Left = 27 - Top = 328 - Width = 149 - Height = 64 + Left = 25 + Top = 303 + Width = 137 + Height = 59 Caption = 'YH'#21360#33457#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_QCRKList.pas b/云翔生产管理(MYSC.dll)/U_QCRKList.pas index 478a89f..dfcf318 100644 --- a/云翔生产管理(MYSC.dll)/U_QCRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_QCRKList.pas @@ -10,7 +10,22 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons; + Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; type TfrmQCRKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.dfm b/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.dfm index f389126..e94fce3 100644 --- a/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.dfm +++ b/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.dfm @@ -7,7 +7,7 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 13 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1362 + Width = 1370 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -78,7 +78,6 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH AutoSize = True Caption = #23548#20986 ImageIndex = 97 - Visible = False OnClick = TBExportClick end object TBClose: TToolButton @@ -114,15 +113,15 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object cxGrid1: TcxGrid Left = 0 - Top = 114 - Width = 1362 - Height = 541 + Top = 107 + Width = 1370 + Height = 557 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -287,100 +286,100 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH object Panel1: TPanel Left = 0 Top = 32 - Width = 1362 - Height = 82 + Width = 1370 + Height = 75 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label34: TLabel - Left = 255 - Top = 20 - Width = 85 - Height = 16 + Left = 235 + Top = 18 + Width = 80 + Height = 15 Caption = #20379#24212#21830#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 38 - Top = 20 - Width = 34 - Height = 16 + Left = 35 + Top = 18 + Width = 32 + Height = 15 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 38 - Top = 48 - Width = 34 - Height = 16 + Left = 35 + Top = 44 + Width = 32 + Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 255 - Top = 48 - Width = 102 - Height = 16 + Left = 235 + Top = 44 + Width = 96 + Height = 15 Caption = #36827#20179#21333#20301#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 631 - Top = 20 - Width = 51 - Height = 16 + Left = 582 + Top = 18 + Width = 48 + Height = 15 Caption = #21046#20316#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 631 - Top = 48 - Width = 51 - Height = 16 + Left = 582 + Top = 44 + Width = 48 + Height = 15 Caption = #37319#36141#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHNameJC: TEdit Tag = 2 - Left = 363 - Top = 15 - Width = 128 + Left = 335 + Top = 14 + Width = 118 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -388,30 +387,30 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 895 - Top = 15 - Width = 129 - Height = 24 + Left = 826 + Top = 14 + Width = 119 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object EndDate: TDateTimePicker - Left = 895 - Top = 44 - Width = 129 - Height = 24 + Left = 826 + Top = 41 + Width = 119 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -419,13 +418,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object MYName: TEdit Tag = 2 - Left = 76 - Top = 15 - Width = 152 + Left = 70 + Top = 14 + Width = 140 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -434,13 +433,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object Note: TEdit Tag = 2 - Left = 76 - Top = 44 - Width = 152 + Left = 70 + Top = 41 + Width = 140 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -448,14 +447,14 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 803 - Top = 18 - Width = 89 - Height = 17 + Left = 741 + Top = 17 + Width = 82 + Height = 15 Caption = #26597#35810#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -463,23 +462,23 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnClick = CheckBox1Click end object Button2: TButton - Left = 492 - Top = 14 - Width = 29 - Height = 26 + Left = 454 + Top = 13 + Width = 27 + Height = 24 Caption = '...' TabOrder = 0 OnClick = Button2Click end object JCDanWeiJC: TEdit Tag = 2 - Left = 363 - Top = 44 - Width = 128 + Left = 335 + Top = 41 + Width = 118 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -487,23 +486,23 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnChange = CustomerNoNameChange end object Button1: TButton - Left = 492 - Top = 43 - Width = 29 - Height = 26 + Left = 454 + Top = 40 + Width = 27 + Height = 24 Caption = '...' TabOrder = 7 OnClick = Button1Click end object filler: TEdit Tag = 2 - Left = 686 - Top = 15 - Width = 90 + Left = 633 + Top = 14 + Width = 83 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -512,13 +511,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object KHNo: TEdit Tag = 2 - Left = 522 - Top = 15 - Width = 89 + Left = 482 + Top = 14 + Width = 82 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -527,13 +526,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object JCKHNo: TEdit Tag = 2 - Left = 522 - Top = 44 - Width = 89 + Left = 482 + Top = 41 + Width = 82 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -542,13 +541,13 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object CGName: TEdit Tag = 2 - Left = 686 - Top = 43 - Width = 91 + Left = 633 + Top = 40 + Width = 84 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -557,27 +556,27 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end end object cxGroupBox2: TcxGroupBox - Left = 840 - Top = 141 + Left = 775 + Top = 130 Caption = #30721#21333'('#25991#20214')'#19978#20256 ParentColor = False ParentFont = False Style.Color = clBtnFace Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clBlue - Style.Font.Height = -16 + Style.Font.Height = -15 Style.Font.Name = #24494#36719#38597#40657 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 3 Visible = False - Height = 266 - Width = 385 + Height = 246 + Width = 356 object Image3: TImage - Left = 358 + Left = 330 Top = 2 - Width = 24 - Height = 18 + Width = 23 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -623,14 +622,14 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end object ListView1: TListView Left = 2 - Top = 25 - Width = 381 - Height = 239 + Top = 24 + Width = 352 + Height = 220 Align = alClient Columns = <> Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] LargeImages = ImageList1 @@ -639,34 +638,34 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnDblClick = ListView1DblClick end object Panel12: TPanel - Left = 33 - Top = 75 - Width = 323 - Height = 106 + Left = 30 + Top = 69 + Width = 299 + Height = 98 TabOrder = 1 Visible = False object Label8: TLabel - Left = 11 - Top = 35 - Width = 64 - Height = 15 + Left = 10 + Top = 32 + Width = 56 + Height = 13 Caption = #25991#20214#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button3: TButton - Left = 15 - Top = 65 - Width = 83 - Height = 27 + Left = 14 + Top = 60 + Width = 76 + Height = 25 Caption = #26159 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -676,8 +675,8 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH object Panel13: TPanel Left = 1 Top = 1 - Width = 321 - Height = 23 + Width = 297 + Height = 21 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone @@ -685,16 +684,16 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Image1: TImage - Left = 297 + Left = 274 Top = 2 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -740,27 +739,27 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end end object WJName: TEdit - Left = 80 - Top = 30 - Width = 232 + Left = 74 + Top = 28 + Width = 214 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Button7: TButton - Left = 228 - Top = 65 - Width = 81 - Height = 27 + Left = 210 + Top = 60 + Width = 75 + Height = 25 Caption = #21542 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -768,27 +767,27 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnClick = Button7Click end object WJPach: TEdit - Left = 94 - Top = 208 - Width = 323 + Left = 87 + Top = 192 + Width = 298 Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object Button8: TButton - Left = 119 - Top = 65 - Width = 83 - Height = 27 + Left = 110 + Top = 60 + Width = 76 + Height = 25 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -797,16 +796,16 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end end object Panel3: TPanel - Left = 62 - Top = 119 - Width = 283 - Height = 34 + Left = 57 + Top = 110 + Width = 261 + Height = 31 BevelOuter = bvNone Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -815,20 +814,20 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH end end object Panel4: TPanel - Left = 1092 - Top = 167 - Width = 207 - Height = 194 + Left = 1008 + Top = 154 + Width = 191 + Height = 179 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 4 Visible = False object Image4: TImage - Left = 178 + Left = 164 Top = 3 - Width = 24 - Height = 18 + Width = 22 + Height = 16 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -873,28 +872,28 @@ object frmXCGRKList_TH: TfrmXCGRKList_TH OnClick = Image4Click end object SpeedButton3: TSpeedButton - Left = 28 - Top = 25 - Width = 149 - Height = 64 + Left = 26 + Top = 23 + Width = 137 + Height = 59 Caption = #38754#32447 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton - Left = 28 - Top = 106 - Width = 149 - Height = 64 + Left = 26 + Top = 98 + Width = 137 + Height = 59 Caption = #24213#32447 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.pas b/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.pas index 201272d..9aeaf22 100644 --- a/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.pas +++ b/云翔生产管理(MYSC.dll)/U_XCGRKList_TH.pas @@ -12,7 +12,22 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, - IdFTP,ShellAPI, ImgList,StrUtils; + IdFTP,ShellAPI, ImgList,StrUtils, cxLookAndFeels, cxLookAndFeelPainters, + 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, + cxNavigator; type TfrmXCGRKList_TH = class(TForm)